返回列表 回复 发帖 点我体验网上斗地主的乐趣
baidu

版主

Rank: 7Rank: 7Rank: 7
1#
打印
tT
发表于 2008-6-7 23:37 | 只看该作者    踩窝窝   送礼物   问候Ta

用ASP实现网页BBS

  1. 传统的网页BBS大多是采用CGI模式实现的，它的实现要求编程者既要掌握编程语言如Perl或C等，又要了解关于CGI模式的各项技术内容，因此要制作自己的网页BBS确实困难不小。ASP（Active Server Pages 动态服务器主页）的出现，使我们眼前一亮，能不能利用ASP实现网页BBS呢？回答当然是肯定的。ASP的诱人之处就在于它提供了一种简单易学的脚本，并带有许多内置的对象，从而提供了一条简捷的编程之路。

  3. 　　该BBS主要由用户注册(浏览器端)、用户注册（服务器端）、加帖子（浏览器端）、加帖子（服务器端）、帖子具体内容的显示和回复以及所有帖子的显示六个部分组成，其中用户信息存放在数据库author.mdb中，帖子存放在数据库bbs.mdb中。它们均为ACCESS数据库，结构分别如表1、表2所示。

  5. 表1 author.mdb


  8. 字段名 数据类型 长度 说明
  9. Authname 文本 24 用户名
  10. Password 文本 10 密码



  14. 表2 bbs.mdb


  17. 字段名 　数据类型　 长度　 说明
  18. ID 　　　　文本　　　 4 　帖子的编号
  19. Authname　 文本 　　　24　 用户名
  20. Subject 　　文本 　　80 　　主题
  21. Content 　　备注　　　　　 内容
  22. Adddate 日期/时间　　　　 加贴的日期
  23. Visitnum　 数字 　长整型　 访问人数
  24. Answernum　 文本　　4　　 所回复帖子的编号
  25. （缺省为本身的编号）
  26. Addtime 　日期/时间　　　　 加贴的时间
  27. Topnum　　 文本　　　4 　　第一层回复帖子的编号


  30. 具体实现方法如下所示，其中asp文件和数据库存放在“/hosp/asp"中，其它htm
  31. 文件存放在“/hosp"文件中，img文件存放在“/hosp/images"。

  33. 1、 用户注册（浏览器端）login.htm:由用户输入相关信息，通过表单传送到服
  34. 务器。



  38. ＜html＞
  39. ＜head＞＜title＞ register a new user＜/title＞＜head＞
  40. ＜body＞
  41. ＜FORM METHOD="POST" ACTION="/hosp/asp/register.asp"＞＜P＞
  42. ＜H2＞为了标识方便，请您注册一个用户名称＜/H2＞
  43. 用户：＜INPUT TYPE="TEXT" name="name" SIZE="24"＞＜P＞
  44. 密码：＜INPUT TYPE="password" name="password" SIZE="24"＞＜P＞
  45. ＜INPUT TYPE=SUBMIT VALUE="注 册"＞
  46. ＜INPUT TYPE=RESET VALUE="清 除"＞
  47. ＜a href="/hosp/asp/dispbbs.asp"＞返回论坛＜/a＞＜P＞
  48. ＜/body＞
  49. ＜/html＞


  52. 2、 用户注册（服务器端）Register.asp：利用REQUEST.FORM("表单栏位名")接收表单信息，采用ADO技术与数据库author.mdb连接，并将表单信息存入author.mdb中。


  55. ＜html＞
  56. ＜head＞＜title＞ 存用户信息 ＜/title＞＜/head＞
  57. ＜body＞
  58. ＜!-- 取客户浏览器输入的用户名和密码 --＞
  59. ＜% name=REQUEST.FORM("name")
  60. code=REQUEST.FORM("password")
  61. ＜!-- 与author.mdb连接 --＞
  62. Set Connection=Server.CreateObject("ADODB.Connection")
  63. Connection.Open "author"
  64. Set RS=Connection.Execute("SELECT * FROM author")
  65. ＜!-- 如果该用户名已存在，请重输，否则存入数据库 --＞
  66. If Not RS.EOF Then %＞
  67. 该用户名已被注册，请您重新＜a href="/hosp/login.htm"＞注册＜/a＞新用户名!
  68. ＜% Else
  69. Connection.Execute("INSERT INTO author(authname,password) Values('" &name& "','" &code& "')")
  70. RS.Close
  71. Connection.Close %＞
  72. ＜CENTER＞＜B＞＜% =name %＞＜/B＞ 您已注册成功!＜P＞
  73. ＜a href="/hosp/asp/dispbbs.asp"＞返回论坛＜/a＞＜/CENTER＞
  74. ＜% End If %＞
  75. ＜/body＞
  76. ＜/html＞


  79. 　

  81. 3、 加帖子（浏览器端）bbs_add.htm：由用户输入待加入帖子的相关信息，并传到服务器。



  85. ＜html＞
  86. ＜head＞＜title＞ a sample form ＜/title＞＜/head＞
  87. ＜body background="/hosp/images/backgrnd.gif"＞
  88. ＜FORM METHOD="POST" ACTION="/hosp/asp/bbs.asp"＞＜P＞
  89. 姓名: ＜INPUT NAME="name" SIZE="28"＞ 密码: ＜INPUT TYPE="password" NAME="code" SIZE="28"＞＜P＞
  90. 主题：＜INPUT NAME="subject" SIZE="66"＞＜P＞
  91. 内容：＜P＞
  92. ＜TEXTAREA NAME="content" ROWS=20 COLS=72＞＜/TEXTAREA＞＜P＞
  93. ＜CENTER＞＜INPUT TYPE=SUBMIT VALUE="发布信息"＞
  94. ＜INPUT TYPE=RESET VALUE="清除信息"＞＜/CENTER＞
  95. ＜/FORM＞
  96. ＜/body＞
  97. ＜/html＞


  100. 4、 加帖子（服务器端）bbs.asp：接收帖子内容，并存入bbs.mdb中。


  103. ＜html＞
  104. ＜head＞＜title＞bbs.asp＜/title＞＜/head＞
  105. ＜body＞
  106. ＜% name=REQUEST.FORM("name")
  107. code=REQUEST.FORM("code")
  108. subject=REQUEST.FORM("subject")
  109. content=REQUEST.FORM("content")
  110. curdate=Date
  111. curtime=Time
  112. ＜!-- 与author.mdb连接 --＞
  113. Set Connection = Server.CreateObject("ADODB.Connection")
  114. Connection.Open "author"
  115. Set RS = Connection.Execute("SELECT * FROM author WHERE authname='" &name& "' AND password='" &code& "'")
  116. ＜!-- 判断用户名与密码是否匹配 --＞
  117. If Not RS.EOF Then
  118. ＜!-- 打开数据文件，该文件存放帖子的编号，每加一个帖子，编号加1 --＞
  119. Set FileObject = Server.CreateObject("Scripting.FileSystemObject")
  120. Set InStream = FileObject.OpenTextFile ("c:\inetpub\wwwroot\hosp\asp\data.id", 1, False, False)
  121. number = Cstr(InStream.Readline+1)
  122. Set OutStream = FileObject.CreateTextFile ("c:\inetpub\wwwroot\hosp\asp\data.id", True, False)
  123. OutStream.WriteLine number
  124. If Request.QueryString("ID")="" Then
  125. manswernum=number
  126. Else
  127. manswernum=Request.QueryString("ID")
  128. End If
  129. If Request.QueryString("topnum")="" Then
  130. mtopnum=number
  131. Else
  132. mtopnum=Request.QueryString("topnum")
  133. End If
  134. Set OutStream = Nothing
  135. ＜!-- 与bbs.mdb连接，将帖子信息存入数据库中 --＞
  136. Set Connbbs = Server.CreateObject("ADODB.Connection")
  137. Connbbs.Open "bbs"
  138. Connbbs.Execute("INSERT INTO bbs(ID,authname,subject,content,adddate,addtime,answernum,topnum,visitnum) Values('" &number& "','"
  139. &name& "','" &subject& "','" &content& "','" &curdate& "','" &curtime& "','" &manswernum& "','" &mtopnum& "',0)")
  140. Connbbs.Close %＞
  141. ＜% =curdate & " " %＞＜% =curtime & " 添加贴子 " %＞
  142. ＜a href="http://nt-server/hosp/asp/dispbbs.asp"＞返回论坛＜/a＞＜P＞
  143. 姓名：＜% =name %＞＜P＞
  144. 主题：＜% =subject %＞＜P＞
  145. 内容：＜% =content %＞＜P＞
  146. ＜% Else %＞
  147. 您的用户名或密码出错，请您重输！
  148. ＜% End If
  149. RS.Close
  150. Connection.Close %＞
  151. ＜/body＞
  152. ＜/html＞




  157. 5、帖子具体内容的显示和回复 detail.asp




  162. ＜html＞
  163. ＜head＞＜title＞bbs.asp＜/title＞＜/head＞
  164. ＜body background="/hosp/images/backgrnd.gif"＞
  165. ＜% idnum=Request.QueryString("ID")
  166. Set Connection=Server.CreateObject("ADODB.Connection")
  167. Connection.Open "bbs"
  168. Set RS=Connection.Execute("SELECT * FROM bbs WHERE ID='" &idnum& "'") %＞
  169. 姓名：＜% =RS(1) %＞＜p＞
  170. 主题：＜% =RS(2) %＞＜p＞
  171. 内容：＜% =RS(3) %＞＜p＞

  173. ------------------------------------------------------------------------------
  174. ＜! --形成回复表单 --＞
  175. ＜% resub="Re:" & RS(2)
  176. mtopnum=RS(8)
  177. RS.Close
  178. Connection.Close %＞
  179. ＜FORM METHOD="POST" ACTION="/hosp/asp/bbs.asp?ID=＜% =idnum %＞&topnum=＜% =mtopnum %＞"＞＜P＞
  180. 姓名: ＜INPUT NAME="name" SIZE="28"＞ 密码: ＜INPUT TYPE="password" NAME="code" SIZE="28"＞＜P＞
  181. 主题：＜INPUT NAME="subject" SIZE="66" VALUE="＜% =resub %＞"＞＜P＞
  182. 内容：＜P＞
  183. ＜TEXTAREA NAME="content" ROWS=20 COLS=72＞＜/TEXTAREA＞＜P＞
  184. ＜CENTER＞＜INPUT TYPE=SUBMIT VALUE="信息回复"＞
  185. ＜INPUT TYPE=RESET VALUE="清除信息"＞＜/CENTER＞
  186. ＜/FORM＞
  187. ＜a href="http://nt-server/hosp/asp/dispbbs.asp"＞返回论坛＜/a＞
  188. ＜/body＞
  189. ＜/html＞




  194. 6、所有帖子的显示 Dispbbs.asp：列出所有的帖子的主题、作者、时间、访问人数等信息。





  200. ＜html＞
  201. ＜head＞＜title＞dispbbs.asp＜/title＞＜/head＞
  202. ＜body background="/hosp/images/backgrnd.gif"＞
  203. ＜CENTER＞＜IMG SRC="/hosp/images/luntan.gif" BORDER=0＞＜/CENTER＞＜P＞
  204. ＜CENTER＞＜A HREF="/hosp/login.htm"＞＜IMG SRC="/hosp/images/zhuce.gif" BORDER=0＞＜/A＞
  205. ＜A HREF="/hosp/bbs_add.htm"＞＜IMG SRC="/hosp/images/jiatz.gif" BORDER=0＞＜/A＞
  206. ＜A HREF="/hosp/default.htm"＞＜IMG SRC="/hosp/images/return.gif" BORDER=0＞＜/A＞＜/CENTER＞＜P＞
  207. ＜% Set Connection=Server.CreateObject("ADODB.Connection")
  208. Connection.Open "bbs"
  209. Set RS=Connection.Execute("SELECT * FROM bbs WHERE ID=answernum ORDER BY ID DESC")
  210. Set Conn=Server.CreateObject("ADODB.Connection")
  211. Conn.Open "bbs"
  212. Set RSNEXT=Conn.Execute("SELECT * FROM bbs")
  213. Do While not RS.EOF %＞
  214. ＜% =RS(0) %＞ ＜a href="/hosp/asp/detail.asp?ID=＜% =RS(0) %＞"＞＜% =RS(2) %＞＜/a＞ -＜FONT SIZE="4"＞＜B＞＜% =RS(1) %＞＜/B＞＜/FONT＞ ＜%
  215. =RS(4) &" " %＞＜% =RS(7) %＞(＜% =RS(5) %＞)＜P＞
  216. ＜% Set RSNEXT=Conn.Execute("SELECT * FROM bbs WHERE topnum＜＞ID AND opnum='" &RS(0)& "' ORDER BY ID ASC")
  217. Do While Not RSNEXT.EOF %＞
  218. ＜% =RSNEXT(0) %＞ ＜a href="/hosp/asp/detail.asp?ID=＜% =RSNEXT(0) %＞"＞Re＜% RSNEXT(6) %＞:＜% =RSNEXT(2) %＞＜/a＞
  219. -＜FONT SIZE="4"＞＜B＞＜% =RSNEXT(1) %＞＜/B＞＜/FONT＞ ＜% =RSNEXT(4) &" " %＞＜% =RSNEXT(7) %＞(＜% =RSNEXT(5) %＞)＜P＞
  220. ＜% RSNEXT.MoveNext
  221. Loop
  222. RS.MoveNext
  223. Loop
  224. RSNEXT.Close
  225. Conn.Close
  226. RS.Close
  227. Connection.Close %＞
  228. ＜/body＞
  229. ＜/html＞
复制代码
收藏 分享 评分
回复 引用

订阅 TOP

返回列表 回复 发帖