<%@ LANGUAGE="VBScript" %> 所蔵図書検索

表示数 5件 10件 20件 30件 40件 50件

書籍名	(例：コンピュータ)
検索したい書籍のタイトルを入力してください
著者名	(例：北野)
検索したい書籍の著者名を入力してください
分類	<% '---- データベース接続 Set DBRS = Server.CreateObject("ADODB.Recordset") ' DBRS.Open "SELECT * FROM C分類 ORDER BY RIGHT(""000"" & 分類CD, 3)", "DSN=IRIDB", adOpenForwardOnly, adLockPessimistic DBRS.Open "SELECT * FROM Q分類メニュー ORDER BY 分類CD", "DSN=IRIDB", adOpenForwardOnly, adLockPessimistic Response.Write "全分類" While DBRS.EOF = False Response.Write "" Response.Write RIGHT("000" & DBRS("分類CD"), 3) & ":" & DBRS("分類名") Response.Write vbCRLF DBRS.MoveNext WEnd DBRS.Close Set DBRS = Nothing %>
検索したい書籍の分類コードを選択してください