《网络留言板.doc》由会员分享，可在线阅读，更多相关《网络留言板.doc（13页珍藏版）》请在三一文库上搜索。
1、陕西师范大学网络教育学院考查课 科目名称 基于WEB的程序设计 题 目 ACCESS+ASP网络留言板 姓 名 万 科 学 号 50010720209075 专 业 计算机科学与技术 批次/层次 高起本 学习中心 重 庆 目 录一、设计分析1二、程序结构2三、模板功能及程序说明21、登录功能及程序说明22、浏览、添加、删除、修改功能及程序说明2四、源程序31、conn.asp源程序及功能源程序(公共数据库连接页面)32、zhuce.asp源程序及功能源程序33、login.asp源程序及功能源程序（登录页面）44、list.asp源程序及功能源程序（浏览页面）45、index.asp源程序及功
2、能源程序（主页）56、say.asp源程序及功能源程序（发表留言）67、xiugai.asp源程序及功能源程序（修改留言）78、del.asp源程序及功能源程序（删除留言）79、out.asp源程序及功能源程序（退出登录）8五、操作方法81、发表留言操作方法82、修改界面操作方法83、删除界面操作方法9六、试验结果9七、设计体会11一、设计分析(一) 功能分析1. 用户注册2. 用户分类3. 用户登录4. 发表留言5. 修改留言6. 删除留言7. 浏览留言(二) 数据分析1. 用户表：用户名 密码 权限2. 通讯录表：姓名 性别 电话 地址二、程序结构程序结构图注册普通用户登录管理员添加删除修
3、改浏览浏览三、模板功能及程序说明1、登录功能及程序说明(a) 使用了屏蔽sql入注屏蔽将部分敏感字符转换给了空值，如： % & 等(b) 使用了错误信息提示登录用户名或者密码错误都有错误信息提示(c) 登录用户信息保存通过session提取登录用户信息，将用户名值保存在session里面(d) 用户未响应处理用session.Timeout控制当用户多少时间未响应则自动清除session的值2、浏览、添加、删除、修改功能及程序说明任何用户都能浏览留言板的内容，但控制了浏览用户的权限，用户留言的修改和删除只有发表留言的用户才能操作，其他用户只能浏览。四、源程序1、conn.asp源程序及功能源程
4、序(公共数据库连接页面)2、zhuce.asp源程序及功能源程序% if request.Form(action)=save thenif Trim(Request.Form(uid)= or Trim(Request.Form(uid1)= or Trim(Request.Form(upwd)= thent1=注册项不能为空！elseif Trim(Request.Form(upwd)Trim(Request.Form(upwd1) thent1=两次密码不一致！elsecall CreateRs(rs,select * from yonghu,1,3)rs.addnewrs(usernam
5、e)=Trim(Request.Form(uid)rs(upwd)=Trim(Request.Form(upwd)rs(yonghu)=Trim(Request.Form(uid1)rs.updateresponse.Write(注册成功！到登录)response.End()call closeRs(rs)end ifend ifend if %3、login.asp源程序及功能源程序（登录页面）4、list.asp源程序及功能源程序（浏览页面）% /设置分页设置每页显示多少条记录的分页常量ThisPageSizeConst ThisPageSize=4定义总记录数，总页数，当前页数，记数器变
6、量Dim ThisRsCount,ThisPageCount,ThisCurrentPage,i从URL中获取页码Page，并判断有效性ThisCurrentPage=Request(Page)If Request(Page)= ThenThisCurrentPage=1ElseIf IsNumeric(ThisCurrentPage) ThenThisCurrentPage=int(ThisCurrentPage)ElseThisCurrentPage=1End IfIf ThisCurrentPageThisPageCount Then ThisCurrentPage=ThisPageCo
7、unt设置当前页码Rs.AbsolutePage=ThisCurrentPage循环读取数据i=0Do While Not Rs.EOF and i/* 显示表格 */5、index.asp源程序及功能源程序（主页）/将发表留言页面加载到主页里面/将显示留言页面包含到主页里面/也每页显示4条留言分页显示 总共条记录,条记录/页,总共页,当前第页 第一页a href=?Page=1&TxtKey= class=blue第一页 上一页a href=?Page=&TxtKey= class=blue上一页 下一页a href=?Page=&TxtKey= class=blue下一页 最后一页a hr
8、ef=?Page=&TxtKey= class=blue最后一页 6、say.asp源程序及功能源程序（发表留言）Dim op /通过分别处理表单和数据库来控制留言的添加op=Request.QueryString(op)Select Case opCase ,1Call Frm()Case 2Call SaveFrm()End SelectSub SaveFrm() /创建数据库处理过程if request.Form(addneirong) then /判断添加内容，不为空则添加，否则给错误提示if session(name)= then /判断session值，为空则跳转到登录页面resp
9、onse.Write(请先登录！,返回到登录)response.End()end ifcall CreateRs(rs,select * from liuyan,1,3) /添加数据rs.addnewrs(neirong)=Trim(Request.Form(addneirong)rs(shijian)=now()rs(dress)=Trim(Request.ServerVariables(REMOTE_ADDR)rs(yonghu)=session(name)rs.updatecall closeRs(rs)response.Write(window.parent.location.relo
10、ad();)elset1=添加内容不能为空！response.Redirect(?op=1)end ifEnd SubSub Frm() /创建处理表单过程 %/* */7、xiugai.asp源程序及功能源程序（修改留言）% call CreateRs(rs,select * from liuyan where id=&Trim(Request.QueryString(id),1,3)if not rs.eof then/正确参数执行if session(name)rs(yonghu) thenresponse.Write(不能修改别人的留言！返回)response.End()end ifi
11、f request.Form(action)=save then/提交成功执行if request.Form(xiugai)= then/验证修改内容t1=内容不能为空！elsers(neirong)=Trim(Request.Form(xiugai)rs(shijian)=now()rs(dress)=Trim(Request.ServerVariables(REMOTE_ADDR)rs(yonghu)=session(name)rs.updateresponse.Redirect(index.asp)end ifend ifelse/不正确参数执行response.Write(没有数据！返
12、回)response.End()end if8、del.asp源程序及功能源程序（删除留言）% /接收传递参数call CreateRs(rs,select * from liuyan where id=&Trim(Request.QueryString(id),1,3)if session(name)=rs(yonghu) then /判定用户使用删除的权限if not rs.eof then /防止错误参数判定rs.deleters.updateresponse.Redirect(index.asp)elseresponse.Write(没有数据！,返回)response.End()end
13、 ifelseresponse.Write(不要删除别人的留言！,返回)response.End()end ifcall closeRs(rs)call connclose()%9、out.asp源程序及功能源程序（退出登录）session(name)= /清空session值response.Redirect(login.asp)五、操作方法1、发表留言操作方法在输入框内输入留言内容，然后提交即可2、修改界面操作方法单击对应留言人后面的修改，链接到修改页面将修改框内的内容修改完成后，单击完成即可修改内容3、删除界面操作方法单击对应留言后面的删除即弹出对话框，单击确定则删除，单击取消则不删除六
14、、试验结果SQL入注测试在登录框中输入特殊字符，进入SQL入注输出结果：提示用户名或者密码错误，证明屏蔽SQL成功发表留言测试：输入留言内容输出结果：输出结果与输入内容一样，测试成功修改留言测试：修改自己的留言输出结果测试成功修改其他用户的留言内容测试：输入条件，单击其他用户的留言输出结果单击返回后留言没被修改，测试成功。七、设计体会通过这次留言板的设计，让我体会到，要做一个完整的系统需要足够的细心、耐心、自信心，同时在思考问题的方法上也要有广阔的思维，先把一个问题全面的做完，然后在通过各种方法细化，简介化。这次的留言板设计让我对ACCESS+ASP的熟悉程度再次提高，从中有领悟到一些新的方法。11