asp删除文件代码

'程序名：delfile.asp

'关键参数：struploadfiles 文件名称

例：<a href="/delfile.asp?action=test.rar">删除test.rar文件</a>

<%

struploadfiles=trim(request.querystring("struploadfiles"))

action=trim(request.querystring("action"))

response.write "成功删除<font color=red>"&struploadfiles&"</font>文件!"

call delfiles(struploadfiles & "")

sub delfiles(struploadfiles)

if struploadfiles="" then exit sub

dim fso,arruploadfiles,i

set fso = createobject("scripting.filesystemobject")

fso.deletefile(server.mappath("" & struploadfiles))

set fso = nothing

response.write"<script language=javascript>alert('成功删除文件,将返回上一页!');"

response.write"this.location.href='javascript:history.back();'</script>"

end sub

%>