ASP删除文件(图片)

来源:赵克立博客分类: ASP 标签：ASP函数发布时间:2014-04-29 06:04:39最后更新:2014-04-29 06:04:39浏览:3097

本文为博主原创文章，转载请声明原文链接...谢谢。o_0。

原文链接:

http://www.zhaokeli.com /article/1626.html

更新时间：

2014-04-29 06:04:39

温馨提示：

学无止境,技术类文章有它的时效性,请留意文章更新时间,如发现内容有误请留言指出,防止别人"踩坑",我会及时更新文章

'功能：删除文件（图片）
'参数：@filestr  文件路径，(可以用相对路径)
Function DeleteFile(FileStr)
	   Dim FSO
	   On Error Resume Next
	   Set FSO = CreateObject("Scripting.FileSystemObject")
		If FSO.FileExists(Server.MapPath(FileStr)) Then
			FSO.DeleteFile Server.MapPath(FileStr), True
		Else
		DeleteFile = True
		End If
	   Set FSO = Nothing
	   If Err.Number &lt;&gt; 0 Then
	   Err.Clear:DeleteFile = False
	   Else
	   DeleteFile = True
	   End If
	End Function