<!--#include file="iNCchuanqi/Cls_Conn.asp"-->
<!--#include file="iNCchuanqi/Cls_Config.asp"-->
<!--#include file="iNCchuanqi/Cls_New.asp"-->
<%
				dim rs2
					set rs2=conn.execute("select ifopen , xzip from gq_config")
		if rs2("ifopen")=0 then 
			response.write "网站正在维护，请稍候访问"
			response.end
		end if
		
		if instr(rs2("xzip"),request.ServerVariables("REMOTE_ADDR"))>0 then 
			response.write "你的IP被限制访问，请重新尝试"
			response.end
		end if
Dim Menu, sfname, SetRed_ads, Shijian
Shijian=hour(now)
If Menu = "" Or Menu = "0" Then
	Menu = qikucms.IndexGame
Else
	menu=request("menu")
End If
dim w1,w2,w3,w4,w5,w6,w7
w1=""&sfdata_1&"" '服务器名
w2=""&sfdata_2&"" 'IP
w3=""&sfdata_3&"" '开机时间
w4=""&sfdata_4&"" '地区线路
'w5=""&sfdata_5&"" '版本介绍
w6=""&sfdata_6&"" '客服QQ
w7=""&sfdata_7&"" '查看介绍
start="今日新开私服"
QiKuCMS.head()
Response.Write "<!DOCTYPE html PUBLIC ""-//W3C//DTD XHTML 1.0 Transitional//EN"" ""http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"">" & vbCrLf
Response.Write "<html xmlns=""http://www.w3.org/1999/xhtml"">" & vbCrLf
Response.Write "<HEAD>"
Response.Write "<TBODY>" & vbCrLf
Response.Write "<title>"&start&","&qikucms.WebName&"</title>" & vbCrLf
Response.Write "<meta http-equiv=""Content-Type"" content=""text/html; charset=gb2312"">" & vbCrLf
Response.Write "<META NAME=""keywords"" CONTENT="""&qikucms.webkeywords&""">" & vbCrLf
Response.Write "<META NAME=""description"" CONTENT="""&qikucms.Renovates&""">" & vbCrLf
Response.Write "<link rel=""stylesheet"" href=""/images/style.css"" type=""text/css"">" & vbCrLf
Response.Write "</HEAD>" & vbCrLf
%><body style="background-color:transparent" onLoad="if (parent.document.all('gamefr')) parent.document.all('gamefr').height=document.body.scrollHeight">
<%
Response.Write "<table width=""" & QiKuCMS.TabWidth & """ border=""0"" cellpadding=""0"" cellspacing=""0"" class=""tableBorder1"" align=""center"">" & vbCrLf
Response.Write "<div id=sertitle>" & vbCrLf
Response.Write "<dd class=mc>服务器名</dd>" & vbCrLf
Response.Write "<dd class=ip>服务器IP</dd>" & vbCrLf
Response.Write "<dd class=sj>开机时间[月/日/时间]</dd>" & vbCrLf
Response.Write "<dd class=xl>线路类别</dd>" & vbCrLf
Response.Write "<dd class=qq>客服QQ</dd>" & vbCrLf
Response.Write "<dd class=js>版本介绍</dd>" & vbCrLf
Response.Write "<dt class=xx>详细介绍</dt>" & vbCrLf
Response.Write "</div>" & vbCrLf

	If hour(now) < Clng(qikucms.hottime_2) then
		TEGq.Overnight_bb()
	End If
	If hour(now) > Clng(qikucms.hottime_1) then
		TEGq.Overnight_aa()
	End If
If qikucms.Indexsf1 = 1 then
	If minute(now) < 30 then
		TEGq.Today_00()
	End If
	If minute(now) >= 30 then
		TEGq.Today_30()
	End If
TEGq.SetRed_ads0()
TEGq.SetRed_ads()
	If hour(now) > Clng(qikucms.hottime_1) then
		TEGq.Overnight_a()
	End If
	If hour(now) < Clng(qikucms.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(qikucms.hottime_1) then
		TEGq.Overnight_aa()
		TEGq.Before()
	End If
End If
TEGq.SetRed_adss()
If qikucms.Indexsf2 = 1 then
Response.Write "</TBODY>" & vbCrLf
Response.Write "<TBODY>" & vbCrLf
Response.Write "<div id=sertitle>" & vbCrLf
Response.Write "<dd class=mc>服务器名</dd>" & vbCrLf
Response.Write "<dd class=ip>服务器IP</dd>" & vbCrLf
Response.Write "<dd class=sj>开机时间[月/日/时间]</dd>" & vbCrLf
Response.Write "<dd class=xl>线路类别</dd>" & vbCrLf
Response.Write "<dd class=qq>客服QQ</dd>" & vbCrLf
Response.Write "<dd class=js>版本介绍</dd>" & vbCrLf
Response.Write "<dt class=xx>详细介绍</dt>" & vbCrLf
Response.Write "</div>" & vbCrLf
TEGq.SetRed_ads1()
    TEGq.SetRed_ads_1()
	TEGq.days_1()
	TEGq.Overnight_bbb()
	TEGq.night_1()
End If
If qikucms.Indexsf3 = 1 then
Response.Write "</TBODY>" & vbCrLf
Response.Write "<TBODY>" & vbCrLf
Response.Write "<div id=sertitle>" & vbCrLf
Response.Write "<dd class=mc>服务器名</dd>" & vbCrLf
Response.Write "<dd class=ip>服务器IP</dd>" & vbCrLf
Response.Write "<dd class=sj>开机时间[月/日/时间]</dd>" & vbCrLf
Response.Write "<dd class=xl>线路类别</dd>" & vbCrLf
Response.Write "<dd class=qq>客服QQ</dd>" & vbCrLf
Response.Write "<dd class=js>版本介绍</dd>" & vbCrLf
Response.Write "<dt class=xx>详细介绍</dt>" & vbCrLf
Response.Write "</div>" & vbCrLf
TEGq.SetRed_ads2()
    TEGq.SetRed_ads_2()
	TEGq.days_2()
	TEGq.Overnight_bbbb()
	TEGq.night_2()

TEGq.SetRed_ads21()
    TEGq.SetRed_ads_21()
	TEGq.days_21()
	TEGq.Overnight_bbbb1()
	TEGq.night_21()

TEGq.SetRed_ads22()
    TEGq.SetRed_ads_22()
	TEGq.days_22()
	TEGq.Overnight_bbbb2()
	TEGq.night_22()

TEGq.SetRed_ads23()
    TEGq.SetRed_ads_23()
	TEGq.days_23()
	TEGq.Overnight_bbbb3()
	TEGq.night_23()
End If
If qikucms.Indexsf4 = 1 then
Response.Write "</TBODY>" & vbCrLf
Response.Write "<TBODY>" & vbCrLf
Response.Write "<div id=sertitle>" & vbCrLf
Response.Write "<dd class=mc>服务器名</dd>" & vbCrLf
Response.Write "<dd class=ip>服务器IP</dd>" & vbCrLf
Response.Write "<dd class=sj>开机时间[月/日/时间]</dd>" & vbCrLf
Response.Write "<dd class=xl>线路类别</dd>" & vbCrLf
Response.Write "<dd class=qq>客服QQ</dd>" & vbCrLf
Response.Write "<dd class=js>版本介绍</dd>" & vbCrLf
Response.Write "<dt class=xx>详细介绍</dt>" & vbCrLf
Response.Write "</div>" & vbCrLf
	TEGq.yesterday()
End If
If qikucms.Indexsf5 = 1 then
Response.Write "</TBODY>" & vbCrLf
Response.Write "<TBODY>" & vbCrLf
Response.Write "<div id=sertitle>" & vbCrLf
Response.Write "<dd class=mc>服务器名</dd>" & vbCrLf
Response.Write "<dd class=ip>服务器IP</dd>" & vbCrLf
Response.Write "<dd class=sj>开机时间[月/日/时间]</dd>" & vbCrLf
Response.Write "<dd class=xl>线路类别</dd>" & vbCrLf
Response.Write "<dd class=qq>客服QQ</dd>" & vbCrLf
Response.Write "<dd class=js>版本介绍</dd>" & vbCrLf
Response.Write "<dt class=xx>详细介绍</dt>" & vbCrLf
Response.Write "</div>" & vbCrLf
	TEGq.yesterday1()
End If
If qikucms.Indexsf0 = 1 then
Response.Write "<TR Class=TableRow1>"
Response.Write "<Th align=center colspan=8>"
%>
Response.Write "<div id=sertitle>" & vbCrLf
Response.Write "<dd class=mc>服务器名</dd>" & vbCrLf
Response.Write "<dd class=ip>服务器IP</dd>" & vbCrLf
Response.Write "<dd class=sj>开机时间[月/日/时间]</dd>" & vbCrLf
Response.Write "<dd class=xl>线路类别</dd>" & vbCrLf
Response.Write "<dd class=qq>客服QQ</dd>" & vbCrLf
Response.Write "<dd class=js>版本介绍</dd>" & vbCrLf
Response.Write "<dt class=xx>详细介绍</dt>" & vbCrLf
Response.Write "</div>" & vbCrLf
<%
    TEGq.free()
End If
Response.Write "</TBODY>" & vbCrLf
Response.Write "</TABLE>" & vbCrLf
%>
<%
response.write "</body>"
response.write "</html>"
QiKuCMS.footer()
call CloseConn()
%>
