在线通讯录设计报告-基于WEB.doc

在线通讯录设计报告-基于WEB 作者： 日期：16 个人收集整理 勿做商业用途基于WEB的程序设计 -在线通讯录设计报告一 、设计分析在线通讯录系统是为了实现登陆、显示、添加、删除、修改、查找成员功能的系统.为了保护个人信息，每个人只可以通过密码验证来修改维护个人信息，否则只能浏览个人信息。同时自己也可以查看别人的信息,方便联系二 、程序流程及各模块的功能登陆界面是通过与数据库中的数据循环比较，搜索符合要求的用户，查找不到时就视为账户不存在或者密码不正确.添加、删除、查找、修改都是通过与数据库中的数据记录相连实现的。1、登陆界面实现用户登陆，没有账号和密码的不允许登陆。2、登陆成功界面,可以浏览其他人的信息,方便联系。也可以修改自己的信息，还可以添加新的记录。3、添加记录界面，可以输入详细的数据信息。4、查找界面.当记录太多时，寻找一个人的记录很费时间。这是用查找功能，很方便的就能要找的信息.5、修改数据,这项是受到保护的.只有正确输入登陆密码才能修改个人信息。6、删除记录。这里只要点击删除就能删除，要慎重删除!三 、源程序1、连接数据库代码：2、登陆界面代码：meta httpequiv=Content-Type content=”text/html； charset=gb2312” /登陆界面body background=”tp/go.jpg” topmargin=”180”form name=frmgo” method=”post” action=”goin。asp登陆界面/caption姓名/tdtd bgcolor=0066FF密码/tdinput type=”password” name=txtpw size=”20p align=center” htmlmeta httpequiv=”Content-Type content=”text/html; charset=gb2312 /headbodyusername=trim(request。form（”txtname)） password=trim（request。form（”txtpw”)dim rs，strsqlstrsql=”select from txl”set rs=conn。execute(strsql) 返回整个数据表do while not rs.eof if username=rs(strname) and password=rs(pw”） then response。redirect ”index。asp” exit do else response.write(”scriptalert（；资料输入错误,请返回重新输入！；）；history.go(1） end if rs.movenextloop rs。closeset rs=nothing set conn=nothing/body4、登陆成功界面代码:!-#Include File=”odbc_connection.asp-html title在线通讯录body background=tp/5。jpg我的在线通讯录/font/h1添加记录a href=”find。asp查找/ath姓名性别/th年龄/th电话/ththEmail/thth简介/thth添加日期th删除/thth修改/tr% do while not rs。eof 只要不是结尾就执行循环 % td=rs(”strname) td%=rs(”strsex）%/td td/td td/td tda href=”mailto：%=rs(stremail）%=rs（”stremail)/a/td td=rs（”strintro”）%/td td/td tda href=”delete.asp?ID=rs(ID）%”删除/a/td rs。movenext loop /table/body/html5、添加记录代码：！-#Include File=”odbc_connection.asp-html head添加记录/titlebody background=tp/2。jpg”h2 align=”center添加新录/h2p align=centerfont color=”FF0033”其中带*号的必须填写table border=1” width=”30% align=centertd姓名/tdtd密码/tdinput type=password name=txtpw size=20*/td/tr男input type=”radio” name=rdosex” value=女女/td/tr年龄td/td/tr电话/tdtdinput type=text” name=txttel” size=50”/tdtrtdEmailtdinput type=”text” name=”txtemail” size=”50/trtrtd个人简介/tdtdtextarea name=txtintro rows=”5” cols=”100”/textarea/td/tr/tablep align=”centerinput type=reset” name=btnReset” value=取消” ” and request。Form（txtpw”） then dim strname,strsex,intage，strtel,stremail,strintro,password strname=request.Form（txtname”） strsex=request。Form（rdosex”） intage=request.Form(txtage) strtel=request。Form（”txttel”） stremail=request。Form(”txtemail） strintro=request.Form（”txtintro”) pw=request.Form（”txtpw”） dim strsql strsql=insert into txl（strname,strsex,intage，strtel，stremail，strintro，dtmsubmit,pw) values（” strname ，” & strsex & ”， intage & ”,” strtel ”，” stremail & ”, & strintro ,” & date() & ,” pw ) conn。execute（strsql) 添加成功后返回首页 response。Redirect”index.asp” end if %/body/html6、查找记录代码：headmeta http-equiv=”Content-Type content=”text/html； charset=gb2312 /查找信息/title/headh2 align=center”查找记录信息/h2form name=”frmsearch” method=post action=”请输入要查找的姓名：input type=”text name=”txtname” /input type=submit” name=”btnsubmit” value=确 定 /” thendim rs，strsqlstrsql=”select * from txl where strname like %” & request。Form（txtname”） %”set rs=conn.execute（strsql） % table border=”1 width=”100%” align=center th姓名/thth性别th年龄电话/ththEmailth简介添加日期/th/tr do while not rs。eof tr bgcolor=#FF99FF /td td/td %=rs(”intage)%/td %=rs（”strtel）%/td a href=mailto:=rs（stremail）%”=rs(”stremail）/a/td td td%=rs（dtmsubmit”）%/td /html7、修改记录信息代码：A、密码验证：html head/headbody background=”tp/7.jpgfont color=#FF0033”！!为了保护个人信息请输入正确修改密码才能进行修改信息！p密码： %session(”ID”）=request.QueryString(ID)if request。QueryString(”pw”）request。Form（”pw2”) then response.Write 对不起,输入密码不正确，您没有修改权限!！ a href=index.aspimg src=tp/back。jpgelse response.Write ”pa href=update_form。asp密码正确,可以修改/aend if%/htmlB、密码验证成功,读取数据并修改：！-#Include File=odbc_connection.asp”html meta http-equiv=”Content-Type content=”text/html； charset=gb2312 /个人信息修改/title form name=frmupdate” method=post” action=”update.asp” table border=1” width=40% align=”center” tr td”*/td /tr tr td密码/tdtdinput type=”password name=”txtpw” size=”20” value=”*/td /tr tr td性别/tdtd男 女/td 年龄/tdtdinput type=text” name=txtage size=4” value=rs(intage)/td 电话tdinput type=text name=txttel” size=”40 value=” E_mail/tdtdinput type=text” name=”txtemail” size=”50 value=”%=rs(stremail”）%”/td /tr tr tdtextarea name=txtintro rows=5” cols=100%=rs(strintro”)%/textarea /tr p align=center”input type=”hidden name=”txtID” value=input type=submit name=”btnsubmit value=确定” /body/htmlC、修改后输入插入数据库代码:headmeta http-equiv=Content-Type” content=text/html； charset=gb2312” /title更新个人信息执行程序/headbody background=tp/11.jpgsession.Abandonif request。Form（”txtname”）” and request。Form（txtpw)” thendim ID,strname,strsex,intage，strtel，stremail，strintro，pwID=request.Form(txtID)strname=request.Form(txtname)strsex=request。Form（rdosex”)intage=request。Form（txtage)strtel=request。Form（txttel)stremail=request.Form(”txtemail）strintro=request。Form(”txtintro”)pw=request。Form（”txtpw”）dim strsqlstrsql=”update txl set strname=”& strname & ,strsex= & strsex ,intage=& intage &”,strtel=” strtel &”，stremail=” & stremail ,strintro=” & strintro &”,dtmsubmit=#” & date（） ”#，pw=” & pw & ”where ID=” & IDconn.execute（strsql)response.Redirect ”index.asp”elseresponse。Write ”姓名和密码必须填写”response.Write ”a href=index。asp重新填写end if%/body/html8、删除数据代码:！Include File=”odbc_connection。asp-dim strsqlstrsql=”delete from txl where ID=” & request。QueryString(”ID)conn。execute(strsql）删除完毕后返回首页response。Redirect index.asp 四 、操作方法本程序设计很人性化，期中有很多文字性的提示和帮助,很好操作。具体操作流程如下：登录-查找、添加、修改(只能修改自己）-退出。五 、实验结果程序设计完成后，对登录、查找、添加、修改等操作都进行了多次实验，都达到了预期的结果。测试图参考功能介绍的截图，这里就不再赘述了。六 、设计体会在线通讯录系统，实现的功能比较简单。要想做出复杂的通讯系统，还需要付出很多努力.程序设计要求设计员细心,考虑问题要周到。还需要探究问题的精神。通过这次课程设计，我明白了编写程序要求程序设计者有较强的思维和动手能力。还要熟悉常用的编程技巧和编程思想，不能只关心程序的运行结果,更要注重程序代码的结构，编程者更要有严谨地态度。还有通过设计过程中大量地查阅网络文章,对一些关键知识点逐个地了解并解决相关问题。