报告版主：执行后出现如下错误：


程序出现错误,可能提交了非法参数或数据

<input type=hidden name=filename  value=<%=rs("filename")%> />，这个隐藏的框需要去掉否？

On Error Resume Next把这个注视掉看看那里出了错误。
<input type=hidden name=filename value=<%=rs("filename")%> />，
隐藏域不要去掉。

[此贴子已经被作者于2007-10-3 17:13:40编辑过]

On Error Resume Next，删掉吗

对

错误类型：
Microsoft JET Database Engine (0x80040E14)
语法错误 (操作符丢失) 在查询表达式 'form [file] where id=28 Or id=29 Or id=30' 中。
/upload/filedel.asp, 第 17 行

无限接近呀

列表中文件没有被删掉

这是filedel.asp的代码。
<!--#include file="conn.asp"-->
<%
On Error Resume Next
function DelFile(fPath,fName)
set fso=server.createobject("Scripting.filesystemobject")
if fso.fileexists(server.mappath(""&fPath&"/"&fName))=true then
fso.deletefile(server.mappath(""&fPath&"/"&fName))
End if
End Function
function DelAryFile(fAry,fPath)
Dim i
For i=0 To Ubound(fAry)
DelFile fPath,fAry(i)
Next
End Function
function DelDBFile(wStr,con)
con.execute "delete from [file] where "&wStr
end function
function getSqlQueryStr(Field,idStr)
Dim reStr
reStr=Field&"="&Replace(idStr,"|"," Or "&Field&"=")
getSqlQueryStr=reStr
End function
Dim id,filename,idAry,fAry,QueStr
id=trim(request("id"))
filename=trim(request("filename"))
if id <> "" or filename <> "" then
id=Mid(id,1,len(id)-1)
filename=Mid(filename,1,len(filename)-1)
idAry=Split(id,"|")
fAry=Split(filename,"|")
if isArray(idAry)=false Or isArray(fAry)=false Then
DelFile SavePath,request("filename")
DelDBFile "id="&request("id"),conn
else
QueStr=getSqlQueryStr("id",id)
DelDBFile QueStr,conn
DelAryFile fAry,SavePath
end if
IF Err.Number<>0 Then
Response.write "程序出现错误,可能提交了非法参数或数据"
Else
Response.Redirect("show.asp")
End IF
Else
Response.write "没有接收到任何参数及数据，提交数据错误"
End IF
%>
filedel.asp修改后的代码

楼主试试还有什么错误？