<!--asp 定时自动删除文件-->
<%
Dim w
w=weekday(now())
If w=7 Then
delFile
End If
Function delFile
Set fso = CreateObject("Scripting.FileSystemObject")
Path = server.MapPath("admin/")
Set f = fso.GetFolder(Path)
Set fc = f.Files
For Each f In fc
If fso.FileExists(f) Then fso.DeleteFile(f)
'If fso.FolderExists(f) Then fso.DeleteFolder(f)
Next
End Function
%>
登陆您的帐号 | 免费注册帐号