我下面的程序有问题吗？一个专门执行删除的文件

[sailing_hang]

<!--#include file="conn.asp"-->

<%
delete_id=trim(request.QueryString("delete_id"))
select case delete_id
case "CatalogName"
set rs1=server.CreateObject("adodb.recordset")
sql="select * from New_Catalog where id="&trim(request.QueryString("Catalog_id"))&""
rs1.open sql,conn,1,3
rs1.delete
rs1.update
set rs2=server.CreateObject("adodb.recordset")
sql="select * from New_Factory where CatalogID="&rs1("id")&""
rs2.open sql,conn,1,3
rs2.movefirst
do while not rs2.eof
rs2.delete
rs2.update
rs2.movenext
loop
set rs3=server.CreateObject("adodb.recordset")
sql="select * from New_Product where FactoryID="&rs2("id")&""
rs3.open sql,1,3
rs3.movefirst
do while not rs3.eof
rs3.delete
rs3.update
rs3.movenext
loop
rs1.close
rs2.close
rs3.close
set rs1=nothing
set rs2=nothing
set rs3=nothing
response.write "<script>alert('删除数据成功');location.href='javascript:history.go(-1)'</script>"

case "FactoryName"
set rs1=server.CreateObject("adodb.recordset")
sql="select * from New_Factory where id="&trim(request.QueryString("Factory_id"))&""
rs1.open sql,conn,1,3
rs1.delete
rs1.update
set rs2=server.CreateObject("adodb.recordset")
sql="select * from New_Product where FactoryID="&rs1("id")&""
rs2.open sql,1,3
rs2.movefirst
do while not rs2.eof
rs2.delete
rs2.update
rs2.movenext
loop
rs1.close
rs2.close
set rs1=nothing
set rs2=nothing
response.write "<script>alert('删除数据成功');location.href='javascript:history.go(-1)'</script>"

case "ProductName"
set rs1=server.CreateObject("adodb.recordset")
sql="select * from New_Product where id="&trim(request.QueryString("Product_id"))&""
rs1.open sql,conn,1,3
rs1.delete
rs1.update
rs1.close
set rs1=nothing
response.write "<script>alert('删除数据成功');location.href='javascript:history.go(-1)'</script>"
case else
response.End()
end select

%>

[lnboy1003]

什么错误提示啊

[sailing_hang]

反正就是删除不了，也没有提示

[jspadmin]

response.End()???response.End 吧
既然是什么都没执行，那就说明不符合所有条件选择，仔细检查数据库是否真的没有符合条件的记录，或者你写错了那个变量
----------------------------------------------------------------------------------
http://community.csdn.net/Expert/topic/4343/4343643.xml?temp=.6227838。
批量文件自动搜索替换插入器已经更新为V2.1 for CSDN friend，下载地址：http://www.pifoo.com