点击“关闭”，弹出对话框“另存为”，输入表名“emp”，点击“确定”。 向数据库中添加信息,设计一个输入界面，用IE浏览器打开如下所示：
程序代码如下：
输入完信息之后，点击“添加”,转到处理界面： <%
ename=request.form(\esex=request.form(\eage=request.form(\eaddr=request.form(\etelno=request.form(\
set conn=server.CreateObject (\ set rs=server.CreateObject (\ sqlstr=\
connstr=\ conn.open connstr
rs.open sqlstr,conn,1,2 '要添加数据，把参数改成了1,2 rs.addnew '告诉rs, 要添加一个空行 rs(\ '给要添加的行的一个字段赋值 rs(\
rs(\ '同上 rs(\ '同上
12
rs(\
rs.update '通知rs,要把这个行写入数据库 response.Redirect(\ '定向到信息输入界面 %>
添加完后，打开数据库“DB2”，再打开“emp”表，如下所示：
6.21 综合题
编写一个小型人事档案管理系统，使其功能具有： （1）职工注册功能
（2）增加或减少一个职工记录 （3）修改职工记录
（4）查询（条件查询）职工记录 （5）退出系统功能 解答：
（1）打开IE浏览器,在地址栏中输入“http://localhost/”＋子站点＋“lx621_enter.html”进入登陆界面。
程序如下：
进入输入登录信息界面后，输入正确的用户名和密码，按“登录”进入主界面，如果没有注册，按注册按纽进入“职工注册界面”。
登录界面如下图所示：
输入用户名和密码，按“登录”，转到“lx621_checklogin.asp”处理。 “lx621_checklogin.asp”程序如下：
<%
dim name,pwd,login,flag
name=request.form(\取表单的相应值送给变量*/ pwd=request.form(\login=request.form(\
urs.open usqlstr,conn,1,1/*只读取数据设置1,1; 添加数据设置1,2;改写数据2,3*/ if login=\登录\
session(\ do while not urs.eof if name=urs(\
14
if pwd=urs(\ flag=1 '登录成功标志 exit do else flag=0 exit do end if else
urs.MoveNext end if loop end if
if session(\
if urs.eof then
response.write \用户名错误，请重新登录！返回 \ end if if flag then
response.redirect \ else
response.write \密码错误，请重新登录！ 返回 \ end if else
response.write \非法用户，无权使用本系统！\end if
if login=\注册\
response.redirect \end if %>
（2）登录“人事档案管理系统”（“lx621_main.html”）面
15