信息管理程序.docx

1、信息管理程序第8章 信息管理系统学习指导用网络进行信息管理是Web最重要的应用之一，本系统主要功能是管理相关信息。可以说，凡是人们能想象得到的信息管理，都可以在网络中进行。企业和事业、单位、组织机构等可以通过网络管理信息，使办公人员详细得到他们所关心的信息，以其便利、快速的特点取得用户的信任而不断提高效率和效益。本章介绍的网络管理主要包括人、财、物的管理。通过本章的简单查询、通讯录、图书借阅和会员管理等设计与开发的介绍，使读者进一步了解信息系统开发的程序设计方法，体会到网络信息管理的强大功能。学习代码介绍以后，加深对ASP基本语法的了解，基本读懂程序的源代码，最终设计、开发出按自己想象的各种类

2、型信息管理系统。由于信息管理系统大同小异，系统的程序通用性较强，一般不用自己编写源代码，因此学习本章方法是结合学习过的知识，通过本章上机实习，在别人的工作基础上进行适当修改就可以了。学习本章的方法是要亲自动手修改源代码，在应用中学习程序设计的方法，具体做法在上机实习一节作了较为详细的介绍。通过本章学习，要求能够做到： 读懂各个文件，知道每条语句的语法和作用。 会设计简单的数据库，数据表和组织字段，会从其它表格中导入数据。 了解每个文件的输入、输出以及所作的处理。 搞清楚文件之间的接口，掌握从一个页面跳转到另一页面的方法。 会模仿设计各个模块，开发出满足各种不同要求的网络信息管理系统。81 数据

3、库信息查询模块（ch8/code/idcard）数据库信息查询使我们以最快的速度找到存储在数据库中满足特定条件的记录，它是网络信息处理的最基本技术和最重要的应用。最简单查询系统由2个文件组成，一个是数据库，一个是查询页面。我们以身份证查询为例来说明查询系统的基本思想、结构及设计方法。811 数据库结构建立本模块数据库xfz.asp，文件扩展名用.asp，主要为了安全起见。如果要查看数据库，只要把数据库文件名中的扩展名更改成.mdb就行，在查看完成后，再把扩展名更改过来。数据库只有一个数据表xfz，数据表包括bm，dq2个字段，主要建立身份证前6位和所管辖的派出所之间的对应关系，如图8-1所示。

4、812 查询页面（ch8/code/idcade/index.asp）查询页面的功能是让浏览者输入要查询的身份证号码，输出一些有关个人身份的信息，如管辖的派出所，出生年月，性别等。1IPO（输入处理输出）图输入：身份证号码。处理：对输入的身份证号检验，检验合格后连接到数据库xfz.mdb，根据身份证号码前6位得出原户籍地所管辖的派出所；再细分身份证有15位和18位两种情况，当位数为15位时，7-12位得到出生日期，最后一位得到性别；当位数为18位时，7-14位得到出生日期，倒数第2位得到性别；最后1 位计算出校验码。输出：查询号码，原户籍地，出生年月，性别。2代码解析 对输入的身份证号检验。先

5、检查输入的身份证号码位数是否15位或18位，再分为15位和18位位两种情况，分别把出生年，月，日性别赋值给yy，mm，dd，aa，再检查月份和日期的值是否符合要求。%xian=request(xian)lenx=len(xian)if xian thenif not IsNumeric(left(xian,15) and xian thenresponse.write alert(请输入正确身份证号码! );_window.history.back();end if if lenx=15 or lenx=18 then if lenx=15 then yy=19&mid(xian,7,2)mm

6、=mid(xian,9,2)dd=mid(xian,11,2)aa=mid(xian,15,1)end if if lenx=18 thenyy=mid(xian,7,4)mm=mid(xian,11,2)dd=mid(xian,13,2)aa=mid(xian,17,1)end if if cint(mm)12 or cint(dd)31 thenresponse.write alert(请输入正确的身份证号码!);_window.history.back();end if elseresponsewrite alert(请输入正确的身份证号_码!);_window.history.back

7、();end if end if % 连接数据库。创建ADODB连接对象，连接数据库sfz.asp，打开连接。 执行查询操作。创建记录集对象，设置SQL查询，执行SQL命令。 判断性别，把结果赋值给xb。 显示查询结果，以表格的形式显示变量的值。查询号码：原户籍地：出生年月：性    别： 新身份证校验位检查处理。%if lenx=18 thenif mid(xian,18,1)cstr(sfzjy(xian) thenresponse.write response.write 提示：身份证校验位错误!elseresponse.write respons

8、e.write 结果：身份证号码校验为合法号码! end ifelseresponse.write response.write 新身份证：&left(xian,6)&19&right(xian,9)_&cstr(sfzjy(xian)end if% 关闭记录集，释放变量，取消数据库连接。 计算校验位。813 简单查询系统的设计（ch8/code/score） 最简单数据库查询系统只由两个文件组成，一个是集查询条件输入与显示于一体的主文件，还有一个储存供查询用的数据库。我们以学生成绩查询为例来说明最简单数据库查询系统的设计。1数据库设计数据库设计相当简单，只要你把与成绩相关的信息设计成各个字段

9、，设计好以后录入到数据表中就可以。要掌握把其它表格转换成Access数据库的方法。例如，把Excel表格转换成Access数据表。在Access新建数据库中，打开【文件】菜单【获取外部数据】子菜单，打开“导入”对话框，找到要导入的表，再按照“导入数据表向导”逐步进行，就能完成导入工作。2查询页面设计(ch8/code/score/searcht.asp)查询页面的主要源代码如下。 设置服务器缓冲为True 查询分数查询分数表格中的表单供输入需要查询的信息 姓名关键字：* %如果没有输入姓名就不执行下列语句If Trim(Request(name) ThenDim db,connstrconns

10、tr=Dbq=&Server.Mappath(address.mdb)&;Driver=Microsoft Access Driver (*.mdb)Set db=Server.CreateObject(ADODB.Connection)db.Open connstr Dim rs,strSql建立Recordset对象 Set rs=Server.CreateObject(ADODB.Recordset)以姓名为关键字查找 strSql=Select * From guest Where name Like % &_ Trim(Request(name) & % rs.Open strSql

11、,db,1 应用Count属性，要用键盘指针 If rs.RecordCount列表显示查询结果 姓名 学号 班级 分数 章% Do While Not rs.Eof 下面将利用表格输出名单 Response.Write Response.Write & rs(name) & Response.Write & rs(num) & Response.Write & rs(specialy) & Response.Write & rs(score) & Response.Write & rs(chap) & Response.Write rs.MoveNext Loop End IfEnd If%

12、 Response.Buffer=True语句应放首行，指在服务器输出页面时先缓冲，如果不设置Response.Buffer=True，则服务器将随时解释，随时发送数据，在客户端出现页面不完成现象。3简单查询模块的应用我们可以利用文件夹score中源代码作如下修改，就可以开发出查询模块。数据库可以依照设计要求进行修改，增加和删除一些字段。如果仍以name为关键字查询，只需修改列表显示查询结果中表格中表头各项的名字；和利用表格输出名单中数据库的字段名两部分内容。如果以其它关键字查询，只需利用替换，把name替换成查询表单中输入文本框的name。82 人员管理（ch7/code/mate）人员管理

13、中最典型的应用是通讯录。通讯录记录同学、同事、同乡、客户、朋友的一些联系信息，作为相互联系的地址和方法，供查找使用。如对功能作一些改进，还可以成为交友网站。通讯录的主要功能是通讯地址查询，可用于客户系统，也可用于人事管理，如再扩充其功能，还可成为网上交友系统。821 功能需求分析与模块划分 通讯录系统考虑到信息是可变的，应该有显示、添加、删除、修改和查询个人信息功能。通讯录应包括所有个人相关的信息，如姓名、年龄、性别、地址、电话、电子邮箱等信息。按照功能有显示成员页面(list.asp)，添加成员页面和文件(add_form.htm，add.asp)、删除成员页面(delete.asp)、修改

14、成员准入(change.asp)页面、修改成员表单update.asp和执行更新文件(update_form.asp)，查询成员页面(search.asp)，各页面的链接页面用（menu.htm）。全部页面用框架结构，链接用页面（menu.htm）放在左边，其它要显示的页面则放在右边。822 数据库设计建立本模块数据库mate.mdb，只有一个数据表mates。数据表mates包括ID，name，tel，email，home，age，intro，password等共8个字段。823 主要页面与文件介绍1显示成员页面(ch8/code/mate/list.asp)（1）IPO图输入：无 处理：

15、建立与数据库连接odbc_connection.asp，建立Recordset对象查询纪录。 利用表格显示当前页的所有记录，分页，输出有关页数信息，从1到总页数循环，如不是当前页，就加上超链接。输出：成员列表。（2）代码解析 建立Recordset对象。 查询记录，如果非空就显示记录，如果是空的，给出提示信息。 If rs.Bof Or rs.Eof Then Response.Write 现在还没有数据 Else 以下主要为了分页显示 Dim page_size 定义每页多少条记录变量 Dim page_no 定义当前是第几页变量 Dim page_total 定义总页数变量 page_si

16、ze=10 每页显示10条记录如果第一次打开,则page_no为1,否则由传回的参数决定 If Request.QueryString(page_no)= Then page_no=1 Else用Cint将字符串变为整数 page_no=Cint(Request.QueryString (page_no) End If rs.PageSize=page_size 设置每页多少条记录 page_total=rs.PageCount 返回总页数 rs.AbsolutePage=page_no 利用表格显示当前页的所有记录。 Dim I I=page_size 该变量用来控制显示当前页记录 Do W

17、hile Not rs.Eof And I0 循环直到当前页结束或文件结尾 I=I-1 下面将利用表格输出名单。 Response.Write Response.Write & rs(name) & Response.Write & rs(tel) & Response.Write & rs(email) & Response.Write & rs(home) & Response.Write & rs(age) & Response.Write & rs(intro) & Response.Write rs.MoveNext Loop 输出有关页数信息，从1到总页数循环，如不是当前页，就加上

18、超链接。 For I=1 To page_total If I=page_no Then Response.Write I &   Else Response.Write & I &   End If Next End If 关闭对象。 rs.Close Set rs=nothing db.Close Set db=nothing2添加成员页面添加成员模块由表单（ch8/code/mate/add_form.htm）和执行添加操作的文件（ch7/code/mate/add.asp）组成。添加成员表单add_form.htm是普通表单，把它发送到执行添加操作的add.asp页面，

19、代码相当简单，这里只讲解add.asp文件。（1）IPO图输入：个人信息。处理： 简单的表单检查，获取表单传过来的信息。 建立与数据库连接odbc_connection.asp，将要插入内容送数据库。 判断插入过程有无错误，并给出相应插入结果信息。输出：操作结果。（2）代码解析 简单表单检查。If Trim(Request(name)= Or Trim(Request(password)=ThenResponse.Write 对不起，姓名和密码必须输入Response.Write 返回，重新填写 从表单获取信息。Dim nam,password,tel,email,home,age,intro

20、name=Request(name)password=Request(password)tel=Request(tel)home=Request(home)email=Request(email)age=Request(age)intro=Request(intro) 将数据填入数据库中。Dim strSql,sqla,sqlbsqla = Insert Into users(name,passwordsqlb = Values( & name & , & password & If tel Then sqla = sqla & ,tel sqlb = sqlb & , & tel & End

21、 IfIf home Then sqla = sqla & ,home sqlb = sqlb & , & home & End IfIf email Then sqla = sqla & ,email sqlb = sqlb & , & email & End IfIf age Then sqla = sqla & ,age sqlb = sqlb & , & cInt(age) age是数字类型,请注意添加方法.End IfIf intro Then sqla = sqla & ,intro sqlb = sqlb & , & intro & End IfstrSql = sqla & ) & sqlb & )db.Execute(strSql) 判断插入过程有无错误，并给出相应信息。 If db.Errors.Count0 Then Response.Write 保存过程中发生错误,必须重新填写 Response.Write 返回,重新填写 E