\
response.write \退出 \%>
“修改职工信息”界面如下：
（7）在“人事档案管理系统”中，点击“查询职工信息”，转到“lx621_select.asp”界面。 “lx621_select.asp”程序如下：
查询职工信息
<% id=0 sub selectform(rs)
response.write \ response.write \ response.write \
Response.WRITE \职工号：\ Response.Write \ align='center' name=feno size='1'>\ id=0
while not rs.eof
feno=rs(\ if id=0 then
Response.Write \ else
Response.Write \ end if
rs.movenext id=id+1 wend
rs.movefirst /*将记录指针拉回第一条*/ Response.WRITE \ \姓名：\
Response.Write \ align='center' name=fename size='1'>\ id=0
31
while not rs.eof
fename=rs(\ if id=0 then
Response.Write \ else
Response.Write \ end if
rs.movenext id=id+1 wend
rs.movefirst
Response.WRITE \
Response.Write \
\查询'> \ \返回'>\ Response.Write \
\查询'> \ \返回'>\ \ end sub
ers.open esqlstr,conn,1,1 /*若要更新数据，把参数改成1,2 */ count=ers.recordcount /*统计记录总数*/ selectform ers
selecteno=Request.QueryString(\
selectename=Request.QueryString(\selectexit=Request.QueryString(\myeno=Request.QueryString(\
myename=Request.QueryString(\
response.write \查询结果\if selecteno=\查询\
sqlstr=\ set selectrs=conn.execute(sqlstr) list selectrs end if
if selectename=\查询\
sqlstr=\ set selectrs=conn.execute(sqlstr) list selectrs end if
32
if selectexit=\返回\ ers.close
set ers=nothing
response.redirect \end if %>
界面如图所示：
(8) 在“人事档案管理系统”界面中，点击“显示职工信息”转到“lx621_list.asp”界面。
“lx621_list.asp”程序如下所示： <%
ers.open esqlstr,conn,1,1 /*若要添加数据，应把参数改成1,2*/ response.write \职工信息表\list ers %>
33
（9）在“人事档案管理系统”界面中，点击“退出”，转到“lx621_exit.asp”界面。 “lx621_exit.asp”程序如下：
欢迎再使用本系统，再见！
界面如图所示：
（10）设计这个系统时，为了方便，编写了几个公共的asp.(“condb.asp”，“global.asa”，“zhgdb.mdb”)
“condb.asp”程序如下： <%
34
set conn=server.CreateObject(\ set urs=server.CreateObject(\set ers=server.CreateObject(%usqlstr=\esqlstr=\
connstr=\Access Driver (*.mdb)};DBQ=\&Server.MapPath(\/*与参数的顺序无关*/ conn.open connstr
'将Recordset 输出成HTML 的“表格” Sub list(rs)
/* Part I：输出数据库的“表头”*/
Response.Write \ Response.Write \ For i=0 to rs.Fields.Count-1
Response.WRITE \ Next
Response.Write \
/*Part II：输出数据库的“内容”*/
While Not rs.EOF
Response.Write \ For i=0 to rs.Fields.Count-1
Response.WRITE \ Next
Response.Write \ rs.MoveNext Wend
Response.Write \End Sub %>
/*这个程序的主要目的是将传送数据库数据，并以表格的形式输出*/ “global.asa”程序如下：
/*这个程序的目的是设置公共参数*/ “zhgdb.mdb”数据库信息如下：
35
设计： 字段名称 eno ename esex eage eaddr etelno emp表: eno 2007001 2007002 2007003 2007004 user表： eno 2007001 2007002 2007003
uname aaa Sss Mmm password 111 111 logindate 2007-11-15 2007-11-19 2007-11-29 ename ccc uuu ggg xumeng esex hh kk mm 女 eage 19 20 18 18 eaddr kkk nnn sss ftdghf etelno 26 77 8888 15745 数据类型 文本 文本 文本 数字 文本 文本 说明 职工号 姓名 性别 年龄 地址 电话 36