Web习题_用户信息管理系统(5)

性别：

年龄：

住址：

电话：

b.职工信息输入完后，点击“添加”按纽，页面转到“lx621_add.asp”界面处理。 <%

dim eno,ename,esex,eage,eaddr,etelno eno=request.form(\ename=request.form(\esex=request.form(\eage=request.form(\eaddr=request.form(\etelno=request.form(\

ers.open esqlstr,conn,1,2 /*要添加数据，把参数改成了1,2 */

do while not ers.eof if eno=ers(\ exit do else

ers.MoveNext end if

21

loop

if ers.eof then

ers.addnew /*告诉ers, 要添加一个空行*/ ers(\

ers(\给要添加的行的一个字段赋值*/ ers(\

ers(\同上*/ ers(\同上*/ ers(\

ers.update /*通知ers,要把这个行写入数据库 */

response.write \language=javascript>alert('本职工信息添加成功，请继续输入！')\

response.write \返回\else

response.write \本职工信息已存在，请重新输入！')\

response.write \返回\end if %>

（5）在“人事档案管理系统”界面中，点击“删除职工记录”转到“lx621_delete.asp”界面。

a. “lx621_delete.asp”程序如下： <%

ers.open esqlstr,conn,1,2/*要更新数据，把参数改成了1,2*/

set session(\session(\

response.redirect(\%>

界面如下：

22

b.处理界面：“lx621_deleteb.asp”程序如下：

删除职工记录

<%

MyString=Request.QueryString(\select case MyString case \

if session(\

response.write \language=javascript>alert('空表，无法操作！')\ session(\ set session(\ response.end else

session(\ session(\ end if

case \

if session(\

response.write \language=javascript>alert('空表，无法操作！')\ session(\ set session(\ response.end else

session(\ session(\ if session(\ session(\

session(\ end if end if case \

if session(\

response.write \language=javascript>alert('空表，无法操作！')\ session(\ set session(\ response.end else

if not session(\ session(\

23

session(\ end if

if session(\ session(\ session(\ end if end if

case \

if session(\

response.write \language=javascript>alert('空表，无法操作！')\ session(\ set session(\ response.end else

session(\

session(\ end if case \

session(\ set session(\

response.redirect \ case \

if session(\

response.write \language=javascript>alert('空表，无法操作！')\ session(\ set session(\ response.end else

session(\

session(\

response.write session(\ session(\

if not session(\ session(\ end if

if session(\ session(\ end if end if case \ end select

24

response.write \response.write \response.write \response.write \

for i=0 to session(\

response.write \next

response.write \

if not session(\ response.write \ id=session(\

response.write \ for i=0 to session(\ fieldname=session(\ fieldvalue=session(\

fieldlen=session(\中field对象的属性:DefinedSize 返回字段定义的数据宽度

response.write \size=\ next

response.write \end if

response.write \

response.write \ %>

界面如下：

25