<%
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 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 Gq_sfdata.gameid="&menu&" and datediff('d',Gq_sfdata.Sdate,now())=-0"
Rs.Open Sql,Conn,1,1
rssum=rs(0)
rs.close
%>
<%
sql="select Gq_sfdata.id,Gq_sfdata.name,Gq_sfdata.count,Gq_sfdata.IP,Gq_sfdata.jpid,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.Fine 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.jpid desc"
Rs.Open Sql,Conn,1,1
nums=rssum
for i=1 to nums
%>
<%for y=1 to rs("count")%><dl class=nowopen style="background:<%=qikucms.bg_1%>" onmouseover=this.style.backgroundColor="<%=qikucms.bg_1_1%>" onmouseout=this.style.backgroundColor="<%=qikucms.bg_1%>"><dd class="mc"><a href=<%=sitesflook%>id=<%=rs("id")%> target=_blank><%=rs("name")%></a></dd><dd class="ip"><a href=<%=sitesflook%>id=<%=rs("id")%> target=_blank><%=rs("IP")%></a></dd><dd class="sja"><span class="STYLE4"><strong><font color=#000000><%=rs("jpid")%></font> <%=QiKuCMS.IsNews%></strong></span></dd><dd class="xl"><%if rs("Service") = 0 then%><font color=#FF0000><%=rs("Addr")%></font><%else%><%if rs("Service") = 1 then%><font color=#0000FF><%=rs("Addr")%></font><%else%><%=rs("Addr")%><%end if%><%end if%></dd><dd class="qq"><%=rs("QQ")%></dd><dd class="js"><%=rs("xingzhi")%>←<font color="#40E0D0">推荐</font></dd><dt class="xx"><%if qikucms.sfLook = 1 then%><a href=../Game/<%= rs("id") %>.html target=_blank><%else%><a href=<%=sitesflook%>id=<%=rs("id")%> target=_blank><%end if%><b>点击查看</b></a></dt></dl><%next%>
<%
rs.movenext
next
rs.close
%>
<%
end sub
'=================================================
'过程名：SetRed_ads_1
'作  用：明日精品
'=================================================
sub SetRed_ads_1()
%>
<%
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 Gq_sfdata.gameid="&menu&" and datediff('d',Gq_sfdata.Sdate,now())=-1"
Rs.Open Sql,Conn,1,1
rssum=rs(0)
rs.close
%>
<%
sql="select Gq_sfdata.id,Gq_sfdata.name,Gq_sfdata.count,Gq_sfdata.IP,Gq_sfdata.jpid,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.Fine 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())=-1 order by Gq_sfdata.jpid desc"
Rs.Open Sql,Conn,1,1
nums=rssum
for i=1 to nums
%>
<%for y=1 to rs("count")%><dl class=nowopen style="background:<%=qikucms.bg_1%>" onmouseover=this.style.backgroundColor="<%=qikucms.bg_1_1%>" onmouseout=this.style.backgroundColor="<%=qikucms.bg_1%>"><dd class="mc"><a href=<%=sitesflook%>id=<%=rs("id")%> target=_blank><%=rs("name")%></a></dd><dd class="ip"><a href=<%=sitesflook%>id=<%=rs("id")%> target=_blank><%=rs("IP")%></a></dd><dd class="sja"><span class="STYLE4"><strong><font color=#000000><%=rs("jpid")%></font> <%=QiKuCMS.IsNews%></strong></span></dd><dd class="xl"><%if rs("Service") = 0 then%><font color=#FF0000><%=rs("Addr")%></font><%else%><%if rs("Service") = 1 then%><font color=#0000FF><%=rs("Addr")%></font><%else%><%=rs("Addr")%><%end if%><%end if%></dd><dd class="qq"><%=rs("QQ")%></dd><dd class="js"><%=rs("xingzhi")%>←<font color="#FF0000">推荐</font></dd><dt class="xx"><%if qikucms.sfLook = 1 then%><a href=../Game/<%= rs("id") %>.html target=_blank><%else%><a href=<%=sitesflook%>id=<%=rs("id")%> target=_blank><%end if%>点击查看</a></dt></dl><%next%>
<%
rs.movenext
next
rs.close
%>
<%
end sub
'=================================================
'过程名：SetRed_ads_2
'作  用：后天精品
'=================================================
sub SetRed_ads_2()
%>
<%
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 Gq_sfdata.gameid="&menu&" and datediff('d',Gq_sfdata.Sdate,now())=-2"
Rs.Open Sql,Conn,1,1
rssum=rs(0)
rs.close
%>
<%
sql="select Gq_sfdata.id,Gq_sfdata.name,Gq_sfdata.count,Gq_sfdata.IP,Gq_sfdata.jpid,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.Fine 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())=-2 order by Gq_sfdata.jpid desc"
Rs.Open Sql,Conn,1,1
nums=rssum
for i=1 to nums
%>
<%for y=1 to rs("count")%><dl class=nowopen style="background:<%=qikucms.bg_1%>" onmouseover=this.style.backgroundColor="<%=qikucms.bg_1_1%>" onmouseout=this.style.backgroundColor="<%=qikucms.bg_1%>"><dd class="mc"><a href=<%=sitesflook%>id=<%=rs("id")%> target=_blank><%=rs("name")%></a></dd><dd class="ip"><a href=<%=sitesflook%>id=<%=rs("id")%> target=_blank><%=rs("IP")%></a></dd><dd class="sja"><span class="STYLE4"><strong><font color=#000000><%=rs("jpid")%></font> <%=QiKuCMS.IsNews%></strong></span></dd><dd class="xl"><%if rs("Service") = 0 then%><font color=#FF0000><%=rs("Addr")%></font><%else%><%if rs("Service") = 1 then%><font color=#0000FF><%=rs("Addr")%></font><%else%><%=rs("Addr")%><%end if%><%end if%></dd><dd class="qq"><%=rs("QQ")%></dd><dd class="js"><%=rs("xingzhi")%>←<font color="#FF0000">推荐</font></dd><dt class="xx"><%if qikucms.sfLook = 1 then%><a href=../Game/<%= rs("id") %>.html target=_blank><%else%><a href=<%=sitesflook%>id=<%=rs("id")%> target=_blank><%end if%>点击查看</a></dt></dl><%next%>
<%
rs.movenext
next
rs.close
%>
<%
end sub
'=================================================
'过程名：SetRed_ads0
'作  用：精品推荐私服，按照天数计算
'=================================================
sub SetRed_ads0()
%>
<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=9 and Gq_sfdata.gameid="&menu&" and datediff('n',Gq_sfdata.addtime,now())<=(Gq_sfdata.Daytime*24*60) and now()>Gq_sfdata.addtime"
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,Gq_sfdata.count from Gq_sfdata,Gq_GameType where Gq_sfdata.gameid=Gq_GameType.id and Gq_sfdata.ulock=1 and Gq_sfdata.Fine=9 and Gq_sfdata.gameid="&menu&"  and datediff('n',Gq_sfdata.addtime,now())<=(Gq_sfdata.Daytime*24*60) and now()>Gq_sfdata.addtime order by Gq_sfdata.Sdate desc"
Rs.Open Sql,Conn,1,1
nums=rssum
for i=1 to nums
%>
theAds[<%=i%>]='<%for y=1 to rs("count")%><dl class=nowopen style="background:<%=qikucms.bg_2%>" onmouseover=this.style.backgroundColor="<%=qikucms.bg_2_2%>" onmouseout=this.style.backgroundColor="<%=qikucms.bg_2%>"><dd class="mc"><a href=<%=sitesflook%>id=<%=rs("id")%> target=_blank><%=rs("name")%></a></dd><dd class="ip"><a href=<%=sitesflook%>id=<%=rs("id")%> target=_blank><%=rs("IP")%></a></dd><dd class="sj"><%=month(Date())%>月/<%=day(Date())%>日/<% if hour(now)>=0 and hour(now)<7 then 
response.write "<font color=#0000FF>通宵固顶</font>" 
else 
if hour(now)>17 and hour(now)<24 then 
response.write "晚上"&hour(now)-12&"点" 
else 
if hour(now)<12 then 
response.write "上午"&hour(now)&"点" 
else 
if hour(now)>12 and hour(now)<=17 then 
response.write "下午"&hour(now)-12&"点" 
else 
if hour(now)=12 then 
response.write "中午"&hour(now)&"点" 
end if 
end if 
end if 
end if 
end if%><% if hour(now())<8 or minute(now)<30 then 
response.write"" 
else 
if minute(now)>=30 then 
response.write "半" 
end if 
end if%></dd><dd class="xl"><%if rs("Service") = 0 then%><font color=#000000><%=rs("Addr")%></font><%else%><%if rs("Service") = 1 then%><font color=#0000FF><%=rs("Addr")%></font><%else%><%=rs("Addr")%><%end if%><%end if%></dd><dd class="qq"><%=rs("QQ")%></dd><dd class="js"><div align="center"><%=rs("xingzhi")%>←<font color="#FF0000">推荐</font></dd><dt class="xx"><%if qikucms.sfLook = 1 then%><a href=../Game/<%= rs("id") %>.html target=_blank><%else%><a href=<%=sitesflook%>id=<%=rs("id")%> target=_blank><%end if%>点击查看</a></dt></dl></div><%next%>'
<%
rs.movenext
next
rs.close
%>
theAds2='';
var idx;
theAds = theAds.sort(function(){return Math.random()*new Date%3-1;});
for(idx = 0; idx < shu; idx++){
	document.write(dot+theAds[idx]);
	//if (idx < shu){document.write('');}
}
document.write(dot+theAds2);
</script>
<%
end sub
'=================================================
'过程名：SetRed_ads1
'作  用：套黄推荐私服，按照天数计算
'=================================================
sub SetRed_ads1()
%>
<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=9 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.count,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.Fine from Gq_sfdata,Gq_GameType where Gq_sfdata.gameid=Gq_GameType.id and Gq_sfdata.ulock=1 and Gq_sfdata.Fine=9 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%>]='<%for y=1 to rs("count")%><dl class=nowopen style="background:<%=qikucms.bg_1%>" onmouseover=this.style.backgroundColor="<%=qikucms.bg_1_1%>" onmouseout=this.style.backgroundColor="<%=qikucms.bg_1%>"><dd class="mc"><a href=<%=sitesflook%>id=<%=rs("id")%> target=_blank><%=rs("name")%></a></dd><dd class="ip"><a href=<%=sitesflook%>id=<%=rs("id")%> target=_blank><%=rs("IP")%></a></dd><dd class="sj"><b>★</b><strong><span class="STYLE4">明</span><span class="STYLE3">天</span><span class="STYLE6">套</span><span class="STYLE9">黄</span><span class="STYLE8">推</span><span class="STYLE8">荐</span><span class="STYLE6">★</span></strong></dd><dd class="xl"><%if rs("Service") = 0 then%><font color=#FF0000><%=rs("Addr")%></font><%else%><%if rs("Service") = 1 then%><font color=#0000FF><%=rs("Addr")%></font><%else%><%=rs("Addr")%><%end if%><%end if%></dd><dd class="qq"><%=rs("QQ")%></dd><dd class="js"><%=rs("xingzhi")%>←<font color="#FF0000">推荐</font></dd><dt class="xx"><%if qikucms.sfLook = 1 then%><a href=../Game/<%= rs("id") %>.html target=_blank><%else%><a href=<%=sitesflook%>id=<%=rs("id")%> target=_blank><%end if%>点击查看</a></dt></dl><%next%>'
<%
rs.movenext
next
rs.close
%>
theAds2='';
var idx;
theAds = theAds.sort(function(){return Math.random()*new Date%3-1;});
for(idx = 0; idx < shu; idx++){
	document.write(dot+theAds[idx]);
	//if (idx < shu){document.write('');}
}
document.write(dot+theAds2);
</script>
<%
end sub
'=================================================
'过程名：SetRed_ads2
'作  用：精品推荐私服，按照天数计算
'=================================================
sub SetRed_ads2()
%>
<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=9 and Gq_sfdata.gameid="&menu&" and datediff('d',Gq_sfdata.Sdate,now())=-2"
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.count,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.Fine from Gq_sfdata,Gq_GameType where Gq_sfdata.gameid=Gq_GameType.id and Gq_sfdata.ulock=1 and Gq_sfdata.Fine=9 and Gq_sfdata.gameid="&menu&" and datediff('d',Gq_sfdata.Sdate,now())=-2 order by Gq_sfdata.Sdate desc"
Rs.Open Sql,Conn,1,1
nums=rssum
for i=1 to nums
%>
theAds[<%=i%>]='<%for y=1 to rs("count")%><dl class=nowopen style="background:<%=qikucms.bg_1%>" onmouseover=this.style.backgroundColor="<%=qikucms.bg_1_1%>" onmouseout=this.style.backgroundColor="<%=qikucms.bg_1%>"><dd class="mc"><a href=<%=sitesflook%>id=<%=rs("id")%> target=_blank><%=rs("name")%></a></dd><dd class="ip"><a href=<%=sitesflook%>id=<%=rs("id")%> target=_blank><%=rs("IP")%></a></dd><dd class="sj"><b>★</b><strong><span class="STYLE4">后</span><span class="STYLE3">天</span><span class="STYLE6">套</span><span class="STYLE9">黄</span><span class="STYLE8">推</span><span class="STYLE8">荐</span><span class="STYLE6">★</strong></dd><dd class="xl"><%if rs("Service") = 0 then%><font color=#000000><%=rs("Addr")%></font><%else%><%if rs("Service") = 1 then%><font color=#0000FF><%=rs("Addr")%></font><%else%><%=rs("Addr")%><%end if%><%end if%></dd><dd class="qq"><%=rs("QQ")%></dd><dd class="js"><%=rs("xingzhi")%>←<font color="#FF0000">推荐</font></dd><dt class="xx"><%if qikucms.sfLook = 1 then%><a href=../Game/<%= rs("id") %>.html target=_blank><%else%><a href=<%=sitesflook%>id=<%=rs("id")%> target=_blank><%end if%>点击查看</a></dt></dl><%next%>'
<%
rs.movenext
next
rs.close
%>
theAds2='';
var idx;
theAds = theAds.sort(function(){return Math.random()*new Date%3-1;});
for(idx = 0; idx < shu; idx++){
	document.write(dot+theAds[idx]);
	//if (idx < shu){document.write('');}
}
document.write(dot+theAds2);
</script>
<%
end sub
'=================================================
'过程名：SetRed_adss
'作  用：精品推荐私服，按照天数计算
'=================================================
sub SetRed_adss()
%>
<%
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 Gq_sfdata.gameid="&menu&" and datediff('n',Gq_sfdata.addtime,now())<=(Gq_sfdata.Daytime*24*60) and datediff('d',Gq_sfdata.addtime,now()) and now()>Gq_sfdata.addtime"
Rs.Open Sql,Conn,1,1
rssum=rs(0)
rs.close
%>
<%
sql="select Gq_sfdata.id,Gq_sfdata.name,Gq_sfdata.jpid,Gq_sfdata.Daytime,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,Gq_sfdata.count 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('n',Gq_sfdata.addtime,now())<=(Gq_sfdata.Daytime*24*60) and datediff('d',Gq_sfdata.addtime,now()) and now()>Gq_sfdata.addtime order by Gq_sfdata.jpid desc"
Rs.Open Sql,Conn,1,1
nums=rssum
for i=1 to nums
%>
<%for y=1 to rs("count")%><dl class=nowopen style="background:<%=qikucms.bg_1%>" onmouseover=this.style.backgroundColor="<%=qikucms.bg_1_1%>" onmouseout=this.style.backgroundColor="<%=qikucms.bg_1%>"><dd class="mc"><a href=<%=sitesflook%>id=<%=rs("id")%> target=_blank><%=rs("name")%></a></dd><dd class="ip"><a href=<%=sitesflook%>id=<%=rs("id")%> target=_blank><%=rs("IP")%></a></dd><dd class="sja"><span class="STYLE4"><strong><font color=#000000><%=rs("jpid")%></font><%=QiKuCMS.IsNews%></strong></span></dd><dd class="xl"><%if rs("Service") = 0 then%><font color=#000000><%=rs("Addr")%></font><%else%><%if rs("Service") = 1 then%><font color=#0000FF><%=rs("Addr")%></font><%else%><%=rs("Addr")%><%end if%><%end if%></dd><dd class="qq"><%=rs("QQ")%></dd><dd class="js"><%=rs("xingzhi")%>←<font color="#FF0000">推荐</font></dd><dt class="xx"><%if qikucms.sfLook = 1 then%><a href=../Game/<%= rs("id") %>.html target=_blank><%else%><a href=<%=sitesflook%>id=<%=rs("id")%> target=_blank><%end if%>点击查看</a></dt></dl><%next%>
<%
rs.movenext
next
rs.close
%>
<%
end sub
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.Daytime,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,Gq_sfdata.count 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%>]='<%for y=1 to rs("count")%><dl class=nowopen style="background:<%=qikucms.bg_1%>" onmouseover=this.style.backgroundColor="<%=qikucms.bg_1_1%>" onmouseout=this.style.backgroundColor="<%=qikucms.bg_1%>"><dd class="mc"><a href=<%=sitesflook%>id=<%=rs("id")%> target=_blank><%=rs("name")%></a></dd><dd class="ip"><a href=<%=sitesflook%>id=<%=rs("id")%> target=_blank><%=rs("IP")%></a></dd><dd class="sj"><font color=#FF0000><%if rs("Sdate")<>"" then response.write month(rs("sdate"))&"月/"&day(rs("Sdate"))&"日/"%></font><font color=ff000>通宵推荐</font></dd><dd class="xl"><%if rs("Service") = 0 then%><font color=#000000><%=rs("Addr")%></font><%else%><%if rs("Service") = 1 then%><font color=#0000FF><%=rs("Addr")%></font><%else%><%=rs("Addr")%><%end if%><%end if%></dd><dd class="qq"><%=rs("QQ")%></dd><dd class="js"><%=rs("xingzhi")%>←<font color="#FF0000">推荐</font></dd><dt class="xx"><%if qikucms.sfLook = 1 then%><a href=../Game/<%= rs("id") %>.html target=_blank><%else%><a href=<%=sitesflook%>id=<%=rs("id")%> target=_blank><%end if%>点击查看</a></dt></dl><%next%>'
<%
rs.movenext
next
rs.close
%>
theAds2='';
var idx;
theAds = theAds.sort(function(){return Math.random()*new Date%3-1;});
for(idx = 0; idx < shu; idx++){
	document.write(dot+theAds[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,Gq_sfdata.count 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%>]='<%for y=1 to rs("count")%><dl class=nowopen style="background:<%=qikucms.bg_5%>" onmouseover=this.style.backgroundColor="<%=qikucms.bg_5_5%>" onmouseout=this.style.backgroundColor="<%=qikucms.bg_5%>"><dd class="mc"><a href=<%=sitesflook%>id=<%=rs("id")%> target=_blank><%=rs("name")%></a></dd><dd class="ip"><a href=<%=sitesflook%>id=<%=rs("id")%> target=_blank><%=rs("IP")%></a></dd><dd class="sj"><font color=#FF0000><%if rs("Sdate")<>"" then response.write month(rs("sdate"))&"月/"&day(rs("Sdate"))&"日/"%></font><font color=ff000>通宵推荐</font></dd><dd class="xl"><%if rs("Service") = 0 then%><font color=#000000><%=rs("Addr")%></font><%else%><%if rs("Service") = 1 then%><font color=#0000FF><%=rs("Addr")%></font><%else%><%=rs("Addr")%><%end if%><%end if%></dd><dd class="qq"><%=rs("QQ")%></dd><dd class="js">←<font color="#FF0000">推荐</font></dd><dt class="xx"><%if qikucms.sfLook = 1 then%><a href=../Game/<%= rs("id") %>.html target=_blank><%else%><a href=<%=sitesflook%>id=<%=rs("id")%> target=_blank><%end if%>点击查看</a></dt></dl><%next%>'
<%
rs.movenext
next
rs.close
%>
theAds2='';
var idx;
theAds = theAds.sort(function(){return Math.random()*new Date%3-1;});
for(idx = 0; idx < shu; idx++){
	document.write(dot+theAds[idx]);
	//if (idx < shu){document.write('');}
}
document.write(dot+theAds2);
</script>
<%
end sub
'=================================================
'过程名：Overnight_aa
'作  用：通宵推荐开始
'=================================================
sub Overnight_aa
%>
<%
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
%>
<%
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,Gq_sfdata.count 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
%>
<%for y=1 to rs("count")%><dl class=nowopen style="background:<%=qikucms.bg_6%>" onmouseover=this.style.backgroundColor="<%=qikucms.bg_6_6%>" onmouseout=this.style.backgroundColor="<%=qikucms.bg_6%>"><div align="center"><dd class="mc"><a href=<%=sitesflook%>id=<%=rs("id")%> target=_blank><%=rs("name")%></a></dd><dd class="ip"><a href=<%=sitesflook%>id=<%=rs("id")%> target=_blank><%=rs("IP")%></a></dd><dd class="sj"><font color=#007979><%if rs("Sdate")<>"" then response.write month(rs("sdate"))&"月/"&day(rs("Sdate"))&"日/"%></font><font color=#0000FF>通宵固顶</font></dd><dd class="xl"><%if rs("Service") = 0 then%><font color=#000000><%=rs("Addr")%></font><%else%><%if rs("Service") = 1 then%><font color=#0000FF><%=rs("Addr")%></font><%else%><%=rs("Addr")%><%end if%><%end if%></dd><dd class="qq"><font color=#000000><%=rs("QQ")%></dd></font><dd class="js"><%=rs("xingzhi")%>←<font color="#FF0000">推荐</font></dd><dt class="xx"><%if qikucms.sfLook = 1 then%><a href=../Game/<%= rs("id") %>.html target=_blank><%else%><a href=<%=sitesflook%>id=<%=rs("id")%> target=_blank><%end if%>点击查看</a></dt></dl></div><%next%>
<%
rs.movenext
next
rs.close
%>
<%
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,Gq_sfdata.count 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%>]='<%for y=1 to rs("count")%><dl class=nowopen style="background:<%=qikucms.bg_6%>" onmouseover=this.style.backgroundColor="<%=qikucms.bg_6_6%>" onmouseout=this.style.backgroundColor="<%=qikucms.bg_6%>"><dd class="mc"><a href=<%=sitesflook%>id=<%=rs("id")%> target=_blank><%=rs("name")%></a></dd><dd class="ip"><a href=<%=sitesflook%>id=<%=rs("id")%> target=_blank><%=rs("IP")%></a></dd><dd class="sj"><font color=#FF0000><%if rs("Sdate")<>"" then response.write month(rs("sdate"))&"月/"&day(rs("Sdate"))&"日/"%></font><font color=#0000FF>通宵固顶</font></dd><dd class="xl"><%if rs("Service") = 0 then%><font color=#000000><%=rs("Addr")%></font><%else%><%if rs("Service") = 1 then%><font color=#0000FF><%=rs("Addr")%></font><%else%><%=rs("Addr")%><%end if%><%end if%></dd><dd class="qq"><%=rs("QQ")%></dd><dd class="js"><%=rs("xingzhi")%>←<font color="#FF0000">推荐</font></dd><dt class="xx"><%if qikucms.sfLook = 1 then%><a href=../Game/<%= rs("id") %>.html target=_blank><%else%><a href=<%=sitesflook%>id=<%=rs("id")%> target=_blank><%end if%>点击查看</a></dt></dl><%next%>'
<%
rs.movenext
next
rs.close
%>
theAds2='';
var idx;
theAds = theAds.sort(function(){return Math.random()*new Date%3-1;});
for(idx = 0; idx < shu; idx++){
	document.write(dot+theAds[idx]);
	//if (idx < shu){document.write('');}
}
document.write(dot+theAds2);
</script>
<%
end sub
'=================================================
'过程名：Overnight_bbb
'作  用：通宵推荐结束
'=================================================
sub Overnight_bbb
%>
<%
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
%>
<%
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,Gq_sfdata.count 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
%>
<%for y=1 to rs("count")%><dl class=nowopen style="background:<%=qikucms.bg_6%>" onmouseover=this.style.backgroundColor="<%=qikucms.bg_6_6%>" onmouseout=this.style.backgroundColor="<%=qikucms.bg_6%>"><dd class="mc"><a href=<%=sitesflook%>id=<%=rs("id")%> target=_blank><%=rs("name")%></a></dd><dd class="ip"><a href=<%=sitesflook%>id=<%=rs("id")%> target=_blank><%=rs("IP")%></a></dd><dd class="sj"><font color=#FF0000><%if rs("Sdate")<>"" then response.write month(rs("sdate"))&"月/"&day(rs("Sdate"))&"日/"%></font><font color=#0000FF>通宵固顶</font></dd><dd class="xl"><%if rs("Service") = 0 then%><font color=#FF0000><%=rs("Addr")%></font><%else%><%if rs("Service") = 1 then%><font color=#0000FF><%=rs("Addr")%></font><%else%><%=rs("Addr")%><%end if%><%end if%></dd><dd class="qq"><%=rs("QQ")%></dd><dd class="js"><%=rs("xingzhi")%>←<font color="#FF0000">推荐</font></dd><dt class="xx"><%if qikucms.sfLook = 1 then%><a href=../Game/<%= rs("id") %>.html target=_blank><%else%><a href=<%=sitesflook%>id=<%=rs("id")%> target=_blank><%end if%>点击查看</a></dt></dl><%next%>
<%
rs.movenext
next
rs.close
%>
<%
end sub
'=================================================
'过程名：Overnight_bbbb
'作  用：通宵推荐结束
'=================================================
sub Overnight_bbbb
%>
<%
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())=-2"
Rs.Open Sql,Conn,1,1
rssum=rs(0)
rs.close
%>
<%
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,Gq_sfdata.count 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())=-2 order by Gq_sfdata.Sdate desc"
Rs.Open Sql,Conn,1,1
nums=rssum
for i=1 to nums
%>
<%for y=1 to rs("count")%><dl class=nowopen style="background:<%=qikucms.bg_6%>" onmouseover=this.style.backgroundColor="<%=qikucms.bg_6_6%>" onmouseout=this.style.backgroundColor="<%=qikucms.bg_6%>"><dd class="mc"><a href=<%=sitesflook%>id=<%=rs("id")%> target=_blank><%=rs("name")%></a></dd><dd class="ip"><a href=<%=sitesflook%>id=<%=rs("id")%> target=_blank><%=rs("IP")%></a></dd><dd class="sj"><font color=#FF0000><%if rs("Sdate")<>"" then response.write month(rs("sdate"))&"月/"&day(rs("Sdate"))&"日/"%></font><font color=#0000FF>通宵固顶</font></dd><dd class="xl"><%if rs("Service") = 0 then%><font color=#000000><%=rs("Addr")%></font><%else%><%if rs("Service") = 1 then%><font color=#0000FF><%=rs("Addr")%></font><%else%><font color=#000000><%=rs("Addr")%></font><%end if%><%end if%></dd><dd class="qq"><%=rs("QQ")%></dd><dd class="js"><%=rs("xingzhi")%>←<font color="#FF0000">推荐</font></dd><dt class="xx"><%if qikucms.sfLook = 1 then%><a href=../Game/<%= rs("id") %>.html target=_blank><%else%><a href=<%=sitesflook%>id=<%=rs("id")%> target=_blank><%end if%>点击查看</a></dt></dl><%next%>
<%
rs.movenext
next
rs.close
%>
<%
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,Gq_sfdata.count 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%>]='<%for y=1 to rs("count")%><dl class=nowopen style="background:<%=qikucms.bg_2%>" onmouseover=this.style.backgroundColor="<%=qikucms.bg_2_2%>" onmouseout=this.style.backgroundColor="<%=qikucms.bg_2%>"><dd class="mc"><a href=<%=sitesflook%>id=<%=rs("id")%> target=_blank><%=rs("name")%></a></dd><dd class="ip"><a href=<%=sitesflook%>id=<%=rs("id")%> target=_blank><%=rs("IP")%></a></dd><dd class="sj"><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 hour(now)>17 and hour(now)<24 then 
response.write "晚上"&hour(now)-12&"点" 
else 
if hour(now)<12 then 
response.write "上午"&hour(now)&"点" 
else 
if hour(now)>12 and hour(now)<=17 then 
response.write "下午"&hour(now)-12&"点" 
else 
if hour(now)=12 then 
response.write "中午"&hour(now)&"点" 
end if 
end if 
end if 
end if 
end if%><% if rs("hour")<24 and rs("minute")<30 then 
response.write"" 
else 
if rs("hour")<24 and rs("minute")>=30 then 
response.write "半" 
end if 
end if%></font></dd><dd class="xl"><%if rs("Service") = 0 then%><font color=#000000><%=rs("Addr")%></font><%else%><%if rs("Service") = 1 then%><font color=#0000FF><%=rs("Addr")%></font><%else%><%=rs("Addr")%><%end if%><%end if%></dd><dd class="qq"><%=rs("QQ")%></dd><dd class="js"><div align="center"><%=rs("xingzhi")%>←<font color="#FF0000">推荐</font></dd><dt class="xx"><%if qikucms.sfLook = 1 then%><a href=../Game/<%= rs("id") %>.html target=_blank><%else%><a href=<%=sitesflook%>id=<%=rs("id")%> target=_blank><%end if%>点击查看</a></dt></dl></div><%next%>'
<%
rs.movenext
next
rs.close
%>
theAds2='';
var idx;
theAds = theAds.sort(function(){return Math.random()*new Date%3-1;});
for(idx = 0; idx < shu; idx++){
	document.write(dot+theAds[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,Gq_sfdata.count 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%>]='<%for y=1 to rs("count")%><dl class=nowopen style="background:<%=qikucms.bg_2%>" onmouseover=this.style.backgroundColor="<%=qikucms.bg_2_2%>" onmouseout=this.style.backgroundColor="<%=qikucms.bg_2%>"><dd class="mc"><a href=<%=sitesflook%>id=<%=rs("id")%> target=_blank><%=rs("name")%></a></dd><dd class="ip"><a href=<%=sitesflook%>id=<%=rs("id")%> target=_blank><%=rs("IP")%></a></dd><dd class="sj"><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 hour(now)>17 and hour(now)<24 then 
response.write "晚上"&hour(now)-12&"点" 
else 
if hour(now)<12 then 
response.write "上午"&hour(now)&"点" 
else 
if hour(now)>12 and hour(now)<=17 then 
response.write "下午"&hour(now)-12&"点" 
else 
if hour(now)=12 then 
response.write "中午"&hour(now)&"点" 
end if 
end if 
end if 
end if 
end if%><% if rs("hour")<24 and rs("minute")<30 then 
response.write"" 
else 
if rs("hour")<24 and rs("minute")>=30 then 
response.write "半" 
end if 
end if%></font></dd><dd class="xl"><%if rs("Service") = 0 then%><font color=#000000><%=rs("Addr")%></font><%else%><%if rs("Service") = 1 then%><font color=#0000FF><%=rs("Addr")%></font><%else%><%=rs("Addr")%><%end if%><%end if%></dd><dd class="qq"><%=rs("QQ")%></dd><dd class="js"><%=rs("xingzhi")%>←<font color="#FF0000">推荐</font></dd><dt class="xx"><%if qikucms.sfLook = 1 then%><a href=../Game/<%= rs("id") %>.html target=_blank><%else%><a href=<%=sitesflook%>id=<%=rs("id")%> target=_blank><%end if%>点击查看</a></dt></dl><%next%>'
<%
rs.movenext
next
rs.close
%>
theAds2='';
var idx;
theAds = theAds.sort(function(){return Math.random()*new Date%3-1;});
for(idx = 0; idx < shu; idx++){
	document.write(dot+theAds[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,Gq_sfdata.count 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%>]='<%for y=1 to rs("count")%><dl class=nowopen style="background:<%=qikucms.bg_3%>" onmouseover=this.style.backgroundColor="<%=qikucms.bg_3_3%>" onmouseout=this.style.backgroundColor="<%=qikucms.bg_3%>"><dd class="mc"><a href=<%=sitesflook%>id=<%=rs("id")%> target=_blank><%=rs("name")%></a></dd><dd class="ip"><a href=<%=sitesflook%>id=<%=rs("id")%> target=_blank><%=rs("IP")%></a></dd><dd class="sj"><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 hour(now)>17 and hour(now)<24 then 
response.write "晚上"&hour(now)-12&"点" 
else 
if hour(now)<12 then 
response.write "上午"&hour(now)&"点" 
else 
if hour(now)>12 and hour(now)<=17 then 
response.write "下午"&hour(now)-12&"点" 
else 
if hour(now)=12 then 
response.write "中午"&hour(now)&"点" 
end if 
end if 
end if 
end if 
end if%><% if rs("hour")<24 and rs("minute")<30 then 
response.write"" 
else 
if rs("hour")<24 and rs("minute")>=30 then 
response.write "半" 
end if 
end if%></font></dd><dd class="xl"><%if rs("Service") = 0 then%><font color=#000000><%=rs("Addr")%></font><%else%><%if rs("Service") = 1 then%><font color=#0000FF><%=rs("Addr")%></font><%else%><%=rs("Addr")%><%end if%><%end if%></dd><dd class="qq"><%=rs("QQ")%></dd><dd class="js"><%=rs("xingzhi")%>←<font color="#FF0000">推荐</font></dd><dt class="xx"><%if qikucms.sfLook = 1 then%><a href=../Game/<%= rs("id") %>.html target=_blank><%else%><a href=<%=sitesflook%>id=<%=rs("id")%> target=_blank><%end if%>点击查看</a></dt></dl><%next%>'
<%
rs.movenext
next
rs.close
%>
theAds2='';
var idx;
theAds = theAds.sort(function(){return Math.random()*new Date%3-1;});
for(idx = 0; idx < shu; idx++){
	document.write(dot+theAds[idx]);
	//if (idx < shu){document.write('');}
}
document.write(dot+theAds2);
</script>
<%
end sub
'=================================================
'过程名：Today_00_30_1
'作  用：今日新开私服←过点私服
'=================================================
sub Today_00_30_1
If Version <> "CaiSF.comVer6.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.count,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
for y=1 to rs("count")
Response.Write "<dl class=nowopen style=background:"&qikucms.bg_3&" onmouseover=this.style.backgroundColor='"&qikucms.bg_3_3&"' onmouseout=this.style.backgroundColor='"&qikucms.bg_3&"'>" & vbCrLf
Response.Write "<dd class=mc><a href=/"&sitesflook&"id="&rs("id")&" target=_blank>"&rs("name")&"</a></dd>" & vbCrLf
Response.Write "<dd class=ip><a href=/"&sitesflook&"id="&rs("id")&" target=_blank>"&rs("IP")&"</a></dd>" & vbCrLf
Response.Write "<dd class=sj><font color=#01B468>"
%>
<%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")-12&"点" 
else 
if rs("hour")<12 then 
response.write "上午"&rs("hour")&"点" 
else 
if rs("hour")>12 and rs("hour")<=17 then 
response.write "下午"&rs("hour")-12&"点" 
else 
if rs("hour")=12 then 
response.write "中午"&rs("hour")&"点" 
end if 
end if 
end if 
end if 
end if%><% if rs("minute")<30 then 
response.write"" 
else 
if rs("minute")>=30 then 
response.write "半" 
end if 
end if%></font>
<%
Response.Write "</dd>" & vbCrLf
Response.Write "<dd class=xl>" & vbCrLf
if (rs("Service"))=0 then
Response.Write "<font color=#000000>"&rs("Addr")&"</font>" & vbCrLf
else
if (rs("Service"))=1 then
Response.Write "<font color=#0000FF>"&rs("Addr")&"</font>" & vbCrLf
else
Response.Write ""&rs("Addr")&"" & vbCrLf
end if
end if
Response.Write "</dd>" & vbCrLf
Response.Write "<dd class=qq>"&rs("QQ")&"</dd>" & vbCrLf
Response.Write "<dd class=js>"&rs("xingzhi")&"←<font color=#FF0000>推荐</font></dd>" & vbCrLf
Response.Write "<dt class=xx>" & vbCrLf
if qikucms.sfLook = 1 then
Response.Write "<a href=Game" & qikucms.ContentHtml(rs) & ".html target=_blank>点击查看</a>" & vbCrLf
else
Response.Write "<a href=/"&sitesflook&"id="&rs("id")&" target=_blank>点击查看</a>" & vbCrLf
end if
Response.Write "</dt>" & vbCrLf
Response.Write "</dl>" & vbCrLf
next
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,Gq_sfdata.count 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%>]='<%for y=1 to rs("count")%><dl class=nowopen style="background:<%=qikucms.bg_4%>" onmouseover=this.style.backgroundColor="<%=qikucms.bg_4_4%>" onmouseout=this.style.backgroundColor="<%=qikucms.bg_4%>"><dd class="mc"><a href=<%=sitesflook%>id=<%=rs("id")%> target=_blank><%=rs("name")%></a></dd><dd class="ip"><a href=<%=sitesflook%>id=<%=rs("id")%> target=_blank><%=rs("IP")%></a></dd><dd class="sj"><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 hour(now)>17 and hour(now)<24 then 
response.write "晚上"&hour(now)-12&"点" 
else 
if hour(now)<12 then 
response.write "上午"&hour(now)&"点" 
else 
if hour(now)>12 and hour(now)<=17 then 
response.write "下午"&hour(now)-12&"点" 
else 
if hour(now)=12 then 
response.write "中午"&hour(now)&"点" 
end if 
end if 
end if 
end if 
end if%><% if rs("hour")<24 and rs("minute")<30 then 
response.write"" 
else 
if rs("hour")<24 and rs("minute")>=30 then 
response.write "半" 
end if 
end if%></font></dd><dd class="xl"><%if rs("Service") = 0 then%><font color=#000000><%=rs("Addr")%></font><%else%><%if rs("Service") = 1 then%><font color=#0000FF><%=rs("Addr")%></font><%else%><%=rs("Addr")%><%end if%><%end if%></dd><dd class="qq"><font color=#000000><%=rs("QQ")%></dd></font><dd class="js"><%=rs("xingzhi")%>←<font color="#FF0000">推荐</font></dd><dt class="xx"><%if qikucms.sfLook = 1 then%><a href=../Game/<%= rs("id") %>.html target=_blank><%else%><a href=<%=sitesflook%>id=<%=rs("id")%> target=_blank><%end if%>点击查看</a></dt></dl><%next%>'
<%
rs.movenext
next
rs.close
%>
theAds2='';
var idx;
theAds = theAds.sort(function(){return Math.random()*new Date%3-1;});
for(idx = 0; idx < shu; idx++){
	document.write(dot+theAds[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.count,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
for y=1 to rs("count")

Response.Write "<dl class=nowopen style=background:"&qikucms.bg_4&" onmouseover=this.style.backgroundColor='"&qikucms.bg_4_4&"' onmouseout=this.style.backgroundColor='"&qikucms.bg_4&"'>" & vbCrLf
Response.Write "<dd class=mc><a href=/"&sitesflook&"id="&rs("id")&" target=_blank>"&rs("name")&"</a></dd>" & vbCrLf
Response.Write "<dd class=ip><a href=/"&sitesflook&"id="&rs("id")&" target=_blank>"&rs("IP")&"</a></dd>" & vbCrLf
Response.Write "<dd class=sj>"
%>
<%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")-12&"点" 
else 
if rs("hour")<12 then 
response.write "上午"&rs("hour")&"点" 
else 
if rs("hour")>12 and rs("hour")<=17 then 
response.write "下午"&rs("hour")-12&"点" 
else 
if rs("hour")=12 then 
response.write "中午"&rs("hour")&"点" 
end if 
end if 
end if 
end if 
end if%><% if rs("minute")<30 then 
response.write"" 
else 
if rs("minute")>=30 then 
response.write "半" 
end if 
end if%>
<%
Response.Write "</dd>" & vbCrLf
Response.Write "<dd class=xl>" & vbCrLf
if (rs("Service"))=0 then
Response.Write "<font color=#000000>"&rs("Addr")&"</font>" & vbCrLf
else
if (rs("Service"))=1 then
Response.Write "<font color=#0000FF>"&rs("Addr")&"</font>" & vbCrLf
else
Response.Write ""&rs("Addr")&"" & vbCrLf
end if
end if
Response.Write "</dd>" & vbCrLf
Response.Write "<dd class=qq>"&rs("QQ")&"</dd>" & vbCrLf
Response.Write "<dd class=js>"&rs("xingzhi")&"←<font color=#FF0000>推荐</font></dd>" & vbCrLf
Response.Write "<dt class=xx>" & vbCrLf
if qikucms.sfLook = 1 then
Response.Write "<a href=Game" & qikucms.ContentHtml(rs) & ".html target=_blank>点击查看</a>" & vbCrLf
else
Response.Write "<a href=/"&sitesflook&"id="&rs("id")&" target=_blank>点击查看</a>" & vbCrLf
end if
Response.Write "</dt>" & vbCrLf
Response.Write "</dl>" & vbCrLf
next
rs.movenext
loop
rs.close
end if
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,Gq_sfdata.count 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%>]='<%for y=1 to rs("count")%><dl class=nowopen style="background:<%=qikucms.bg_6%>" onmouseover=this.style.backgroundColor="<%=qikucms.bg_6_6%>" onmouseout=this.style.backgroundColor="<%=qikucms.bg_6%>"><dd class="mc"><a href=<%=sitesflook%>id=<%=rs("id")%> target=_blank><%=rs("name")%></a></dd><dd class="ip"><a href=<%=sitesflook%>id=<%=rs("id")%> target=_blank><%=rs("IP")%></a></dd><dd class="sj"><%if rs("Sdate")<>"" then response.write month(rs("sdate"))&"月/"&day(rs("Sdate"))&"日/"%>通宵推荐</dd><dd class="xl"><%if rs("Service") = 0 then%><font color=#000000><%=rs("Addr")%><%else%><%if rs("Service") = 1 then%></font><font color=#0000FF><%=rs("Addr")%><%else%><%=rs("Addr")%><%end if%><%end if%></font></dd><dd class="qq"><%=rs("QQ")%></dd><dd class="js"><font color=#000000><%=rs("xingzhi")%></font>←<font color="#FF0000">推荐</font></dd><dt class="xx"><%if qikucms.sfLook = 1 then%><a href=../Game/<%= rs("id") %>.html target=_blank><%else%><a href=<%=sitesflook%>id=<%=rs("id")%> target=_blank><%end if%>点击查看</a></dt></dl><%next%>'
<% rs.movenext
next
rs.close
%>
theAds2='';
var idx;
theAds = theAds.sort(function(){return Math.random()*new Date%3-1;});
for(idx = 0; idx < shu; idx++){
	document.write(dot+theAds[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.count,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
for y=1 to rs("count")
Response.Write "<dl class=nowopen style=background:"&qikucms.bg_8&" onmouseover=this.style.backgroundColor='"&qikucms.bg_8_8&"' onmouseout=this.style.backgroundColor='"&qikucms.bg_8&"'>" & vbCrLf
Response.Write "<dd class=mc><a href=/"&sitesflook&"id="&rs("id")&" target=_blank>"&rs("name")&"</a></dd>" & vbCrLf
Response.Write "<dd class=ip><a href=/"&sitesflook&"id="&rs("id")&" target=_blank>"&rs("IP")&"</a></dd>" & vbCrLf
Response.Write "<dd class=sj>"
%>
<%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")-12&"点" 
else 
if rs("hour")<12 then 
response.write "上午"&rs("hour")&"点" 
else 
if rs("hour")>12 and rs("hour")<=17 then 
response.write "下午"&rs("hour")-12&"点" 
else 
if rs("hour")=12 then 
response.write "中午"&rs("hour")&"点" 
end if 
end if 
end if 
end if 
end if%><% if rs("minute")<30 then 
response.write"" 
else 
if rs("minute")>=30 then 
response.write "半" 
end if 
end if%>
<%
Response.Write "</dd>" & vbCrLf
Response.Write "<dd class=xl>" & vbCrLf
if (rs("Service"))=0 then
Response.Write "<font color=#000000>"&rs("Addr")&"</font>" & vbCrLf
else
if (rs("Service"))=1 then
Response.Write "<font color=#0000FF>"&rs("Addr")&"</font>" & vbCrLf
else
Response.Write ""&rs("Addr")&"" & vbCrLf
end if
end if
Response.Write "</dd>" & vbCrLf
Response.Write "<dd class=qq>"&rs("QQ")&"</dd>" & vbCrLf
Response.Write "<dd class=js>"&rs("xingzhi")&"←<font color=#FF0000>推荐</font></dd>" & vbCrLf
Response.Write "<dt class=xx>" & vbCrLf
if qikucms.sfLook = 1 then
Response.Write "<a href=Game" & qikucms.ContentHtml(rs) & ".html target=_blank>点击查看</a>" & vbCrLf
else
Response.Write "<a href=/"&sitesflook&"id="&rs("id")&" target=_blank>点击查看</a>" & vbCrLf
end if
Response.Write "</dt>" & vbCrLf
Response.Write "</dl>" & vbCrLf
next
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.count,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
for y=1 to rs("count")
Response.Write "<dl class=nowopen style=background:"&qikucms.bg_5&" onmouseover=this.style.backgroundColor='"&qikucms.bg_5_5&"' onmouseout=this.style.backgroundColor='"&qikucms.bg_5&"'>" & vbCrLf
Response.Write "<dd class=mc><a href=/"&sitesflook&"id="&rs("id")&" target=_blank>"&rs("name")&"</a></dd>" & vbCrLf
Response.Write "<dd class=ip><a href=/"&sitesflook&"id="&rs("id")&" target=_blank>"&rs("IP")&"</a></dd>" & vbCrLf
Response.Write "<dd class=sj>"
%>
<%if rs("Sdate")<>"" then response.write month(rs("sdate"))&"月/"&day(rs("Sdate"))&"日/"%>通宵推荐
<%
Response.Write "</dd>" & vbCrLf
Response.Write "<dd class=xl>" & vbCrLf
if (rs("Service"))=0 then
Response.Write "<font color=#FF0000>"&rs("Addr")&"</font>" & vbCrLf
else
if (rs("Service"))=1 then
Response.Write "<font color=#0000FF>"&rs("Addr")&"</font>" & vbCrLf
else
Response.Write ""&rs("Addr")&"" & vbCrLf
end if
end if
Response.Write "</dd>" & vbCrLf
Response.Write "<dd class=qq>"&rs("QQ")&"</dd>" & vbCrLf
Response.Write "<dd class=js>"&rs("xingzhi")&"←<font color=#FF0000>推荐</font></dd>" & vbCrLf
Response.Write "<dt class=xx>" & vbCrLf
if qikucms.sfLook = 1 then
Response.Write "<a href=Game" & qikucms.ContentHtml(rs) & ".html target=_blank>点击查看</a>" & vbCrLf
else
Response.Write "<a href=/"&sitesflook&"id="&rs("id")&" target=_blank>点击查看</a>" & vbCrLf
end if
Response.Write "</dt>" & vbCrLf
Response.Write "</dl>" & vbCrLf
next
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.count,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
for y=1 to rs("count")
Response.Write "<dl class=nowopen style=background:"&qikucms.bg_8&" onmouseover=this.style.backgroundColor='"&qikucms.bg_8_8&"' onmouseout=this.style.backgroundColor='"&qikucms.bg_8&"'>" & vbCrLf
Response.Write "<dd class=mc><a href=/"&sitesflook&"id="&rs("id")&" target=_blank>"&rs("name")&"</a></dd>" & vbCrLf
Response.Write "<dd class=ip><a href=/"&sitesflook&"id="&rs("id")&" target=_blank>"&rs("IP")&"</a></dd>" & vbCrLf
Response.Write "<dd class=sj>"
%>
<%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")-12&"点" 
else 
if rs("hour")<12 then 
response.write "上午"&rs("hour")&"点" 
else 
if rs("hour")>12 and rs("hour")<=17 then 
response.write "下午"&rs("hour")-12&"点" 
else 
if rs("hour")=12 then 
response.write "中午"&rs("hour")&"点" 
end if 
end if 
end if 
end if 
end if%><% if rs("minute")<30 then 
response.write"" 
else 
if rs("minute")>=30 then 
response.write "半" 
end if 
end if%>
<%
Response.Write "</dd>" & vbCrLf
Response.Write "<dd class=xl>" & vbCrLf
if (rs("Service"))=0 then
Response.Write "<font color=#000000>"&rs("Addr")&"</font>" & vbCrLf
else
if (rs("Service"))=1 then
Response.Write "<font color=#0000FF>"&rs("Addr")&"</font>" & vbCrLf
else
Response.Write ""&rs("Addr")&"" & vbCrLf
end if
end if
Response.Write "</dd>" & vbCrLf
Response.Write "<dd class=qq>"&rs("QQ")&"</dd>" & vbCrLf
Response.Write "<dd class=js>"&rs("xingzhi")&"←<font color=#FF0000>推荐</font></dd>" & vbCrLf
Response.Write "<dt class=xx>" & vbCrLf
if qikucms.sfLook = 1 then
Response.Write "<a href=Game" & qikucms.ContentHtml(rs) & ".html target=_blank>点击查看</a>" & vbCrLf
else
Response.Write "<a href=/"&sitesflook&"id="&rs("id")&" target=_blank>点击查看</a>" & vbCrLf
end if
Response.Write "</dt>" & vbCrLf
Response.Write "</dl>" & vbCrLf
next
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.count,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
for y=1 to rs("count")
Response.Write "<dl class=nowopen style=background:"&qikucms.bg_5&" onmouseover=this.style.backgroundColor='"&qikucms.bg_5_5&"' onmouseout=this.style.backgroundColor='"&qikucms.bg_5&"'>" & vbCrLf
Response.Write "<dd class=mc><a href=/"&sitesflook&"id="&rs("id")&" target=_blank>"&rs("name")&"</a></dd>" & vbCrLf
Response.Write "<dd class=ip><a href=/"&sitesflook&"id="&rs("id")&" target=_blank>"&rs("IP")&"</a></dd>" & vbCrLf
Response.Write "<dd class=sj>"
%>
<%if rs("Sdate")<>"" then response.write month(rs("sdate"))&"月/"&day(rs("Sdate"))&"日/"%>通宵推荐
<%
Response.Write "</dd>" & vbCrLf
Response.Write "<dd class=xl>" & vbCrLf
if (rs("Service"))=0 then
Response.Write "<font color=#FF0000>"&rs("Addr")&"</font>" & vbCrLf
else
if (rs("Service"))=1 then
Response.Write "<font color=#0000FF>"&rs("Addr")&"</font>" & vbCrLf
else
Response.Write ""&rs("Addr")&"" & vbCrLf
end if
end if
Response.Write "</dd>" & vbCrLf
Response.Write "<dd class=qq>"&rs("QQ")&"</dd>" & vbCrLf
Response.Write "<dd class=js>"&rs("xingzhi")&"←<font color=#FF0000>推荐</font></dd>" & vbCrLf
Response.Write "<dt class=xx>" & vbCrLf
if qikucms.sfLook = 1 then
Response.Write "<a href=Game" & qikucms.ContentHtml(rs) & ".html target=_blank>点击查看</a>" & vbCrLf
else
Response.Write "<a href=/"&sitesflook&"id="&rs("id")&" target=_blank>点击查看</a>" & vbCrLf
end if
Response.Write "</dt>" & vbCrLf
Response.Write "</dl>" & vbCrLf
next
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.count,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
for y=1 to rs("count")
Response.Write "<dl class=nowopen style=background:"&qikucms.bg_7&" onmouseover=this.style.backgroundColor='"&qikucms.bg_7_7&"' onmouseout=this.style.backgroundColor='"&qikucms.bg_7&"'>" & vbCrLf
Response.Write "<dd class=mc><a href=/"&sitesflook&"id="&rs("id")&" target=_blank>"&rs("name")&"</a></dd>" & vbCrLf
Response.Write "<dd class=ip><a href=/"&sitesflook&"id="&rs("id")&" target=_blank>"&rs("IP")&"</a></dd>" & vbCrLf
Response.Write "<dd class=sj>"
%>
<%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")-12&"点" 
else 
if rs("hour")<12 then 
response.write "上午"&rs("hour")&"点" 
else 
if rs("hour")>12 and rs("hour")<=17 then 
response.write "下午"&rs("hour")-12&"点" 
else 
if rs("hour")=12 then 
response.write "中午"&rs("hour")&"点" 
end if 
end if 
end if 
end if 
end if%><% if rs("minute")<30 then 
response.write"" 
else 
if rs("minute")>=30 then 
response.write "半" 
end if 
end if%>
<%
Response.Write "</dd>" & vbCrLf
Response.Write "<dd class=xl>" & vbCrLf
if (rs("Service"))=0 then
Response.Write "<font color=#000000>"&rs("Addr")&"</font>" & vbCrLf
else
if (rs("Service"))=1 then
Response.Write "<font color=#0000FF>"&rs("Addr")&"</font>" & vbCrLf
else
Response.Write ""&rs("Addr")&"" & vbCrLf
end if
end if
Response.Write "</dd>" & vbCrLf
Response.Write "<dd class=qq>"&rs("QQ")&"</dd>" & vbCrLf
Response.Write "<dd class=js>"&rs("xingzhi")&"←<font color=#FF0000>推荐</font></dd>" & vbCrLf
Response.Write "<dt class=xx>" & vbCrLf
if qikucms.sfLook = 1 then
Response.Write "<a href=Game" & qikucms.ContentHtml(rs) & ".html target=_blank>点击查看</a>" & vbCrLf
else
Response.Write "<a href=/"&sitesflook&"id="&rs("id")&" target=_blank>点击查看</a>" & vbCrLf
end if
Response.Write "</dt>" & vbCrLf
Response.Write "</dl>" & vbCrLf
next
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.count,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
for y=1 to rs("count")
Response.Write "<dl class=nowopen style=background:"&qikucms.bg_7&" onmouseover=this.style.backgroundColor='"&qikucms.bg_7_7&"' onmouseout=this.style.backgroundColor='"&qikucms.bg_7&"'>" & vbCrLf
Response.Write "<dd class=mc><a href=/"&sitesflook&"id="&rs("id")&" target=_blank>"&rs("name")&"</a></dd>" & vbCrLf
Response.Write "<dd class=ip><a href=/"&sitesflook&"id="&rs("id")&" target=_blank>"&rs("IP")&"</a></dd>" & vbCrLf
Response.Write "<dd class=sj>"
%>
<%if rs("Sdate")<>"" then response.write month(rs("sdate"))&"月26/"&day(rs("Sdate"))&"日/"%><%
if rs("hour")>=0 and rs("hour")<7 then 
response.write "凌晨"&rs("hour")&"点" 
else 
if rs("hour")>17 and rs("hour")<24 then 
response.write "晚上"&rs("hour")-12&"点" 
else 
if rs("hour")<12 then 
response.write "上午"&rs("hour")&"点" 
else 
if rs("hour")>12 and rs("hour")<=17 then 
response.write "下午"&rs("hour")-12&"点" 
else 
if rs("hour")=12 then 
response.write "中午"&rs("hour")&"点" 
end if 
end if 
end if 
end if 
end if%><% if rs("minute")<30 then 
response.write"" 
else 
if rs("minute")>=30 then 
response.write "半" 
end if 
end if%>
<%
Response.Write "</dd>" & vbCrLf
Response.Write "<dd class=xl>" & vbCrLf
if (rs("Service"))=0 then
Response.Write "<font color=#000000>"&rs("Addr")&"</font>" & vbCrLf
else
if (rs("Service"))=1 then
Response.Write "<font color=#0000FF>"&rs("Addr")&"</font>" & vbCrLf
else
Response.Write ""&rs("Addr")&"" & vbCrLf
end if
end if
Response.Write "</dd>" & vbCrLf
Response.Write "<dd class=qq>"&rs("QQ")&"</dd>" & vbCrLf
Response.Write "<dd class=js>"&rs("xingzhi")&"←<font color=#FF0000>推荐</font></dd>" & vbCrLf
Response.Write "<dt class=xx>" & vbCrLf
if qikucms.sfLook = 1 then
Response.Write "<a href=Game" & qikucms.ContentHtml(rs) & ".html target=_blank>点击查看</a>" & vbCrLf
else
Response.Write "<a href=/"&sitesflook&"id="&rs("id")&" target=_blank>点击查看</a>" & vbCrLf
end if
Response.Write "</dt>" & vbCrLf
Response.Write "</dl>" & vbCrLf
next
end if
rs.movenext
wend 
rs.close
end if
end sub
'======================================================================================================================
'过程名：-3
'作  用：-3精品推荐私服，按照天数计算
'======================================================================================================================
sub SetRed_ads21()
%>
<%
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=9 and Gq_sfdata.gameid="&menu&" and datediff('d',Gq_sfdata.Sdate,now())=-3"
Rs.Open Sql,Conn,1,1
rssum=rs(0)
rs.close
%>
<%
sql="select Gq_sfdata.id,Gq_sfdata.name,Gq_sfdata.count,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.Fine from Gq_sfdata,Gq_GameType where Gq_sfdata.gameid=Gq_GameType.id and Gq_sfdata.ulock=1 and Gq_sfdata.Fine=9 and Gq_sfdata.gameid="&menu&" and datediff('d',Gq_sfdata.Sdate,now())=-2 order by Gq_sfdata.Sdate desc"
Rs.Open Sql,Conn,1,1
nums=rssum
for i=1 to nums
%>
<%for y=1 to rs("count")%><dl class=nowopen style="background:<%=qikucms.bg_1%>" onmouseover=this.style.backgroundColor="<%=qikucms.bg_1_1%>" onmouseout=this.style.backgroundColor="<%=qikucms.bg_1%>"><dd class="mc"><a href=<%=sitesflook%>id=<%=rs("id")%> target=_blank><%=rs("name")%></a></dd><dd class="ip"><a href=<%=sitesflook%>id=<%=rs("id")%> target=_blank><%=rs("IP")%></a></dd><dd class="sj"><b>★</b><strong><span class="STYLE4">某</span><span class="STYLE3">天</span><span class="STYLE6">套</span><span class="STYLE9">黄</span><span class="STYLE8">推</span><span class="STYLE8">荐</span><span class="STYLE6">★</strong></dd><dd class="xl"><%if rs("Service") = 0 then%><font color=#000000><%=rs("Addr")%></font><%else%><%if rs("Service") = 1 then%><font color=#0000FF><%=rs("Addr")%></font><%else%><%=rs("Addr")%><%end if%><%end if%></dd><dd class="qq"><%=rs("QQ")%></dd><dd class="js"><%=rs("xingzhi")%>←<font color="#FF0000">推荐</font></dd><dt class="xx"><%if qikucms.sfLook = 1 then%><a href=../Game/<%= rs("id") %>.html target=_blank><%else%><a href=<%=sitesflook%>id=<%=rs("id")%> target=_blank><%end if%>点击查看</a></dt></dl><%next%>
<%
rs.movenext
next
rs.close
%>
<%
end sub
'=================================================
'过程名：-3
'作  用：-3后天精品
'=================================================
sub SetRed_ads_21()
%>
<%
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 Gq_sfdata.gameid="&menu&" and datediff('d',Gq_sfdata.Sdate,now())=-3"
Rs.Open Sql,Conn,1,1
rssum=rs(0)
rs.close
%>
<%
sql="select Gq_sfdata.id,Gq_sfdata.name,Gq_sfdata.count,Gq_sfdata.IP,Gq_sfdata.jpid,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.Fine 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())=-3 order by Gq_sfdata.jpid desc"
Rs.Open Sql,Conn,1,1
nums=rssum
for i=1 to nums
%>
<%for y=1 to rs("count")%><dl class=nowopen style="background:<%=qikucms.bg_1%>" onmouseover=this.style.backgroundColor="<%=qikucms.bg_1_1%>" onmouseout=this.style.backgroundColor="<%=qikucms.bg_1%>"><dd class="mc"><a href=<%=sitesflook%>id=<%=rs("id")%> target=_blank><%=rs("name")%></a></dd><dd class="ip"><a href=<%=sitesflook%>id=<%=rs("id")%> target=_blank><%=rs("IP")%></a></dd><dd class="sja"><span class="STYLE4"><strong><font color=#000000><%=rs("jpid")%></font> <%=QiKuCMS.IsNews%></strong></span></dd><dd class="xl"><%if rs("Service") = 0 then%><font color=#FF0000><%=rs("Addr")%></font><%else%><%if rs("Service") = 1 then%><font color=#0000FF><%=rs("Addr")%></font><%else%><%=rs("Addr")%><%end if%><%end if%></dd><dd class="qq"><%=rs("QQ")%></dd><dd class="js"><%=rs("xingzhi")%>←<font color="#00FF7F">推荐</font></dd><dt class="xx"><%if qikucms.sfLook = 1 then%><a href=../Game/<%= rs("id") %>.html target=_blank><%else%><a href=<%=sitesflook%>id=<%=rs("id")%> target=_blank><%end if%><b>点击查看</b></a></dt></dl><%next%>
<%
rs.movenext
next
rs.close
%>
<%
end sub
'=================================================
'过程名：-3
'作  用：-3后天即将开放私服←推荐私服
'=================================================
sub days_21
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.count,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
for y=1 to rs("count")
Response.Write "<dl class=nowopen style=background:"&qikucms.bg_8&" onmouseover=this.style.backgroundColor='"&qikucms.bg_8_8&"' onmouseout=this.style.backgroundColor='"&qikucms.bg_8&"'>" & vbCrLf
Response.Write "<dd class=mc><a href=/"&sitesflook&"id="&rs("id")&" target=_blank>"&rs("name")&"</a></dd>" & vbCrLf
Response.Write "<dd class=ip><a href=/"&sitesflook&"id="&rs("id")&" target=_blank>"&rs("IP")&"</a></dd>" & vbCrLf
Response.Write "<dd class=sj>"
%>
<%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")-12&"点" 
else 
if rs("hour")<12 then 
response.write "上午"&rs("hour")&"点" 
else 
if rs("hour")>12 and rs("hour")<=17 then 
response.write "下午"&rs("hour")-12&"点" 
else 
if rs("hour")=12 then 
response.write "中午"&rs("hour")&"点" 
end if 
end if 
end if 
end if 
end if%><% if rs("minute")<30 then 
response.write"" 
else 
if rs("minute")>=30 then 
response.write "半" 
end if 
end if%>
<%
Response.Write "</dd>" & vbCrLf
Response.Write "<dd class=xl>" & vbCrLf
if (rs("Service"))=0 then
Response.Write "<font color=#FF0000>"&rs("Addr")&"</font>" & vbCrLf
else
if (rs("Service"))=1 then
Response.Write "<font color=#0000FF>"&rs("Addr")&"</font>" & vbCrLf
else
Response.Write ""&rs("Addr")&"" & vbCrLf
end if
end if
Response.Write "</dd>" & vbCrLf
Response.Write "<dd class=qq>"&rs("QQ")&"</dd>" & vbCrLf
Response.Write "<dd class=js>"&rs("xingzhi")&"←<font color=#FF0000>推荐</font></dd>" & vbCrLf
Response.Write "<dt class=xx>" & vbCrLf
if qikucms.sfLook = 1 then
Response.Write "<a href=Game" & qikucms.ContentHtml(rs) & ".html target=_blank>点击查看</a>" & vbCrLf
else
Response.Write "<a href=/"&sitesflook&"id="&rs("id")&" target=_blank>点击查看</a>" & vbCrLf
end if
Response.Write "</dt>" & vbCrLf
Response.Write "</dl>" & vbCrLf
next
end if
rs.movenext
wend 
rs.close
end if
end sub
'=================================================
'过程名：-3
'作  用：-3通宵推荐结束
'=================================================
sub Overnight_bbbb1
%>
<%
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())=-3"
Rs.Open Sql,Conn,1,1
rssum=rs(0)
rs.close
%>
<%
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,Gq_sfdata.count 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())=-3 order by Gq_sfdata.Sdate desc"
Rs.Open Sql,Conn,1,1
nums=rssum
for i=1 to nums
%>
<%for y=1 to rs("count")%><dl class=nowopen style="background:<%=qikucms.bg_6%>" onmouseover=this.style.backgroundColor="<%=qikucms.bg_6_6%>" onmouseout=this.style.backgroundColor="<%=qikucms.bg_6%>"><dd class="mc"><a href=<%=sitesflook%>id=<%=rs("id")%> target=_blank><%=rs("name")%></a></dd><dd class="ip"><a href=<%=sitesflook%>id=<%=rs("id")%> target=_blank><%=rs("IP")%></a></dd><dd class="sj"><font color=#FF0000><%if rs("Sdate")<>"" then response.write month(rs("sdate"))&"月/"&day(rs("Sdate"))&"日/"%></font><font color=#0000FF>通宵固顶</font></dd><dd class="xl"><%if rs("Service") = 0 then%><font color=#FF0000><%=rs("Addr")%></font><%else%><%if rs("Service") = 1 then%><font color=#0000FF><%=rs("Addr")%></font><%else%><%=rs("Addr")%><%end if%><%end if%></dd><dd class="qq"><%=rs("QQ")%></dd><dd class="js"><%=rs("xingzhi")%>←<font color="#FF0000">推荐</font></dd><dt class="xx"><%if qikucms.sfLook = 1 then%><a href=../Game/<%= rs("id") %>.html target=_blank><%else%><a href=<%=sitesflook%>id=<%=rs("id")%> target=_blank><%end if%>点击查看</a></dt></dl><%next%>
<%
rs.movenext
next
rs.close
%>
<%
end sub
'=================================================
'过程名：-3night_2
'作  用：-3后天即将开放私服←通宵推荐
'=================================================
sub night_21
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.count,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
for y=1 to rs("count")
Response.Write "<dl class=nowopen style=background:"&qikucms.bg_5&" onmouseover=this.style.backgroundColor='"&qikucms.bg_5_5&"' onmouseout=this.style.backgroundColor='"&qikucms.bg_5&"'>" & vbCrLf
Response.Write "<dd class=mc><a href=/"&sitesflook&"id="&rs("id")&" target=_blank>"&rs("name")&"</a></dd>" & vbCrLf
Response.Write "<dd class=ip><a href=/"&sitesflook&"id="&rs("id")&" target=_blank>"&rs("IP")&"</a></dd>" & vbCrLf
Response.Write "<dd class=sj>"
%>
<%if rs("Sdate")<>"" then response.write month(rs("sdate"))&"月/"&day(rs("Sdate"))&"日/"%>通宵推荐
<%
Response.Write "</dd>" & vbCrLf
Response.Write "<dd class=xl>" & vbCrLf
if (rs("Service"))=0 then
Response.Write "<font color=#FF0000>"&rs("Addr")&"</font>" & vbCrLf
else
if (rs("Service"))=1 then
Response.Write "<font color=#0000FF>"&rs("Addr")&"</font>" & vbCrLf
else
Response.Write ""&rs("Addr")&"" & vbCrLf
end if
end if
Response.Write "</dd>" & vbCrLf
Response.Write "<dd class=qq>"&rs("QQ")&"</dd>" & vbCrLf
Response.Write "<dd class=js>"&rs("xingzhi")&"←<font color=#FF0000>推荐</font></dd>" & vbCrLf
Response.Write "<dt class=xx>" & vbCrLf
if qikucms.sfLook = 1 then
Response.Write "<a href=Game" & qikucms.ContentHtml(rs) & ".html target=_blank>点击查看</a>" & vbCrLf
else
Response.Write "<a href=/"&sitesflook&"id="&rs("id")&" target=_blank>点击查看</a>" & vbCrLf
end if
Response.Write "</dt>" & vbCrLf
Response.Write "</dl>" & vbCrLf
next
end if
rs.movenext
wend 
rs.close
end if
end sub
'===================================================================================================================================
'过程名：-4
'作  用：-4精品推荐私服，按照天数计算
'===================================================================================================================
sub SetRed_ads22()
%>
<%
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=9 and Gq_sfdata.gameid="&menu&" and datediff('d',Gq_sfdata.Sdate,now())=-4"
Rs.Open Sql,Conn,1,1
rssum=rs(0)
rs.close
%>
<%
sql="select Gq_sfdata.id,Gq_sfdata.name,Gq_sfdata.count,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.Fine from Gq_sfdata,Gq_GameType where Gq_sfdata.gameid=Gq_GameType.id and Gq_sfdata.ulock=1 and Gq_sfdata.Fine=9 and Gq_sfdata.gameid="&menu&" and datediff('d',Gq_sfdata.Sdate,now())=-2 order by Gq_sfdata.Sdate desc"
Rs.Open Sql,Conn,1,1
nums=rssum
for i=1 to nums
%>
<%for y=1 to rs("count")%><dl class=nowopen style="background:<%=qikucms.bg_1%>" onmouseover=this.style.backgroundColor="<%=qikucms.bg_1_1%>" onmouseout=this.style.backgroundColor="<%=qikucms.bg_1%>"><dd class="mc"><a href=<%=sitesflook%>id=<%=rs("id")%> target=_blank><%=rs("name")%></a></dd><dd class="ip"><a href=<%=sitesflook%>id=<%=rs("id")%> target=_blank><%=rs("IP")%></a></dd><dd class="sj"><b>★</b><strong><span class="STYLE4">未</span><span class="STYLE3">来</span><span class="STYLE6">套</span><span class="STYLE9">黄</span><span class="STYLE8">推</span><span class="STYLE8">荐</span><span class="STYLE6">★</strong></dd><dd class="xl"><%if rs("Service") = 0 then%><font color=#000000><%=rs("Addr")%></font><%else%><%if rs("Service") = 1 then%><font color=#0000FF><%=rs("Addr")%></font><%else%><%=rs("Addr")%><%end if%><%end if%></dd><dd class="qq"><%=rs("QQ")%></dd><dd class="js"><%=rs("xingzhi")%>←<font color="#FF0000">推荐</font></dd><dt class="xx"><%if qikucms.sfLook = 1 then%><a href=../Game/<%= rs("id") %>.html target=_blank><%else%><a href=<%=sitesflook%>id=<%=rs("id")%> target=_blank><%end if%>点击查看</a></dt></dl><%next%>
<%
rs.movenext
next
rs.close
%>
<%
end sub
'=================================================
'过程名：-4
'作  用：-4天精品
'=================================================
sub SetRed_ads_22()
%>
<%
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 Gq_sfdata.gameid="&menu&" and datediff('d',Gq_sfdata.Sdate,now())=-4"
Rs.Open Sql,Conn,1,1
rssum=rs(0)
rs.close
%>
<%
sql="select Gq_sfdata.id,Gq_sfdata.name,Gq_sfdata.count,Gq_sfdata.IP,Gq_sfdata.jpid,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.Fine 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())=-4 order by Gq_sfdata.jpid desc"
Rs.Open Sql,Conn,1,1
nums=rssum
for i=1 to nums
%>
<%for y=1 to rs("count")%><dl class=nowopen style="background:<%=qikucms.bg_1%>" onmouseover=this.style.backgroundColor="<%=qikucms.bg_1_1%>" onmouseout=this.style.backgroundColor="<%=qikucms.bg_1%>"><dd class="mc"><a href=<%=sitesflook%>id=<%=rs("id")%> target=_blank><%=rs("name")%></a></dd><dd class="ip"><a href=<%=sitesflook%>id=<%=rs("id")%> target=_blank><%=rs("IP")%></a></dd><dd class="sja"><span class="STYLE4"><strong><font color=#000000><%=rs("jpid")%></font> <%=QiKuCMS.IsNews%></strong></span></dd><dd class="xl"><%if rs("Service") = 0 then%><font color=#FF0000><%=rs("Addr")%></font><%else%><%if rs("Service") = 1 then%><font color=#0000FF><%=rs("Addr")%></font><%else%><%=rs("Addr")%><%end if%><%end if%></dd><dd class="qq"><%=rs("QQ")%></dd><dd class="js"><%=rs("xingzhi")%>←<font color="#FF0000">推荐</font></dd><dt class="xx"><%if qikucms.sfLook = 1 then%><a href=../Game/<%= rs("id") %>.html target=_blank><%else%><a href=<%=sitesflook%>id=<%=rs("id")%> target=_blank><%end if%>点击查看</a></dt></dl><%next%>
<%
rs.movenext
next
rs.close
%>
<%
end sub
'=================================================
'过程名：-4
'作  用：-4天即将开放私服←推荐私服
'=================================================
sub days_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.count,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
for y=1 to rs("count")
Response.Write "<dl class=nowopen style=background:"&qikucms.bg_8&" onmouseover=this.style.backgroundColor='"&qikucms.bg_8_8&"' onmouseout=this.style.backgroundColor='"&qikucms.bg_8&"'>" & vbCrLf
Response.Write "<dd class=mc><a href=/"&sitesflook&"id="&rs("id")&" target=_blank>"&rs("name")&"</a></dd>" & vbCrLf
Response.Write "<dd class=ip><a href=/"&sitesflook&"id="&rs("id")&" target=_blank>"&rs("IP")&"</a></dd>" & vbCrLf
Response.Write "<dd class=sj>"
%>
<%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")-12&"点" 
else 
if rs("hour")<12 then 
response.write "上午"&rs("hour")&"点" 
else 
if rs("hour")>12 and rs("hour")<=17 then 
response.write "下午"&rs("hour")-12&"点" 
else 
if rs("hour")=12 then 
response.write "中午"&rs("hour")&"点" 
end if 
end if 
end if 
end if 
end if%><% if rs("minute")<30 then 
response.write"" 
else 
if rs("minute")>=30 then 
response.write "半" 
end if 
end if%>
<%
Response.Write "</dd>" & vbCrLf
Response.Write "<dd class=xl>" & vbCrLf
if (rs("Service"))=0 then
Response.Write "<font color=#FF0000>"&rs("Addr")&"</font>" & vbCrLf
else
if (rs("Service"))=1 then
Response.Write "<font color=#0000FF>"&rs("Addr")&"</font>" & vbCrLf
else
Response.Write ""&rs("Addr")&"" & vbCrLf
end if
end if
Response.Write "</dd>" & vbCrLf
Response.Write "<dd class=qq>"&rs("QQ")&"</dd>" & vbCrLf
Response.Write "<dd class=js>"&rs("xingzhi")&"←<font color=#FF0000>推荐</font></dd>" & vbCrLf
Response.Write "<dt class=xx>" & vbCrLf
if qikucms.sfLook = 1 then
Response.Write "<a href=Game" & qikucms.ContentHtml(rs) & ".html target=_blank>点击查看</a>" & vbCrLf
else
Response.Write "<a href=/"&sitesflook&"id="&rs("id")&" target=_blank>点击查看</a>" & vbCrLf
end if
Response.Write "</dt>" & vbCrLf
Response.Write "</dl>" & vbCrLf
next
end if
rs.movenext
wend 
rs.close
end if
end sub
'=================================================
'过程名：-4
'作  用：-4通宵推荐结束
'=================================================
sub Overnight_bbbb2
%>
<%
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())=-4"
Rs.Open Sql,Conn,1,1
rssum=rs(0)
rs.close
%>
<%
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,Gq_sfdata.count 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())=-4 order by Gq_sfdata.Sdate desc"
Rs.Open Sql,Conn,1,1
nums=rssum
for i=1 to nums
%>
<%for y=1 to rs("count")%><dl class=nowopen style="background:<%=qikucms.bg_6%>" onmouseover=this.style.backgroundColor="<%=qikucms.bg_6_6%>" onmouseout=this.style.backgroundColor="<%=qikucms.bg_6%>"><dd class="mc"><a href=<%=sitesflook%>id=<%=rs("id")%> target=_blank><%=rs("name")%></a></dd><dd class="ip"><a href=<%=sitesflook%>id=<%=rs("id")%> target=_blank><%=rs("IP")%></a></dd><dd class="sj"><font color=#FF0000><%if rs("Sdate")<>"" then response.write month(rs("sdate"))&"月/"&day(rs("Sdate"))&"日/"%></font><font color=#0000FF>通宵固顶</font></dd><dd class="xl"><%if rs("Service") = 0 then%><font color=#FF0000><%=rs("Addr")%></font><%else%><%if rs("Service") = 1 then%><font color=#0000FF><%=rs("Addr")%></font><%else%><%=rs("Addr")%><%end if%><%end if%></dd><dd class="qq"><%=rs("QQ")%></dd><dd class="js"><%=rs("xingzhi")%>←<font color="#FF0000">推荐</font></dd><dt class="xx"><%if qikucms.sfLook = 1 then%><a href=../Game/<%= rs("id") %>.html target=_blank><%else%><a href=<%=sitesflook%>id=<%=rs("id")%> target=_blank><%end if%>点击查看</a></dt></dl><%next%>
<%
rs.movenext
next
rs.close
%>
<%
end sub
'=================================================
'过程名：-4
'作  用：-4天即将开放私服←通宵推荐
'=================================================
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.count,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
for y=1 to rs("count")
Response.Write "<dl class=nowopen style=background:"&qikucms.bg_5&" onmouseover=this.style.backgroundColor='"&qikucms.bg_5_5&"' onmouseout=this.style.backgroundColor='"&qikucms.bg_5&"'>" & vbCrLf
Response.Write "<dd class=mc><a href=/"&sitesflook&"id="&rs("id")&" target=_blank>"&rs("name")&"</a></dd>" & vbCrLf
Response.Write "<dd class=ip><a href=/"&sitesflook&"id="&rs("id")&" target=_blank>"&rs("IP")&"</a></dd>" & vbCrLf
Response.Write "<dd class=sj>"
%>
<%if rs("Sdate")<>"" then response.write month(rs("sdate"))&"月/"&day(rs("Sdate"))&"日/"%>通宵推荐
<%
Response.Write "</dd>" & vbCrLf
Response.Write "<dd class=xl>" & vbCrLf
if (rs("Service"))=0 then
Response.Write "<font color=#FF0000>"&rs("Addr")&"</font>" & vbCrLf
else
if (rs("Service"))=1 then
Response.Write "<font color=#0000FF>"&rs("Addr")&"</font>" & vbCrLf
else
Response.Write ""&rs("Addr")&"" & vbCrLf
end if
end if
Response.Write "</dd>" & vbCrLf
Response.Write "<dd class=qq>"&rs("QQ")&"</dd>" & vbCrLf
Response.Write "<dd class=js>"&rs("xingzhi")&"←<font color=#FF0000>推荐</font></dd>" & vbCrLf
Response.Write "<dt class=xx>" & vbCrLf
if qikucms.sfLook = 1 then
Response.Write "<a href=Game" & qikucms.ContentHtml(rs) & ".html target=_blank>点击查看</a>" & vbCrLf
else
Response.Write "<a href=/"&sitesflook&"id="&rs("id")&" target=_blank>点击查看</a>" & vbCrLf
end if
Response.Write "</dt>" & vbCrLf
Response.Write "</dl>" & vbCrLf
next
end if
rs.movenext
wend 
rs.close
end if
end sub

'=====================================================================================================================================
'过程名：-5
'作  用：-5精品推荐私服，按照天数计算
'=====================================================================================================================================
sub SetRed_ads23()
%>
<%
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=9 and Gq_sfdata.gameid="&menu&" and datediff('d',Gq_sfdata.Sdate,now())=-5"
Rs.Open Sql,Conn,1,1
rssum=rs(0)
rs.close
%>
<%
sql="select Gq_sfdata.id,Gq_sfdata.name,Gq_sfdata.count,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.Fine from Gq_sfdata,Gq_GameType where Gq_sfdata.gameid=Gq_GameType.id and Gq_sfdata.ulock=1 and Gq_sfdata.Fine=9 and Gq_sfdata.gameid="&menu&" and datediff('d',Gq_sfdata.Sdate,now())=-2 order by Gq_sfdata.Sdate desc"
Rs.Open Sql,Conn,1,1
nums=rssum
for i=1 to nums
%>
<%for y=1 to rs("count")%><dl class=nowopen style="background:<%=qikucms.bg_1%>" onmouseover=this.style.backgroundColor="<%=qikucms.bg_1_1%>" onmouseout=this.style.backgroundColor="<%=qikucms.bg_1%>"><dd class="mc"><a href=<%=sitesflook%>id=<%=rs("id")%> target=_blank><%=rs("name")%></a></dd><dd class="ip"><a href=<%=sitesflook%>id=<%=rs("id")%> target=_blank><%=rs("IP")%></a></dd><dd class="sj"><b>★</b><strong><span class="STYLE4">某</span><span class="STYLE3">天</span><span class="STYLE6">套</span><span class="STYLE9">黄</span><span class="STYLE8">推</span><span class="STYLE8">荐</span><span class="STYLE6">★</strong></dd><dd class="xl"><%if rs("Service") = 0 then%><font color=#000000><%=rs("Addr")%></font><%else%><%if rs("Service") = 1 then%><font color=#0000FF><%=rs("Addr")%></font><%else%><%=rs("Addr")%><%end if%><%end if%></dd><dd class="qq"><%=rs("QQ")%></dd><dd class="js"><%=rs("xingzhi")%>←<font color="#FF0000">推荐</font></dd><dt class="xx"><%if qikucms.sfLook = 1 then%><a href=../Game/<%= rs("id") %>.html target=_blank><%else%><a href=<%=sitesflook%>id=<%=rs("id")%> target=_blank><%end if%>点击查看</a></dt></dl><%next%>
<%
rs.movenext
next
rs.close
%>
<%
end sub
'=================================================
'过程名：-5
'作  用：-5后天精品
'=================================================
sub SetRed_ads_23()
%>
<%
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 Gq_sfdata.gameid="&menu&" and datediff('d',Gq_sfdata.Sdate,now())=-5"
Rs.Open Sql,Conn,1,1
rssum=rs(0)
rs.close
%>
<%
sql="select Gq_sfdata.id,Gq_sfdata.name,Gq_sfdata.count,Gq_sfdata.IP,Gq_sfdata.jpid,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.Fine 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())=-5 order by Gq_sfdata.jpid desc"
Rs.Open Sql,Conn,1,1
nums=rssum
for i=1 to nums
%>
<%for y=1 to rs("count")%><dl class=nowopen style="background:<%=qikucms.bg_1%>" onmouseover=this.style.backgroundColor="<%=qikucms.bg_1_1%>" onmouseout=this.style.backgroundColor="<%=qikucms.bg_1%>"><dd class="mc"><a href=<%=sitesflook%>id=<%=rs("id")%> target=_blank><%=rs("name")%></a></dd><dd class="ip"><a href=<%=sitesflook%>id=<%=rs("id")%> target=_blank><%=rs("IP")%></a></dd><dd class="sja"><span class="STYLE4"><strong><font color=#000000><%=rs("jpid")%></font> <%=QiKuCMS.IsNews%></strong></span></dd><dd class="xl"><%if rs("Service") = 0 then%><font color=#FF0000><%=rs("Addr")%></font><%else%><%if rs("Service") = 1 then%><font color=#0000FF><%=rs("Addr")%></font><%else%><%=rs("Addr")%><%end if%><%end if%></dd><dd class="qq"><%=rs("QQ")%></dd><dd class="js"><%=rs("xingzhi")%>←<font color="#FF0000">推荐</font></dd><dt class="xx"><%if qikucms.sfLook = 1 then%><a href=../Game/<%= rs("id") %>.html target=_blank><%else%><a href=<%=sitesflook%>id=<%=rs("id")%> target=_blank><%end if%>点击查看</a></dt></dl><%next%>
<%
rs.movenext
next
rs.close
%>
<%
end sub
'=================================================
'过程名：-5
'作  用：-5天即将开放私服←推荐私服
'=================================================
sub days_23
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.count,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
for y=1 to rs("count")
Response.Write "<dl class=nowopen style=background:"&qikucms.bg_8&" onmouseover=this.style.backgroundColor='"&qikucms.bg_8_8&"' onmouseout=this.style.backgroundColor='"&qikucms.bg_8&"'>" & vbCrLf
Response.Write "<dd class=mc><a href=/"&sitesflook&"id="&rs("id")&" target=_blank>"&rs("name")&"</a></dd>" & vbCrLf
Response.Write "<dd class=ip><a href=/"&sitesflook&"id="&rs("id")&" target=_blank>"&rs("IP")&"</a></dd>" & vbCrLf
Response.Write "<dd class=sj>"
%>
<%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")-12&"点" 
else 
if rs("hour")<12 then 
response.write "上午"&rs("hour")&"点" 
else 
if rs("hour")>12 and rs("hour")<=17 then 
response.write "下午"&rs("hour")-12&"点" 
else 
if rs("hour")=12 then 
response.write "中午"&rs("hour")&"点" 
end if 
end if 
end if 
end if 
end if%><% if rs("minute")<30 then 
response.write"" 
else 
if rs("minute")>=30 then 
response.write "半" 
end if 
end if%>
<%
Response.Write "</dd>" & vbCrLf
Response.Write "<dd class=xl>" & vbCrLf
if (rs("Service"))=0 then
Response.Write "<font color=#FF0000>"&rs("Addr")&"</font>" & vbCrLf
else
if (rs("Service"))=1 then
Response.Write "<font color=#0000FF>"&rs("Addr")&"</font>" & vbCrLf
else
Response.Write ""&rs("Addr")&"" & vbCrLf
end if
end if
Response.Write "</dd>" & vbCrLf
Response.Write "<dd class=qq>"&rs("QQ")&"</dd>" & vbCrLf
Response.Write "<dd class=js>"&rs("xingzhi")&"←<font color=#FF0000>推荐</font></dd>" & vbCrLf
Response.Write "<dt class=xx>" & vbCrLf
if qikucms.sfLook = 1 then
Response.Write "<a href=Game" & qikucms.ContentHtml(rs) & ".html target=_blank>点击查看</a>" & vbCrLf
else
Response.Write "<a href=/"&sitesflook&"id="&rs("id")&" target=_blank>点击查看</a>" & vbCrLf
end if
Response.Write "</dt>" & vbCrLf
Response.Write "</dl>" & vbCrLf
next
end if
rs.movenext
wend 
rs.close
end if
end sub
'=================================================
'过程名：Overnight_bbbb-5
'作  用：-5通宵推荐结束
'=================================================
sub Overnight_bbbb3
%>
<%
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())=-5"
Rs.Open Sql,Conn,1,1
rssum=rs(0)
rs.close
%>
<%
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,Gq_sfdata.count 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())=-5 order by Gq_sfdata.Sdate desc"
Rs.Open Sql,Conn,1,1
nums=rssum
for i=1 to nums
%>
<%for y=1 to rs("count")%><dl class=nowopen style="background:<%=qikucms.bg_6%>" onmouseover=this.style.backgroundColor="<%=qikucms.bg_6_6%>" onmouseout=this.style.backgroundColor="<%=qikucms.bg_6%>"><dd class="mc"><a href=<%=sitesflook%>id=<%=rs("id")%> target=_blank><%=rs("name")%></a></dd><dd class="ip"><a href=<%=sitesflook%>id=<%=rs("id")%> target=_blank><%=rs("IP")%></a></dd><dd class="sj"><font color=#FF0000><%if rs("Sdate")<>"" then response.write month(rs("sdate"))&"月/"&day(rs("Sdate"))&"日/"%></font><font color=#0000FF>通宵固顶</font></dd><dd class="xl"><%if rs("Service") = 0 then%><font color=#FF0000><%=rs("Addr")%></font><%else%><%if rs("Service") = 1 then%><font color=#0000FF><%=rs("Addr")%></font><%else%><%=rs("Addr")%><%end if%><%end if%></dd><dd class="qq"><%=rs("QQ")%></dd><dd class="js"><%=rs("xingzhi")%>←<font color="#FF0000">推荐</font></dd><dt class="xx"><%if qikucms.sfLook = 1 then%><a href=../Game/<%= rs("id") %>.html target=_blank><%else%><a href=<%=sitesflook%>id=<%=rs("id")%> target=_blank><%end if%>点击查看</a></dt></dl><%next%>
<%
rs.movenext
next
rs.close
%>
<%
end sub
'=================================================
'过程名：
'作  用：-5天即将开放私服←通宵推荐
'=================================================
sub night_23
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.count,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
for y=1 to rs("count")
Response.Write "<dl class=nowopen style=background:"&qikucms.bg_5&" onmouseover=this.style.backgroundColor='"&qikucms.bg_5_5&"' onmouseout=this.style.backgroundColor='"&qikucms.bg_5&"'>" & vbCrLf
Response.Write "<dd class=mc><a href=/"&sitesflook&"id="&rs("id")&" target=_blank>"&rs("name")&"</a></dd>" & vbCrLf
Response.Write "<dd class=ip><a href=/"&sitesflook&"id="&rs("id")&" target=_blank>"&rs("IP")&"</a></dd>" & vbCrLf
Response.Write "<dd class=sj>"
%>
<%if rs("Sdate")<>"" then response.write month(rs("sdate"))&"月/"&day(rs("Sdate"))&"日/"%>通宵推荐
<%
Response.Write "</dd>" & vbCrLf
Response.Write "<dd class=xl>" & vbCrLf
if (rs("Service"))=0 then
Response.Write "<font color=#FF0000>"&rs("Addr")&"</font>" & vbCrLf
else
if (rs("Service"))=1 then
Response.Write "<font color=#0000FF>"&rs("Addr")&"</font>" & vbCrLf
else
Response.Write ""&rs("Addr")&"" & vbCrLf
end if
end if
Response.Write "</dd>" & vbCrLf
Response.Write "<dd class=qq>"&rs("QQ")&"</dd>" & vbCrLf
Response.Write "<dd class=js>"&rs("xingzhi")&"←<font color=#FF0000>推荐</font></dd>" & vbCrLf
Response.Write "<dt class=xx>" & vbCrLf
if qikucms.sfLook = 1 then
Response.Write "<a href=Game" & qikucms.ContentHtml(rs) & ".html target=_blank>点击查看</a>" & vbCrLf
else
Response.Write "<a href=/"&sitesflook&"id="&rs("id")&" target=_blank>点击查看</a>" & vbCrLf
end if
Response.Write "</dt>" & vbCrLf
Response.Write "</dl>" & vbCrLf
next
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.count,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.isBest=0 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
Response.Write "<div id=tomsertitle>↓免费"&rs("game")&"专区↓</div>" & vbCrLf
do while not rs.eof
Response.Write "<dl class=nowopen style=background:"&qikucms.bg_7&" onmouseover=this.style.backgroundColor='"&qikucms.bg_7_7&"' onmouseout=this.style.backgroundColor='"&qikucms.bg_7&"'>" & vbCrLf
Response.Write "<dd class=mc><a href=go.htm?u="&rs("homepage")&" target=_blank>"&rs("name")&"</a></dd>" & vbCrLf
Response.Write "<dd class=ip>"&rs("IP")&"</dd>" & vbCrLf
Response.Write "<dd class=sj>"
%>
<%if rs("Sdate")<>"" then response.write month(rs("sdate"))&"月42/"&day(rs("Sdate"))&"日/"%><%
if rs("hour")>=0 and rs("hour")<7 then 
response.write "凌晨"&rs("hour")&"点" 
else 
if rs("hour")>17 and rs("hour")<24 then 
response.write "晚上"&rs("hour")-12&"点" 
else 
if rs("hour")<12 then 
response.write "上午"&rs("hour")&"点" 
else 
if rs("hour")>12 and rs("hour")<=17 then 
response.write "下午"&rs("hour")-12&"点" 
else 
if rs("hour")=12 then 
response.write "中午"&rs("hour")&"点" 
end if 
end if 
end if 
end if 
end if%><% if rs("minute")<30 then 
response.write"" 
else 
if rs("minute")>=30 then 
response.write "半" 
end if 
end if%>
<%
Response.Write "</dd>" & vbCrLf
Response.Write "<dd class=xl>" & vbCrLf
if (rs("Service"))=0 then
Response.Write "<font color=#FF0000>"&rs("Addr")&"</font>" & vbCrLf
else
if (rs("Service"))=1 then
Response.Write "<font color=#0000FF>"&rs("Addr")&"</font>" & vbCrLf
else
Response.Write ""&rs("Addr")&"" & vbCrLf
end if
end if
Response.Write "</dd>" & vbCrLf
Response.Write "<dd class=qq>"&rs("QQ")&"</dd>" & vbCrLf
Response.Write "<dd class=js>"&rs("xingzhi")&"←<font color=#FF0000>推荐</font></dd>" & vbCrLf
Response.Write "<dt class=xx>" & vbCrLf
if qikucms.sfLook = 1 then
Response.Write "<a href=Game" & qikucms.ContentHtml(rs) & ".html target=_blank>点击查看</a>" & vbCrLf
else
Response.Write "<a href=/"&sitesflook&"id="&rs("id")&" target=_blank>点击查看</a>" & vbCrLf
end if
Response.Write "</dt>" & vbCrLf
Response.Write "</dl>" & vbCrLf
rs.movenext
loop
rs.close
end if
end sub
End Class
%>
