外挂编程

开发平台：
ASP/ASPX

Search.asp：源码内容
							<!--#include file="Inc/Cls_Conn.asp"-->
<!--#include file="Inc/Cls_Config.asp"-->
<%
'=====================================================================
' 作者声明：转载请保留版权信息，鄙视不要脸的人
'=====================================================================
' 程序名称：蓝宇网络发布系统
' 软件版本：Version 3.3.0 Sp1
' 程序作者：蓝宇 QQ：18159079 ╲、随心゛ QQ：6821845
'=====================================================================
' 联系方式：Tel：13203117383，QQ：18159079，hi.baidu.com/hezeyu
' 程序开发：蓝宇,╲、随心゛
' 官方网站：蓝宇网络(http://hi.baidu.com/hezeyu)
'=====================================================================
' Copyright 2004-2007 蓝宇 - All Rights Reserved.
'=====================================================================
Dim Menu, key, otype,Sitesflook
menu="all"
if Menu="" Or Menu="0" then
response.write "<script>alert('错误的系统参数');history.back()</script>"
response.end
end if
set Rs = server.createobject("adodb.recordset")
menu= "all"
key=tee5.CheckStr(request("key"))
otype=tee5.CheckStr(request("otype"))
if key="" then
response.write "<script>alert('请输入查询条件');history.back()</script>"
response.end
end if
start="所有包含“"&key&"”的私服,游戏搜索"
tee5.head()
Response.Write "<TABLE cellSpacing=1 cellPadding=5 width=" & tee5.TabWidth & " align=center class=tableBorder1 border=0>" & vbCrLf
Response.Write "<tr>" & vbCrLf
Response.Write "<th>服务器名</th>" & vbCrLf
Response.Write "<th>服务器IP</th>" & vbCrLf
Response.Write "<th>开机时间[年/月/日/时间]</th>" & vbCrLf
Response.Write "<th>地区线路</th>" & vbCrLf
Response.Write "<th>客服QQ</th>" & vbCrLf
Response.Write "<th>版本介绍</th>" & vbCrLf
Response.Write "<th>详细介绍</th>" & vbCrLf
Response.Write "<th>类型</th>" & vbCrLf
Response.Write "</TR>" & vbCrLf
Dim tablestyle
Dim maxperpage,CurrentPage,Pcount,totalrec,totalnumber
maxperpage = Clng(tee5.MaxPerPage)
totalrec = 0
Pcount = 1
CurrentPage = tee5.ChkNumeric(Request("page"))
If CurrentPage = 0 Then CurrentPage = 1
Response.Write "<script src=""/js/showpage.js"" type=""text/javascript""></script>" & vbCrLf
If menu <> "all" then
sql="select Gq_sfdata.id,Gq_sfdata.name,Gq_sfdata.IP,Gq_sfdata.service,Gq_sfdata.banben,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.isBest,Gq_sfdata.fine,Gq_sfdata.Besttime,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,Gq_sfdata.hour desc,Gq_sfdata.minute desc"
else
sql="select Gq_sfdata.id,Gq_sfdata.name,Gq_sfdata.IP,Gq_sfdata.service,Gq_sfdata.banben,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.isBest,Gq_sfdata.fine,Gq_sfdata.Besttime,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,Gq_sfdata.hour desc,Gq_sfdata.minute desc"
end if
Rs.Open SQL, Conn, 1, 3
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
	totalrec = Rs.RecordCount
	Pcount = CLng(totalrec / maxperpage)  '得到总页数
	If Pcount < totalrec / maxperpage Then Pcount = Pcount + 1
	If CurrentPage < 1 Then CurrentPage = 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 "<TR bgColor='#ffff99' onmouseover=javascript:this.bgColor='ffffff' onmouseout=javascript:this.bgColor='ffff99'>" & vbCrLf
Response.Write "<TD>"
if tee5.ShowHtml=1 then
Response.Write "<a href=html/" & tee5.ContentHtml(Rs) & ".html target=_blank>"
else
Response.Write "<a href="&Sitesflook&"id="&Rs("id")&" target=_blank>"
end if%><%
Response.Write Replace(Rs("name"),"" & key & "","" & key & "")%>
<%Response.Write "</a></TD>"
Response.Write "<TD><a href='"&Rs("download")&"' target='_blank'>"
Response.Write Replace(Rs("ip"),"" & key & "","" & key & "")
Response.Write "</a></TD>"
Response.Write "<TD>"%>
<%If Rs("Sdate")<>"" then response.write year(Rs("sdate"))&"年/"&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>"&Rs("Addr")&"</TD>"
Response.Write "<TD>"&Rs("QQ")&"</TD>"
Response.Write "<TD>"
Response.Write Replace(Rs("xingzhi"),"" & key & "","" & key & "")
Response.Write "</TD>"
if tee5.ShowHtml=1 then
Response.Write "<TD><a href=html/" & tee5.ContentHtml(Rs) & ".html target=_blank>点击查看</a></TD>" & vbCrLf
else
Response.Write "<TD><a href=go.htm?u="&rs("homepage")&"  target=_blank>点击查看</a></TD>" & vbCrLf
end if
Response.Write "<TD align=center><font color='#000000'>"&Rs("game")&"</font></TD>"
Response.Write "</TR>"
	Rs.movenext
i = i + 1
If i >= maxperpage Then Exit Do
	Loop
End If
Rs.Close:Set Rs = Nothing
Response.Write "<tr><td colSpan=9 align=right bgColor=#F7F7F7>"
tee5.ShowListPage CurrentPage,Pcount,totalrec,maxperpage,"&key="&key&"&otype="&otype&"&menu="&menu,"私服搜索"
Response.Write "</td></tr>"
Response.Write "</table>"
tee5.footer()
CloseConn
%>

						