new.asp

本程序采用ACC数据核心构件！！ 功能介绍： 程序代码重新设计与优化

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 width="&w4&">"&rs("Addr")&""&split(ssign,",")(rs("Service"))&"</TD>"
Response.Write "<TD width="&w9&">"&rs("dk")&"</TD>"
Response.Write "<TD width="&w8&"><a href="&rs("zhuce")&" target=show>注册</a></TD>"
Response.Write "<TD width="&w5&">"&rs("QQ")&"</TD>"
Response.Write "<TD>"&rs("xingzhi")&"<font color='#0000FF'>←推荐</font></TD>"
Response.Write "<TD width="&w7&"><font color='#000000'>明天推荐</font></TD>"
Response.Write "<TD width="&w6&"><a href="&weburl&"/go.htm?u="&rs("homepage")&" target=_blank><img border='0' src='Index_img/web2.gif'></a></TD>"
Response.Write "</TR>"
end if
rs.movenext
wend 
rs.close
end if
end sub
'=========================================================
'程序作者：追风网络  QQ: 6273844
'官方网站：追风网络(Www.177520.Com)
'=========================================================
' Copyright 2007-2009 177520.Com - All Rights Reserved.
'=========================================================
'=================================================
'过程名：night_1
'作  用：明天即将开放私服←通宵推荐
'=================================================
sub night_1
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.dk,Gq_sfdata.zhuce,Gq_sfdata.QQ,Gq_sfdata.xingzhi,Gq_sfdata.homepage,Gq_sfdata.download,Gq_sfdata.gameid,Gq_GameType.game,Gq_sfdata.download,Gq_sfdata.hot,Gq_sfdata.hottime,Gq_sfdata.time"
sql=sql&" from Gq_sfdata,Gq_GameType where Gq_sfdata.gameid=Gq_GameType.id and datediff('d',Gq_sfdata.Sdate,now())=-1"
sql=sql&" and Gq_sfdata.ulock=1 and Gq_sfdata.hot=1 and Gq_sfdata.gameid="&indexsf&" order by Gq_sfdata.hour,Gq_sfdata.minute"
rs.open sql,conn,1,1 
if rs.eof and rs.bof then
rs.close
else
while not rs.eof
if checkday(rs("hottime"),rs("time")) then
Response.Write "<TR bgColor="&bg_3&" onmouseover=javascript:this.bgColor='"&bg_3_3&"' onmouseout=javascript:this.bgColor='"&bg_3&"'>"
Response.Write "<TD width="&w1&"><a href="&weburl&"/go.htm?u="&rs("homepage")&" target=show>"&rs("name")&"</a></TD>"
Response.Write "<TD width="&w2&"><a href='"&rs("download")&"' target='_blank'>"&rs("IP")&"</a></TD>"
Response.Write "<TD width="&w3&">"
%>
<FONT color=#000000><%if rs("Sdate")<>"" then response.write year(rs("sdate"))&"年/"&month(rs("sdate"))&"月/"&day(rs("Sdate"))&"日/"%>通宵推荐</font>
<%
Response.Write "</TD>"
Response.Write "<TD width="&w4&">"&rs("Addr")&""&split(ssign,",")(rs("Service"))&"</TD>"
Response.Write "<TD width="&w9&">"&rs("dk")&"</TD>"
Response.Write "<TD width="&w8&"><a href="&rs("zhuce")&" target=show>注册</a></TD>"
Response.Write "<TD width="&w5&">"&rs("QQ")&"</TD>"
Response.Write "<TD>"&rs("xingzhi")&"<font color='#0000FF'>←推荐</font></TD>"
Response.Write "<TD width="&w7&"><font color='#000000'>通宵推荐</font></TD>"
Response.Write "<TD width="&w6&"><a href="&weburl&"/go.htm?u="&rs("homepage")&" target=_blank><img border='0' src='Index_img/web2.gif'></a></TD>"
Response.Write "</TR>"
end if
rs.movenext
wend 
rs.close
end if
Response.Write "</TBODY>"
Response.Write "</TABLE>"
end sub
'=========================================================
'程序作者：追风网络  QQ: 6273844
'官方网站：追风网络(Www.177520.Com)
'=========================================================
' Copyright 2007-2009 177520.Com - All Rights Reserved.
'=========================================================
'=================================================
'过程名：days_2
'作  用：后天即将开放私服←推荐私服
'=================================================
sub days_2
response.write "<TABLE align='center' background='Index_img/tittle_3.jpg' cellSpacing=1 cellPadding=3 width=984 height=23 align=center class=sfbg1 border=0>"
Response.Write "<TBODY>"
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.dk,Gq_sfdata.zhuce,Gq_sfdata.QQ,Gq_sfdata.xingzhi,Gq_sfdata.homepage,Gq_sfdata.download,Gq_sfdata.gameid,Gq_GameType.game,Gq_sfdata.download,Gq_sfdata.hot,Gq_sfdata.toptime,Gq_sfdata.time"
sql=sql&" from Gq_sfdata,Gq_GameType where Gq_sfdata.gameid=Gq_GameType.id and datediff('d',Gq_sfdata.Sdate,now())=-2"
sql=sql&" and Gq_sfdata.ulock=1 and Gq_sfdata.top="&SFstatus&" and Gq_sfdata.gameid="&indexsf&" order by Gq_sfdata.hour,Gq_sfdata.minute"
rs.open sql,conn,1,1 
if rs.eof and rs.bof then
rs.close
else
Response.Write "<TR Class=sfbg3>"
%>
<TD class="m_f1" vAlign="middle" align="center" width="92%"><strong>↓<%if rs("Sdate")<>"" then response.write year(rs("sdate"))&"年/"&month(rs("sdate"))&"月/"&day(rs("Sdate"))&"日/即将开放的服务器"%>↓</strong></FONT><TD vAlign="middle" align="center" width="8%"><A href="#"><IMG src="Index_img/Top.gif" border="0"></A>
<%
Response.Write "</TD>"
Response.Write "</TR>"
Response.Write "</TBODY>"
Response.Write "</TABLE>"
Response.Write "<TABLE cellSpacing=1 cellPadding=5 width=984 align=center bgColor=#aa0000 border=0>"
Response.Write "<TBODY>"
while not rs.eof
if checkday(rs("toptime"),rs("time")) then
Response.Write "<TR bgColor="&bg_3&" onmouseover=javascript:this.bgColor='"&bg_3_3&"' onmouseout=javascript:this.bgColor='"&bg_3&"'>"
Response.Write "<TD width="&w1&"><a href="&weburl&"/go.htm?u="&rs("homepage")&" target=show>"&rs("name")&"</a></TD>"
Response.Write "<TD width="&w2&"><a href='"&rs("download")&"' target='_blank'>"&rs("IP")&"</a></TD>"
%>
<TD width="<%=w3%>"><font color=#000000><%
if rs("Sdate")<>"" then response.write year(rs("sdate"))&"<font color='#000000'>年</font>/"&month(rs("sdate"))&"<font color='#000000'>月</font>/"&day(rs("Sdate"))&"<font color='#000000'>日</font>/"%><%
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 width="&w4&">"&rs("Addr")&""&split(ssign,",")(rs("Service"))&"</TD>"
Response.Write "<TD width="&w9&">"&rs("dk")&"</TD>"
Response.Write "<TD width="&w8&"><a href="&rs("zhuce")&" target=show>注册</a></TD>"
Response.Write "<TD width="&w5&">"&rs("QQ")&"</TD>"
Response.Write "<TD>"&rs("xingzhi")&"<font color='#0000FF'>←推荐</font></TD>"
Response.Write "<TD width="&w7&"><font color='#000000'>后天推荐</font></TD>"
Response.Write "<TD width="&w6&"><a href="&weburl&"/go.htm?u="&rs("homepage")&" target=_blank><img border='0' src='Index_img/web2.gif'></a></TD>"
Response.Write "</TR>"
end if
rs.movenext
wend 
rs.close
end if
end sub
'=========================================================
'程序作者：追风网络  QQ: 6273844
'官方网站：追风网络(Www.177520.Com)
'=========================================================
' Copyright 2007-2009 177520.Com - All Rights Reserved.
'=========================================================
'=================================================
'过程名：night_2
'作  用：后天即将开放私服←通宵推荐
'=================================================
sub night_2
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.dk,Gq_sfdata.zhuce,Gq_sfdata.QQ,Gq_sfdata.xingzhi,Gq_sfdata.homepage,Gq_sfdata.download,Gq_sfdata.gameid,Gq_GameType.game,Gq_sfdata.download,Gq_sfdata.hot,Gq_sfdata.hottime,Gq_sfdata.time"
sql=sql&" from Gq_sfdata,Gq_GameType where Gq_sfdata.gameid=Gq_GameType.id and datediff('d',Gq_sfdata.Sdate,now())=-2"
sql=sql&" and Gq_sfdata.ulock=1 and Gq_sfdata.hot=1 and Gq_sfdata.gameid="&indexsf&" order by Gq_sfdata.hour,Gq_sfdata.minute"
rs.open sql,conn,1,1 
if rs.eof and rs.bof then
rs.close
else
while not rs.eof
if checkday(rs("hottime"),rs("time")) then
Response.Write "<TR bgColor="&bg_3&" onmouseover=javascript:this.bgColor='"&bg_3_3&"' onmouseout=javascript:this.bgColor='"&bg_3&"'>"
Response.Write "<TD width="&w1&"><a href="&weburl&"/go.htm?u="&rs("homepage")&" target=show>"&rs("name")&"</a></TD>"
Response.Write "<TD width="&w2&"><a href='"&rs("download")&"' target='_blank'>"&rs("IP")&"</a></TD>"
Response.Write "<TD width="&w3&">"
%>
<FONT color=#000000><%if rs("Sdate")<>"" then response.write year(rs("sdate"))&"年/"&month(rs("sdate"))&"月/"&day(rs("Sdate"))&"日/"%>通宵推荐</FONT>
<%
Response.Write "</TD>"
Response.Write "<TD width="&w4&">"&rs("Addr")&""&split(ssign,",")(rs("Service"))&"</TD>"
Response.Write "<TD width="&w9&">"&rs("dk")&"</TD>"
Response.Write "<TD width="&w8&"><a href="&rs("zhuce")&" target=show>注册</a></TD>"
Response.Write "<TD width="&w5&">"&rs("QQ")&"</TD>"
Response.Write "<TD>"&rs("xingzhi")&"<font color='#0000FF'>←推荐</font></TD>"
Response.Write "<TD width="&w7&"><font color='#000000'>通宵推荐</font></TD>"
Response.Write "<TD width="&w6&"><a href="&weburl&"/go.htm?u="&rs("homepage")&" target=_blank><img border='0' src='Index_img/web2.gif'></a></TD>"
Response.Write "</TR>"
end if
rs.movenext
wend 
rs.close
end if
Response.Write "</TBODY>"
Response.Write "</TABLE>"
end sub
'=========================================================
'程序作者：追风网络  QQ: 6273844
'官方网站：追风网络(Www.177520.Com)
'=========================================================
' Copyright 2007-2009 177520.Com - All Rights Reserved.
'=========================================================
'=================================================
'过程名：yesterday
'作  用：昨天已经开放私服←推荐私服
'=================================================
sub yesterday
response.write "<TABLE align='center' background='Index_img/tittle_3.jpg' cellSpacing=1 cellPadding=3 width=984 height=25 align=center class=sfbg1 border=0>"
Response.Write "<TBODY>"
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.dk,Gq_sfdata.zhuce,Gq_sfdata.QQ,Gq_sfdata.xingzhi,Gq_sfdata.homepage,Gq_sfdata.download,Gq_sfdata.gameid,Gq_GameType.game,Gq_sfdata.download,Gq_sfdata.hot,Gq_sfdata.toptime,Gq_sfdata.time"
sql=sql&" from Gq_sfdata,Gq_GameType where Gq_sfdata.gameid=Gq_GameType.id and datediff('d',Gq_sfdata.Sdate,now())=1"
sql=sql&" and Gq_sfdata.ulock=1 and Gq_sfdata.top="&SFstatus&" and Gq_sfdata.gameid="&indexsf&" order by Gq_sfdata.hour desc,Gq_sfdata.minute desc"
rs.open sql,conn,1,1 
if rs.eof and rs.bof then
rs.close
else
Response.Write "<TR Class=sfbg3>"
%>
<TD class="m_f1" vAlign="middle" align="center" width="92%"><strong>↓<%if rs("Sdate")<>"" then response.write year(rs("sdate"))&"年/"&month(rs("sdate"))&"月/"&day(rs("Sdate"))&"日/已经开放的服务器"%>↓</strong></FONT><TD vAlign="middle" align="center" width="8%"><A href="#"><IMG src="Index_img/Top.gif" border="0"></A>
<%
Response.Write "</TD>"
Response.Write "</TR>"
Response.Write "</TBODY>"
Response.Write "</TABLE>"
Response.Write "<TABLE cellSpacing=1 cellPadding=5 width=984 align=center bgColor=#aa0000 border=0>"
Response.Write "<TBODY>"
while not rs.eof
if checkday(rs("toptime"),rs("time")) then
Response.Write "<TR bgColor="&bg_4&" onmouseover=javascript:this.bgColor='"&bg_4_4&"' onmouseout=javascript:this.bgColor='"&bg_4&"'>"
Response.Write "<TD width="&w1&"><a href="&weburl&"/go.htm?u="&rs("homepage")&" target=show>"&rs("name")&"</a></TD>"
Response.Write "<TD width="&w2&"><a href='"&rs("download")&"' target='_blank'>"&rs("IP")&"</a></TD>"
Response.Write "<TD width="&w3&">"
%>
<%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>"