asp删除程序删不了,请指教。

来源:百度知道 编辑:UC知道 时间:2024/06/01 20:09:43
<%
dim ArticleID,Action,sqlDel,rsDel,FoundErr,ErrMsg,ObjInstalled
ArticleID=Trim(request("ArticleID"))
Action=Trim(Request("Action"))
FoundErr=False
ObjInstalled=IsObjInstalled("Scripting.FileSystemObject")

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

sub DelArticleID
PurviewChecked=False
sqlDel="select * from Prod

你的UploadFiles里存的是什么?
怎么用arrUploadFiles=split(strUploadFiles,"|")呀?把它分成了几段?
按你的用法来看,它里面应该是所有可能存放的文件路径,把它们用"|"分开来,不过好像没有这么个存法吧?