'------------------------- '--检查目录是否存在 '---------------------- 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]阿里西西的alexa采集效果代码

我想这个系统现在在网上或源码站几乎是没有可用的程序。 提供下载的都是以前的老版本，ALEXA官方在他们的页面做了混淆代码防采集后，那些以前的ALEXA排名查询系统都已经无法再使用了。 网上除了一些知名（有钱的主>>>详细阅读

本文标题：asp实现检查目录是否存在与建立目录的函数

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

 1/2    1