|
|
|
用ASP實現網頁BBS之二
5、帖子具體內容的顯示和回復 detail.asp
<html>
<head><title>bbs.asp</title></head>
<body background="/hosp/images/backgrnd.gif">
<% idnum=Request.QueryString("ID")
Set Connection=Server.CreateObject("ADODB.Connection")
Connection.Open "bbs"
Set RS=Connection.Execute("SELECT * FROM bbs WHERE ID='"
&idnum& "'") %>
姓名：<% =RS(1) %><p>
主題：<% =RS(2) %><p>
內容：<% =RS(3) %><p>
------------------------------------------------------------------------------
<! --形成回復表單 -->
<% resub="Re:" & RS(2)
mtopnum=RS(8)
RS.Close
Connection.Close %>
<FORM METHOD="POST" ACTION="/hosp/asp/bbs.asp?ID=<%
=idnum %>&topnum=<% =mtopnum %>"><P>
姓名: <INPUT NAME="name" SIZE="28"> 密碼: <INPUT TYPE="password"
NAME="code" SIZE="28"><P>
主題：<INPUT NAME="subject" SIZE="66" VALUE="<% =resub
%>"><P>
內容：<P>
<TEXTAREA NAME="content" ROWS=20 COLS=72></TEXTAREA><P>
<CENTER><INPUT TYPE=SUBMIT VALUE="信息回復">
<INPUT TYPE=RESET VALUE="清除信息"></CENTER>
</FORM>
<a href="http://nt-server/hosp/asp/dispbbs.asp">返回論壇</a>
</body>
</html>
|
6、所有帖子的顯示 Dispbbs.asp：列出所有的帖子的主題、作者、時間、訪問人數等信息。
<html>
<head><title>dispbbs.asp</title></head>
<body background="/hosp/images/backgrnd.gif">
<CENTER><IMG SRC="/hosp/images/luntan.gif" BORDER=0></CENTER><P>
<CENTER><A HREF="/hosp/login.asp"><IMG SRC="/hosp/images/zhuce.gif"
BORDER=0></A>
<A HREF="/hosp/bbs_add.asp"><IMG SRC="/hosp/images/jiatz.gif"
BORDER=0></A>
<A HREF="/hosp/default.asp"><IMG SRC="/hosp/images/return.gif"
BORDER=0></A></CENTER><P>
<% Set Connection=Server.CreateObject("ADODB.Connection")
Connection.Open "bbs"
Set RS=Connection.Execute("SELECT * FROM bbs WHERE ID=answernum
ORDER BY ID DESC")
Set Conn=Server.CreateObject("ADODB.Connection")
Conn.Open "bbs"
Set RSNEXT=Conn.Execute("SELECT * FROM bbs")
Do While not RS.EOF %>
<% =RS(0) %> <a href="/hosp/asp/detail.asp?ID=<%
=RS(0) %>"><% =RS(2) %></a> -<FONT
SIZE="4"><B><% =RS(1) %></B></FONT>
<%
=RS(4) &" " %><% =RS(7) %>(<% =RS(5) %>)<P>
<% Set RSNEXT=Conn.Execute("SELECT * FROM bbs WHERE topnum<>ID
AND opnum='" &RS(0)& "' ORDER BY ID ASC")
Do While Not RSNEXT.EOF %>
<% =RSNEXT(0) %> <a href="/hosp/asp/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> |
上述程序在Win NT4.0和IIS3.0上實現通過。
|
|
|
