📄 show.asp

📁 本程序采用ACC数据核心构件！！功能介绍：程序代码重新设计与优化
💻 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"-->
<%
start="私服小偷"
if not isempty(request("page")) then
	currentPage=cint(request("page"))
else
	currentPage=1
end if
menu=htmlencode(request("menu"))
if menu="" or (not isnumeric(menu)) or isnull(menu) then
	menu="all"
end if
set rs = server.createobject("adodb.recordset")
dim w1,w2,w3,w4,w5,w6,w7,w8,w9
w1=""&sfdata_1&""
w2=""&sfdata_2&""
w3=""&sfdata_3&""
w4=""&sfdata_4&""
w5=""&sfdata_5&""
w6=""&sfdata_6&""
w7=""&sfdata_7&""
w8=""&sfdata_8&""
w9=""&sfdata_9&""
dim starttime,tqmin
starttime=timer() 
server.ScriptTimeout=1
Response.Buffer=True
tqmin=10
function checkday(toptime,topday)
 if not isnull(toptime) then
 if cdate(toptime)+topday>=date then
   checkday=true
 else
   checkday=false
 end if
 else
   checkday=false
 end if
end function
%>
<%
Response.Write "<html>" & vbCrLf
Response.Write "<HEAD>" & vbCrLf
Response.Write "<title>"&webname&","&start&"</title>" & vbCrLf
Response.Write "<meta http-equiv=""Content-Type"" content=""text/html; charset=gb2312"">" & vbCrLf
Response.Write "<link rel=""stylesheet"" href=""Index_Top/New_Au.css"" type=""text/css"">" & vbCrLf
Response.Write "</HEAD>" & vbCrLf
Response.Write "<BODY leftMargin=0 topMargin=0 bgcolor=990000>" & vbCrLf
response.write "<TABLE cellSpacing=1 cellPadding=5 width=984 align=center bgColor=#990000 border=0>"
response.write "<TBODY>"
response.write "<tr bgcolor=#FF9900 align='center'>"
response.write "<TD width="&w1&" bgcolor=#FF9900><b><font color='#FFFFFF'>&nbsp;服务器名</font></b></TD>"
response.write "<TD width="&w2&" bgcolor=#FF9900><b><font color='#FFFFFF'>&nbsp;服务器IP</font></b></TD>"
response.write "<TD width="&w3&" bgcolor=#FF9900><b><font color='#FFFFFF'>&nbsp;开机时间[年/月/日/时间]</font></b></TD>"
response.write "<TD width="&w4&" bgcolor=#FF9900><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="&w9&" bgcolor=#FF9900><b><font color='#FFFFFF'>Zone</font></b></TD>"
response.write "<TD width="&w8&" bgcolor=#FF9900><b><font color='#FFFFFF'>注册</font></b></TD>"
response.write "<TD width="&w5&" bgcolor=#FF9900><b><font color='#FFFFFF'>客服QQ</font></b></TD>"
response.write "<TD bgcolor=#FF9900><b><font color='#FFFFFF'>版本介绍</font></b></TD>"
response.write "<TD width="&w7&" bgcolor=#FF9900><b><font color='#FFFFFF'>开放状态</b></font></TD>"
response.write "<TD width="&w6&" bgcolor=#FF9900><b><font color='#FFFFFF'>详细介绍</font></b></TD>"
response.write "</TR></TBODY></TABLE>"
response.write "<TABLE cellSpacing=1 cellPadding=5 width=984 align=center bgColor=#990000 border=0>"
response.write "<TBODY>"
call SetRed_ads()
response.write "</TBODY>"
response.write "</TABLE>"
response.write "<TABLE cellSpacing=1 cellPadding=5 width=984 align=center bgColor=#990000 border=0>"
response.write "<TBODY>"
if hour(now)>hottime_1 then
call Overnight_a()
end if
if hour(now)<hottime_2 then
call Overnight_b()
end if
if minute(now)<30 then
call Today_00()
end if
if minute(now)>=30 then
call Today_30()
call Today_30_1()
end if
call Today_00_30_1()
if minute(now)<30 then
call Today_30_2()
end if
call Today_00_30_2()
response.write "</TBODY>"
response.write "</TABLE>"
response.write "<TABLE cellSpacing=1 cellPadding=5 width=984 align=center bgColor=#990000 border=0>"
response.write "<TBODY>"
if hour(now)<=hottime_1 then
call Before()
end if
response.write "</TBODY>"
response.write "</TABLE>"
call days_1()
call night_1()
call days_2()
call night_2()
call days_3()
call night_3()
call yesterday()
call yesterday1()
call yesterday2()
if SFstatus=1 then
call free()
end if
response.write "</body>"
response.write "</html>"
call CloseConn()
%>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -