程序如下：
人事档案管理系统
职工注册 添加一条职工记录 删除职工记录
修改职工信息 查询职工信息 显示职工信息
（3）在“人事档案管理系统”界面中，点击“职工注册”，转入“职工注册”（“lx621_login.html”）界面
a. “lx621_login.html”，向界面中输入职工信息
16
程序如下：
b.当信息输入完毕，按“提交”按钮转入“lx621_login.asp”界面进行处理。 程序如下：
<%
sub eno_check_ers(num) do while not ers.eof if num<>ers(\ ers.MoveNext else exit do end if loop end sub
sub eno_check_urs(num) urs.MoveFirst do while not urs.eof if num<>urs(\ urs.MoveNext else exit do end if loop end sub
sub uname_check(name) if name=\
response.write \用户名不能为空，请重新输入！')\
response.write \返回\ else
urs.MoveFirst do while not urs.eof if name<>urs(\ urs.MoveNext else exit do
18
end if loop
if not urs.EOF then
response.write \用户名已经存在，请重新输入！')\
response.write \返回\ end if end if end sub
dim eno,uname,pwd eno=request.form(\
uname=request.form(\pwd=request.form(\
urs.open usqlstr,conn,1,2/*只读取数据设置1,1; 添加数据设置1,2;改写数据2,3*/ ers.open esqlstr,conn,1,1
eno_check_ers eno if ers.EOF then
response.write \language=javascript>alert('职工号为空或非本单位职工，请重新输入！')\
response.write \返回\else
eno_check_urs eno if not urs.EOF then
response.write \本职工已经注册，请重新输入！')\
response.write \返回\ else
uname_check uname end if end if
if not ers.EOF and urs.EOF then
urs.addnew /*告诉urs, 要添加一个空行*/ urs(\给要添加行的一个字段赋值*/ urs(\
urs(\同上*/ urs(\同上*/ urs.update
response.write \恭喜你，注册成功，请登录系统！')\
19
response.write \返回\end if 'ers.close 'set ers=nothing %>
（4）在“人事档案管理系统”中，点击“添加一条职工记录”转到“输入职工信息”（“lx621_add.html”）界面
a.在“输入职工信息”界面输入职工信息
程序如下：