'==================================================

'函数名: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