<!--#include file="Inc/config.asp"-->
<!--#include file="Inc/conn.asp"-->
<%
					set rs=conn.execute("select ifopen , xzip from gq_config")
		if rs("ifopen")=0 then 
			response.write "网站正在维护，请稍候访问"
			response.end
		end if
		
		if instr(rs("xzip"),request.ServerVariables("REMOTE_ADDR"))>0 then 
			response.write "你的IP被限制访问，请重新尝试"
			response.end
		end if
set rs = server.createobject("adodb.recordset")
%>
<%
'=================================================
'过程名：days_0
'作  用：今天开放私服←推荐私服
'=================================================
sub days_0
sql="select id,name,IP,service,Sdate,hour,minute,addr,QQ,xingzhi,homepage,download,addtime,isBest,Ulock,hot,hotTime,BestTime"
sql=sql&" from Gq_sfdata where datediff('d',Gq_sfdata.Sdate,now())=0"
sql=sql&" and Ulock=1 order by hour,minute"
rs.open sql,conn,1,1 
if rs.eof and rs.bof then
rs.close
else
while not rs.eof
%>
<%=rs("id")%>{}<%=rs("name")%>{}<%=rs("ip")%>{}6{}<%=rs("Addr")%>{}<%=rs("sdate")%>{}<%=rs("hour")%>{}<%=rs("minute")%>{}<%=rs("Addr")%>{}<%=rs("xingzhi")%>{}<%=rs("qq")%>{}<%=rs("homepage")%>{}<%=rs("download")%>{}<%=rs("addtime")%>{}0{}1{}<%=rs("isBest")%>{}<%=rs("BestTime")%>{}<%=rs("hot")%>{}<%=rs("hotTime")%>{}0{}{}3{}<br>
<%
rs.movenext
wend 
rs.close
end if
end sub
%>
<%
'=================================================
'过程名：days_1
'作  用：明天即将开放私服←推荐私服
'=================================================
sub days_1
sql="select id,name,IP,service,Sdate,hour,minute,addr,QQ,xingzhi,homepage,download,addtime,isBest,Ulock,hot,hotTime,BestTime"
sql=sql&" from Gq_sfdata where datediff('d',Gq_sfdata.Sdate,now())=-1"
sql=sql&" and Ulock=1 order by hour,minute"
rs.open sql,conn,1,1 
if rs.eof and rs.bof then
rs.close
else
while not rs.eof
%>
<%=rs("id")%>{}<%=rs("name")%>{}<%=rs("ip")%>{}6{}<%=rs("Addr")%>{}<%=rs("sdate")%>{}<%=rs("hour")%>{}<%=rs("minute")%>{}<%=rs("Addr")%>{}<%=rs("xingzhi")%>{}<%=rs("qq")%>{}<%=rs("homepage")%>{}<%=rs("download")%>{}<%=rs("addtime")%>{}0{}1{}<%=rs("isBest")%>{}<%=rs("BestTime")%>{}<%=rs("hot")%>{}<%=rs("hotTime")%>{}0{}{}3{}<br>
<%
rs.movenext
wend 
rs.close
end if
end sub
%>
<%
'=================================================
'过程名：days_2
'作  用：后天即将开放私服←推荐私服
'=================================================
sub days_2
sql="select id,name,IP,service,Sdate,hour,minute,addr,QQ,xingzhi,homepage,download,addtime,isBest,Ulock,hot,hotTime,BestTime"
sql=sql&" from Gq_sfdata where datediff('d',Gq_sfdata.Sdate,now())=-2"
sql=sql&" and Ulock=1 order by hour,minute"
rs.open sql,conn,1,1 
if rs.eof and rs.bof then
rs.close
else
while not rs.eof
%>
<%=rs("id")%>{}<%=rs("name")%>{}<%=rs("ip")%>{}6{}<%=rs("Addr")%>{}<%=rs("sdate")%>{}<%=rs("hour")%>{}<%=rs("minute")%>{}<%=rs("Addr")%>{}<%=rs("xingzhi")%>{}<%=rs("qq")%>{}<%=rs("homepage")%>{}<%=rs("download")%>{}<%=rs("addtime")%>{}0{}1{}<%=rs("isBest")%>{}<%=rs("BestTime")%>{}<%=rs("hot")%>{}<%=rs("hotTime")%>{}0{}{}3{}<br>
<%
rs.movenext
wend 
rs.close
end if
end sub
%>
<%
'=================================================
'过程名：yesterday
'作  用：昨天已开放私服←推荐私服
'=================================================
sub yesterday
sql="select id,name,IP,service,Sdate,hour,minute,addr,QQ,xingzhi,homepage,download,addtime,isBest,Ulock,hot,hotTime,BestTime"
sql=sql&" from Gq_sfdata where datediff('d',Gq_sfdata.Sdate,now())=+1"
sql=sql&" and Ulock=1 order by hour,minute"
rs.open sql,conn,1,1 
if rs.eof and rs.bof then
rs.close
else
while not rs.eof
%>
<%=rs("id")%>{}<%=rs("name")%>{}<%=rs("ip")%>{}6{}<%=rs("Addr")%>{}<%=rs("sdate")%>{}<%=rs("hour")%>{}<%=rs("minute")%>{}<%=rs("Addr")%>{}<%=rs("xingzhi")%>{}<%=rs("qq")%>{}<%=rs("homepage")%>{}<%=rs("download")%>{}<%=rs("addtime")%>{}0{}1{}<%=rs("isBest")%>{}<%=rs("BestTime")%>{}<%=rs("hot")%>{}<%=rs("hotTime")%>{}0{}{}3{}<br>
<%
rs.movenext
wend 
rs.close
end if
end sub
%>
<%
'=================================================
'过程名：yesterday1
'作  用：前天已开放私服←推荐私服
'=================================================
sub yesterday1
sql="select id,name,IP,service,Sdate,hour,minute,addr,QQ,xingzhi,homepage,download,addtime,isBest,Ulock,hot,hotTime,BestTime"
sql=sql&" from Gq_sfdata where datediff('d',Gq_sfdata.Sdate,now())=+2"
sql=sql&" and Ulock=1 order by hour,minute"
rs.open sql,conn,1,1 
if rs.eof and rs.bof then
rs.close
else
while not rs.eof
%>
<%=rs("id")%>{}<%=rs("name")%>{}<%=rs("ip")%>{}6{}<%=rs("Addr")%>{}<%=rs("sdate")%>{}<%=rs("hour")%>{}<%=rs("minute")%>{}<%=rs("Addr")%>{}<%=rs("xingzhi")%>{}<%=rs("qq")%>{}<%=rs("homepage")%>{}<%=rs("download")%>{}<%=rs("addtime")%>{}0{}1{}<%=rs("isBest")%>{}<%=rs("BestTime")%>{}<%=rs("hot")%>{}<%=rs("hotTime")%>{}0{}{}3{}<br>
<%
rs.movenext
wend 
rs.close
end if
end sub
%>
<%
call days_0
call days_1
call days_2
call yesterday
call yesterday1
set rs=nothing
call CloseConn()
%>
