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

　　推荐阅读

　　asp下用replace非正则实现代码运行功能的代码

今天更新了一下博客的代码运行功能，因为原来的写得不够完善，如果想在博客里插入多个可运行的代码，那就会——呃屁。关于replace函数，js中只是替换从起始位置的第一个指定字串，而vbs则是替换所有的指定字串，因>>>详细阅读

本文标题：CheckFile函数之asp实现检查某一文件是否存在的代码

地址：http://www.17bianji.com/kaifa2/ASP/32421.html

 1/2    1