<%
'╭──98游戏───────────────╮
'┃　　　　　　      　　             　　 ┃
'┃程序类型:发布站程序　　　　　　　       ┃
'┃购买认证:98游戏GM基地　　　　　         ┃
'┃程序版本:Ver4.0　　　　　　　           ┃
'┃程序作者:98游戏　　　　　　　           ┃
'┃联 系 QQ:1013665749                      ┃
'┃联系电话:18279334539　　　　　　　      ┃
'┃官方网站:http://www.98youx.com            ┃
'┃版权所有:98游戏　　　　　　             ┃
'┃　　　　　　　　             　　　　   ┃
'┃　         版权声明：转载请保留版权信息 ┃
'╰───────────Cool network───╯
Dim TeGq,Sitesflook
Set TeGq = New cls_QiKuCMSMain
Set Rs = Server.CreateObject("ADODB.Recordset")
Class cls_QiKuCMSMain
Dim rssum, nums
'=================================================
'过程名：SetRed_ads
'作  用：精品推荐游戏，按照天数计算
'=================================================
sub SetRed_ads()
sql="select top " & CInt(QiKuCMS.finePage) & " 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.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.Daytime"
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=2 and Gq_sfdata.gameid="&menu&" and Gq_sfdata.jpTime>#"&date()&"# order by Gq_sfdata.jpid"
Rs.Open Sql,Conn,1,1
if rs.eof and rs.bof then
rs.close
else
while not rs.eof
if QiKuCMS.Checkday(rs("finetime"),rs("Daytime")) then
Response.Write "<TR bgColor="&QiKuCMS.bg_1&" onmouseover=javascript:this.bgColor='"&QiKuCMS.bg_1_1&"' onmouseout=javascript:this.bgColor='"&QiKuCMS.bg_1&"'>" & vbCrLf
Response.Write "<TD>"&QiKuCMS.zx_11&"<a href="&rs("homepage")&" target=_blank><font color=#FF0000>"&rs("name")&"</a></TD>" & vbCrLf
Response.Write "<TD><font color=#FF0000><a href="&rs("download")&" target=_blank>"&rs("IP")&"</a></TD>" & vbCrLf
Response.Write "<TD align=center>"
%>
<font color=#FF34B3><b><%=QiKuCMS.IsNews%></b></font>
<%
Response.Write "<TD><font color=#FF0000>"&left(rs("xingzhi"),30)&"<font color=blue>←推荐</TD>" & vbCrLf
Response.Write "<TD align=center><a href="&rs("download")&" target=_blank><img src=/images/xiaz.jpg width=70 height=25 border=0></a>" & vbCrLf
Response.Write "<TD align=center><a href="&rs("homepage")&" target=_blank><img src=/images/chak.jpg width=70 height=25 border=0></a>" & vbCrLf
Response.Write "</TR>" & vbCrLf
end if
rs.movenext
wend 
rs.close
end if
end sub
'=================================================
'过程名：SetRed_adsa
'作  用：精品推荐游戏，按照24小时计算
'=================================================
sub SetRed_adsa%>
<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.fine=1 and datediff('d',Gq_sfdata.Sdate,now())=0 and Gq_sfdata.gameid="&menu&""
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.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.fine=1 and Gq_sfdata.gameid="&menu&" 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=\"<%=QiKuCMS.bg_1%>\" onmouseover=javascript:this.bgColor=\'<%=QiKuCMS.bg_1_1%>\' onmouseout=javascript:this.bgColor=\'<%=QiKuCMS.bg_1%>\'><TD><img src=/images/Vip_R1.gif width=22 height=22 border=0><%=QiKuCMS.zx_11%><a href=<%=rs("homepage")%> target=_blank><font color=#000000><%=rs("name")%></font></a></TD><TD><a href=<%=rs("download")%> target=_blank><font color=#000000><%=rs("IP")%></a></TD><TD align=center><font color=#FF0000><b><%=QiKuCMS.IsNews%></b></font></TD><TD><font color=#000000><%=left(rs("xingzhi"),30)%>←<img src=/images/atop1.gif width=25 height=11 border=0></TD><TD align=center><a href=<%=rs("download")%> target=_blank><img src=/images/xiaz.jpg width=70 height=25 border=0></a></TD><TD align=center><a href=<%=rs("homepage")%> target=_blank><img src=/images/chak.jpg width=70 height=25 border=0></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>
<%
end sub
'=================================================
'过程名：SetRed_ads_0
'作  用：全天套黄固顶
'=================================================
sub SetRed_ads_0
%>
<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.gameid="&menu&" and datediff('d',Gq_sfdata.Sdate,now())=0 and Gq_sfdata.fine=9"
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.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.gameid="&menu&" and datediff('d',Gq_sfdata.Sdate,now())=0 and Gq_sfdata.fine=9 order by Gq_sfdata.minute desc"
Rs.Open Sql,Conn,1,1
nums=rssum
for i=1 to nums
%>
theAds[<%=i%>]='<tr bgcolor=\"<%=QiKuCMS.bg_1%>\" onmouseover=javascript:this.bgColor=\'<%=QiKuCMS.bg_1_1%>\' onmouseout=javascript:this.bgColor=\'<%=QiKuCMS.bg_1%>\'><TD><img src=/images/Vip_R1.gif width=22 height=22 border=0><a href=<%=rs("homepage")%> target=_blank><%=rs("name")%></a></TD><TD><a href=<%=rs("download")%> target=_blank><%=rs("IP")%></a></TD><TD align=center><font color=#FF0000><%If Rs("Sdate")<>"" then response.write month(rs("sdate"))&"月"&day(rs("Sdate"))&"日"%><%if hour(now)>=0 and hour(now)<7 then 
response.write " "&hour(now)&":" 
else 
if hour(now)>17 and hour(now)<=24 then 
response.write " "&hour(now)&":" 
else 
if hour(now)<12 then 
response.write " "&hour(now)&":" 
else 
if hour(now)>12 and hour(now)<=17 then 
response.write " "&hour(now)&":" 
else 
if hour(now)=12 then 
response.write " "&hour(now)&":" 
end if 
end if 
end if 
end if 
end if%><% if minute(now)<30 then 
response.write "00开放" 
else 
if minute(now)>=30 then 
response.write "30开放" 
end if 
end if%><TD><font color=#000000><%=left(rs("xingzhi"),30)%>←<img src=/images/atop1.gif width=25 height=11 border=0></TD><TD align=center><a href=<%=rs("download")%> target=_blank><img src=/images/xiaz.jpg width=70 height=25 border=0></a></TD><TD align=center><a href=<%=rs("homepage")%> target=_blank><img src=/images/chak.jpg width=70 height=25 border=0></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>
<%
end sub
'=================================================
'过程名：Overnight_aa
'作  用：精品通宵推荐开始
'=================================================
sub Overnight_aa
%>
<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=2 and Gq_sfdata.gameid="&menu&" 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.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=2 and Gq_sfdata.gameid="&menu&" 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=\"#ffff00\" onmouseover=javascript:this.bgColor=\'#FFFF98\' onmouseout=javascript:this.bgColor=\'#ffff00\'><TD><%=QiKuCMS.zx_33%><img src=/images/Vip_R1.gif width=22 height=22 border=0><a href=<%=rs("homepage")%> target=_blank><font color=#FF0000><%=rs("name")%></font></a></TD><TD><a href=<%=rs("download")%> target=_blank><font color=#FF0000><%=rs("IP")%></a></TD><TD align=center><font color=#FF0000><%if rs("Sdate")<>"" then response.write month(rs("sdate"))&"月"&day(rs("Sdate"))&"日"%>-通宵固顶</font></TD><TD><font color=#FF0000><%=left(rs("xingzhi"),30)%><font color=blue>←推荐</TD><TD align=center><a href=<%=rs("download")%> target=_blank><img src=/images/xiaz.jpg width=70 height=25 border=0></a></TD><TD align=center><a href=<%=rs("homepage")%> target=_blank><img src=/images/chak.jpg width=70 height=25 border=0></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>
<%
end sub
'=================================================
'过程名：Overnight_bb
'作  用：精品通宵推荐结束
'=================================================
sub Overnight_bb
%>
<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=2 and Gq_sfdata.gameid="&menu&" 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.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=2 and Gq_sfdata.gameid="&menu&" 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=\'#ffff98\' onmouseout=javascript:this.bgColor=\'#ffff00\'><TD><%=QiKuCMS.zx_33%><img src=/images/Vip_R1.gif width=22 height=22 border=0><a href=<%=rs("homepage")%> target=_blank><font color=#FF0000><%=rs("name")%></font></a></TD><TD><a href=<%=rs("download")%> target=_blank><font color=#FF0000><%=rs("IP")%></a></TD><TD align=center><font color=#FF0000><%if rs("Sdate")<>"" then response.write month(rs("sdate"))&"月"&day(rs("Sdate"))&"日"%>-通宵固顶</font><TD><font color=#FF0000><%=left(rs("xingzhi"),30)%><font color=blue>←推荐</TD><TD align=center><a href=<%=rs("download")%> target=_blank><img src=/images/xiaz.jpg width=70 height=25 border=0></a></TD><TD align=center><a href=<%=rs("homepage")%> target=_blank><img src=/images/chak.jpg width=70 height=25 border=0></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>
<%
end sub
'=================================================
'过程名：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="&menu&" 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.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="&menu&" 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=\"#ffff00\" onmouseover=javascript:this.bgColor=\'#ffff98\' onmouseout=javascript:this.bgColor=\'#ffff00\'><TD><img src=/images/Vip_R1.gif width=22 height=22 border=0><%=QiKuCMS.zx_44%><a href=<%=rs("homepage")%> target=_blank><%=rs("name")%></font></a></TD><TD><a href=<%=rs("download")%> target=_blank><%=rs("IP")%></a></TD><TD align=center><font color=#FF0000><%if rs("Sdate")<>"" then response.write month(rs("sdate"))&"月"&day(rs("Sdate"))&"日"%>-通宵推荐</font></TD><TD><%=left(rs("xingzhi"),30)%><font color=blue>←推荐</font></TD><TD align=center><a href=<%=rs("download")%> target=_blank><img src=/images/xiaz.jpg width=70 height=25 border=0></a></TD><TD align=center><a href=<%=rs("homepage")%> target=_blank><img src=/images/chak.jpg width=70 height=25 border=0></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>
<%
end sub
'=================================================
'过程名：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="&menu&" 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.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="&menu&" 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=\'#ffff98\' onmouseout=javascript:this.bgColor=\'#ffff00\'><TD><img src=/images/Vip_R1.gif width=22 height=22 border=0><%=QiKuCMS.zx_44%><a href=<%=rs("homepage")%> target=_blank><%=rs("name")%></font></a></TD><TD><a href=<%=rs("download")%> target=_blank><%=rs("IP")%></a></TD><TD align=center><font color=#FF0000><%if rs("Sdate")<>"" then response.write month(rs("sdate"))&"月"&day(rs("Sdate"))&"日"%>-通宵推荐</font></TD><TD><%=left(rs("xingzhi"),30)%><font color=blue>←推荐</font></TD><TD align=center><a href=<%=rs("download")%> target=_blank><img src=/images/xiaz.jpg width=70 height=25 border=0></a></TD><TD align=center><a href=<%=rs("homepage")%> target=_blank><img src=/images/chak.jpg width=70 height=25 border=0></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>
<%
end sub
'=================================================
'过程名：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.isBest="&SFstatus&" and Gq_sfdata.gameid="&menu&" and datediff('d',Gq_sfdata.Sdate,now())=0 and hour(now)-hour=0 and minute-30<0 and hour(now)<24"
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.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.isBest="&SFstatus&" and Gq_sfdata.gameid="&menu&" 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=\'#ffff00\' onmouseout=javascript:this.bgColor=\'#ffff00\'><TD><%=QiKuCMS.zx_22%><img src=/images/Vip_R1.gif width=22 height=22 border=0><a href=<%=rs("homepage")%> target=_blank><%=rs("name")%></font></a></TD><TD><a href=<%=rs("download")%> target=_blank><%=rs("IP")%></a></TD><TD align=center><font color=#FF0000><%if rs("Sdate")<>"" then response.write 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")&":" 
else 
if Rs("hour")<12 then 
response.write " "&Rs("hour")&":" 
else 
if Rs("hour")>12 and Rs("hour")<=17 then 
response.write " "&Rs("hour")&":" 
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 "00开放" 
else 
if Rs("minute")>=30 then 
response.write "30开放" 
end if 
end if%></font></TD><TD><%=left(rs("xingzhi"),30)%>←<img src=/images/atop1.gif width=25 height=11 border=0></TD><TD align=center><a href=<%=rs("download")%> target=_blank><img src=/images/xiaz.jpg width=70 height=25 border=0></a></TD><TD align=center><a href=<%=rs("homepage")%> target=_blank><img src=/images/chak.jpg width=70 height=25 border=0></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>
<%
end sub
'=================================================
'过程名：Today_30
'作  用：30分开放的当前开机游戏
'=================================================
sub Today_30
%>
<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.isBest="&SFstatus&" and Gq_sfdata.gameid="&menu&" and datediff('d',Gq_sfdata.Sdate,now())=0 and hour(now)-hour=0 and minute-30>=0 and hour(now)<24"
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.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.isBest="&SFstatus&" and Gq_sfdata.gameid="&menu&" 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=\'#ffff00\' onmouseout=javascript:this.bgColor=\'#FFFF00\'><TD><%=QiKuCMS.zx_22%><img src=/images/Vip_R1.gif width=22 height=22 border=0><a href=<%=rs("homepage")%> target=_blank><%=rs("name")%></font></a></TD><TD><a href=<%=rs("download")%> target=_blank><%=rs("IP")%></a></TD><TD align=center><font color=#FF0000><%if rs("Sdate")<>"" then response.write 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")&":" 
else 
if Rs("hour")<12 then 
response.write " "&Rs("hour")&":" 
else 
if Rs("hour")>12 and Rs("hour")<=17 then 
response.write " "&Rs("hour")&":" 
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 "00开放" 
else 
if Rs("minute")>=30 then 
response.write "30开放" 
end if 
end if%></font></TD><TD><%=left(rs("xingzhi"),30)%>←<img src=/images/atop1.gif width=25 height=11 border=0></TD><TD align=center><a href=<%=rs("download")%> target=_blank><img src=/images/xiaz.jpg width=70 height=25 border=0></a></TD><TD align=center><a href=<%=rs("homepage")%> target=_blank><img src=/images/chak.jpg width=70 height=25 border=0></a></TD></tr>'
<%
rs.movenext
next
rs.close
%>
theAds2=''
adshu=shu+1
function Quickpick()
{
  var ballk
  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
'=================================================
'过程名：Today_30_1
'作  用：过点游戏(特殊)
'=================================================
sub Today_30_1
%>
<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.isBest="&SFstatus&" and Gq_sfdata.gameid="&menu&" and datediff('d',Gq_sfdata.Sdate,now())=0 and hour(now)-hour=0 and minute-30<0 and hour(now)<24"
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.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.isBest="&SFstatus&" and Gq_sfdata.gameid="&menu&" 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=\"<%=QiKuCMS.bg_2%>\" onmouseover=javascript:this.bgColor=\'<%=QiKuCMS.bg_2_2%>\' onmouseout=javascript:this.bgColor=\'<%=QiKuCMS.bg_2%>\'><TD><img src=/images/Vip_R1.gif width=22 height=22 border=0><%=QiKuCMS.zx_55%><a href=<%=rs("homepage")%> target=_blank><%=rs("name")%></a></TD><TD><a href=<%=rs("download")%> target=_blank><%=rs("IP")%></a></TD><TD align=center><font color=#FF0000><%if rs("Sdate")<>"" then response.write 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")&":" 
else 
if Rs("hour")<12 then 
response.write " "&Rs("hour")&":" 
else 
if Rs("hour")>12 and Rs("hour")<=17 then 
response.write " "&Rs("hour")&":" 
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 "00开放" 
else 
if Rs("minute")>=30 then 
response.write "30开放" 
end if 
end if%></font></TD><TD><font color=#000000><%=left(rs("xingzhi"),30)%><font color=#FF6600>←推荐</font></TD><TD align=center><a href=<%=rs("download")%> target=_blank><img src=/images/xiaz.jpg width=70 height=25 border=0></a></TD><TD align=center><a href=<%=rs("homepage")%> target=_blank><img src=/images/chak.jpg width=70 height=25 border=0></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>
<%
end sub
'=================================================
'过程名：Today_00_30_1
'作  用：今日新开游戏←过点游戏
'=================================================
sub Today_00_30_1
If Version <> "Ver4.0" Then Response.Redirect QiKuCMS.SiteVersion
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.QQ,Gq_sfdata.xingzhi,Gq_sfdata.homepage,Gq_sfdata.download,Gq_sfdata.gameid,Gq_GameType.game,Gq_sfdata.download,Gq_sfdata.isBest"
sql=sql&" from Gq_sfdata,Gq_GameType where Gq_sfdata.gameid=Gq_GameType.id and datediff('d',Gq_sfdata.Sdate,now())=0"
sql=sql&" and Gq_sfdata.ulock=1 and Gq_sfdata.isBest="&SFstatus&" and Gq_sfdata.gameid="&menu&" and datediff('d',Gq_sfdata.Sdate,now())=0 and (hour(now)-hour)>0 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
do while not rs.eof
Response.Write "<TR bgColor="&QiKuCMS.bg_2&" onmouseover=javascript:this.bgColor='"&QiKuCMS.bg_2_2&"' onmouseout=javascript:this.bgColor='"&QiKuCMS.bg_2&"'>" & vbCrLf
Response.Write "<TD>"&QiKuCMS.zx_55&"<img src=/images/Vip_R2.gif width=22 height=22 border=0><a href="&rs("homepage")&" target=_blank>"&rs("name")&"</a></TD>" & vbCrLf
Response.Write "<TD><a href="&rs("download")&" target=_blank>"&rs("IP")&"</a></TD>" & vbCrLf
Response.Write "<TD align=center>"
%><font color=#000000><%if rs("Sdate")<>"" then response.write 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")&":" 
else 
if Rs("hour")<12 then 
response.write " "&Rs("hour")&":" 
else 
if Rs("hour")>12 and Rs("hour")<=17 then 
response.write " "&Rs("hour")&":" 
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 "00开放" 
else 
if Rs("minute")>=30 then 
response.write "30开放" 
end if
end if
Response.Write "<TD>"&left(rs("xingzhi"),30)&"<font color=blue>←推荐</TD>" & vbCrLf
Response.Write "<TD align=center><a href="&rs("download")&" target=_blank><img src=/images/xiaz.jpg width=70 height=25 border=0></a>" & vbCrLf
Response.Write "<TD align=center><a href="&rs("homepage")&" target=_blank><img src=/images/chak.jpg width=70 height=25 border=0></a>" & vbCrLf
Response.Write "</TR>" & vbCrLf
rs.movenext
loop
rs.close
end if
end sub
'=================================================
'过程名：Today_30_2
'作  用：没有到时间的(特殊)
'=================================================
sub Today_30_2
%>
<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.isBest="&SFstatus&" and Gq_sfdata.gameid="&menu&" and datediff('d',Gq_sfdata.Sdate,now())=0 and hour(now)-hour=0 and minute-30>=0 and hour(now)<24"
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.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.isBest="&SFstatus&" and Gq_sfdata.gameid="&menu&" 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=\"<%=QiKuCMS.bg_2%>\" onmouseover=javascript:this.bgColor=\'<%=QiKuCMS.bg_2_2%>\' onmouseout=javascript:this.bgColor=\'<%=QiKuCMS.bg_2%>\'><TD><%=QiKuCMS.zx_10%><img src=/images/Vip_R1.gif width=22 height=22 border=0><a href=<%=rs("homepage")%> target=_blank><%=rs("name")%></a></TD><TD><a href=<%=rs("download")%> target=_blank><%=rs("IP")%></a></TD><TD align=center><font color=#FF0000><%if rs("Sdate")<>"" then response.write 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")&":" 
else 
if Rs("hour")<12 then 
response.write " "&Rs("hour")&":" 
else 
if Rs("hour")>12 and Rs("hour")<=17 then 
response.write " "&Rs("hour")&":" 
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 "00开放" 
else 
if Rs("minute")>=30 then 
response.write "30开放" 
end if 
end if%></font></TD><TD><%=left(rs("xingzhi"),30)%><font color=blue>←推荐</TD><TD align=center><a href=<%=rs("download")%> target=_blank><img src=/images/xiaz.jpg width=70 height=25 border=0></a></TD><TD align=center><a href=<%=rs("homepage")%> target=_blank><img src=/images/chak.jpg width=70 height=25 border=0></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>
<%
end sub
'=================================================
'过程名：Today_00_30_2
'作  用：今日新开游戏←没有到时间的
'=================================================
sub Today_00_30_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.QQ,Gq_sfdata.xingzhi,Gq_sfdata.homepage,Gq_sfdata.download,Gq_sfdata.gameid,Gq_GameType.game,Gq_sfdata.download"
sql=sql&" from Gq_sfdata,Gq_GameType where Gq_sfdata.gameid=Gq_GameType.id and datediff('d',Gq_sfdata.Sdate,now())=0"
sql=sql&" and Gq_sfdata.ulock=1 and Gq_sfdata.isBest="&SFstatus&" and Gq_sfdata.gameid="&menu&" and datediff('d',Gq_sfdata.Sdate,now())=0 and (hour(now)-hour)<0 order by Gq_sfdata.hour,Gq_sfdata.minute"
Rs.Open Sql,Conn,1,1
if rs.eof and rs.bof then
rs.close
else
do while not rs.eof
Response.Write "<TR bgColor="&QiKuCMS.bg_2&" onmouseover=javascript:this.bgColor='"&QiKuCMS.bg_2_2&"' onmouseout=javascript:this.bgColor='"&QiKuCMS.bg_2&"'>" & vbCrLf
Response.Write "<TD>"&QiKuCMS.zx_10&"<img src=/images/Vip_R2.gif width=22 height=22 border=0><a href="&rs("homepage")&" target=_blank>"&rs("name")&"</a></TD>" & vbCrLf
Response.Write "<TD><a href="&rs("download")&" target=_blank>"&rs("IP")&"</a></TD>" & vbCrLf
Response.Write "<TD align=center>"
%><font color=#000000><%if rs("Sdate")<>"" then response.write 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")&":" 
else 
if Rs("hour")<12 then 
response.write " "&Rs("hour")&":" 
else 
if Rs("hour")>12 and Rs("hour")<=17 then 
response.write " "&Rs("hour")&":" 
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 "00开放" 
else 
if Rs("minute")>=30 then 
response.write "30开放" 
end if
end if
Response.Write "<TD>"&left(rs("xingzhi"),30)&"<font color=blue>←推荐</TD>" & vbCrLf
Response.Write "<TD align=center><a href="&rs("download")&" target=_blank><img src=/images/xiaz.jpg width=70 height=25 border=0></a>" & vbCrLf
Response.Write "<TD align=center><a href="&rs("homepage")&" target=_blank><img src=/images/chak.jpg width=70 height=25 border=0></a>" & vbCrLf
Response.Write "</TR>" & vbCrLf
rs.movenext
loop
rs.close
end if
end sub
'=================================================
'过程名：Beforee
'作  用：今日精品通宵推荐游戏
'=================================================
sub Beforee
%>
<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=2 and Gq_sfdata.gameid="&menu&" 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.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=2 and Gq_sfdata.gameid="&menu&" 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=\"#ffff00\" onmouseover=javascript:this.bgColor=\'#Ffff98\' onmouseout=javascript:this.bgColor=\'#ffff00\'><TD><%=QiKuCMS.zx_66%><img src=/images/Vip.gif width=22 height=22 border=0><a href=<%=rs("homepage")%> target=_blank><font color=#000000><%=rs("name")%></font></a></TD><TD><a href=<%=rs("download")%> target=_blank><font color=#000000><%=rs("IP")%></a></TD><TD align=center><font color=#000000><%if rs("Sdate")<>"" then response.write month(rs("sdate"))&"月"&day(rs("Sdate"))&"日"%>-通宵固顶</font></TD><TD><font color=#000000><%=left(rs("xingzhi"),30)%><font color=blue>←推荐</TD><TD align=center><a href=<%=rs("download")%> target=_blank><img src=/images/xiaz.jpg width=70 height=25 border=0></a></TD><TD align=center><a href=<%=rs("homepage")%> target=_blank><img src=/images/chak.jpg width=70 height=25 border=0></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>
<%
end sub
'=================================================
'过程名：Before
'作  用：今日通宵推荐游戏
'=================================================
sub Before
%>
<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="&menu&" 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.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="&menu&" 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=\"<%=QiKuCMS.bg_2%>\" onmouseover=javascript:this.bgColor=\'<%=QiKuCMS.bg_2_2%>\' onmouseout=javascript:this.bgColor=\'<%=QiKuCMS.bg_2%>\'><TD><%=QiKuCMS.zx_77%><img src=/images/Vip.gif width=22 height=22 border=0><a href=<%=rs("homepage")%> target=_blank><%=rs("name")%></a></TD><TD><a href=<%=rs("download")%> target=_blank><%=rs("IP")%></a></TD><TD align=center><font color=#000000><%if rs("Sdate")<>"" then response.write month(rs("sdate"))&"月"&day(rs("Sdate"))&"日"%>-通宵推荐</TD><TD><%=left(rs("xingzhi"),30)%><font color=blue>←推荐</TD><TD align=center><a href=<%=rs("download")%> target=_blank><img src=/images/xiaz.jpg width=70 height=25 border=0></a></TD><TD align=center><a href=<%=rs("homepage")%> target=_blank><img src=/images/chak.jpg width=70 height=25 border=0></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>
<%
end sub
'=================================================
'过程名：days_1
'作  用：明天即将开放游戏←推荐游戏
'=================================================
sub days_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.QQ,Gq_sfdata.xingzhi,Gq_sfdata.homepage,Gq_sfdata.download,Gq_sfdata.gameid,Gq_GameType.game,Gq_sfdata.download,Gq_sfdata.hot,Gq_sfdata.BestTime,Gq_sfdata.Daytime"
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.isBest="&SFstatus&" and Gq_sfdata.gameid="&menu&" 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 QiKuCMS.Checkday(rs("BestTime"),rs("Daytime")) then
Response.Write "<TR bgColor="&QiKuCMS.bg_3&" onmouseover=javascript:this.bgColor='"&QiKuCMS.bg_3_3&"' onmouseout=javascript:this.bgColor='"&QiKuCMS.bg_3&"'>" & vbCrLf
Response.Write "<TD>"&QiKuCMS.zx_99&"<img src=/images/Vip_R1.gif width=22 height=22 border=0><a href="&rs("homepage")&" target=_blank>"&rs("name")&"</a></TD>" & vbCrLf
Response.Write "<TD><a href="&rs("download")&" target=_blank>"&rs("IP")&"</a></TD>" & vbCrLf
Response.Write "<TD align=center>"
%><font color=#FF0000><%if rs("Sdate")<>"" then response.write 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")&":" 
else 
if Rs("hour")<12 then 
response.write " "&Rs("hour")&":" 
else 
if Rs("hour")>12 and Rs("hour")<=17 then 
response.write " "&Rs("hour")&":" 
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 "00开放" 
else 
if Rs("minute")>=30 then 
response.write "30开放" 
end if
end if
Response.Write "<TD>"&left(rs("xingzhi"),30)&"<font color=blue>←推荐</TD>" & vbCrLf
Response.Write "<TD align=center><a href="&rs("download")&" target=_blank><img src=/images/xiaz.jpg width=70 height=25 border=0></a>" & vbCrLf
Response.Write "<TD align=center><a href="&rs("homepage")&" target=_blank><img src=/images/chak.jpg width=70 height=25 border=0></a>" & vbCrLf
Response.Write "</TR>" & vbCrLf
end if
rs.movenext
wend 
rs.close
end if
end sub
'=================================================
'过程名：SetRed_ads_1
'作  用：精品推荐游戏
'=================================================
sub SetRed_ads_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.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.Daytime"
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="&menu&" and datediff('d',Gq_sfdata.Sdate,now())=-1 order by Gq_sfdata.jpid"
Rs.Open Sql,Conn,1,1
if rs.eof and rs.bof then
rs.close
else
while not rs.eof
if QiKuCMS.Checkday(rs("finetime"),rs("Daytime")) then
Response.Write "<TR bgColor="&QiKuCMS.bg_1&" onmouseover=javascript:this.bgColor='"&QiKuCMS.bg_1_1&"' onmouseout=javascript:this.bgColor='"&QiKuCMS.bg_1&"'>" & vbCrLf
Response.Write "<TD>"&QiKuCMS.zx_11&"<img src=/images/Vip_R1.gif width=22 height=22 border=0><a href="&rs("homepage")&" target=_blank><font color=#FF0000>"&rs("name")&"</a></TD>" & vbCrLf
Response.Write "<TD><font color=#FF0000><a href="&rs("download")&" target=_blank>"&rs("IP")&"</a></TD>" & vbCrLf
Response.Write "<TD align=center>"
%>
<font color=#FF34B3><b><%=QiKuCMS.IsNews%></b></font>
<%
Response.Write "<TD><font color=#FF0000>"&left(rs("xingzhi"),30)&"<font color=blue>←推荐</TD>" & vbCrLf
Response.Write "<TD align=center><a href="&rs("download")&" target=_blank><img src=/images/xiaz.jpg width=70 height=25 border=0></a>" & vbCrLf
Response.Write "<TD align=center><a href="&rs("homepage")&" target=_blank><img src=/images/chak.jpg width=70 height=25 border=0></a>" & vbCrLf
Response.Write "</TR>" & vbCrLf
end if
rs.movenext
wend 
rs.close
end if
end sub
'=================================================
'过程名：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.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.Daytime"
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="&menu&" 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 QiKuCMS.Checkday(rs("hottime"),rs("Daytime")) then
Response.Write "<TR bgColor="&QiKuCMS.bg_3&" onmouseover=javascript:this.bgColor='"&QiKuCMS.bg_3_3&"' onmouseout=javascript:this.bgColor='"&QiKuCMS.bg_3&"'>" & vbCrLf
Response.Write "<TD>"&QiKuCMS.zx_102&"<img src=/images/Vip.gif width=22 height=22 border=0><a href="&rs("homepage")&" target=_blank>"&rs("name")&"</a></TD>" & vbCrLf
Response.Write "<TD><a href="&rs("download")&" target=_blank>"&rs("IP")&"</a></TD>" & vbCrLf
Response.Write "<TD align=center>"
%><font color=#FF0000><%if rs("Sdate")<>"" then response.write month(rs("sdate"))&"月"&day(rs("Sdate"))&"日"%>-通宵推荐</font>
<%
Response.Write "<TD>"&left(rs("xingzhi"),30)&"<font color=blue>←推荐</TD>" & vbCrLf
Response.Write "<TD align=center><a href="&rs("download")&" target=_blank><img src=/images/xiaz.jpg width=70 height=25 border=0></a>" & vbCrLf
Response.Write "<TD align=center><a href="&rs("homepage")&" target=_blank><img src=/images/chak.jpg width=70 height=25 border=0></a>" & vbCrLf
Response.Write "</TR>" & vbCrLf
end if
rs.movenext
wend 
rs.close
end if
end sub
'=================================================
'过程名：night_11
'作  用：明天即将开放游戏←精品通宵推荐
'=================================================
sub night_11
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.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.Daytime"
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=2 and Gq_sfdata.gameid="&menu&" 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 QiKuCMS.Checkday(rs("hottime"),rs("Daytime")) then
Response.Write "<TR bgColor=#ffff00 onmouseover=javascript:this.bgColor='#FFFF98' onmouseout=javascript:this.bgColor='#ffff00'>" & vbCrLf
Response.Write "<TD>"&QiKuCMS.zx_101&"<img src=/images/Vip.gif width=22 height=22 border=0><a href="&rs("homepage")&" target=_blank><font color=#FF0000>"&rs("name")&"</a></TD>" & vbCrLf
Response.Write "<TD><font color=#FF0000><a href="&rs("download")&" target=_blank>"&rs("IP")&"</a></TD>" & vbCrLf
Response.Write "<TD align=center>"
%><font color=#FF0000><%if rs("Sdate")<>"" then response.write month(rs("sdate"))&"月"&day(rs("Sdate"))&"日"%>-通宵固顶</font>
<%
Response.Write "<TD><font color=#FF0000>"&left(rs("xingzhi"),30)&"<font color=blue>←推荐</TD>" & vbCrLf
Response.Write "<TD align=center><a href="&rs("download")&" target=_blank><img src=/images/xiaz.jpg width=70 height=25 border=0></a>" & vbCrLf
Response.Write "<TD align=center><a href="&rs("homepage")&" target=_blank><img src=/images/chak.jpg width=70 height=25 border=0></a>" & vbCrLf
Response.Write "</TR>" & vbCrLf
end if
rs.movenext
wend 
rs.close
end if
end sub
'=================================================
'过程名：days_2
'作  用：后天即将开放游戏←推荐游戏
'=================================================
sub days_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.QQ,Gq_sfdata.xingzhi,Gq_sfdata.homepage,Gq_sfdata.download,Gq_sfdata.gameid,Gq_GameType.game,Gq_sfdata.download,Gq_sfdata.hot,Gq_sfdata.BestTime,Gq_sfdata.Daytime"
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.isBest="&SFstatus&" and Gq_sfdata.gameid="&menu&" 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 QiKuCMS.Checkday(rs("BestTime"),rs("Daytime")) then
Response.Write "<TR bgColor="&QiKuCMS.bg_3&" onmouseover=javascript:this.bgColor='"&QiKuCMS.bg_3_3&"' onmouseout=javascript:this.bgColor='"&QiKuCMS.bg_3&"'>" & vbCrLf
Response.Write "<TD>"&QiKuCMS.zx_99&"<img src=/images/Vip_R1.gif width=22 height=22 border=0><a href="&rs("homepage")&" target=_blank>"&rs("name")&"</a></TD>" & vbCrLf
Response.Write "<TD><a href="&rs("download")&" target=_blank>"&rs("IP")&"</a></TD>" & vbCrLf
Response.Write "<TD align=center>"
%><font color=#FF0000><%if rs("Sdate")<>"" then response.write 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")&":" 
else 
if Rs("hour")<12 then 
response.write " "&Rs("hour")&":" 
else 
if Rs("hour")>12 and Rs("hour")<=17 then 
response.write " "&Rs("hour")&":" 
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 "00开放" 
else 
if Rs("minute")>=30 then 
response.write "30开放" 
end if
end if
Response.Write "<TD>"&left(rs("xingzhi"),30)&"<font color=blue>←推荐</TD>" & vbCrLf
Response.Write "<TD align=center><a href="&rs("download")&" target=_blank><img src=/images/xiaz.jpg width=70 height=25 border=0></a>" & vbCrLf
Response.Write "<TD align=center><a href="&rs("homepage")&" target=_blank><img src=/images/chak.jpg width=70 height=25 border=0></a>" & vbCrLf
Response.Write "</TR>" & vbCrLf
end if
rs.movenext
wend 
rs.close
end if
end sub
'=================================================
'过程名：SetRed_ads_2
'作  用：精品推荐游戏
'=================================================
sub SetRed_ads_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.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.Daytime"
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="&menu&" and datediff('d',Gq_sfdata.Sdate,now())=-2 order by Gq_sfdata.jpid"
Rs.Open Sql,Conn,1,1
if rs.eof and rs.bof then
rs.close
else
while not rs.eof
if QiKuCMS.Checkday(rs("finetime"),rs("Daytime")) then
Response.Write "<TR bgColor="&QiKuCMS.bg_1&" onmouseover=javascript:this.bgColor='"&QiKuCMS.bg_1_1&"' onmouseout=javascript:this.bgColor='"&QiKuCMS.bg_1&"'>" & vbCrLf
Response.Write "<TD>"&QiKuCMS.zx_11&"<img src=/images/Vip_R1.gif width=22 height=22 border=0><a href="&rs("homepage")&" target=_blank><font color=#FF0000>"&rs("name")&"</a></TD>" & vbCrLf
Response.Write "<TD><font color=#FF0000><a href="&rs("download")&" target=_blank>"&rs("IP")&"</a></TD>" & vbCrLf
Response.Write "<TD align=center>"
%>
<font color=#FF34B3><b><%=QiKuCMS.IsNews%></b></font>
<%
Response.Write "<TD><font color=#FF0000>"&left(rs("xingzhi"),30)&"<font color=blue>←推荐</TD>" & vbCrLf
Response.Write "<TD align=center><a href="&rs("download")&" target=_blank><img src=/images/xiaz.jpg width=70 height=25 border=0></a>" & vbCrLf
Response.Write "<TD align=center><a href="&rs("homepage")&" target=_blank><img src=/images/chak.jpg width=70 height=25 border=0></a>" & vbCrLf
Response.Write "</TR>" & vbCrLf
end if
rs.movenext
wend 
rs.close
end if
end sub
'=================================================
'过程名：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.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.Daytime"
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="&menu&" 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 QiKuCMS.Checkday(rs("hottime"),rs("Daytime")) then
Response.Write "<TR bgColor="&QiKuCMS.bg_3&" onmouseover=javascript:this.bgColor='"&QiKuCMS.bg_3_3&"' onmouseout=javascript:this.bgColor='"&QiKuCMS.bg_3&"'>" & vbCrLf
Response.Write "<TD>"&QiKuCMS.zx_102&"<img src=/images/Vip.gif width=22 height=22 border=0><a href="&rs("homepage")&" target=_blank>"&rs("name")&"</a></TD>" & vbCrLf
Response.Write "<TD><a href="&rs("download")&" target=_blank>"&rs("IP")&"</a></TD>" & vbCrLf
Response.Write "<TD align=center>"
%><font color=#FF0000><%if rs("Sdate")<>"" then response.write month(rs("sdate"))&"月"&day(rs("Sdate"))&"日"%>-通宵推荐</font>
<%
Response.Write "<TD>"&left(rs("xingzhi"),30)&"<font color=blue>←推荐</TD>" & vbCrLf
Response.Write "<TD align=center><a href="&rs("download")&" target=_blank><img src=/images/xiaz.jpg width=70 height=25 border=0></a>" & vbCrLf
Response.Write "<TD align=center><a href="&rs("homepage")&" target=_blank><img src=/images/chak.jpg width=70 height=25 border=0></a>" & vbCrLf
Response.Write "</TR>" & vbCrLf
end if
rs.movenext
wend 
rs.close
end if
end sub
'=================================================
'过程名：night_22
'作  用：后天即将开放游戏←精品通宵推荐
'=================================================
sub night_22
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.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.Daytime"
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=2 and Gq_sfdata.gameid="&menu&" 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 QiKuCMS.Checkday(rs("hottime"),rs("Daytime")) then
Response.Write "<TR bgColor=#ffff00 onmouseover=javascript:this.bgColor='#FFFF98' onmouseout=javascript:this.bgColor='#ffff00'>" & vbCrLf
Response.Write "<TD>"&QiKuCMS.zx_101&"<img src=/images/Vip.gif width=22 height=22 border=0><a href="&rs("homepage")&" target=_blank><font color=#FF0000>"&rs("name")&"</a></TD>" & vbCrLf
Response.Write "<TD><font color=#FF0000><a href="&rs("download")&" target=_blank>"&rs("IP")&"</a></TD>" & vbCrLf
Response.Write "<TD align=center>"
%><font color=#FF0000><%if rs("Sdate")<>"" then response.write month(rs("sdate"))&"月"&day(rs("Sdate"))&"日"%>-通宵固顶</font>
<%
Response.Write "<TD><font color=#FF0000>"&left(rs("xingzhi"),30)&"<font color=blue>←推荐</TD>" & vbCrLf
Response.Write "<TD align=center><a href="&rs("download")&" target=_blank><img src=/images/xiaz.jpg width=70 height=25 border=0></a>" & vbCrLf
Response.Write "<TD align=center><a href="&rs("homepage")&" target=_blank><img src=/images/chak.jpg width=70 height=25 border=0></a>" & vbCrLf
Response.Write "</TR>" & vbCrLf
end if
rs.movenext
wend 
rs.close
end if
end sub
'=================================================
'过程名：days_2_1
'作  用：后天+1即将开放游戏←推荐游戏
'=================================================
sub days_2_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.QQ,Gq_sfdata.xingzhi,Gq_sfdata.homepage,Gq_sfdata.download,Gq_sfdata.gameid,Gq_GameType.game,Gq_sfdata.download,Gq_sfdata.hot,Gq_sfdata.BestTime,Gq_sfdata.Daytime"
sql=sql&" from Gq_sfdata,Gq_GameType where Gq_sfdata.gameid=Gq_GameType.id and datediff('d',Gq_sfdata.Sdate,now())=-3"
sql=sql&" and Gq_sfdata.ulock=1 and Gq_sfdata.isBest="&SFstatus&" and Gq_sfdata.gameid="&menu&" 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 QiKuCMS.Checkday(rs("BestTime"),rs("Daytime")) then
Response.Write "<TR bgColor="&QiKuCMS.bg_3&" onmouseover=javascript:this.bgColor='"&QiKuCMS.bg_3_3&"' onmouseout=javascript:this.bgColor='"&QiKuCMS.bg_3&"'>" & vbCrLf
Response.Write "<TD>"&QiKuCMS.zx_99&"<img src=/images/Vip_R1.gif width=22 height=22 border=0><a href="&rs("homepage")&" target=_blank>"&rs("name")&"</a></TD>" & vbCrLf
Response.Write "<TD><a href="&rs("download")&" target=_blank>"&rs("IP")&"</a></TD>" & vbCrLf
Response.Write "<TD align=center>"
%><font color=#FF0000><%if rs("Sdate")<>"" then response.write 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")&":" 
else 
if Rs("hour")<12 then 
response.write " "&Rs("hour")&":" 
else 
if Rs("hour")>12 and Rs("hour")<=17 then 
response.write " "&Rs("hour")&":" 
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 "00开放" 
else 
if Rs("minute")>=30 then 
response.write "30开放" 
end if 
end if%></font><%
Response.Write "<TD>"&left(rs("xingzhi"),30)&"<font color=blue>←推荐</TD>" & vbCrLf
Response.Write "<TD align=center><a href="&rs("download")&" target=_blank><img src=/images/xiaz.jpg width=70 height=25 border=0></a>" & vbCrLf
Response.Write "<TD align=center><a href="&rs("homepage")&" target=_blank><img src=/images/chak.jpg width=70 height=25 border=0></a>" & vbCrLf
Response.Write "</TR>" & vbCrLf
end if
rs.movenext
wend 
rs.close
end if
end sub
'=================================================
'过程名：SetRed_ads_3
'作  用：精品推荐游戏
'=================================================
sub SetRed_ads_3()
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.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.Daytime"
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="&menu&" and datediff('d',Gq_sfdata.Sdate,now())=-3 order by Gq_sfdata.jpid"
Rs.Open Sql,Conn,1,1
if rs.eof and rs.bof then
rs.close
else
while not rs.eof
if QiKuCMS.Checkday(rs("finetime"),rs("Daytime")) then
Response.Write "<TR bgColor="&QiKuCMS.bg_1&" onmouseover=javascript:this.bgColor='"&QiKuCMS.bg_1_1&"' onmouseout=javascript:this.bgColor='"&QiKuCMS.bg_1&"'>" & vbCrLf
Response.Write "<TD>"&QiKuCMS.zx_11&"<img src=/images/Vip_R1.gif width=22 height=22 border=0><a href="&rs("homepage")&" target=_blank><font color=#FF0000>"&rs("name")&"</a></TD>" & vbCrLf
Response.Write "<TD><font color=#FF0000><a href="&rs("download")&" target=_blank>"&rs("IP")&"</a></TD>" & vbCrLf
Response.Write "<TD align=center>"
%>
<font color=#FF34B3><b><%=QiKuCMS.IsNews%></b></font>
<%
Response.Write "<TD><font color=#FF0000>"&left(rs("xingzhi"),30)&"<font color=blue>←推荐</TD>" & vbCrLf
Response.Write "<TD align=center><a href="&rs("download")&" target=_blank><img src=/images/xiaz.jpg width=70 height=25 border=0></a>" & vbCrLf
Response.Write "<TD align=center><a href="&rs("homepage")&" target=_blank><img src=/images/chak.jpg width=70 height=25 border=0></a>" & vbCrLf
Response.Write "</TR>" & vbCrLf
end if
rs.movenext
wend 
rs.close
end if
end sub
'=================================================
'过程名：night_2_1
'作  用：后天+1即将开放游戏←通宵推荐
'=================================================
sub night_2_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.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.Daytime"
sql=sql&" from Gq_sfdata,Gq_GameType where Gq_sfdata.gameid=Gq_GameType.id and datediff('d',Gq_sfdata.Sdate,now())=-3"
sql=sql&" and Gq_sfdata.ulock=1 and Gq_sfdata.hot=1 and Gq_sfdata.gameid="&menu&" 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 QiKuCMS.Checkday(rs("hottime"),rs("Daytime")) then
Response.Write "<TR bgColor="&QiKuCMS.bg_3&" onmouseover=javascript:this.bgColor='"&QiKuCMS.bg_3_3&"' onmouseout=javascript:this.bgColor='"&QiKuCMS.bg_3&"'>" & vbCrLf
Response.Write "<TD>"&QiKuCMS.zx_102&"<img src=/images/Vip.gif width=22 height=22 border=0><a href="&rs("homepage")&" target=_blank>"&rs("name")&"</a></TD>" & vbCrLf
Response.Write "<TD><a href="&rs("download")&" target=_blank>"&rs("IP")&"</a></TD>" & vbCrLf
Response.Write "<TD align=center>"
%><font color=#FF0000><%if rs("Sdate")<>"" then response.write month(rs("sdate"))&"月"&day(rs("Sdate"))&"日"%>-通宵推荐</font>
<%
Response.Write "<TD>"&left(rs("xingzhi"),30)&"<font color=blue>←推荐</TD>" & vbCrLf
Response.Write "<TD align=center><a href="&rs("download")&" target=_blank><img src=/images/xiaz.jpg width=70 height=25 border=0></a>" & vbCrLf
Response.Write "<TD align=center><a href="&rs("homepage")&" target=_blank><img src=/images/chak.jpg width=70 height=25 border=0></a>" & vbCrLf
Response.Write "</TR>" & vbCrLf
end if
rs.movenext
wend 
rs.close
end if
end sub
'=================================================
'过程名：night_22_1
'作  用：后天+1即将开放游戏←精品通宵推荐
'=================================================
sub night_22_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.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.Daytime"
sql=sql&" from Gq_sfdata,Gq_GameType where Gq_sfdata.gameid=Gq_GameType.id and datediff('d',Gq_sfdata.Sdate,now())=-3"
sql=sql&" and Gq_sfdata.ulock=1 and Gq_sfdata.hot=2 and Gq_sfdata.gameid="&menu&" 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 QiKuCMS.Checkday(rs("hottime"),rs("Daytime")) then
Response.Write "<TR bgColor=#ffff00 onmouseover=javascript:this.bgColor='#FFFF98' onmouseout=javascript:this.bgColor='#ffff00'>" & vbCrLf
Response.Write "<TD>"&QiKuCMS.zx_101&"<img src=/images/Vip.gif width=22 height=22 border=0><a href="&rs("homepage")&" target=_blank><font color=#FF0000>"&rs("name")&"</a></TD>" & vbCrLf
Response.Write "<TD><font color=#FF0000><a href="&rs("download")&" target=_blank>"&rs("IP")&"</a></TD>" & vbCrLf
Response.Write "<TD align=center>"
%><font color=#FF0000><%if rs("Sdate")<>"" then response.write month(rs("sdate"))&"月"&day(rs("Sdate"))&"日"%>-通宵固顶</font>
<%
Response.Write "<TD><font color=#FF0000>"&left(rs("xingzhi"),30)&"<font color=blue>←推荐</TD>" & vbCrLf
Response.Write "<TD align=center><a href="&rs("download")&" target=_blank><img src=/images/xiaz.jpg width=70 height=25 border=0></a>" & vbCrLf
Response.Write "<TD align=center><a href="&rs("homepage")&" target=_blank><img src=/images/chak.jpg width=70 height=25 border=0></a>" & vbCrLf
Response.Write "</TR>" & vbCrLf
end if
rs.movenext
wend 
rs.close
end if
end sub
'=================================================
'过程名：days_2_2
'作  用：后天+2即将开放游戏←推荐游戏
'=================================================
sub days_2_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.QQ,Gq_sfdata.xingzhi,Gq_sfdata.homepage,Gq_sfdata.download,Gq_sfdata.gameid,Gq_GameType.game,Gq_sfdata.download,Gq_sfdata.hot,Gq_sfdata.BestTime,Gq_sfdata.Daytime"
sql=sql&" from Gq_sfdata,Gq_GameType where Gq_sfdata.gameid=Gq_GameType.id and datediff('d',Gq_sfdata.Sdate,now())=-4"
sql=sql&" and Gq_sfdata.ulock=1 and Gq_sfdata.isBest="&SFstatus&" and Gq_sfdata.gameid="&menu&" 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 QiKuCMS.Checkday(rs("BestTime"),rs("Daytime")) then
Response.Write "<TR bgColor="&QiKuCMS.bg_3&" onmouseover=javascript:this.bgColor='"&QiKuCMS.bg_3_3&"' onmouseout=javascript:this.bgColor='"&QiKuCMS.bg_3&"'>" & vbCrLf
Response.Write "<TD>"&QiKuCMS.zx_99&"<a href="&rs("homepage")&" target=_blank>"&rs("name")&"</a></TD>" & vbCrLf
Response.Write "<TD><a href="&rs("download")&" target=_blank>"&rs("IP")&"</a></TD>" & vbCrLf
Response.Write "<TD align=center>"
%><font color=#FF0000><%if rs("Sdate")<>"" then response.write 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")&":" 
else 
if Rs("hour")<12 then 
response.write " "&Rs("hour")&":" 
else 
if Rs("hour")>12 and Rs("hour")<=17 then 
response.write " "&Rs("hour")&":" 
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 "00开放" 
else 
if Rs("minute")>=30 then 
response.write "30开放" 
end if 
end if%></font><%
Response.Write "<TD>"&left(rs("xingzhi"),30)&"<font color=blue>←推荐</TD>" & vbCrLf
Response.Write "<TD align=center><a href="&rs("download")&" target=_blank><img src=/images/xiaz.jpg width=70 height=25 border=0></a>" & vbCrLf
Response.Write "<TD align=center><a href="&rs("homepage")&" target=_blank><img src=/images/chak.jpg width=70 height=25 border=0></a>" & vbCrLf
Response.Write "</TR>" & vbCrLf
end if
rs.movenext
wend 
rs.close
end if
end sub
'=================================================
'过程名：SetRed_ads_4
'作  用：精品推荐游戏
'=================================================
sub SetRed_ads_4()
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.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.Daytime"
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="&menu&" and datediff('d',Gq_sfdata.Sdate,now())=-4 order by Gq_sfdata.jpid"
Rs.Open Sql,Conn,1,1
if rs.eof and rs.bof then
rs.close
else
while not rs.eof
if QiKuCMS.Checkday(rs("finetime"),rs("Daytime")) then
Response.Write "<TR bgColor="&QiKuCMS.bg_1&" onmouseover=javascript:this.bgColor='"&QiKuCMS.bg_1_1&"' onmouseout=javascript:this.bgColor='"&QiKuCMS.bg_1&"'>" & vbCrLf
Response.Write "<TD>"&QiKuCMS.zx_11&"<a href="&rs("homepage")&" target=_blank><font color=#FF0000>"&rs("name")&"</a></TD>" & vbCrLf
Response.Write "<TD><font color=#FF0000><a href="&rs("download")&" target=_blank>"&rs("IP")&"</a></TD>" & vbCrLf
Response.Write "<TD align=center>"
%>
<font color=#FF34B3><b><%=QiKuCMS.IsNews%></b></font>
<%
Response.Write "<TD><font color=#FF0000>"&left(rs("xingzhi"),30)&"<font color=blue>←推荐</TD>" & vbCrLf
Response.Write "<TD align=center><a href="&rs("download")&" target=_blank><img src=/images/xiaz.jpg width=70 height=25 border=0></a>" & vbCrLf
Response.Write "<TD align=center><a href="&rs("homepage")&" target=_blank><img src=/images/chak.jpg width=70 height=25 border=0></a>" & vbCrLf
Response.Write "</TR>" & vbCrLf
end if
rs.movenext
wend 
rs.close
end if
end sub
'=================================================
'过程名：night_2_2
'作  用：后天+2即将开放游戏←通宵推荐
'=================================================
sub night_2_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.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.Daytime"
sql=sql&" from Gq_sfdata,Gq_GameType where Gq_sfdata.gameid=Gq_GameType.id and datediff('d',Gq_sfdata.Sdate,now())=-4"
sql=sql&" and Gq_sfdata.ulock=1 and Gq_sfdata.hot=1 and Gq_sfdata.gameid="&menu&" 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 QiKuCMS.Checkday(rs("hottime"),rs("Daytime")) then
Response.Write "<TR bgColor="&QiKuCMS.bg_3&" onmouseover=javascript:this.bgColor='"&QiKuCMS.bg_3_3&"' onmouseout=javascript:this.bgColor='"&QiKuCMS.bg_3&"'>" & vbCrLf
Response.Write "<TD>"&QiKuCMS.zx_102&"<a href="&rs("homepage")&" target=_blank>"&rs("name")&"</a></TD>" & vbCrLf
Response.Write "<TD><a href="&rs("download")&" target=_blank>"&rs("IP")&"</a></TD>" & vbCrLf
Response.Write "<TD align=center>"
%><font color=#FF0000><%if rs("Sdate")<>"" then response.write month(rs("sdate"))&"月"&day(rs("Sdate"))&"日"%>-通宵推荐</font>
<%
Response.Write "<TD>"&left(rs("xingzhi"),30)&"<font color=blue>←推荐</TD>" & vbCrLf
Response.Write "<TD align=center><a href="&rs("download")&" target=_blank><img src=/images/xiaz.jpg width=70 height=25 border=0></a>" & vbCrLf
Response.Write "<TD align=center><a href="&rs("homepage")&" target=_blank><img src=/images/chak.jpg width=70 height=25 border=0></a>" & vbCrLf
Response.Write "</TR>" & vbCrLf
end if
rs.movenext
wend 
rs.close
end if
end sub
'=================================================
'过程名：night_22_2
'作  用：后天+2即将开放游戏←精品通宵推荐
'=================================================
sub night_22_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.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.Daytime"
sql=sql&" from Gq_sfdata,Gq_GameType where Gq_sfdata.gameid=Gq_GameType.id and datediff('d',Gq_sfdata.Sdate,now())=-4"
sql=sql&" and Gq_sfdata.ulock=1 and Gq_sfdata.hot=2 and Gq_sfdata.gameid="&menu&" 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 QiKuCMS.Checkday(rs("hottime"),rs("Daytime")) then
Response.Write "<TR bgColor=#ffff00 onmouseover=javascript:this.bgColor='#FFFF98' onmouseout=javascript:this.bgColor='#ffff00'>" & vbCrLf
Response.Write "<TD>"&QiKuCMS.zx_101&"<a href="&rs("homepage")&" target=_blank><font color=#FF0000>"&rs("name")&"</a></TD>" & vbCrLf
Response.Write "<TD><font color=#FF0000><a href="&rs("download")&" target=_blank>"&rs("IP")&"</a></TD>" & vbCrLf
Response.Write "<TD align=center>"
%><font color=#FF0000><%if rs("Sdate")<>"" then response.write month(rs("sdate"))&"月"&day(rs("Sdate"))&"日"%>-通宵固顶</font>
<%
Response.Write "<TD><font color=#FF0000>"&left(rs("xingzhi"),30)&"<font color=blue>←推荐</TD>" & vbCrLf
Response.Write "<TD align=center><a href="&rs("download")&" target=_blank><img src=/images/xiaz.jpg width=70 height=25 border=0></a>" & vbCrLf
Response.Write "<TD align=center><a href="&rs("homepage")&" target=_blank><img src=/images/chak.jpg width=70 height=25 border=0></a>" & vbCrLf
Response.Write "</TR>" & vbCrLf
end if
rs.movenext
wend 
rs.close
end if
end sub
'=================================================
'过程名：days_2_3
'作  用：后天+3即将开放游戏←推荐游戏
'=================================================
sub days_2_3
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.QQ,Gq_sfdata.xingzhi,Gq_sfdata.homepage,Gq_sfdata.download,Gq_sfdata.gameid,Gq_GameType.game,Gq_sfdata.download,Gq_sfdata.hot,Gq_sfdata.BestTime,Gq_sfdata.Daytime"
sql=sql&" from Gq_sfdata,Gq_GameType where Gq_sfdata.gameid=Gq_GameType.id and datediff('d',Gq_sfdata.Sdate,now())=-5"
sql=sql&" and Gq_sfdata.ulock=1 and Gq_sfdata.isBest="&SFstatus&" and Gq_sfdata.gameid="&menu&" 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 QiKuCMS.Checkday(rs("BestTime"),rs("Daytime")) then
Response.Write "<TR bgColor="&QiKuCMS.bg_3&" onmouseover=javascript:this.bgColor='"&QiKuCMS.bg_3_3&"' onmouseout=javascript:this.bgColor='"&QiKuCMS.bg_3&"'>" & vbCrLf
Response.Write "<TD>"&QiKuCMS.zx_99&"<a href="&rs("homepage")&" target=_blank>"&rs("name")&"</a></TD>" & vbCrLf
Response.Write "<TD><a href="&rs("download")&" target=_blank>"&rs("IP")&"</a></TD>" & vbCrLf
Response.Write "<TD align=center>"
%><font color=#FF0000><%if rs("Sdate")<>"" then response.write 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")&":" 
else 
if Rs("hour")<12 then 
response.write " "&Rs("hour")&":" 
else 
if Rs("hour")>12 and Rs("hour")<=17 then 
response.write " "&Rs("hour")&":" 
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 "00开放" 
else 
if Rs("minute")>=30 then 
response.write "30开放" 
end if 
end if%></font><%
Response.Write "<TD>"&left(rs("xingzhi"),30)&"<font color=blue>←推荐</TD>" & vbCrLf
Response.Write "<TD align=center><a href="&rs("download")&" target=_blank><img src=/images/xiaz.jpg width=70 height=25 border=0></a>" & vbCrLf
Response.Write "<TD align=center><a href="&rs("homepage")&" target=_blank><img src=/images/chak.jpg width=70 height=25 border=0></a>" & vbCrLf
Response.Write "</TR>" & vbCrLf
end if
rs.movenext
wend 
rs.close
end if
end sub
'=================================================
'过程名：SetRed_ads_5
'作  用：精品推荐游戏
'=================================================
sub SetRed_ads_5()
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.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.Daytime"
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="&menu&" and datediff('d',Gq_sfdata.Sdate,now())=-5 order by Gq_sfdata.jpid"
Rs.Open Sql,Conn,1,1
if rs.eof and rs.bof then
rs.close
else
while not rs.eof
if QiKuCMS.Checkday(rs("finetime"),rs("Daytime")) then
Response.Write "<TR bgColor="&QiKuCMS.bg_1&" onmouseover=javascript:this.bgColor='"&QiKuCMS.bg_1_1&"' onmouseout=javascript:this.bgColor='"&QiKuCMS.bg_1&"'>" & vbCrLf
Response.Write "<TD>"&QiKuCMS.zx_11&"<a href="&rs("homepage")&" target=_blank><font color=#FF0000>"&rs("name")&"</a></TD>" & vbCrLf
Response.Write "<TD><font color=#FF0000><a href="&rs("download")&" target=_blank>"&rs("IP")&"</a></TD>" & vbCrLf
Response.Write "<TD align=center>"
%>
<font color=#FF34B3><b><%=QiKuCMS.IsNews%></b></font>
<%
Response.Write "<TD><font color=#FF0000>"&left(rs("xingzhi"),30)&"<font color=blue>←推荐</TD>" & vbCrLf
Response.Write "<TD align=center><a href="&rs("download")&" target=_blank><img src=/images/xiaz.jpg width=70 height=25 border=0></a>" & vbCrLf
Response.Write "<TD align=center><a href="&rs("homepage")&" target=_blank><img src=/images/chak.jpg width=70 height=25 border=0></a>" & vbCrLf
Response.Write "</TR>" & vbCrLf
end if
rs.movenext
wend 
rs.close
end if
end sub
'=================================================
'过程名：night_2_3
'作  用：后天+3即将开放游戏←通宵推荐
'=================================================
sub night_2_3
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.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.Daytime"
sql=sql&" from Gq_sfdata,Gq_GameType where Gq_sfdata.gameid=Gq_GameType.id and datediff('d',Gq_sfdata.Sdate,now())=-5"
sql=sql&" and Gq_sfdata.ulock=1 and Gq_sfdata.hot=1 and Gq_sfdata.gameid="&menu&" 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 QiKuCMS.Checkday(rs("hottime"),rs("Daytime")) then
Response.Write "<TR bgColor="&QiKuCMS.bg_3&" onmouseover=javascript:this.bgColor='"&QiKuCMS.bg_3_3&"' onmouseout=javascript:this.bgColor='"&QiKuCMS.bg_3&"'>" & vbCrLf
Response.Write "<TD>"&QiKuCMS.zx_102&"<a href="&rs("homepage")&" target=_blank>"&rs("name")&"</a></TD>" & vbCrLf
Response.Write "<TD><a href="&rs("download")&" target=_blank>"&rs("IP")&"</a></TD>" & vbCrLf
Response.Write "<TD align=center>"
%><font color=#FF0000><%if rs("Sdate")<>"" then response.write month(rs("sdate"))&"月"&day(rs("Sdate"))&"日"%>-通宵推荐</font>
<%
Response.Write "<TD>"&left(rs("xingzhi"),30)&"<font color=blue>←推荐</font></TD>" & vbCrLf
Response.Write "<TD align=center><a href="&rs("download")&" target=_blank><img src=/images/xiaz.jpg width=70 height=25 border=0></a>" & vbCrLf
Response.Write "<TD align=center><a href="&rs("homepage")&" target=_blank><img src=/images/chak.jpg width=70 height=25 border=0></a>" & vbCrLf
Response.Write "</TR>" & vbCrLf
end if
rs.movenext
wend 
rs.close
end if
end sub
'=================================================
'过程名：night_22_3
'作  用：后天+3即将开放游戏←精品通宵推荐
'=================================================
sub night_22_3
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.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.Daytime"
sql=sql&" from Gq_sfdata,Gq_GameType where Gq_sfdata.gameid=Gq_GameType.id and datediff('d',Gq_sfdata.Sdate,now())=-5"
sql=sql&" and Gq_sfdata.ulock=1 and Gq_sfdata.hot=2 and Gq_sfdata.gameid="&menu&" 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 QiKuCMS.Checkday(rs("hottime"),rs("Daytime")) then
Response.Write "<TR bgColor=#ffff00 onmouseover=javascript:this.bgColor='#FFFF98' onmouseout=javascript:this.bgColor='#fffff'>" & vbCrLf
Response.Write "<TD>"&QiKuCMS.zx_101&"<a href="&rs("homepage")&" target=_blank><font color=#FF0000>"&rs("name")&"</a></TD>" & vbCrLf
Response.Write "<TD><font color=#FF0000><a href="&rs("download")&" target=_blank>"&rs("IP")&"</a></TD>" & vbCrLf
Response.Write "<TD align=center>"
%><font color=#FF0000><%if rs("Sdate")<>"" then response.write month(rs("sdate"))&"月"&day(rs("Sdate"))&"日"%>-通宵固顶</font>
<%
Response.Write "<TD><font color=#FF0000>"&left(rs("xingzhi"),30)&"<font color=blue>←推荐</TD>" & vbCrLf
Response.Write "<TD align=center><a href="&rs("download")&" target=_blank><img src=/images/xiaz.jpg width=70 height=25 border=0></a>" & vbCrLf
Response.Write "<TD align=center><a href="&rs("homepage")&" target=_blank><img src=/images/chak.jpg width=70 height=25 border=0></a>" & vbCrLf
Response.Write "</TR>" & vbCrLf
end if
rs.movenext
wend 
rs.close
end if
end sub
'=================================================
'过程名：yesterday
'作  用：昨天已经开放游戏←推荐游戏
'=================================================
sub yesterday
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.QQ,Gq_sfdata.xingzhi,Gq_sfdata.homepage,Gq_sfdata.download,Gq_sfdata.gameid,Gq_GameType.game,Gq_sfdata.download,Gq_sfdata.hot,Gq_sfdata.BestTime,Gq_sfdata.Daytime"
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.isBest="&SFstatus&" and Gq_sfdata.gameid="&menu&" 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
while not rs.eof
if QiKuCMS.Checkday(rs("BestTime"),rs("Daytime")) then
Response.Write "<TR bgColor="&QiKuCMS.bg_4&" onmouseover=javascript:this.bgColor='"&QiKuCMS.bg_4_4&"' onmouseout=javascript:this.bgColor='"&QiKuCMS.bg_4&"'>" & vbCrLf
Response.Write "<TD>"&QiKuCMS.zx_88&"<img src=/images/Vip_R1.gif width=22 height=22 border=0><a href="&rs("homepage")&" target=_blank>"&rs("name")&"</a></TD>" & vbCrLf
Response.Write "<TD><a href="&rs("download")&" target=_blank>"&rs("IP")&"</a></TD>" & vbCrLf
Response.Write "<TD align=center>"
%><font color=#FF0000><%if rs("Sdate")<>"" then response.write 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")&":" 
else 
if Rs("hour")<12 then 
response.write " "&Rs("hour")&":" 
else 
if Rs("hour")>12 and Rs("hour")<=17 then 
response.write " "&Rs("hour")&":" 
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 "00开放" 
else 
if Rs("minute")>=30 then 
response.write "30开放" 
end if 
end if%><%
Response.Write "<TD>"&left(rs("xingzhi"),30)&"<font color=blue>←推荐</TD>" & vbCrLf
Response.Write "<TD align=center><a href="&rs("download")&" target=_blank><img src=/images/xiaz.jpg width=70 height=25 border=0></a>" & vbCrLf
Response.Write "<TD align=center><a href="&rs("homepage")&" target=_blank><img src=/images/chak.jpg width=70 height=25 border=0></a>" & vbCrLf
Response.Write "</TR>" & vbCrLf
end if
rs.movenext
wend 
rs.close
end if
end sub
'=================================================
'过程名：yesterday1
'作  用：前天已经开放游戏←推荐游戏
'=================================================
sub yesterday1
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.QQ,Gq_sfdata.xingzhi,Gq_sfdata.homepage,Gq_sfdata.download,Gq_sfdata.gameid,Gq_GameType.game,Gq_sfdata.download,Gq_sfdata.hot,Gq_sfdata.BestTime,Gq_sfdata.Daytime"
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.isBest="&SFstatus&" and Gq_sfdata.gameid="&menu&" 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
while not rs.eof
if QiKuCMS.Checkday(rs("BestTime"),rs("Daytime")) then
Response.Write "<TR bgColor="&QiKuCMS.bg_4&" onmouseover=javascript:this.bgColor='"&QiKuCMS.bg_4_4&"' onmouseout=javascript:this.bgColor='"&QiKuCMS.bg_4&"'>" & vbCrLf
Response.Write "<TD>"&QiKuCMS.zx_99&"<img src=/images/Vip_R1.gif width=22 height=22 border=0><a href="&rs("homepage")&" target=_blank>"&rs("name")&"</a></TD>" & vbCrLf
Response.Write "<TD><a href="&rs("download")&" target=_blank>"&rs("IP")&"</a></TD>" & vbCrLf
Response.Write "<TD align=center>"
%><font color=#FF0000><%if rs("Sdate")<>"" then response.write 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")&":" 
else 
if Rs("hour")<12 then 
response.write " "&Rs("hour")&":" 
else 
if Rs("hour")>12 and Rs("hour")<=17 then 
response.write " "&Rs("hour")&":" 
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 "00开放" 
else 
if Rs("minute")>=30 then 
response.write "30开放" 
end if 
end if%><%
Response.Write "<TD>"&left(rs("xingzhi"),30)&"<font color=blue>←推荐</TD>" & vbCrLf
Response.Write "<TD align=center><a href="&rs("download")&" target=_blank><img src=/images/xiaz.jpg width=70 height=25 border=0></a>" & vbCrLf
Response.Write "<TD align=center><a href="&rs("homepage")&" target=_blank><img src=/images/chak.jpg width=70 height=25 border=0></a>" & vbCrLf
Response.Write "</TR>" & vbCrLf
end if
rs.movenext
wend 
rs.close
end if
end sub
'=================================================
'过程名：Free
'作  用：所有免费游戏列表
'=================================================
sub Free
sql="select top 30 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.QQ,Gq_sfdata.xingzhi,Gq_sfdata.homepage,Gq_sfdata.download,Gq_sfdata.gameid,Gq_GameType.game,Gq_sfdata.download,Gq_sfdata.hot,Gq_sfdata.hits"
sql=sql&" from Gq_sfdata,Gq_GameType where Gq_sfdata.gameid=Gq_GameType.id and Gq_sfdata.ulock=1 and Gq_sfdata.gameid="&menu&" order by Gq_sfdata.Sdate desc,Gq_sfdata.hour desc,Gq_sfdata.minute desc"
Rs.Open Sql,Conn,1,1
if rs.eof and rs.bof then
rs.close
else
do while not rs.eof
Response.Write "<TR bgColor="&QiKuCMS.bg_4&" onmouseover=javascript:this.bgColor='"&QiKuCMS.bg_4_4&"' onmouseout=javascript:this.bgColor='"&QiKuCMS.bg_4&"'>" & vbCrLf
Response.Write "<TD>"&QiKuCMS.zx_99&"<img src=/images/Vip_R1.gif width=22 height=22 border=0><a href="&rs("homepage")&" target=_blank>"&rs("name")&"</a></TD>" & vbCrLf
Response.Write "<TD><a href="&rs("download")&" target=_blank>"&rs("IP")&"</a></TD>" & vbCrLf
Response.Write "<TD align=center>"
if rs("Sdate")<>"" then response.write 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")&":" 
else 
if Rs("hour")<12 then 
response.write " "&Rs("hour")&":" 
else 
if Rs("hour")>12 and Rs("hour")<=17 then 
response.write " "&Rs("hour")&":" 
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 "00开放" 
else 
if Rs("minute")>=30 then 
response.write "30开放" 
end if 
end if
Response.Write "<TD>"&left(rs("xingzhi"),30)&"<font color=blue>←推荐</TD>" & vbCrLf
Response.Write "<TD align=center><a href="&rs("download")&" target=_blank><img src=/images/xiaz.jpg width=70 height=25 border=0></a>" & vbCrLf
Response.Write "<TD align=center><a href="&rs("homepage")&" target=_blank><img src=/images/chak.jpg width=70 height=25 border=0></a>" & vbCrLf
Response.Write "</TR>" & vbCrLf
rs.movenext
loop
rs.close
end if
end sub
End Class
%>
