一个简单的bbs(五)

显示页面disp.asp:

<% set connection = server.createobject("adodb.connection")
dbpath = server.mappath("bbs.mdb")
connection.open "driver={microsoft access driver (*.mdb)};dbq=" & dbpath
set rs=connection.execute("select * from bbs where id=topnum order by id desc")
set conn = server.createobject("adodb.connection")
dbpath = server.mappath("bbs.mdb")
conn.open "driver={microsoft access driver (*.mdb)};dbq=" & dbpath
do while not rs.eof %>
<% =rs("id") %>
<a href="detail.asp?id=<% =rs("id") %>"><% =rs("subject") %></a>
<font size="4"><b><% =rs("authorname") %></b></font>
<%=rs("adddate") &" " %>
<% =rs("addtime") %>(<% =rs("visitnum") %>)<p>
<% set rsnext=conn.execute("select * from bbs  where topnum<>id and cstr(topnum)="&rs("id")&" order by id asc")
do while not rsnext.eof %>

<% =rsnext(0) %>
<a href="detail.asp?id=<% =rsnext(0) %>">re<% =rsnext(6) %>:<% =rsnext(2) %></a>
<font size="4"><b><% =rsnext(1) %></b></font> <% =rsnext(4) &" " %><% =rsnext(7) %>(<% =rsnext(5) %>)<p>
<% rsnext.movenext
loop
rs.movenext
loop
rsnext.close
conn.close
rs.close
connection.close %>
</body>
</html>