asp实现检查目录是否存在与建立目录的函数

答案：'------------------------- 
'--检查目录是否存在 
'---------------------- 
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

上一个：ShowPage 显示“上一页 下一页”等信息的封装代码
下一个：ScriptHtml 函数之过滤html标记的asp代码