ASP如何一次删除多个物理文件

来源:百度知道 编辑:UC知道 时间:2024/06/15 18:59:16
<%dim rs2,sql2
set rs2=server.createobject("ADODB.recordset")
sql2="select * from pic where id="& request.QueryString("id")
rs2.open sql2,conn,3,3
filen="uploadpic"+"\"+rs2("p_name")
DeleteFile(server.MapPath(filen))

conn.execute ("delete from pic where id=10")
Function DeleteFile(FileName)
if FileName<>"" then
Set fso=server.CreateObject("scripting.filesystemobject")
if fso.FileExists(FileName)=true then
fso.DeleteFile FileName
else
Response.Write "<script>alert('该文件不存在"&FileName&"');</script>"
Response.end
end if
end if
end function
response.write("<script lauguage=javascript&

循环就行了
<%dim rs2,sql2
set rs2=server.createobject("ADODB.recordset")
sql2="select * from pic where id="& request.QueryString("id")
rs2.open sql2,conn,3,3
while not rs2.eof
filen="uploadpic"+"\"+rs2("p_name")
DeleteFile(server.MapPath(filen))
rs2.movenext
loop
conn.execute ("delete from pic where id="& request.QueryString("id") )

Function DeleteFile(FileName)
if FileName<>"" then
Set fso=server.CreateObject("scripting.filesystemobject")
if fso.FileExists(FileName)=true then
fso.DeleteFile FileName
'else
'Response.Write "<script>alert('该文件不存在"&FileName&"');</script>"
'Response.end
end if
end if
end function

response.write("<script lauguage=javascript>alert('删除成功!');lo