- 1、本文档共14页,可阅读全部内容。
- 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
《基于WEB的程序设计》
-------在线通讯录设计报告
一 、设计分析
在线通讯录系统是为了实现登陆、显示、添加、删除、修改、查找成员功能的系统。为了保护个人信息,每个人只可以通过密码验证来修改维护个人信息,否则只能浏览个人信息。同时自己也可以查看别人的信息,方便联系
二 、程序流程及各模块的功能
登陆界面是通过与数据库中的数据循环比较,搜索符合要求的用户,查找不到时就视为账户不存在或者密码不正确。添加、删除、查找、修改都是通过与数据库中的数据记录相连实现的。
1、登陆界面实现用户登陆,没有账号和密码的不允许登陆。
2、登陆成功界面,可以浏览其他人的信息,方便联系。也可以修改自己的信息,还可以添加新的记录。
3、添加记录界面,可以输入详细的数据信息。
4、查找界面。当记录太多时,寻找一个人的记录很费时间。这是用查找功能,很方便的就能要找的信息。
5、修改数据,这项是受到保护的。只有正确输入登陆密码才能修改个人信息。
6、删除记录。这里只要点击删除就能删除,要慎重删除!
三 、源程序
1、连接数据库代码:
%
这是数据库连接文件,专门用来连接数据库。在其他页面中可以包含本页面,就相当于将如下语句写到别的页面中一样。
以下连接数据库,建立一个Connection对象实例conn
Dim conn,strConn
Set conn=Server.CreateObject(ADODB.Connection)
strConn=Provider=Microsoft.Jet.OLEDB.4.0;Data Source= Server.MapPath(txl.mdb)
conn.Open strConn
%
2、登陆界面代码:
html
head
meta http-equiv=Content-Type content=text/html; charset=gb2312 /
title登陆界面/title
/head
body background=tp/go.jpg topmargin=180
form name=frmgo method=post action=goin.asp
table border=1 width=15% align=center
caption align=center valign=top登陆界面/caption
trtd bgcolor=#0066FF姓名/tdtd bgcolor=#FFCCFFinput type=text name=txtname size=20/td/tr
trtd bgcolor=#0066FF密码/tdtd bgcolor=#FFCCFFinput type=password name=txtpw size=20/td/tr
/table
p align=centerinput type=submit name=btnsubmit value= 登 陆
input type=reset value= 重 置 name=B4
/p/form
/body
/html
3、登陆界面姓名和密码验证代码:
!--#Include File=odbc_connection.asp--
html
head
meta http-equiv=Content-Type content=text/html; charset=gb2312 /
title密码错误重新登陆/title
/head
body
%
username=trim(request.form(txtname))
password=trim(request.form(txtpw))
dim rs,strsql
strsql=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)/script)
end if
rs.movenext
loop
rs.close
set rs=nothing
set conn=nothing
%
/body
/html
4、登陆成功界面代码:
!--#Include File=odbc_connection.asp--
html
head
meta http-equiv=Conten
文档评论(0)