Question

ASP后台删除代码问题

ASP后台一段删除的代码，我只把原来的"Product"替换为"bzzx"，原来正常的删除功能就没有了，点击删除，无反应。bzzxmanage.asp,bzzxdel.asp页面都存在。请高手看看。
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="conn.asp"-->
<!--#include file="admin.asp"-->
<!--#include file="Inc/Function.asp"-->
<!--#include file="../Inc/Config.asp"-->
<%
dim ID,Action,sqlDel,rsDel,FoundErr,ErrMsg,ObjInstalled
ID=trim(request("ID"))
Action=Trim(Request("Action"))
FoundErr=False
ObjInstalled=IsObjInstalled("Scripting.FileSystemObject")

if ID="" or Action<>"Del" then
FoundErr=True
ErrMsg=ErrMsg & "<br><li>参数不足！</li>"
end if
if FoundErr=False then
if instr(ID,",")>0 then
dim idarr,i
idArr=split(ID)
for i = 0 to ubound(idArr)
call DelProduct(clng(idarr(i)))
next
else
call DelProduct(clng(ID))
end if
end if
if FoundErr=False then
call CloseConn()
response.Redirect "bzzxManage.asp"
else
call CloseConn()
call WriteErrMsg()
end if

sub DelProduct(ID)
PurviewChecked=False
sqlDel="select * from bzzx where ID=" & CLng(ID)
Set rsDel= Server.CreateObject("ADODB.Recordset")
rsDel.open sqlDel,conn,1,3
if FoundErr=False then
if DelUpFiles="Yes" and ObjInstalled=True then
dim fso,strUploadFiles,arrUploadFiles
strUploadFiles=rsDel("UploadFiles") & ""
if strUploadFiles<>"" then
Set fso = CreateObject("Scripting.FileSystemObject")
if instr(strUploadFiles,"|")>1 then
arrUploadFiles=split(strUploadFiles,"|")
for i=0 to ubound(arrUploadFiles)
if fso.FileExists(server.MapPath("../" & arrUploadfiles(i))) then
fso.DeleteFile(server.MapPath("../" & arrUploadfiles(i)))
end if
next
else
if fso.FileExists(server.MapPath("../" & strUploadfiles)) then
fso.DeleteFile(server.MapPath("../" & strUploadfiles))
end if
end if
Set fso = nothing
end if
end if
rsDel.delete
rsDel.update
set rsDel=nothing
end if
end sub
%>
原先的productmanage.asp文件中可以正常删除，用的是同一数据库。我还没测试，怎么就选了推荐答案了。测试后，点击删除还是无任何反应。继续问。
已经自己解决了，数据库bzzx表中缺少 rsDel("UploadFiles") & "" 中的
UploadFiles 项，增加了UploadFiles 项，就可以删除了。

Answer 1

sqlDel="select * from bzzx where ID=" & CLng(ID)

在执行这一句的时候，你测试 一下，看是在删除哪个ID的时候出的错，
测试的方法很简单，在下面加上：
if ra.eof and rs.bof then
response.write "无内容"
response.end
end if

Answer 2

没道理的啊，是不是还改动了别的地方，要不你把"bzzx"换回原来的"Product"看能不能成功

追问

改回来可以的

Answer 3

bzzx 表中有ID字段吗？

追问

有的