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")%>次&#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=#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>