set conn = server.CreateObject("adodb.connection")
conn.Open session("dsn"),session("sqllogin_1"),session("sqlpassword_1")
'显示后10条记录。
listsql = "select TOP 5 * from tdown order by time DESC "
set listrs = server.CreateObject("adodb.recordset")
'Response.Write listsql
listrs.Open listsql,conn,1
%>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
</HEAD>
<BODY>
<form id="list" name="list">
<table border="1" width="600">
<tr><td width=80>类别</td>
<td width=200>下载地址</td>
<td width = 200>简介</td>
<td width = 140>更新时间</td>
</tr>
<%
if listrs.RecordCount = 0 then
Response.Write "没有记录!!"
Response.Flush
else
Response.Write "后五条记录:"
listrs.MoveFirst
do while not listrs.eof
Response.Write "<tr><td>"
Response.Write listrs("class")
Response.Write "</td><td>"
Response.Write listrs("address")
Response.Write "</td><td>"
Response.Write "<a href='editdown.asp?downid="&listrs("downid")& "'>"&listrs("intro")&"</a>"
Response.Write "</td><td>"
Response.Write listrs("time")
Response.Write "</td></tr>"
listrs.MoveNext
Response.Flush
loop
end if %>
</table>
</form>
</BODY>
</HTML>