位置：首页>> 网络编程>> Asp编程>> 用ASP打造一个小型的网页BBS系统（3）

用ASP打造一个小型的网页BBS系统（3）

　来源：天极　发布时间：2008-10-10 16:36:00　

标签：

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=http://www.chinaz.com/Program/Asp/"/hosp/images/luntan.gif" BORDER=0></CENTER><P>
<CENTER><A HREF="/hosp/login.htm"><IMG SRC=http://www.chinaz.com/Program/Asp/"/hosp/images/zhuce.gif" BORDER=0></A>
<A HREF="/hosp/bbs_add.htm"><IMG SRC=http://www.chinaz.com/Program/Asp/"/hosp/images/jiatz.gif" BORDER=0></A>
<A HREF="/hosp/default.htm"><IMG SRC=http://www.chinaz.com/Program/Asp/"/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上实现通过。

第一页上一页 1 2

投稿

用ASP打造一个小型的网页BBS系统（3）

猜你喜欢