www.gusucode.com > 黑鹰自助链管理系统 1.1 商业版码程序 > news.asp
<!--#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"
'response.write sql
rsDe.open sql,conn,1,1
%>
<table width=100% height=4 border=0 cellpadding=1 cellspacing=1 bgcolor="#F4FEEF">
<%
n=1
While Not rsDe.Eof and n<50
%>
<td height=20 bgcolor="#FFFFFF"> <a href='<%=rsDe("url")%>' target='_blank'><img src=logo/01.gif border=0></a> <a href='showurl.asp?id=<%=rsDe("id")%>' title=近十分钟:<%=rsDe("yl_10in")%>0次|当天来路:<%=rsDe("yl_dayin")%>0次
历史来路:<%=rsDe("yl_in")%>0次|历史去路:<%=rsDe("out")%>0次 target='_blank'>
<%if rsDe("yl_dayin")>4 then%><font color=#008000><%end if%>
<%if rsDe("yl_dayin")>9 then%></font><font color=#FF00FF><%end if%>
<%if rsDe("yl_dayin")>19 then%></font><font color=#0000ff><%end if%>
<%if rsDe("yl_dayin")>29 then%><font color=#008000><b><%end if%>
<%if rsDe("yl_dayin")>49 then%><font color=#ff0000><b><%end if%>
<%=rsDe("title")%><%if rsDe("yl_dayin")>4 then%></b></font><%end if%></a></td>
<%
if n mod 6 =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
%>