📄 search.asp
字号:
<!--#include file="inc/config.asp"-->
<!--#include file="inc/conn.asp"-->
<!--#include file="inc/code.asp"-->
<!--#include file="inc/inc.asp"-->
<!--#include file="inc/new.asp"-->
<!--#include file="inc/SqlIn.Asp"-->
<%call head()%>
<body>
<div id="top-bg">
<div id="public-body">
<!--#include file="Top.asp"-->
<div id="page-link">
<%
start="游戏搜索"
if not isempty(request("page")) then
currentPage=cint(request("page"))
else
currentPage=1
end if
menu=request("menu")
set rs = server.createobject("adodb.recordset")
'=========================================================
'程序作者：追风ぇ十四郎 QQ: 6273844
'官方网站：追风设计(Www.ZF14.Com)
'=========================================================
' Copyright 2006-2008 ZF14.Com - All Rights Reserved.
'=========================================================
'=================================================
'文件名：more.asp
'作 用：更多私服列表，私服搜索
'=================================================
dim w1,w2,w3,w4,w5,w6,w7
w1=""&sfdata_1&""
w2=""&sfdata_2&""
w3=""&sfdata_3&""
w4=""&sfdata_4&""
w5=""&sfdata_5&""
w6=""&sfdata_6&""
w7=""&sfdata_7&""
menu=htmlencode(request("menu"))
key=htmlencode(request("key"))
otype=htmlencode(request("otype"))
if key="" then
response.write "<script>alert('请输入查询条件');history.back()</script>"
response.end
elseif menu="" or (not isnumeric(menu)) or isnull(menu) then
menu="all"
elseif int(menu)>uBound(split(lsign,",")) then
menu="all"
end if
response.write "<TABLE align='center' cellSpacing=1 cellPadding=5 width=984 align=center bgColor=#990000 border=0>"
response.write "<tr bgcolor=#FF9900 align='center'>"
response.write "<TD width="&w1&"><b><font color='#FFFFFF'> 服务器名</font></b></TD>"
response.write "<TD width="&w2&"><b><font color='#FFFFFF'> 服务器IP</font></b></TD>"
response.write "<TD width="&w3&"><b><font color='#FFFFFF'> 开机时间[年/月/日/时间]</font></b></TD>"
response.write "<TD width="&w4&"><b><font color='#FFFFFF'>"
response.write "<SELECT class=""Input"" onchange=""if(this.options[this.selectedIndex].value != '') {window.location=(this.options[this.selectedIndex].value) }"" name=""netSelect"">"
response.write "<OPTION selected>线路</OPTION>"
response.write "<option value=search.asp?key=0&otype=Service&menu=all>电信</option>"
response.write "<option value=search.asp?key=1&otype=Service&menu=all>网通</option>"
response.write "<option value=search.asp?key=2&otype=Service&menu=all>双线</option>"
response.write "<option value=index.asp>全部</option>"
response.write "</SELECT>"
response.write "</font></b></TD>"
response.write "<TD width="&w5&"><b><font color='#FFFFFF'>客服QQ</font></b></TD>"
response.write "<TD><b><font color='#FFFFFF'> 版本介绍</font></b></TD>"
response.write "<TD width="&w6&"><b><font color='#FFFFFF'>详细介绍</font></b></TD>"
response.write "<TD width="&w7&"><font color='#FFFFFF'><b>游戏类型</b></font></TD>"
response.write "</TR>"
if menu<>"all" then
sql="select Gq_sfdata.id,Gq_sfdata.name,Gq_sfdata.IP,Gq_sfdata.service,Gq_sfdata.Sdate,Gq_sfdata.hour,Gq_sfdata.minute,Gq_sfdata.addr,Gq_sfdata.xingzhi,Gq_sfdata.QQ,Gq_sfdata.hits,Gq_sfdata.homepage,Gq_sfdata.download,Gq_sfdata.addtime,Gq_sfdata.ulock,Gq_sfdata.top,Gq_sfdata.fine,Gq_sfdata.toptime,Gq_sfdata.hot,Gq_sfdata.hottime,Gq_sfdata.gameid,Gq_GameType.game"
sql=sql&" from Gq_SFdata,Gq_Gametype where "&otype&" like '%"&key&"%' and Gq_SFdata.gameid=Gq_gametype.id and Gq_SFdata.gameid="&menu
sql=sql&" and Gq_SFdata.ulock=1 order by Gq_SFdata.Sdate desc"
else
sql="select Gq_sfdata.id,Gq_sfdata.name,Gq_sfdata.IP,Gq_sfdata.service,Gq_sfdata.Sdate,Gq_sfdata.hour,Gq_sfdata.minute,Gq_sfdata.addr,Gq_sfdata.xingzhi,Gq_sfdata.QQ,Gq_sfdata.hits,Gq_sfdata.homepage,Gq_sfdata.download,Gq_sfdata.addtime,Gq_sfdata.ulock,Gq_sfdata.top,Gq_sfdata.fine,Gq_sfdata.toptime,Gq_sfdata.hot,Gq_sfdata.hottime,Gq_sfdata.gameid,Gq_GameType.game"
sql=sql&" from Gq_SFdata,Gq_Gametype where "&otype&" like '%"&key&"%' and Gq_SFdata.gameid=Gq_gametype.id"
sql=sql&" and Gq_SFdata.ulock=1 order by Gq_SFdata.Sdate desc"
end if
rs.open sql,conn,1,1
if rs.eof and rs.bof then
response.write "<tr><td align='center' bgcolor='#FFFFcc' height=50 colspan='9'><b>Sorry！<b><font color=red>没有找到您搜索的私服~！</font></td></tr>"
rs.close
else
totalPut=rs.recordcount
if currentpage<1 then
currentpage=1
end if
if (currentpage-1)*MaxPerPage>totalput then
if (totalPut mod MaxPerPage)=0 then
currentpage= totalPut \ MaxPerPage
else
currentpage= totalPut \ MaxPerPage + 1
end if
end if
if currentPage=1 then
showContent
showpage totalput,MaxPerPage,"more.asp"
else
if (currentPage-1)*MaxPerPage<totalPut then
rs.move (currentPage-1)*MaxPerPage
showContent
showpage totalput,MaxPerPage,"more.asp"
else
currentPage=1
showContent
showpage totalput,MaxPerPage,"more.asp"
end if
end if
rs.close
end if
sub showContent
dim i
i=0
do while not rs.eof
Response.Write "<TR bgColor=#FFF000 onmouseover=javascript:this.bgColor='#FFFFFF' onmouseout=javascript:this.bgColor='#FFF000'>"
Response.Write "<TD width="&w1&"><a href=showsf.asp?id="&rs("id")&" target=show>"&rs("name")&"</a></TD>"
Response.Write "<TD width="&w2&"><a href='"&rs("download")&"' target='_blank'>"&rs("IP")&"</a></TD>"
Response.Write "<TD width="&w3&">"
%>
<%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 "</TD>"
Response.Write "<TD width="&w4&">"&rs("Addr")&""&split(ssign,",")(rs("Service"))&"</TD>"
Response.Write "<TD width="&w5&">"&rs("QQ")&"</TD>"
Response.Write "<TD>"&rs("xingzhi")&"<font color='#FF0000'>←推荐</font></TD>"
Response.Write "<TD width="&w6&"><a href=showsf.asp?id="&rs("id")&" target=_blank>[点击查看]</a></TD>"
Response.Write "<TD width="&w7&"><font color='#000000'>"&rs("game")&"</font></TD>"
Response.Write "</TR>"
i=i+1
if i>=MaxPerPage then exit do
rs.movenext
loop
end sub
Response.Write "</table>"
function showpage(totalnumber,maxperpage,filename)
dim n
if totalnumber mod maxperpage=0 then
n= totalnumber \ maxperpage
else
n= totalnumber \ maxperpage+1
end if
response.write "<tr bgcolor=#FF9900><form method=Post action="&filename&"?menu="&menu&"><td colspan=8 align=right>"
if CurrentPage<2 then
response.write "<font color=#FFFFFF>共"&totalnumber&"条记录 每页"&MaxPerPage&"条 首页 上一页 </font>"
else
response.write "<font color=#FFFFFF>共"&totalnumber&"条记录 <a href="&filename&"?page=1&menu="&menu&"><font color=#FFFFFF>首页</font></a> </font>"
response.write "<font color=#FFFFFF><a href="&filename&"?page="&CurrentPage-1&"&menu="&menu&"><font color=#FFFFFF>上一页</font></a> </font>"
end if
if n-currentpage<1 then
response.write "<font color=#FFFFFF>下一页 尾页</font>"
else
response.write "<font color=#FFFFFF><a href="&filename&"?page="&(CurrentPage+1)&"&menu="&menu&"></font>"
response.write "<font color=#FFFFFF>下一页</font></a> <a href="&filename&"?page="&n&"&menu="&menu&"><font color=#FFFFFF>尾页</font></a>"
end if
response.write "</select></td></form></tr>"
end function
set rs=nothing
conn.close
set conn=nothing
%>
<%
call footer()
conn.close
set conn=nothing
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -