www.gusucode.com > 黑鹰自助链管理系统 1.1 商业版码程序 > newsjs.asp
<!--#include file="mdb.asp"--> <link rel="stylesheet" href="css/style.css"> <meta http-equiv="Content-Type" content="text/html; charset=gb2312" /> <% set rsDe=server.createobject("adodb.recordset") sql= "select * from detail where verity=1 order by id desc" 'response.write sql rsDe.open sql,conn,1,1 %> <style type="text/css"> <!-- body { margin-left: 0px; margin-top: 0px; margin-right: 0px; margin-bottom: 0px; } .div11 { color: #000000; float: left; height: 20px; width: 100px; margin: 3px; padding: 3px; text-align: center; } --> </style><table width=383 height=4 border=0 cellpadding=3 cellspacing=1 bgcolor="#F4FEEF"> <tr> <td height=18 width="383" bgcolor="#FFFFFF" align="center"> <% n=1 While Not rsDe.Eof and n<15 %> <div class="div11"><a href='showurl.asp?id=<%=rsDe("id")%>' title=近十分钟:<%=rsDe("yl_10in")%>次|当天来路:<%=rsDe("yl_dayin")%>次
历史来路:<%=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=#0000ff><b> <%end if%> <%if rsDe("yl_dayin")>49 then%> <font color=#ff0000><%end if%><%=rsDe("title")%><%if rsDe("yl_dayin")>4 then%></font><%end if%></a></div><% if n mod 3 =0 then Response.Write("") end if rsDe.MoveNext n=n+1 Wend rsDe.close set rsDe=nothing %> </td></tr></table> </table>