用ASP实现网页BBS
<span id=articlecontent1_articlecontent1_lblcontent><font size=3>传统的网页bbs大多是采用cgi模式实现的，它的实现要求编程者既要掌握编程语言如perl或c等，又要了解关于cgi模式的各项技术内容，因此要制作自己的网页bbs确实困难不小。asp（active server pages 动态服务器主页）的出现，使我们眼前一亮，能不能利用asp实现网页bbs呢？回答当然是肯定的。asp的诱人之处就在于它提供了一种简单易学的脚本，并带有许多内置的对象，从而提供了一条简捷的编程之路。 </font><p></p>
<p>该bbs主要由用户注册(浏览器端)、用户注册（服务器端）、加帖子（浏览器端）、加帖子（服务器端）、帖子具体内容的显示和回复以及所有帖子的显示六个部分组成，其中用户信息存放在数据库author.mdb中，帖子存放在数据库bbs.mdb中。它们均为access数据库，结构分别如表1、表2所示。<br><br>表1 author.mdb<br></p>
<table bordercolor=#0039ff border='"1"'>
<tbody>
<tr>
<td><font color=#0033ff>字段名 数据类型 长度 说明</font><br>authname 文本 24 用户名<br>password 文本 10 密码</td></tr></tbody></table>
<p><br><br>表2 bbs.mdb<br></p>
<table bordercolor=#0039ff border='"1"'>
<tbody>
<tr>
<td><font color=#0000ff>字段名 数据类型 长度 说明</font><br>id 文本 4 帖子的编号<br>authname 文本 24 用户名<br>subject 文本 80 主题<br>content 备注 内容<br>adddate 日期/时间 加贴的日期<br>visitnum 数字 长整型 访问人数<br>answernum 文本 4 所回复帖子的编号<br>（缺省为本身的编号）<br>addtime 日期/时间 加贴的时间<br>topnum 文本 4 第一层回复帖子的编号</td></tr></tbody></table>
<p><br>具体实现方法如下所示，其中asp文件和数据库存放在“/hosp/asp"中，其它htm<br>文件存放在“/hosp"文件中，img文件存放在“/hosp/images"。</p>
<p>1、 用户注册（浏览器端）login.htm:由用户输入相关信息，通过表单传送到服<br>务器。<br></p>
<table bordercolor=#0039ff border='"1"'>
<tbody>
<tr>
<td><html><br><head><title> register a new user</title><head><br><body><br><form method="post" action="/hosp/asp/register.asp"><p><br><h2>为了标识方便，请您注册一个用户名称</h2><br>用户：<input type="text" name="name" size="24"><p><br>密码：<input type="password" name="password" size="24"><p><br><input type=submit value="注 册"><br><input type=reset value="清 除"><br><a href="/hosp/asp/dispbbs.asp">返回论坛</a><p><br></body><br></html></td></tr></tbody></table>
<p>2、 用户注册（服务器端）register.asp：利用request.form("表单栏位名")接收表单信息，采用ado技术与数据库author.mdb连接，并将表单信息存入author.mdb中。</p>
<table bordercolor=#0039ff border='"1"'>
<tbody>
<tr>
<td><html><br><head><title> 存用户信息 </title></head><br><body><br><!-- 取客户浏览器输入的用户名和密码 --><br><% name=request.form("name")<br>code=request.form("password")<br><!-- 与author.mdb连接 --><br>set connection=server.createobject("adodb.connection")<br>connection.open "author"<br>set rs=connection.execute("select * from author")<br><!-- 如果该用户名已存在，请重输，否则存入数据库 --><br>if not rs.eof then %><br>该用户名已被注册，请您重新<a href="/hosp/login.htm">注册</a>新用户名!<br><% else<br>connection.execute("insert into author(authname,password) values('" &name& "','" &code& "')")<br>rs.close<br>connection.close %><br><center><b><% =name %></b> 您已注册成功!<p><br><a href="/hosp/asp/dispbbs.asp">返回论坛</a></center><br><% end if %><br></body><br></html></td></tr></tbody></table>
<p> </p>
<p>3、 加帖子（浏览器端）bbs_add.htm：由用户输入待加入帖子的相关信息，并传到服务器。<br></p>
<table bordercolor=#0039ff border='"1"'>
<tbody>
<tr>
<td><html><br><head><title> a sample form </title></head><br><body background="/hosp/backgrnd.gif"><br><form method="post" action="/hosp/asp/bbs.asp"><p><br>姓名: <input name="name" size="28"> 密码: <input type="password" name="code" size="28"><p><br>主题：<input name="subject" size="66"><p><br>内容：<p><br><textarea name="content" rows=20 cols=72></textarea><p><br><center><input type=submit value="发布信息"><br><input type=reset value="清除信息"></center><br></form><br></body><br></html></td></tr></tbody></table>
<p>4、 加帖子（服务器端）bbs.asp：接收帖子内容，并存入bbs.mdb中。</p>
<table bordercolor=#0039ff border='"1"'>
<tbody>
<tr>
<td><html><br><head><title>bbs.asp</title></head><br><body><br><% name=request.form("name")<br>code=request.form("code")<br>subject=request.form("subject")<br>content=request.form("content")<br>curdate=date<br>curtime=time<br><!-- 与author.mdb连接 --><br>set connection = server.createobject("adodb.connection")<br>connection.open "author"<br>set rs = connection.execute("select * from author where authname='" &name& "' and password='" &code& "'")<br><!-- 判断用户名与密码是否匹配 --><br>if not rs.eof then<br><!-- 打开数据文件，该文件存放帖子的编号，每加一个帖子，编号加1 --><br>set fileobject = server.createobject("scripting.filesystemobject")<br>set instream = fileobject.opentextfile ("c:inetpubwwwroothospaspdata.id", 1, false, false)<br>number = cstr(instream.readline+1)<br>set outstream = fileobject.createtextfile ("c:inetpubwwwroothospaspdata.id", true, false)<br>outstream.writeline number<br>if request.querystring("id")="" then<br>manswernum=number<br>else<br>manswernum=request.querystring("id")<br>end if<br>if request.querystring("topnum")="" then<br>mtopnum=number<br>else<br>mtopnum=request.querystring("topnum")<br>end if<br>set outstream = nothing<br><!-- 与bbs.mdb连接，将帖子信息存入数据库中 --><br>set connbbs = server.createobject("adodb.connection")<br>connbbs.open "bbs"<br>connbbs.execute("insert into bbs(id,authname,subject,content,adddate,addtime,answernum,topnum,visitnum) values('" &number& "','" <br>&name& "','" &subject& "','" &content& "','" &curdate& "','" &curtime& "','" &manswernum& "','" &mtopnum& "',0)")<br>connbbs.close %><br><% =curdate & " " %><% =curtime & " 添加贴子 " %><br><a href="http://nt-server/hosp/asp/dispbbs.asp">返回论坛</a><p><br>姓名：<% =name %><p><br>主题：<% =subject %><p><br>内容：<% =content %><p><br><% else %><br>您的用户名或密码出错，请您重输！<br><% end if<br>rs.close<br>connection.close %><br></body><br></html><br></td></tr></tbody></table>
<p><br>5、帖子具体内容的显示和回复 detail.asp <br><br></p>
<table bordercolor=#0039ff border='"1"'>
<tbody>
<tr>
<td><html><br><head><title>bbs.asp</title></head><br><body background="/hosp/backgrnd.gif"><br><% idnum=request.querystring("id")<br>set connection=server.createobject("adodb.connection")<br>connection.open "bbs"<br>set rs=connection.execute("select * from bbs where id='" &idnum& "'") %><br>姓名：<% =rs(1) %><p><br>主题：<% =rs(2) %><p><br>内容：<% =rs(3) %><p><br><br>------------------------------------------------------------------------------ <br><! --形成回复表单 --><br><% resub="re:" & rs(2) <br>mtopnum=rs(8)<br>rs.close<br>connection.close %><br><form method="post" action="/hosp/asp/bbs.asp?id=<% =idnum %>&topnum=<% =mtopnum %>"><p><br>姓名: <input name="name" size="28"> 密码: <input type="password" name="code" size="28"><p><br>主题：<input name="subject" size="66" value="<% =resub %>"><p><br>内容：<p><br><textarea name="content" rows=20 cols=72></textarea><p><br><center><input type=submit value="信息回复"><br><input type=reset value="清除信息"></center><br></form><br><a href="http://nt-server/hosp/asp/dispbbs.asp">返回论坛</a><br></body><br></html><br></td></tr></tbody></table>
<p><br>6、所有帖子的显示 dispbbs.asp：列出所有的帖子的主题、作者、时间、访问人数等信息。<br></p>
<table bordercolor=#0039ff border='"1"'>
<tbody>
<tr>
<td><br><br><html><br><head><title>dispbbs.asp</title></head><br><body background="/hosp/backgrnd.gif"><br><center><img src="http://edu.chinaz.com/hosp/luntan.gif" border=0></center><p><br><center><a href="/hosp/login.htm"><img src="http://edu.chinaz.com/hosp/zhuce.gif" border=0></a><br><a href="/hosp/bbs_add.htm"><img src="http://edu.chinaz.com/hosp/jiatz.gif" border=0></a><br><a href="/hosp/default.htm"><img src="http://edu.chinaz.com/hosp/return.gif" border=0></a></center><p><br><% set connection=server.createobject("adodb.connection")<br>connection.open "bbs"<br>set rs=connection.execute("select * from bbs where id=answernum order by id desc") <br>set conn=server.createobject("adodb.connection")<br>conn.open "bbs"<br>set rsnext=conn.execute("select * from bbs")<br>do while not rs.eof %><br><% =rs(0) %> <a href="/hosp/asp/detail.asp?id=<% =rs(0) %>"><% =rs(2) %></a> -<font size="4"><b><% =rs(1) %></b></font> <% <br>=rs(4) &" " %><% =rs(7) %>(<% =rs(5) %>)<p><br><% set rsnext=conn.execute("select * from bbs where topnum<>id and opnum='" &rs(0)& "' order by id asc")<br>do while not rsnext.eof %><br><% =rsnext(0) %> <a href="/hosp/asp/detail.asp?id=<% =rsnext(0) %>">re<% rsnext(6) %>:<% =rsnext(2) %></a><br>-<font size="4"><b><% =rsnext(1) %></b></font> <% =rsnext(4) &" " %><% =rsnext(7) %>(<% =rsnext(5) %>)<p><br><% rsnext.movenext<br>loop<br>rs.movenext<br>loop<br>rsnext.close<br>conn.close<br>rs.close<br>connection.close %><br></body><br></html> </td></tr></tbody></table>
<p>上述程序在win nt4.0和iis3.0上实现通过。</p></span> 谢谢楼主的分享，我要好好研究一下。 [EM02][EM03] 我什么也看不到啊 [img]/bf/face6.gif[/img][img]/bf/face6.gif[/img][img]/bf/face6.gif[/img] 学习一下 谢谢了 谢谢楼主,正为找这个发愁呢...... 谢谢[EM06][EM15] i have copied all the content,hehe.just echo at the same time 居然到这里看到这篇
顶的人还是有的
就是没人说出这里面的错误
可能和“上述程序在win nt4.0和iis3.0上实现通过。”这句话有关系？？？？？
难道4.0iis3.0不分数据库字段类型？？？困惑！ xiexie
页:
[1]