<% 'データ更新日の取得 set Cnt_Db = server.CreateObject("ADODB.Connection") Cnt_Db.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" &Server.MapPath("./anikara.mdb") set Cnt_rs = server.CreateObject ("ADODB.Recordset") Cnt_rs.open "version",Cnt_db,3,3 update =Cnt_rs("date") Cnt_rs.close '検索キーワードの取得 cgi_ss = Request("cgi_ss") response.write "
"+vbcrlf response.write "アニカラ専用サーチエンジン
DIVIDING//DRIVER V1.11
"+vbcrlf response.write "DATABASE UPDATE : "+update+"

"+vbcrlf response.write "

"+vbcrlf response.write " "+vbcrlf response.write " "+vbcrlf response.write "　[戻る]"+vbcrlf response.write "
"+vbcrlf response.write "
"+vbcrlf if cgi_SS<>"" then '検索の準備 set Cnt_Db = server.CreateObject("ADODB.Connection") Cnt_Db.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" &Server.MapPath("./anikara.mdb") set Cnt_rs = server.CreateObject ("ADODB.Recordset") SQL="" SQL = SQL + "SELECT * FROM anison WHERE" SQL = SQL + " PROGRAM like '%"+ cgi_ss +"%'" SQL = SQL + " or TITLE like '%"+ cgi_ss +"%'" SQL = SQL + " or ARTIST like '%"+ cgi_ss +"%'" Cnt_rs.open SQL,Cnt_db,3,3 Do while Cnt_rs.eof=false response.write ""+vbcrlf response.write " "+vbcrlf response.write " "+vbcrlf response.write " "+vbcrlf response.write "
"+ Cnt_rs("PROGRAM") +"
"+ Cnt_rs("TITLE") + "
" response.write " [ＦＴＰを検索]
"+ Cnt_rs("ARTIST") +"
"+vbcrlf response.write ""+vbcrlf if not isnull(Cnt_rs("Σ")) then response.write ""+vbcrlf end if if not isnull(Cnt_rs("UGA")) then response.write ""+vbcrlf end if if not isnull(Cnt_rs("HyperJoy")) then response.write ""+vbcrlf end if if not isnull(Cnt_rs("SEGA")) then response.write ""+vbcrlf end if if not isnull(Cnt_rs("GIGA")) then response.write ""+vbcrlf end if response.write "
"+vbcrlf response.write " ："+ Cnt_rs("Σ") +"　"+vbcrlf response.write "
"+vbcrlf response.write " ："+ Cnt_rs("UGA") +"　"+vbcrlf response.write "
"+vbcrlf response.write " ："+ Cnt_rs("HyperJoy") +"　"+vbcrlf response.write "
"+vbcrlf response.write " ："+ Cnt_rs("SEGA") +"　"+vbcrlf response.write "
"+vbcrlf response.write " ："+ Cnt_rs("GIGA") +"　"+vbcrlf response.write "
"+vbcrlf response.write "
"+vbcrlf Cnt_rs.movenext Loop Cnt_rs.close end if response.write "
"+vbcrlf response.write ""+vbcrlf %>