用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上实现通过。
0
投稿猜你喜欢
asp.net 将一个图片以二进制值的形式存入Xml文件中的实例代码
用js格式化金额可设置保留的小数位数
Python入门教程(七)Python数字类型
Python实现将sqlite数据库导出转成Excel(xls)表的方法
简单了解python变量的作用域
分享一个pycharm专业版安装的永久使用方法
实现动画效果核心方式的js代码
python使用在线API查询IP对应的地理位置信息实例
Python安装及Pycharm安装使用教程图解
python3 自动识别usb连接状态,即对usb重连的判断方法
Python之lxml安装失败的解决
Python的多态性实例分析
python检测服务器端口代码实例
vue 项目代码拆分的方案
Python编程pytorch深度卷积神经网络AlexNet详解
