<!--#include file="mdb.asp"-->
<%
set rs1=server.createobject("adodb.recordset")
rs1.open "select * from title",conn,1,3
site=rs1("site")
siteurl=rs("siteurl")
webkeywords=rs1("webkeywords")
webdescription=rs1("webdescription")
rs1.close
set rs1=Nothing
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>最新网站来路排行_<%=site%>__QZ97导航网(www.qz97.net)旗下网站</title>
<meta name="keywords" content="最新网站来路排行,<%=webkeywords%>">
<meta name="description" content="<%=site%>最新网站来路排行，<%=webdescription%>">
<meta name="copyright" content="Copyright 2008-2016 - Www.qz97.net/13mzh">
<link href="images/style.css" rel="stylesheet" type="text/css" />
</head>
<BODY>
<%
set rsDe=server.createobject("adodb.recordset")
sql= "select * from detail Where verity=1 order by yl_intime desc" 
'response.write sql
rsDe.open sql,conn,1,1
%>
<table width=100% border=0 align="center" cellpadding=1 cellspacing=1 bgcolor="#DDDDDD">
<%
n=1 
While Not rsDe.Eof and n<106
%>
<td height=20 bgcolor="#F9FDFC"><a href='http://<%=rsDe("url")%>' target='_blank'><img src=logo/01.gif border=0></a> <a href='showurl.asp?id=<%=rsDe("id")%>' title=<%=rsDe("title")%>&#13&#10【近十分钟】:<%=rsDe("yl_10in")%>次&#13&#10【当天来路】:<%=rsDe("yl_dayin")%>次&#13&#10【历史来路】:<%=rsDe("yl_in")%>次&#13&#10【历史去路】:<%=rsDe("out")%>次 target='_blank'>
<%if rsDe("yl_dayin")>4 then%>
<font color=#ff00FF>
<%end if%>
<%if rsDe("yl_dayin")>9 then%>
</font>
<font color=#0000ff>
<%end if%>
<%if rsDe("yl_dayin")>19 then%>
</font>
<font color=#FF0000>
<%end if%>
<%if rsDe("yl_dayin")>29 then%>
</font>
<font color=#0000ff>
<b>
<%end if%>
<%if rsDe("yl_dayin")>49 then%>
</b>
</font>
<font color=#ff0000>
<b>
<%end if%>
<%=rsDe("title")%>
<%if rsDe("yl_dayin")>4 then%>
</b>
</font>
<%end if%>
</a> 
<a href="http://www.alexa.com/data/details/traffic_details?q=&amp;url=<%=rsDe("url")%>" target="_blank"><img src="images/alexa.gif" alt="世界排名查看" border="0"/></a></td>
<%
if n mod 7 =0 then
Response.Write("</Tr>")
end if     
rsDe.MoveNext
n=n+1
Wend
rsDe.close
set rsDe=nothing
%></table>
<% set rs=server.createobject("adodb.recordset")
rs.open "select * from title",conn,1,3
auto=rs("auto")
rs.close
set rs=nothing
if auto<>1 then
Response.Write ""
Else
set rsDe=server.createobject("adodb.recordset")
sql=" select * from detail where verity=0 order by id desc"
rsDe.open sql,conn,1,3
do while not rsDe.eof
if rsDe("yl_in")>0 then
rsDe("verity")=1
rsDe.update
end if
rsDe.movenext 
loop 
rsDe.close
set rsDe=nothing
Response.End
end if
%>
</body>
</html>