通過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
%>