外挂编程

开发平台：
ASP/ASPX

More.asp：源码内容
							<!--#include file="Inc/Cls_Conn.asp"-->
<!--#include file="Inc/Cls_Config.asp"-->
<!--#include file="Inc/Cls_New.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,Rs2,Sql2,Rs_type,Sql_Type
menu=request("menu")
if menu<>"" then
Set Rs_type = Server.CreateObject("ADODB.RecordSet")
Sql_Type="select Game from Gq_GameType where ID = " & Menu
Rs_type.open Sql_type,conn,1,1
If Rs_type.eof and Rs_type.bof then
start="最新私服"
Else
start="最新" & Rs_type("Game")
End If
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
TeGq.SetRed_ads()
If tee5.Indexsf1 = 1 then
	If minute(now) < 30 then
		TeGq.Today_00()
	End If
	If minute(now) >= 30 then
		TeGq.Today_30()
	End If
	If hour(now) > Clng(tee5.hottime_1) then
		TeGq.Overnight_a()
	End If
	If hour(now) < Clng(tee5.hottime_2) then
		TeGq.Overnight_b()
	End If
	If minute(now) >= 30 then
		TeGq.Today_30_1()
	End If
	TeGq.Today_00_30_1()
	If minute(now) < 30 then
		TeGq.Today_30_2()
	End If
	TeGq.Today_00_30_2()
	If hour(now) <= Clng(tee5.hottime_1) then
		TeGq.Before()
	End If
End If
If tee5.Indexsf2 = 1 then
	TeGq.days_1()
	TeGq.night_1()
End If
If tee5.Indexsf3 = 1 then
	TeGq.days_2()
	TeGq.night_2()
End If
If tee5.Indexsf4 = 1 then
	TeGq.yesterday()
End If
If tee5.Indexsf5 = 1 then
	TeGq.yesterday1()
End If
'If SFstatus=1 then
'TeGq.free()
'End If
Response.Write "</TABLE>" & vbCrLf
Response.Write "<table width=" & tee5.TabWidth & " height=24 border=0 align=center cellpadding=2 cellspacing=1 bgcolor='#EDEDED'>" & vbCrLf
Response.Write "<tr>" & vbCrLf
Response.Write "<td height=22>" & vbCrLf
set rs2 = server.createobject("adodb.recordset")
sql2="select id,imgurl,imglink,LinkType,title from Gq_link where LinkType=1 and top=1 order by id asc"
rs2.open sql2,conn,1,1
If rs2.eof and rs2.bof then
Response.Write "<div align=center>首页当前没有图片连接。如需连接，请与管理员QQ：（" & tee5.webmaster & "）联系。</center>"
End If
do while not rs2.eof
Response.Write "&nbsp;<a href="&rs2("imglink")&" target=_blank><img src="&rs2("imgurl")&" width=88 height=31 border=0 title="&rs2("title")&"></a> "
rs2.movenext
loop
rs2.close
set rs2=nothing
Response.Write "</td>" & vbCrLf
Response.Write "</tr>" & vbCrLf
Response.Write "</table>" & vbCrLf
'##########更多私服
Else
start="更多精品私服"
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
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.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 Gq_sfdata.gameid=Gq_GameType.id and datediff('d',Gq_SFdata.Sdate,now())<>0 and datediff('d',Gq_SFdata.Sdate,now())<>1 and datediff('d',Gq_SFdata.Sdate,now())<>2 and datediff('d',Gq_SFdata.Sdate,now())<>-1 and datediff('d',Gq_SFdata.Sdate,now())<>-2"
sql=sql&" order by Gq_sfdata.Sdate desc,Gq_sfdata.hour desc,Gq_sfdata.minute desc"
rs.open sql,conn,1,1 
if rs.eof and rs.bof then
response.write "<tr bgColor=#FFFFFF><td align=center colspan=8>当前没有相关私服！请到“<a href=add.asp><font color=0000FF>发布中心</font></a>”发布您的私服！</td></tr>"
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
if rs("gameid")=2 then
Response.Write "<TR bgColor="&tee5.bg_4&" onmouseover=javascript:this.bgColor='"&tee5.bg_4_4&"' onmouseout=javascript:this.bgColor='"&tee5.bg_4&"'>" & vbCrLf
else
Response.Write "<TR bgColor="&tee5.bg_2&" onmouseover=javascript:this.bgColor='"&tee5.bg_2_2&"' onmouseout=javascript:this.bgColor='"&tee5.bg_2&"'>" & vbCrLf
end if
Response.Write "<TD>"&rs("name")&"</TD>" & vbCrLf
if instr(lcase(rs("download")),".rar")>0 or instr(lcase(rs("download")),".exe")>0 then
Response.Write "<TD><a href='"&rs("download")&"' target='_blank'>"&rs("IP")&"</a></TD>" & vbCrLf
else
Response.Write "<TD>"&rs("IP")&"</TD>" & vbCrLf
end if
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>" & vbCrLf
Response.Write "<TD>"&rs("Addr")&"</TD>" & vbCrLf
Response.Write "<TD>"&rs("QQ")&"</TD>" & vbCrLf
Response.Write "<TD>"&rs("xingzhi")&"</TD>" & vbCrLf
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="&Sitesflook&"id="&rs("id")&" target=_blank>点击查看</a></TD>" & vbCrLf
end if
Response.Write "<TD>"
Response.Write "<font color='#000000'>"&rs("game")&"</font>"
Response.Write "</TD>" & vbCrLf
Response.Write "</TR>" & vbCrLf
	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,"","全部私服"
Response.Write "</td></tr>"
Response.Write "</table>"
End If
tee5.footer()
CloseConn
%>

						