www.gusucode.com > 黑鹰自助链管理系统 1.1 商业版码程序 > newstop.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 yl_dayin 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;
}
-->
</style><table width=100% height=4 border=0 cellpadding=3 cellspacing=1 bgcolor="#F4FEEF">
<tr><%
n=1 
While Not rsDe.Eof and n<19
%>
  <td bgcolor="#FFFFFF" width="50%"><a href='showurl.asp?id=<%=rsDe("id")%>' target='_blank' style="font-size:12px" title="<%=rsDe("title")%>"><%=left(rsDe("title"),5)%></a>(<%=rsDe("yl_dayin")%>0)<%
if n mod 2 =0 then
Response.Write("</td></Tr>")
   end if     
rsDe.MoveNext
n=n+1
Wend
rsDe.close
set rsDe=nothing
%> 
</table>