Response.redirect 就已经转向了,下面的还没有来得及执行

现在我将这个文件精简到了仅仅下面的内容，程序运行正确，但仍然那个判断不起作用。
也就是if cz="del" 的时候，rs_lar("img")=rs_lar("img")-1和rs_lar("huoli")=rs_lar("huoli")-1并没有减少。
奇怪呀。这是怎么回事？


<%
if Request.QueryString("cz")="" then
Response.Redirect"mminfo.asp?info=错误的参数"
else
cz=Request.QueryString("cz")
end if
if cz="del" then
conn.execute "delete from desktop where id="&Request.QueryString("id")
rs_lar("img")=rs_lar("img")-1
rs_lar("huoli")=rs_lar("huoli")-1
end if
rs_lar.update
rs_lar.close
Response.Redirect"mmadminfile.asp"
set rs=nothing
conn.close
Set conn=Nothing
%>

这里涉及到两个数据库。
delete from desktop 是一个数据库，rs_lar是另一个数据库。

记录集在前面：
<%

'叛断Session变量是否超时
if isempty(session("u_id")) or session("u_id")="" then
response.redirect "timeout.asp"
end if

if session("u_id")=1 then response.redirect "../notreg.asp"

'叛断此用户是否已经注册
Set conn1 = Server.CreateObject("ADODB.Connection")
DBPath1 = Server.MapPath("date.mdb")
conn1.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath1
Set rs_lar = Server.CreateObject("ADODB.Recordset")
sql="select * from larchives where user_id =" & session("u_id")
rs_lar.open sql,conn1,3,2

if rs_lar.eof and rs_lar.bof then
response.redirect "notregist.asp"
response.end
end if
%>


我现在改成这样了：
......
......
if cz="del" then
conn.execute "delete from desktop where id="&Request.QueryString("id")
conn.execute "update rs_lar("img")=rs_lar("img")-1 where user_id =" & session("u_id")"
conn.execute "update rs_lar("huoli")=rs_lar("huoli")-1 where user_id =" & session("u_id")"
Response.Redirect"mmadminfile.asp"
set rs=nothing
conn.close
Set conn=Nothing
%>

运行时提示说语句未结束。
帮忙搞定呀，眼看要成功了。谢谢大家。

......
<%if cz="del" then
conn.execute "delete from desktop where id="&Request.QueryString("id")
conn.execute "update rs_lar("img")=rs_lar("img")-1 where user_id =" & session("u_id")"
conn.execute "update rs_lar("huoli")=rs_lar("huoli")-1 where user_id =" & session("u_id")"
Response.Redirect"mmadminfile.asp"
[color=red]end if[/color]
set rs=nothing
conn.close
Set conn=Nothing

这里有两个数据库，我希望当删掉mmdb/mm.mdb 中某条记录的时候，能够更新mdb/date.mdb的相关记录。
程序运行正常，就是这句代码不起作用：
rs_lar("huoli")=rs_lar("huoli")-1
rs_lar("img")=rs_lar("img")-1

全部代码非常简单，如下：

<%
Set conn1 = Server.CreateObject("ADODB.Connection")
DBPath1 = Server.MapPath("mdb/date.mdb")
conn1.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath1
Set rs_lar = Server.CreateObject("ADODB.Recordset")
sql="select * from larchives where user_id =" & session("u_id")
rs_lar.open sql,conn1,3,2

if rs_lar.eof and rs_lar.bof then
response.redirect "notregist.asp"
response.end
end if
%>
<%
dim conn
dim connstr
on error resume next
connstr="DBQ="+server.mappath("mmdb/mm.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
set conn=server.createobject("ADODB.CONNECTION")
conn.open connstr
%>

<%
dim sql
dim rs
set rs=server.createobject("adodb.recordset")
sql="delete from desktop where id="&Request.QueryString("id")
rs.open sql,conn,1,1
rs.close
set rs=nothing
conn.close
rs_lar("huoli")=rs_lar("huoli")-1
rs_lar("img")=rs_lar("img")-1
rs_lar.update
rs_lar.close
set conn=nothing
Response.Redirect"mmadminfile.asp"
%>


huoli 跟 img 都是数字类型的.
在执行添加的时候，
rs_lar("huoli")=rs_lar("huoli")+1
rs_lar("img")=rs_lar("img")+1
一切正常。
但是删除的时候，就死活不变了。

我希望：
1、在会员上传一张图片的时候，他的活力“huoli”和图片计数"img"都自动加1。
2、当管理员删除他的一张图片的时候，他的活力“huoli”和图片计数"img"都自动减少1。

现在我的第一个希望实现了。但第二个死活没法成功。

全部代码就在这里，很简单的代码。找不出原因来……
看来我只能放弃第二个要求呢，删掉图片，他的活力等都不减少……
喜欢钻研的高手不妨继续研究一下，我已经放弃了。 :eek: