'检测文件是否存在 Function IsExists(filespec) Dim fso Set fso = CreateObject("Scripting.FileSystemObject") If (fso.FileExists(server.MapPath(filespec))) Then IsExists = True Else IsExists = False End If Set fso=nothing End Function