自动检测创建多级目录, fso与stream生成文件函数

下面是代码:

<%
    
    ' 网站根目录
    const global_default_root_path = "/"

    ' 描述: 建立目录的程序，如果有多级目录，则一级一级的创建
    ' 作者: xiaoyuehen
    ' 日期: 2006-6-3
    ' 参数: strlocalpath : string, 创建路径, 必须为物理路径
    ' 返回: True/False
    function create_directory(strlocalpath)
        create_directory = false

        dim strlocalfolder
        dim strpath, tmppath, tmptpath
        dim arrpathlist, intlevel

        strlocalfolder = server.mappath(global_default_root_path)
        if left(strlocalpath, len(strlocalfolder)) <> strlocalfolder then
            exit function
        end if
        
        ' 获得目录
         strpath         = replace(strlocalpath, strlocalfolder, "")
        if left(strpath, 1) = "/" then
            strpath = right(strpath, len(strpath) - 1)
        end if
        
        dim objfolder
        set objfolder   = server.createobject("Scripting.FileSystemObject")

        ' 如果该目录已存在, 则返回 true           
        if objfolder.folderexists(strlocalpath) then
            create_directory = true
            exit function
        end if

        arrpathlist     = split(strpath, "/")
        intlevel        = ubound(arrpathlist)
        
        dim i
        tmptpath = ""
        for i = 0 to intlevel
            tmptpath = tmptpath & arrpathlist(i) & "/"
            
            tmppath = strlocalfolder & "/" & tmptpath
            if not objfolder.folderexists(tmppath) then objfolder.createfolder tmppath
        next
        
        set objfolder = nothing
        create_directory = true
    end function


    ' 描述: fso 生成文件
    ' 作者: xiaoyuehen
    ' 日期: 2006-6-3
    ' 参数: strlocalpath : string, 创建路径, 必须为物理路径
    ' 返回: True/False
    function fcreate_file(strfilename, byref strcontent)
        fcreate_file = false
        dim strpath
        strpath = left(strfilename, instrrev(strfilename, "/", -1, 1))

        '检测路径及文件名有效性
        if not(create_directory(strpath)) then exit function

        const forreading = 1, forwriting = 2, forappending = 8
        dim fso, f
        set fso = createobject("scripting.filesystemobject")
        set f = fso.opentextfile(strfilename, forwriting, true, -2)
        f.write strcontent
        f.close
        set fso = nothing
        set f = nothing
        fcreate_file = true
    end function
 
    ' 描述: stream 生成文件
    ' 作者: xiaoyuehen
    ' 日期: 2006-6-3
    ' 参数: strfilename : string, 文件完整路径, 必须为物理路径
    '       strcontent : string, 文本内容
    ' 返回: True/False
    function screate_file(strfilename, byref strcontent)
        screate_file = false
        dim strpath
        strpath = left(strfilename, instrrev(strfilename, "/", -1, 1))

        '检测路径及文件名有效性
        if not(create_directory(strpath)) then exit function

        dim ado_stream 
        const forreading = 1, forwriting = 2
        set ado_stream = server.createobject("adodb.stream")

        with ado_stream
            .Open
            .type = 2
            .Writetext(strcontent)
            .SaveToFile strfilename, forwriting 
            .SetEOS
        end with

        set ado_stream = nothing
        screate_file = true
    end function
%>