用ASP打造一个小型的网页BBS系统（2）
来源：天极 时间：2008-10-10 16:36:00
2、 用户注册（服务器端）Register.asp：利用REQUEST.FORM("表单栏位名")接收表单信息，采用ADO技术与数据库author.mdb连接，并将表单信息存入author.mdb中。
以下是引用片段：
<html>
<head><title> 存用户信息 </title></head>
<body>
<!-- 取客户浏览器输入的用户名和密码 -->
<％ name=REQUEST.FORM("name")
code=REQUEST.FORM("password")
<!-- 与author.mdb连接 -->
Set Connection=Server.CreateObject("ADODB.Connection")
Connection.Open "author"
Set RS=Connection.Execute("SELECT * FROM author")
<!-- 如果该用户名已存在，请重输，否则存入数据库 -->
If Not RS.EOF Then ％>
该用户名已被注册，请您重新<a href="/hosp/login.htm">注册</a>新用户名!
<％ Else
Connection.Execute("INSERT INTO author(authname,password) Values('" &name& "','" &code& "')")
RS.Close
Connection.Close ％>
<CENTER><B><％ =name ％></B> 您已注册成功!<P>
<a href="/hosp/asp/dispbbs.asp">返回论坛</a></CENTER>
<％ End If ％>
</body>
</html>
3、 加帖子（浏览器端）bbs_add.htm：由用户输入待加入帖子的相关信息，并传到服务器。
以下是引用片段：
<html>
<head><title> a sample form </title></head>
<body background="/hosp/images/backgrnd.gif">
<FORM METHOD="POST" ACTION="/hosp/asp/bbs.asp"><P>
姓名: <INPUT NAME="name" SIZE="28"> 密码: <INPUT TYPE="password" NAME="code" SIZE="28"><P>
主题：<INPUT NAME="subject" SIZE="66"><P>
内容：<P>
<TEXTAREA NAME="content" ROWS=20 COLS=72></TEXTAREA><P>
<CENTER><INPUT TYPE=SUBMIT VALUE="发布信息">
<INPUT TYPE=RESET VALUE="清除信息"></CENTER>
</FORM>
</body>
</html>
4、 加帖子（服务器端）bbs.asp：接收帖子内容，并存入bbs.mdb中。
以下是引用片段：
<html>
<head><title>bbs.asp</title></head>
<body>
<％ name=REQUEST.FORM("name")
code=REQUEST.FORM("code")
subject=REQUEST.FORM("subject")
content=REQUEST.FORM("content")
curdate=Date
curtime=Time
<!-- 与author.mdb连接 -->
Set Connection = Server.CreateObject("ADODB.Connection")
Connection.Open "author"
Set RS = Connection.Execute("SELECT * FROM author WHERE authname='" &name& "' AND password='" &code& "'")
<!-- 判断用户名与密码是否匹配 -->
If Not RS.EOF Then
<!-- 打开数据文件，该文件存放帖子的编号，每加一个帖子，编号加1 -->
Set FileObject = Server.CreateObject("Scripting.FileSystemObject")
Set InStream = FileObject.OpenTextFile ("c:inetpubwwwroothospaspdata.id", 1, False, False)
number = Cstr(InStream.Readline+1)
Set OutStream = FileObject.CreateTextFile ("c:inetpubwwwroothospaspdata.id", True, False)
OutStream.WriteLine number
If Request.QueryString("ID")="" Then
manswernum=number
Else
manswernum=Request.QueryString("ID")
End If
If Request.QueryString("topnum")="" Then
mtopnum=number
Else
mtopnum=Request.QueryString("topnum")
End If
Set OutStream = Nothing
<!-- 与bbs.mdb连接，将帖子信息存入数据库中 -->
Set Connbbs = Server.CreateObject("ADODB.Connection")
Connbbs.Open "bbs"
Connbbs.Execute("INSERT INTO bbs(ID,authname,subject,content,adddate,addtime,answernum,topnum,visitnum) Values('" &number& "','"
&name& "','" &subject& "','" &content& "','" &curdate& "','" &curtime& "','" &manswernum& "','" &mtopnum& "',0)")
Connbbs.Close ％>
<％ =curdate & " " ％><％ =curtime & " 添加贴子 " ％>
<a href="http://nt-server/hosp/asp/dispbbs.asp">返回论坛</a><P>
姓名：<％ =name ％><P>
主题：<％ =subject ％><P>
内容：<％ =content ％><P>
<％ Else ％>
您的用户名或密码出错，请您重输！
<％ End If
RS.Close
Connection.Close ％>
</body>
</html>
0
投稿猜你喜欢
pytorch教程resnet.py的实现文件源码分析
golang/python实现归并排序实例代码
Opera浏览器简介
matplotlib 对坐标的控制,加图例注释的操作
用python做个代码版的小仙女蹦迪视频
Mac版Python3安装/升级的方式
推荐四款可视化工具(解决99％的可视化大屏需求)
如何用GAN训练自己的数据生成新的图片
关于Pyinstaller闪退的补救措施
Python 如何实现变量交换
为网站代码块pre标签增加一个复制代码按钮代码
一小时学会TensorFlow2之自定义层
Go语言的IO库那么多纠结该如何选择
Python reques接口测试框架实现代码
SQL语句(T-SQL汇总) 用T-SQL画出这些图形
XML编程实例：用ASP+XML打造留言本
Vue双向绑定原理及实现方法
数据库大战： MS SQL Server & IBM DB2
