<% SHONAME = Request.QueryString( "SHONAME" ) ISBN = Request.QueryString( "ISBN" ) CHONAME = Request.QueryString( "CHONAME" ) PUBKANA = Request.QueryString( "PUBKANA" ) PUBCODE = Request.QueryString( "PUBCODE" ) SHOTYPE = Request.QueryString( "SHOTYPE" ) CHOTYPE = Request.QueryString( "CHOTYPE" ) If TRIM(SHONAME) = "" Then SHONAME = Session("SHONAME") If TRIM(ISBN) = "" Then ISBN = Session("ISBN") If TRIM(CHONAME) = "" Then CHONAME = Session("CHONAME") If TRIM(PUBKANA) = "" Then PUBKANA = Session("PUBKANA") If TRIM(PUBCODE) = "" Then PUBCODE = Session("PUBCODE") If TRIM(SHOTYPE) = "" Then SHOTYPE = Session("SHOTYPE") If TRIM(CHOTYPE) = "" Then CHOTYPE = Session("CHOTYPE") SORCE = Request.QueryString( "SORCE" ) TmpPUBKANA="" for i= 1 to Len(PUBKANA) select case Mid(PUBKANA,i,1) case "ｰ" TmpMoji = "-" case "ｧ" TmpMoji = "ｱ" case "ｨ" TmpMoji = "ｲ" case "ｩ" TmpMoji = "ｳ" case "ｪ" TmpMoji = "ｴ" case "ｫ" TmpMoji = "ｵ" case "ｯ" TmpMoji = "ﾂ" case "ｬ" TmpMoji = "ﾔ" case "ｭ" TmpMoji = "ﾕ" case "ｮ" TmpMoji = "ﾖ" case else TmpMoji = Mid(PUBKANA,i,1) End Select TmpPUBKANA = TmpPUBKANA & TmpMoji Next PUBKANA = TmpPUBKANA If PUBKANA <>"" then Set Conn = Server.CreateObject( "ADODB.Connection" ) Conn.ConnectionTimeout = 3600 Conn.CommandTimeout = 3600 Server.ScriptTimeout = 3600 Conn.Open "DSN=tanaweb;UID=root;PWD=;DATABASE=tanaweb" strSQL = "select PUBLCD,PUBLMEIN from MST_PUBL where PUBLMEIK like '" & PUBKANA & "%' order by PUBLMEIN" SET objRS = Conn.Execute(strSQL) if (objRS.BOF and objRS.EOF) then intPublisher = 0 else intPublisher = 1 End if Else intPublisher = 0 End If RowH = 32 FtSz = 3 ''2→3 FtCor = "#000000" 'ブラウザの種類を取得 Set bc = Server.CreateObject("MSWC.BrowserType") if bc.browser = "IE" then InpW = 44 InpWp = 15 OptW = "　　　　　　　　　　　　　" Else InpW = 32 InpWp = 11 OptW = "　　　　　　　　　　　　　" End if %>

	書名(ｼﾘｰｽﾞ名)		<% If SHOTYPE <>"OR" Then %> 全てを含む　 いずれかを含む <% Else %> 全てを含む　 いずれかを含む <% End If %>
	著者名		<% If CHOTYPE <>"OR" Then %> 全てを含む　 いずれかを含む <% Else %> 全てを含む　 いずれかを含む <% End If %>
	ISBNｺｰﾄﾞ(半角)
	出版社ｶﾅ	<%if intPublisher = 1 then objRS.MoveFirst Do While Not objRS.EOF %> <% =objRS(0)%>　<% =Trim(objRS(1))%> <% objRS.MoveNext Loop objRS.Close SET objRS = Nothing else %> <%=OptW%> <% end if %>

　　　※ 書名(ｼﾘｰｽﾞ名)、著者名、は「漢字」または「半角ｶﾅ」で入力して下さい。
　　　※ 複数の条件を入力する時にはスペースでキーワードを区切って下さい、
　　　　 なお、各キーワードを「全てを含む」か「いずれかを含む」か をチェックして下さい。

　　　　　例 「吾輩は猫である」を検索する場合。
　　　　　　　漢字で「吾輩」または半角ｶﾅで「ﾜｶﾞﾊｲ」と単語を入れ、スペースで区切り
　　　　　　　　　　「猫」や「ﾈｺ」と入れて検索して下さい。

　　　※ 出版社に関しては、半角カナで入力後、右横のボックスをクリックして下さい。