asp刪除文件代碼分享

'下面提供給大家分享的是關(guān)于asp刪除文件代碼，希望能夠?qū)Υ蠹矣兴鶐椭?/p>

程序名：delfile.asp
'關(guān)鍵參數(shù)：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=java script>alert('成功刪除文件,將返回上一頁!');"
response.write"this.location.href='java script:history.back();'</script>"
end sub
%>