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

2018-11-20 17:38

c.显示界面:“lx621_deletec.asp”程序如下:

response.write \删除   \response.write \取消   \%>

response.write \第一条   \response.write \上一条   \response.write \下一条   \response.write \最后一条   \response.write \退出 \ %>

界面如下:

(6)在“人事档案管理系统”界面中,点击“修改职工信息”,转到“lx621_update.asp”界面。

a.“lx621_update.asp”程序如下:

26

<%

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

set session(\session(\

response.redirect(\%>

界面如下:

b.转到“lx621_updateb.asp”处理界面。 “lx621_updateb。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

27

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(\

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(\

28

set session(\

response.redirect \ case \

if session(\

response.write \language=javascript>alert('空表,无法操作!')\ session(\ set session(\ response.end else end if case \ end select

function eupdate()

session(\ session(\ session(\ session(\ session(\ session(\ session(\end function

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 返回字段定义的数据宽度 */

29

response.write \size=\ next

response.write \end if

response.write \

response.write \更新'>  \response.write \取消'>\

response.write \

if Request.QueryString(\更新\ call eupdate()

response.redirect \end if %>

界面如下:

c.显示界面“lx621_updatec.asp” “lx621_updatec.asp”程序如下:

response.write \第一条   \response.write \href='lx621_updateb.asp?method=MovePrevious'>上一条   \

response.write \下一条   \

response.write \href='lx621_updateb.asp?method=MoveLast'>最后一条

30


Web习题_用户信息管理系统(6).doc 将本文的Word文档下载到电脑 下载失败或者文档不完整,请联系客服人员解决!

下一篇:德育工作经验交流材料

相关阅读
本类排行
× 注册会员免费下载(下载后可以自由复制和排版)

马上注册会员

注:下载文档有可能“只有目录或者内容不全”等情况,请下载之前注意辨别,如果您已付费且无法下载或内容有问题,请联系我们协助你处理。
微信: QQ: