外挂编程

开发平台：
ASP/ASPX

Show.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, sfname, SetRed_ads
Dim bgcolor, width, height, align
bgcolor = LCase(Request("bgcolor"))
width   = LCase(Request("width"))
height  = LCase(Request("height"))
align   = LCase(Request("align"))
If Menu = "" Or Menu = "0" Then
	Menu = tee5.IndexGame
Else
	menu=request("menu")
End If
dim w1,w2,w3,w4,w5,w6,w7
w1="110"
w2="100"
w3="150"
w4="100"
w5="75"
w6="60"
w7="75"
start="私服小偷"
Response.Write "<html>"
Response.Write "<HEAD>"
Response.Write "<title>"&start&","&tee5.WebName&"</title>" & vbCrLf
Response.Write "<meta http-equiv=""Content-Type"" content=""text/html; charset=gb2312"">" & vbCrLf
Response.Write "<META NAME =""keywords"" CONTENT="""&tee5.webkeywords&""">" & vbCrLf
Response.Write "<META NAME=""description"" CONTENT="""&tee5.Renovates&""">" & vbCrLf
Response.Write "<META NAME=""robots"" CONTENT=""all"">" & vbCrLf
Response.Write "<META name=""AUTHOR"" content="""&tee5.WebName&""">" & vbCrLf
Response.Write "<link rel=""stylesheet"" href=""images/style.css"" type=""text/css"">" & vbCrLf
%><SCRIPT LANGUAGE="JavaScript">
function f_frameStyleResize(targObj){
 var targWin = targObj.parent.document.all[targObj.name];
 if(targWin != null) {
  var HeightValue = targObj.document.body.scrollHeight
  if(HeightValue < 600){HeightValue = 600} 
  targWin.style.pixelHeight = HeightValue;
 }
}
function f_iframeResize(){
 bLoadComplete = true; f_frameStyleResize(self);
}
var bLoadComplete = false;
window.onload = f_iframeResize;
</SCRIPT><%
Response.Write "</HEAD>" & vbCrLf
Response.Write "<BODY leftMargin=0 topMargin=0 bgColor=" & bgColor & ">" & vbCrLf
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>"
response.write "</body>"
response.write "</html>"
call CloseConn()
%>

						