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