<!--#include file="mdb.asp"-->
<link rel="stylesheet" href="css/style.css">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<BODY leftMargin=0 topMargin=0 marginwidth="0" marginheight="0">
<%
set rsDe=server.createobject("adodb.recordset")
sql= "select * from detail Where verity=1 order by yl_intime desc"
rsDe.open sql,conn,1,1
%>
<%
Function RemoveHTML( strText )
Dim RegEx

Set RegEx = New RegExp

RegEx.Pattern = "<[^>]*>"
RegEx.Global = True

RemoveHTML = RegEx.Replace(strText, "")
End Function
%>
<table width=100% border=0 cellpadding=1 cellspacing=1 style="margin-left:10px;">
<%
n=1 
While Not rsDe.Eof and n<50
%>
<td height="20">&nbsp;<a href='showurl.asp?id=<%=rsDe("id")%>' title=近十分钟:<%=rsDe("yl_10in")%>次|当天来路:<%=rsDe("yl_dayin")%>次&#13&#10历史来路:<%=rsDe("yl_in")%>次|历史去路:<%=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 color=#FFAA22><b><%end if%>
<%if rsDe("yl_dayin")>49 then%><font color=#C303C1><b><%end if%>
<%=RemoveHTML(rsDe("title"))%><%if rsDe("yl_dayin")>4 then%></b></font><%end if%></a> <a href="http://alexa.chinaz.com/index.asp?Domain=<%=rsDe("url")%>" target="_blank"><img src="images/alexa.gif" alt="世界排名查看" border="0"/></a></td>
<%
if n = 1 then
'Response.write("<span class='category-pop'><s class='pop-l'></s><a href=''>最新</a><s class='pop-r'></s></span>")
Response.write("<img src='../static/images/D1.png' style='position: absolute; left: 92px; top: 0px; z-index:10000' />")
end if
%>
<%
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
if not AutoAdd then response.end

response.Write "自动收录"
conn.execute "insert into detail(title,url,classid,yl_time,yl_intime,yl_in,yl_dayin) values('自动收录','http://"&host&"',1,'"&Now&"','"&Now&"',1,1)"
'conn.execute
%>