最近在写功能的时候需要判断某个文件是否存在,存在则调用,不存在则动态显示页面的功能,用到了下面的代码,特分享一下需要的朋友可以参考一下。
两个函数都是基于ASP中的FileSystemObject对象,也就是FSO,写成函数方便以后使用。
ASP检查目录是否存在的函数代码
1
2
3
4
5
|
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检查文件是否存在的函数代码
1
2
3
4
5
|
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,表示文件存在,否则,就是不存在。
1
2
3
4
5
6
|
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判断文件是否存在以及删除文件实例代码
1
2
3
4
5
6
7
8
9
10
11
|
<% '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 %> |
到此这篇关于asp判断某个文件是否存在的函数的文章就介绍到这了,更多相关asp文件是否存在内容请搜索服务器之家以前的文章或继续浏览下面的相关文章希望大家以后多多支持服务器之家!