asp判断某个文件是否存在的函数

最近在写功能的时候需要判断某个文件是否存在，存在则调用，不存在则动态显示页面的功能，用到了下面的代码，特分享一下需要的朋友可以参考一下

最近在写功能的时候需要判断某个文件是否存在，存在则调用，不存在则动态显示页面的功能，用到了下面的代码，特分享一下需要的朋友可以参考一下。

两个函数都是基于ASP中的FileSystemObject对象，也就是FSO，写成函数方便以后使用。

ASP检查目录是否存在的函数代码

				?

									Function isExistFolder(Byval folderDir)

									    on error resume next

									    If objFso.FolderExists(server.MapPath(folderDir)) Then isExistFolder=True Else isExistFolder=False

									    if err then err.clear:isExistFolder=False

									End Function

ASP检查文件是否存在的函数代码

				?

									Function isExistFile(Byval fileDir)

									    on error resume next

									    If (objFso.FileExists(server.MapPath(fileDir))) Then isExistFile=True Else isExistFile=False

									    if err then err.clear:isExistFile=False

									End Function

asp中判断文件是否存在（不是本机上的文件）

用fso.fileexists只能查询本地文件是否存在，用组件xmlhttp的readyState的方法可以获取远程文件是否存在，返回大于0，表示文件存在，否则，就是不存在。

				?

									set XMLHTTP =Server.CreateObject("Microsoft.XMLHTTP")

									XMLHTTP.open("HEAD","http://www.test.com/test.htm",false)

									XMLHTTP.send()

									if XMLHTTP.status=200 then

									'文件存在

									end if

ASP判断文件是否存在以及删除文件实例代码

				?

									<%

									'ASP判断文件是否存在以及删除文件实例代码

									dim htmlFilefs

									htmlFile="../book_show.html"

									htmlFile=server.MapPath(htmlFile)      

									Set fs=Server.CreateObject("Scripting.FileSystemObject")

									If fs.FileExists(htmlFile) Then '判断文件是否存在

									   fs.DeleteFile htmlFile,true '如果文件存在，则删除文件

									end if

									Set fs=Nothing

									%>