|
Function DeleFile(FilePath) On Error Resume Next Set Del=Server.CreateObject("scripting.FileSystemObject") if Err <> 0 Then DelFile="该空间不支持FSO组件，无法删除文件！" else if InStr(FilePath, ",") > 0 then FilePath=Split(FilePath,",") For i = 0 to ubound(FilePath) If Del.FileExists(Server.MapPath(FilePath))=True Then Del.DeleteFile Server.MapPath(FilePath(i)),true Next Else If Del.FileExists(Server.MapPath(FilePath))=True Then Del.DeleteFile Server.MapPath(FilePath),true End if End if Set Del=Nothing End Function |
上一篇：ASP数据记录分页显示的函数
下一篇：没有了
