'===============删除文件==================
Sub DFile(files)
'删除文件
'==================================================
'作者:飞飞
'网址:www.ffasp.com
'QQ:276230416
'邮箱:rabbit25132008@gmail.com
'==================================================
'参数说明
'files 文件路径
'==================================================
Dim FSO
Set FSO=Server.CreateObject("Scripting.FileSystemObject")
If FSO.FileExists(Server.MapPath(files)) Then
FSO.DeleteFile(Server.MapPath(files)),true
End If
Set FSO=Nothing
End Sub
'========================================