'==================================================
'函数名:CheckFile
'作用:检查某一文件是否存在
'参数:FileName------文件地址如:/swf/1.swf
'返回值:False----True
'==================================================
PublicFunctionCheckFile(FileName)
OnErrorResumeNext
DimFsoObj
SetFsoObj=Server.CreateObject("Scripting.FileSystemObject")
IfNotFsoObj.FileExists(Server.MapPath(FileName))Then
CheckFile=False
ExitFunction
EndIf
CheckFile=True:SetFsoObj=Nothing
EndFunction