最新下载
热门教程
- 1
- 2
- 3
- 4
- 5
- 6
- 7
- 8
- 9
- 10
一个简单的bbs(五)
时间：2008-01-18 编辑：简简单单 来源：一聚教程网
显示页面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") %>
"><% =RS("subject") %>
<% =RS("authorname") %>
<%=RS("adddate") &" " %>
<% =RS("addtime") %>(<% =RS("visitnum") %>)
<% 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") %>
"><% =RS("subject") %>
<% =RS("authorname") %>
<%=RS("adddate") &" " %>
<% =RS("addtime") %>(<% =RS("visitnum") %>)
<% 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) %>
Re<% =RSNEXT(6) %>:<% =RSNEXT(2) %>
<% =RSNEXT(1) %> <% =RSNEXT(4) &" " %><% =RSNEXT(7) %>(<% =RSNEXT(5) %>)
<% RSNEXT.MoveNext
Loop
RS.MoveNext
Loop
rsnext.Close
Conn.Close
RS.Close
Connection.Close %>