asp实现检查目录是否存在与建立目录的函数
更新时间：2007年09月01日 22:15:29 作者：
'-------------------------
'--检查目录是否存在
'----------------------
Function CheckDir(byval FolderPath)
dim fso
Set fso = Server.CreateObject("Scripting.FileSystemObject")
If fso.FolderExists(Server.MapPath(folderpath)) then
'存在
CheckDir = True
Else
'不存在
CheckDir = False
End if
Set fso = nothing
End Function
'-------------------------
'--建立目录
'----------------------
Function MakeNewsDir(byval foldername)
dim fso
Set fso = Server.CreateObject("Scripting.FileSystemObject")
fso.CreateFolder(Server.MapPath(foldername))
If fso.FolderExists(Server.MapPath(foldername)) Then
MakeNewsDir = True
Else
MakeNewsDir = False
End If
Set fso = nothing
End Function
'--检查目录是否存在
'----------------------
Function CheckDir(byval FolderPath)
dim fso
Set fso = Server.CreateObject("Scripting.FileSystemObject")
If fso.FolderExists(Server.MapPath(folderpath)) then
'存在
CheckDir = True
Else
'不存在
CheckDir = False
End if
Set fso = nothing
End Function
'-------------------------
'--建立目录
'----------------------
Function MakeNewsDir(byval foldername)
dim fso
Set fso = Server.CreateObject("Scripting.FileSystemObject")
fso.CreateFolder(Server.MapPath(foldername))
If fso.FolderExists(Server.MapPath(foldername)) Then
MakeNewsDir = True
Else
MakeNewsDir = False
End If
Set fso = nothing
End Function
相关文章
asp定时生成静态HTML的代码，对于缓解服务器压力有很大帮主，需要的朋友可以参考下。2010-06-06
asp自动补全html标签自动闭合，方便asp截取带有html标签的内容，防止页面变形2012-10-10
前一篇我们已经讲了SQL注入攻击漏洞产生的本质是由编程人员编码的不当造成的，下面我们就来继续讲如何才是正确的编码，才不会受到SQL注入的攻击2008-12-12
asp连接access、sql数据库代码及数据库操作代码，需要的朋友可以参考下2012-10-10
asp验证Ip格式的函数...2007-08-08
asp实现图片右键滑轮控制大小的函数...2007-08-08
IIS找到ASP文件，提交给ASP引擎(一般是ASP.DLL)处理等等，需要的朋友可以参考下2012-12-12
在ASP中用组件检测当前网卡地址的代码...2007-03-03
2008-01-01
为你的网站添加rss阅读功能 把以下文件保存为 rss.asp 放在网站的根目录下 修改里面的几个参数就可以2008-12-12
最新评论