“电路分析”教学网站的设计与实现

图13  用户注册页面
Fig 13  User registration page
5.2.5 用户登陆模块设计
用户登陆模块的主要功能是根据用户输入的用户名和密码判断是否为合法用户，如果登陆信息正确，则允许用户享有在论坛上的操作权限。
登陆信息处理页面用来核实用户的登陆信息是否准确，具体操作步骤如下：
（1）获取用户输入的用户名和密码。
    （2）输入信息不为空时将信息与用户表中的数据进行比较，如果用户名或密码不正确则提示用户重新输入信息。
    （3）将用户的登陆用户名纪录到Cookie变量中。
    登陆信息处理页面的关键程序代码如下：
    <!--***************login.asp*******************-- >
<%
main()
sub main()
Dim backInput
backInput="<br><br><input type=button value=返回前页 onClick=history.back() name=button><br>"
If request.form=""then  //创建表格
else
   Dim name,pass,power
   name=request.Form("name")
   pass=request.Form("pass")
   If name="" or pass="" then

图14  用户登陆信息处理页面
Fig 14  User debarkation information processing page
5.2.6 发表和回复主题信息模块设计
发表和回复主题信息模块的主要功能是使教学网站的注册用户可以在在线论坛上发表主题，还可以对论坛上的每一个主题发表回复信息。
发表主题信息页面的主要功能是为用户提供发表主题信息的界面，用户发表的主题将展示在版面的主题信息页面。
具体实现步骤如下。
（1）登陆用户才能进入发表主题信息页面。
（2）用户提交表单内容时，系统获取表单传递的数据，限制表单数据不能为空值，将用户填写的主题信息添加到主题信息表中。
    （3）刷新版面主题信息页面的帖子数量。
    发表主题信息页面的关键代码如下：
    <!--***************topic.asp*******************-- >
<%
dim title,content,username,id
title=request.Form("t1")
content=replace(request.Form("x1"),"","")
username=request.Cookies("在线论坛")("name")
if title="" then
response.Write("请输入标题！[<a href='fatie.asp'>返回</a>]")
elseif content="" then

图15  发表主题信息页面
Fig 15  Publication subject information page
回复主题信息页面的主要功能是用户可以针对某一主题发表回复信息，具体实现步骤如下：
（1）只有注册用户登陆后才能发表回复信息。
（2）获取表单传递的数据，将此回复信息以及对应的主题id编号添加到主题回复信息表中。
    （3）刷新版面主题信息页面中的回复数。
    回复主题信息页面的关键程序代码如下：
    <!--***************reply_.asp*******************-- >
<%
dim rtitle,rcon,username
id=cint(request.QueryString("id"))
rtitle=request.Form("t2")
rcon=replace(request.Form("x2"),"","")
username=request.Cookies("在线论坛")("name")
if rtitle="" then
      response.Write("请输入标题！[<a href='reply.asp'>返回</a>]")转贴于 酷文网-论文下载中心 http://www.coolwen.net