function deletefile(filename)

　　if filename<>"" then

　　set fso=server.CreateObject("scripting.filesystemobject")

　　if fso.FileExists(filename) then

　　fso.DeleteFile filename

　　else

　　Response.Write ""

　　end if

　　end if

　　end function

　　strfile=server.MapPath("fileName")

　　deletefile(strfile)

　　%>

　　'程序名：delfile.asp

　　'关键参数：struploadfiles 文件名称

　　例：删除test.rar文件