在线通讯录

陕西师范大学网络教育学院考查课科目名称基于WEB的程序设计题目 ACCESS+ASP在线通讯录姓名万科学号 50010720209075专业计算机科学与技术批次/层次 072/高起本学习中心重庆目录一、设计分析 (1)二、程序结构 (2)三、模板功能及程序说明 (2)2、登录功能及程序说明 (2)3、浏览、添加、删除、修改功能及程序说明 (2)四、源程序 (3)1、conn.asp源程序及功能源程序(公共数据库连接页面) (3)2、function.asp源程序及功能源程序（函数、过程页面） (3)3、Login.asp源程序及功能源程序（管理员浏览页面） (5)4、list.asp源程序及功能源程序（普通用户页面） (6)6、xiugai.asp源程序及功能源程序（修改通讯录） (6)7、del.asp源程序及功能源程序（删除通讯录） (7)8、chaxun.asp源程序及功能源程序（查询通讯录） (7)9、out.asp源程序及功能源程序（退出登录） (8)五、操作方法 (8)1、登录界面操作方法 (8)2、修改界面操作方法 (8)3、删除界面操作方法 (9)六、试验结果 (9)七、设计体会 (13)一、设计分析(一)功能分析1.用户注册2.用户分类3.用户登录4.添加通信录5.修改通信录6.删除通信录7.浏览通信录8.查询通信录(二)数据分析1.用户表：用户名密码权限2.通讯录表：姓名性别电话地址二、程序结构程序结构三、模板功能及程序说明2、登录功能及程序说明1)控制用户的使用权限使用真确的用户名和密码登录登录后记录登录用户的用户名2)登录控制权限判定不用权限登录后跳转至不同的页面3)使用了屏蔽sql入注屏蔽将部分敏感字符转换给了空值，如：’ % & 等4)使用了错误信息提示登录用户名或者密码错误都有错误信息提示3、浏览、添加、删除、修改功能及程序说明根据用户权限，普通用户跳转到普通浏览页面，只具有浏览功能。

管理员跳转到带有管理功能的浏览页面，具有添加、删除、修改功能。

四、源程序1、conn.asp源程序及功能源程序(公共数据库连接页面)<%dim conn,strset conn = Server.Createobject("adodb.connection")str = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & Server.MapPath("data/tongxun.mdb")conn.open strsub CreateRs(rs,sql,n1,n2)set rs=server.CreateObject("adodb.recordset")rs.open sql,conn,n1,n2end sub'sub closeRs(rs)rs.closeset rs=nothingend subsub closeConn()conn.closeset conn=nothingend sub%>2、function.asp源程序及功能源程序（函数、过程页面）<%function t(s) //屏蔽ASP敏感字符dim s1s1=replace(s,"'","‘")s1=replace(s1,"%","")s1=replace(s1,"!","")s1=replace(s1,"/","")s1=replace(s1,"&","")s1=replace(s1,"<","")s1=replace(s1,">","")t=s1end functionsub mun() //菜单函数%><table width="200" border="0" cellpadding="3" cellspacing="1" bgcolor="#CCCCCC"><tr><td bgcolor="#FFFFFF" class="a1">欢迎您：<%= session("name")%> </td></tr><tr><td bgcolor="#FFFFFF"><hr align="center" width="90%" size="1" noshade="noshade" /></td></tr><tr><td align="center" bgcolor="#FFFFFF"><a href="add.asp" class="a">添加通讯录</a></td></tr><tr><td align="center" bgcolor="#FFFFFF"><a href="list.asp" class="a">浏览通信录</a></td></tr><tr><td align="center" bgcolor="#FFFFFF" class="a"><a href="select.asp" class="a">查询通讯录</a></td></tr><tr><td align="center" bgcolor="#FFFFFF"><hr align="center" width="90%" size="1" noshade="noshade" /></td></tr><tr><td align="center" bgcolor="#FFFFFF"><a href="out.asp" class="td1">安全退出</a></td></tr></table><%end sub %><%sub chuli() //表单及数据库处理函数dim opop=request.QueryString("op")select case opcase "","1"call Frm()case "2"call saveFrm()end selectend sub%><% sub xianfen() %> //分页显示函数<table width="600" border="0" align="center" cellpadding="5" cellspacing="0"><tr><td style="font-size:12px; color:#FF0000">总共<%= ThisRsCount %>条记录,<%= ThisPageSize %>条记录/页,总共<%= ThisPageCount %>页,当前第<%= ThisCurrentPage %>页</td><td align="center" style="font-size:12px; color:#FF0000;"><% If ThisCurrentPage=1 Then %>第一页<% Else %><a href="?Page=1&TxtKey=<%=TxtKey%>" class="blue">第一页</a><% End If %></td><td align="center" style="font-size:12px; color:#FF0000;"><% If ThisCurrentPage=1 Then %>上一页<% Else %><a href="?Page=<%=ThisCurrentPage-1%>&TxtKey=<%=TxtKey%>" class="blue">上一页</a><% End If %></td><td align="center" style="font-size:12px; color:#FF0000;"><% If ThisCurrentPage=ThisPageCount Then %>下一页<% Else %><a href="?Page=<%=ThisCurrentPage+1%>&TxtKey=<%=TxtKey%>" class="blue">下一页</a><% End If %></td><td align="center" style="font-size:12px; color:#FF0000;"><% If ThisCurrentPage=ThisPageCount Then %>最后一页<% Else %><a href="?Page=<%=ThisPageCount%>&TxtKey=<%=TxtKey%>" class="blue">最后一页</a><% End If %></td></tr></table><% end sub %><%sub p() //用户判定函数if session("name")="" thenresponse.Redirect("login.asp")end ifend sub%>3、Login.asp源程序及功能源程序（管理员浏览页面）<%Call chuli()sub saveFrm()if request.Form("uid")<>"" and request.Form("upwd")<>"" thencall CreateRs(rs,"select * from uname whereuname='"&t(Trim(Request.Form("uid")))&"' andupwd='"&t(Trim(Request.Form("upwd")))&"'",1,1)if not rs.eof thensession("name")=rs("uname")if rs("quanxian")>1 thenresponse.Redirect("list_1.asp")elseresponse.Redirect("list.asp")end ifelsedim t1session("pan")="用户名或密码错误！"response.Redirect("?op=1")end ifelsesession("pan")="用户名或密码不能为空！"response.Redirect("?op=1")end ifend sub%>4、list.asp源程序及功能源程序（普通用户页面）<% //判定使用用户call p()call CreateRs(rs,"select * from xinxi order by id desc",1,1) //打开数据库连接%><% call mun() %> //调用菜单页<%'设置每页显示多少条记录的分页常量ThisPageSizeConst ThisPageSize=10'定义总记录数，总页数，当前页数，记数器变量Dim ThisRsCount,ThisPageCount,ThisCurrentPage,i'从URL中获取页码Page，并判断有效性ThisCurrentPage=Request("Page")If Request("Page")="" ThenThisCurrentPage=1ElseIf IsNumeric(ThisCurrentPage) ThenThisCurrentPage=int(ThisCurrentPage)ElseThisCurrentPage=1End IfIf ThisCurrentPage<1 Then ThisCurrentPage=1'获取总记录数ThisRsCount=Rs.RecordCount'设置每页显示多少条记录Rs.PageSize=ThisPageSize'获取总页数ThisPageCount=Rs.PageCount'判断当前页码的有效性If ThisCurrentPage>ThisPageCount Then ThisCurrentPage=ThisPageCount'设置当前页码Rs.AbsolutePage=ThisCurrentPage'循环读取数据i=0Do While Not Rs.EOF and i<ThisPageSize%>/* 显示表格*/<%i=i+1rs.movenextloop%></table><% call xianfen() %> //调用显示分页6、xiugai.asp源程序及功能源程序（修改通讯录）<%call p()call CreateRs(rs,"select * from xinxi where id="&Trim(Request.QueryString("id")),1,3) if not rs.eof then'正确参数执行if request.Form("action")="save" then'提交成功if request.Form("uname")<>"" and request.Form("sex")<>"" and request.Form("tel")<>"" and request.Form("dress")<>"" thenrs("uname")=Trim(Request.Form("uname"))rs("sex")=Trim(Request.Form("sex"))rs("tel")=Trim(Request.Form("tel"))rs("dress")=Trim(Request.Form("dress"))rs.updateresponse.Redirect("list.asp")elseresponse.Write"<script> alert('添加内容不能有空值'); history.back(); </script>"end ifend ifelse'不正确参数执行response.Write("没有数据！<a href='index.asp'>返回》》</a>")response.End()end if%>7、del.asp源程序及功能源程序（删除通讯录）<%call p()//获取传递过来的参数（id）call CreateRs(rs,"select * from xinxi where id="&Trim(Request.QueryString("id")),1,3)if not rs.eof thenrs.deleters.updateresponse.Redirect("list.asp")call closeRs(rs)else'response.Write"<script> alert('没有数据'); history.back();</script"response.Write("没有数据,<a href='list.asp'>返回</a>")response.End()end ifcall closeConn()%>8、chaxun.asp源程序及功能源程序（查询通讯录）<%'定义查询关键字变量，从URL或表单中获取查询的关键字TxtKey，并组合成模糊查询SQL语句Dim TxtKey,txt//获取查询关键字TxtKey=Trim(Request.Form("TxtKey"))If TxtKey="" ThenSql="Select * From xinxi order By id DESC"Else//查询关键字Sql="Select * From xinxi Where username like '%"&TxtKey&"%' Order By id DESC"call CreateRs(rs,sql,1,1)if rs.eof thenresponse.Write("没有数据,<a href='chaxun.asp'>返回</a>") call closeRs(rs)response.End()end ifEnd IfCall CreateRs(rs,sql,1,1)9、out.asp源程序及功能源程序（退出登录）session("name")="" //清空session值response.Redirect("login.asp")五、操作方法1、登录界面操作方法输入用户名密码登录2、修改界面操作方法单击要修改的内容对应项后面的修改进入修改页面修改好准备修改的内容后，单击确定即修改完成3、删除界面操作方法单击对应信息行后面的删除，在弹出对话框中单击确定则删除此行信息，单击取消则不删除此行信息。