new.asp

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

<%
'=========================================================
'程序作者：追风网络  QQ: 6273844
'官方网站：追风网络(Www.177520.Com)
'=========================================================
' Copyright 2007-2009 177520.Com - All Rights Reserved.
'=========================================================
'=================================================
'过程名：SetRed_ads
'作  用：精品推荐私服，按照天数计算
'=================================================
sub SetRed_ads
sql="select top "&fineMathematics&" 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.fine,Gq_sfdata.finetime,Gq_sfdata.time"
sql=sql&" from Gq_sfdata,Gq_GameType where Gq_sfdata.gameid=Gq_GameType.id"
sql=sql&" and Gq_sfdata.ulock=1 and Gq_sfdata.fine=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("finetime"),rs("time")) then
Response.Write "<TR bgColor="&bg_1&" onmouseover=javascript:this.bgColor='"&bg_1_1&"' onmouseout=javascript:this.bgColor='"&bg_1&"'>"
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><b>
<font color=#FF0000><b>→本站全天固顶极力推荐征途←</b>
<%
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")&"←<img border='0' src='Index_img/hot.gif' width='21' height='9'></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/web1.gif'></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.
'=========================================================
'=================================================
'过程名：Overnight_a
'作  用：通宵推荐开始
'=================================================
sub Overnight_a
%>
<script language="JavaScript" type="text/JavaScript">
<%
sql="select count(Gq_sfdata.id) from Gq_sfdata,Gq_GameType where Gq_sfdata.gameid=Gq_GameType.id and Gq_sfdata.ulock=1 and Gq_sfdata.hot=1 and Gq_sfdata.gameid="&indexsf&" and datediff('d',Gq_sfdata.Sdate,now())=0"
rs.open sql,conn,1,1
rssum=rs(0)
rs.close
%>
theAds=new Array();
shu =<%=rssum%>
dot=''
<%
sql="select Gq_sfdata.id,Gq_sfdata.name,Gq_sfdata.IP,Gq_sfdata.service,Gq_sfdata.Sdate,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 from Gq_sfdata,Gq_GameType where Gq_sfdata.gameid=Gq_GameType.id and Gq_sfdata.ulock=1 and Gq_sfdata.hot=1 and Gq_sfdata.gameid="&indexsf&" and datediff('d',Gq_sfdata.Sdate,now())=0 order by Gq_sfdata.Sdate desc"
rs.open sql,conn,1,1
nums=rssum
for i=1 to nums
%>
theAds[<%=i%>]='<tr bgcolor=\"#ffffff\" onmouseover=javascript:this.bgColor=\'#FFFFFF\' onmouseout=javascript:this.bgColor=\'#ffffff\'><TD width=<%=w1%>><a href=<%=weburl%>/go.htm?u=<%=rs("homepage")%> target=_blank><font color=#FF0000><%=rs("name")%></font></a></TD><TD width="<%=w2%>"><a href="<%=rs("download")%>" target="_blank"><font color=#000000><%=rs("IP")%></font></a></TD><TD width="<%=w3%>"><font color=#000000><%if rs("Sdate")<>"" then response.write year(rs("sdate"))&"年/"&month(rs("sdate"))&"月/"&day(rs("Sdate"))&"日/"%></font><font color=ff000>通宵推荐</font></TD><TD width="<%=w4%>"><font color=#000000><%=rs("Addr")%><%=split(ssign,",")(rs("Service"))%></font></TD><TD width="<%=w9%>"><font color=#000000><%=rs("dk")%></font></a></TD><TD width="<%=w8%>"><a href=<%=rs("zhuce")%> target=show><font color=#000000>注册</font></a></TD><TD width="<%=w5%>"><font color=#000000><%=rs("QQ")%></font></a></TD><TD><font color=#000000><%=rs("xingzhi")%></font><font color="#0000FF">←推荐</font></TD><TD width="<%=w7%>"><font color=#FF0000>通宵推荐</a></TD></font></TD><TD width="<%=w6%>"><a href=<%=weburl%>/go.htm?u=<%=rs("homepage")%> target=_blank><img border=0 src=Index_img/web1.gif></a></font></tr>'
<%
rs.movenext
next
rs.close
%>
theAds2=''
adshu=shu+1
function Quickpick()
{
  var ball
  for( ball = 1; ball < adshu; ball++)
  {
    this[ball] = parseInt(Math.random() * shu + 1);
    for(var list = 0; list < ball; list++)
    {
      if(this[list] == this[ball])
      {       
        list = ball;
        ball--;
      }
    }
  }
  return this;
}
var idx;
var ballball = new Array(shu);
ballball = this.Quickpick();
for(idx = 1; idx < adshu; idx++){
document.write(dot+theAds[ballball[idx]]);
if (idx < shu){document.write('')}}
document.write(dot+theAds2);
</script>
<%
end sub
'=========================================================
'程序作者：追风网络  QQ: 6273844
'官方网站：追风网络(Www.177520.Com)
'=========================================================
' Copyright 2007-2009 177520.Com - All Rights Reserved.
'=========================================================
'=================================================
'过程名：Overnight_b
'作  用：通宵推荐结束
'=================================================
sub Overnight_b
%>
<script language="JavaScript" type="text/JavaScript">
<%
sql="select count(Gq_sfdata.id) from Gq_sfdata,Gq_GameType where Gq_sfdata.gameid=Gq_GameType.id and Gq_sfdata.ulock=1 and Gq_sfdata.hot=1 and Gq_sfdata.gameid="&indexsf&" and datediff('d',Gq_sfdata.Sdate,now())=1"
rs.open sql,conn,1,1
rssum=rs(0)
rs.close
%>
theAds=new Array();
shu =<%=rssum%>
dot=''
<%
sql="select Gq_sfdata.id,Gq_sfdata.name,Gq_sfdata.IP,Gq_sfdata.service,Gq_sfdata.Sdate,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 from Gq_sfdata,Gq_GameType where Gq_sfdata.gameid=Gq_GameType.id and Gq_sfdata.ulock=1 and Gq_sfdata.hot=1 and Gq_sfdata.gameid="&indexsf&" and datediff('d',Gq_sfdata.Sdate,now())=1 order by Gq_sfdata.Sdate desc"
rs.open sql,conn,1,1
nums=rssum
for i=1 to nums
%>
theAds[<%=i%>]='<tr bgcolor=\"#ffff00\" onmouseover=javascript:this.bgColor=\'#FFCCFF\' onmouseout=javascript:this.bgColor=\'#ffff00\'><TD width=<%=w1%>><a href=<%=weburl%>/go.htm?u=<%=rs("homepage")%> target=_blank><font color=#FF000><%=rs("name")%></font></a></TD><TD width="<%=w2%>"><a href="<%=rs("download")%>" target="_blank"><font color=#000000><%=rs("IP")%></font></a></TD><TD width="<%=w3%>"><font color=#000000><%if rs("Sdate")<>"" then response.write year(rs("sdate"))&"年/"&month(rs("sdate"))&"月/"&day(rs("Sdate"))&"日/"%></font><font color=ff000>通宵推荐</font></TD><TD width="<%=w4%>"><font color=#000000><%=rs("Addr")%><%=split(ssign,",")(rs("Service"))%></font></TD><TD width="<%=w9%>"><font color=#000000><%=rs("dk")%></font></a></TD><TD width="<%=w8%>"><a href=<%=rs("zhuce")%> target=show><font color=#000000>注册</font></a></TD><TD width="<%=w5%>"><font color=#000000><%=rs("QQ")%></font></a></TD><TD><font color=#000000><%=rs("xingzhi")%></font><font color="#0000FF">←推荐</font></TD><TD width="<%=w7%>"><font color=#FF0000>通宵推荐</a></TD></font></TD><TD width="<%=w6%>"><a href=<%=weburl%>/go.htm?u=<%=rs("homepage")%> target=_blank><font color=#000000><img border=0 src=Index_img/web1.gif></a></font></tr>'
<%
rs.movenext
next
rs.close
%>
theAds2=''
adshu=shu+1
function Quickpick()
{
  var ball
  for( ball = 1; ball < adshu; ball++)
  {
    this[ball] = parseInt(Math.random() * shu + 1);
    for(var list = 0; list < ball; list++)
    {
      if(this[list] == this[ball])
      {       
        list = ball;
        ball--;
      }
    }
  }
  return this;
}
var idx;
var ballball = new Array(shu);
ballball = this.Quickpick();
for(idx = 1; idx < adshu; idx++){
document.write(dot+theAds[ballball[idx]]);
if (idx < shu){document.write('')}}
document.write(dot+theAds2);
</script>
<%
end sub
'=========================================================
'程序作者：追风网络  QQ: 6273844
'官方网站：追风网络(Www.177520.Com)
'=========================================================
' Copyright 2007-2009 177520.Com - All Rights Reserved.
'=========================================================
'=================================================
'过程名：Today_00
'作  用：整点固顶当前开机的私服
'=================================================
sub Today_00
%>
<script language="JavaScript" type="text/JavaScript">
<%
sql="select count(Gq_sfdata.id) from Gq_sfdata,Gq_GameType where Gq_sfdata.gameid=Gq_GameType.id and Gq_sfdata.ulock=1 and Gq_sfdata.top="&SFstatus&" and Gq_sfdata.gameid="&indexsf&" and datediff('d',Gq_sfdata.Sdate,now())=0 and hour(now)-hour=0 and minute-30<0 and hour(now)<23"
rs.open sql,conn,1,1
rssum=rs(0)
rs.close
%>
theAds=new Array();
shu =<%=rssum%>
dot=''
<%
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 from Gq_sfdata,Gq_GameType where Gq_sfdata.gameid=Gq_GameType.id and Gq_sfdata.ulock=1 and Gq_sfdata.top="&SFstatus&" and datediff('d',Gq_sfdata.Sdate,now())=0 and hour(now)-hour=0 and minute-30<0 order by Gq_sfdata.minute desc"
rs.open sql,conn,1,1
nums=rssum
for i=1 to nums
%>
theAds[<%=i%>]='<tr bgcolor=\"#ffff00\" onmouseover=javascript:this.bgColor=\'#FFCCFF\' onmouseout=javascript:this.bgColor=\'#ffff00\'><TD width=<%=w1%>><a href=<%=weburl%>/go.htm?u=<%=rs("homepage")%> target=_blank><font color=#FF0000><%=rs("name")%></font></a></TD><TD width="<%=w2%>"><a href="<%=rs("download")%>" target="_blank"><font color=#000000><%=rs("IP")%></font></a></TD><TD width="<%=w3%>"><font color=#FF0000><%
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("hour")<23 and rs("minute")<30 then 
response.write"开放" 
else 
if rs("hour")<23 and rs("minute")>=30 then 
response.write "/30分开放" 
end if 
end if%></font></TD><TD width="<%=w4%>"><font color=#000000><%=rs("Addr")%><%=split(ssign,",")(rs("Service"))%></font></TD><TD width="<%=w9%>"><font color=#000000><%=rs("dk")%></font></a></TD><TD width="<%=w8%>"><a href=<%=rs("zhuce")%> target=show><font color=#000000>注册</font></a></TD><TD width="<%=w5%>"><font color=#000000><%=rs("QQ")%></font></a></TD><TD><font color=#000000><%=rs("xingzhi")%></font><font color="#0000FF">←推荐</TD><TD width="<%=w7%>"><font color=#FF0000>套黄推荐</font></TD><TD width="<%=w6%>"><a href=<%=weburl%>/go.htm?u=<%=rs("homepage")%> target=_blank><img border=0 src=Index_img/web1.gif></a></font></a></TD></tr>'
<%
rs.movenext
next
rs.close
%>
theAds2=''
adshu=shu+1
function Quickpick()
{
  var ball
  for( ball = 1; ball < adshu; ball++)
  {
    this[ball] = parseInt(Math.random() * shu + 1);
    for(var list = 0; list < ball; list++)
    {
      if(this[list] == this[ball])
      {       
        list = ball;
        ball--;
      }
    }
  }
  return this;
}
var idx;
var ballball = new Array(shu);
ballball = this.Quickpick();
for(idx = 1; idx < adshu; idx++){
document.write(dot+theAds[ballball[idx]]);
if (idx < shu){document.write('')}}
document.write(dot+theAds2);
</script>