'================================================== '函数名: CheckFile '作  用：检查某一文件是否存在 '参  数：FileName ------ 文件地址 如:/swf/1.swf '返回值：False  ----  True '==================================================     Public Function CheckFile(FileName)          On Error Resume Next          Dim FsoObj          Set FsoObj = Server.CreateObject("Scripting.FileSystemObject")           If Not FsoObj.FileExists(Server.MapPath(FileName)) Then               CheckFile = False               Exit Function           End If          CheckFile = True:Set FsoObj = Nothing     End Function