<% 'データ更新日の取得 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 "

"+vbcrlf response.write "アニカラ専用サーチエンジン
"+vbcrlf response.write "DATAUPDATE : "+update+"
"+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 "

"+ Cnt_rs("PROGRAM") +"

"+ Cnt_rs("TITLE") + " " response.write "

"+ Cnt_rs("ARTIST") +"

"+vbcrlf response.write ""+vbcrlf if not isnull(Cnt_rs("Σ★")) then response.write ""+vbcrlf response.write ""+vbcrlf else if not isnull(Cnt_rs("Σ")) then response.write ""+vbcrlf response.write ""+vbcrlf end if end if if not isnull(Cnt_rs("CyberDAM")) then if right(Cnt_rs("CyberDAM"),1)="!" or right(Cnt_rs("CyberDAM"),1)="*" then response.write ""+vbcrlf response.write ""+vbcrlf else response.write ""+vbcrlf response.write ""+vbcrlf end if end if if not isnull(Cnt_rs("UGA")) then response.write ""+vbcrlf response.write ""+vbcrlf end if if not isnull(Cnt_rs("HyperJoy")) then if right(Cnt_rs("HyperJoy"),1)="*" or right(Cnt_rs("HyperJoy"),1)="!" then response.write ""+vbcrlf response.write ""+vbcrlf else response.write ""+vbcrlf response.write ""+vbcrlf end if end if if not isnull(Cnt_rs("SEGA")) then response.write ""+vbcrlf response.write ""+vbcrlf end if if not isnull(Cnt_rs("GIGA")) then response.write ""+vbcrlf response.write ""+vbcrlf end if response.write "

ΣSystem	"+ Cnt_rs("Σ★") +"
ΣSystem	"+ Cnt_rs("Σ") +"
CyberDAM	"+ Cnt_rs("CyberDAM") +"
CyberDAM	"+ Cnt_rs("CyberDAM") +"
UGA	"+ Cnt_rs("UGA") +"
HyperJoy	"+ Cnt_rs("HyperJoy") +"
HyperJoy	"+ Cnt_rs("HyperJoy") +"
SEGA	"+ Cnt_rs("SEGA") +"
GIGA	"+ Cnt_rs("GIGA") +"

"+vbcrlf response.write "

---

"+vbcrlf Cnt_rs.movenext Loop Cnt_rs.close end if %>