观看日排行
周排行
月排行
总排行
<% set rsh=Server.CreateObject("Adodb.Recordset") sql="select top 10 * from down order by hits_day desc" 'SQL="select top 13 * from [down] where hits_datetime=date() order by hits_day desc" rsh.open sql,conn,1,1 i=1 do while not rsh.eof and i<=10 if len(rsh("cxn"))>12 then name=left(rsh("cxn"),12) else name=rsh("cxn") end if %> <% rsh.movenext i=i+1 loop rsh.close:set rsh=nothing %>
href="sh/text/<%=rsh("id")%>.html" target=_blank><%=i%>·<%=left(rsh("cxn"),14)%>
<% set rsh=Server.CreateObject("Adodb.Recordset") sql="select top 10 * from down order by id desc" 'sql="select top 13 * from [down] order by hits_week desc " rsh.open sql,conn,1,1 i=1 do while not rsh.eof and i<=10 if len(rsh("cxn"))>12 then name=left(rsh("cxn"),12) else name=rsh("cxn") end if %> <% rsh.movenext i=i+1 loop rsh.close:set rsh=nothing %>
href="sh/text/<%=rsh("id")%>.html" target=_blank><%=i%>·<%=left(rsh("cxn"),14)%>
<% set rsh=Server.CreateObject("Adodb.Recordset") sql="select top 10 * from down order by id desc" 'sql="select top 13 id,name,hits_ms from [down] order by hits_ms desc " rsh.open sql,conn,1,1 i=1 do while not rsh.eof and i<=10 if len(rsh("cxn"))>12 then name=left(rsh("cxn"),12) else name=rsh("cxn") end if %> <% rsh.movenext i=i+1 loop rsh.close:set rsh=nothing %>
href="sh/text/<%=rsh("id")%>.html" target=_blank><%=i%>·<%=left(rsh("cxn"),14)%>
<% set rsh=Server.CreateObject("Adodb.Recordset") sql="select top 10 * from down order by hits desc" 'sql="select top 13 * from [down] order by hits desc " rsh.open sql,conn,1,1 i=1 do while not rsh.eof and i<=10 if len(rsh("cxn"))>12 then name=left(rsh("cxn"),12) else name=rsh("cxn") end if %> <% rsh.movenext i=i+1 loop rsh.close:set rsh=nothing %>
href="sh/text/<%=rsh("id")%>.html" target=_blank><%=i%>·<%=left(rsh("cxn"),14)%>