检测函数 asp class(3)


            Set CreatObject=Nothing
            Err.Clear
            CreatDeBug=1
            Exit Sub
        End If
        CreatFile.Write(HtmlContent)
        CreatFile.Close
        Set CreatFile=Nothing
        Set CreatObject=Nothing
    End Sub

    Private Function CheckFolder(byval LocalPath)
        On Error Resume Next
        Dim FileObject
        Dim patharr,path_level,pathtmp,cpath
        LocalPath = Replace(LocalPath,"\","/") 
        Set FileObject=Server.CreateObject("Scripting.FileSystemObject") 
        patharr = Split(LocalPath,"/") 
        path_level = Ubound(patharr)
        Dim i
        For i = 0 to path_level 
            If i = 0 Then 
                pathtmp = patharr(0) & "/"
            Else
                pathtmp = pathtmp & patharr(i) & "/"
            End If
            cpath = Left(pathtmp,Len(pathtmp)-1)
            If Not FileObject.FolderExists(Server.MapPath(cpath)) Then FileObject.CreateFolder(Server.MapPath(cpath))
        Next
        Set FileObject=Nothing
        If Err.Number<>0 then
            Err.Clear
            CheckFolder = False
        Else

内容版权声明:除非注明,否则皆为本站原创文章。

转载注明出处:http://www.heiqu.com/3503.html