<% 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 "" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf Dim tablestyle Dim maxperpage,Pcount,totalrec,totalnumber,strLink maxperpage = Clng(c77dw.MaxPerPage) totalrec = 0 Pcount = 1 strLink="&key="&key&"&menu=all&otype="&otype If CurrentPage <1 Then CurrentPage = 1 Response.Write "" & vbCrLf sql="select * from Gq_SFdata,Gq_Gametype where InStr(1,LCase(Gq_sfdata."&otype&"),LCase('"&key&"'),0)<>0 and Gq_SFdata.gameid=Gq_gametype.id" sql=sql&" and Gq_SFdata.ulock=1 order by Gq_sfdata.Sdate desc,Gq_sfdata.hour desc,Gq_sfdata.minute desc" 'response.Write sql Rs.Open SQL, Conn, 1, 3 if Rs.eof and Rs.bof then response.write "" 'Rs.close else totalrec = Rs.RecordCount Pcount = CLng(totalrec / maxperpage) '得到总页数 If Pcount < totalrec / maxperpage Then Pcount = Pcount + 1 If CurrentPage > Pcount Then CurrentPage = Pcount Rs.PageSize = maxperpage Rs.AbsolutePage = CurrentPage i = 0 Do While Not Rs.EOF And i < maxperpage If Not Response.IsClientConnected Then ResponseEnd Response.Write "" & vbCrLf Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" & vbCrLf Response.Write "" Response.Write "" Rs.movenext i = i + 1 If i >= maxperpage Then Exit Do Loop End If Rs.Close:Set Rs = Nothing if totalrec>0 then Response.Write "" end if Response.Write "
服务器名服务器IP开机时间[年/月/日/时间]地区线路客服QQ版本介绍详细介绍类型
Sorry!没有找到您搜索的私服~!
" Response.Write "" %><% Response.Write Replace(Rs("name"),"" & key & "","" & key & "")%> <%Response.Write "" Response.Write Replace(Rs("ip"),"" & key & "","" & key & "") 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 ""&Rs("Addr")&""&split(c77dw.ssign,",")(Rs("Service"))&""&Rs("QQ")&"" Response.Write Replace(Rs("xingzhi"),"" & key & "","" & key & "") Response.Write "点击查看"&Replace(Rs("game"),"私服","")&"
" c77dw.ShowListPage CurrentPage,Pcount,totalrec,maxperpage,strLink,"搜索分页" Response.Write "
" c77dw.footer() CloseConn Function preventSqlin(content) dim sqlStr,sqlArray,i,speStr sqlStr="<|>|%|%27|'|''|;|*|and|exec|dbcc|alter|drop|insert|select|update|delete|count|master|truncate|char|declare|where|set|declare|mid|chr|alert" if isNull(content) then Exit Function sqlArray=split(sqlStr,"|") for i=lbound(sqlArray) to ubound(sqlArray) if instr(lcase(content),sqlArray(i))<>0 then preventSqlin="":Exit Function next preventSqlin=content End Function %>