% Dim Menu, key, otype,Sitesflook,rs3,CurrentPage,xpp xpp=",name,ip,sdate,QQ,xingzhi,homepage," 'menu=trim(request("menu")) key=preventSqlin(trim(request("key"))) if key="" then response.write "请输入查询条件!":response.end otype=preventSqlin(trim(request("otype"))) if instr(xpp,","&otype&",")=0 then otype="name" CurrentPage=request("page") if IsNumeric(CurrentPage) then CurrentPage=clng(CurrentPage) else CurrentPage=1 set Rs = server.createobject("adodb.recordset") start="所有包含“"&key&"”的私服,游戏搜索" c77dw.head() Response.Write "
服务器名 | " & vbCrLf Response.Write "服务器IP | " & vbCrLf Response.Write "开机时间[年/月/日/时间] | " & vbCrLf Response.Write "地区线路 | " & vbCrLf Response.Write "客服QQ | " & vbCrLf Response.Write "版本介绍 | " & vbCrLf Response.Write "详细介绍 | " & vbCrLf Response.Write "类型 | " & vbCrLf Response.Write "|
---|---|---|---|---|---|---|---|---|
Sorry!没有找到您搜索的私服~! | ||||||||
" Response.Write "" %><% Response.Write Replace(Rs("name"),"" & key & "","" & key & "")%> <%Response.Write " | " Response.Write "" Response.Write Replace(Rs("ip"),"" & key & "","" & key & "") Response.Write " | " Response.Write ""%> <%If Rs("Sdate")<>"" then response.write month(Rs("sdate"))&"月/"&day(Rs("Sdate"))&"日/"%><%if Rs("hour")>=0 and Rs("hour")<7 then response.write "凌晨"&Rs("hour")&"点" else if Rs("hour")>17 and Rs("hour")<24 then response.write "晚上"&Rs("hour")-12&"点" else if Rs("hour")<12 then response.write "上午"&Rs("hour")&"点" else if Rs("hour")>12 and Rs("hour")<=17 then response.write "下午"&Rs("hour")-12&"点" else if Rs("hour")=12 then response.write "中午"&Rs("hour")&"点" end if end if end if end if end if%><% if Rs("minute")<30 then response.write"" else if Rs("minute")>=30 then response.write "/30分" end if end if%> <% Response.Write " | " Response.Write ""&Rs("Addr")&""&split(c77dw.ssign,",")(Rs("Service"))&" | " Response.Write ""&Rs("QQ")&" | " Response.Write "" Response.Write Replace(Rs("xingzhi"),"" & key & "","" & key & "") Response.Write " | " Response.Write "点击查看 | " & vbCrLf Response.Write ""&Replace(Rs("game"),"私服","")&" | " Response.Write "|
" c77dw.ShowListPage CurrentPage,Pcount,totalrec,maxperpage,strLink,"搜索分页" Response.Write " |