检测函数 asp class(2)


        Re.Global = True
        Re.IgnoreCase = True
        Re.MultiLine = True
        IsAlphaDigit = Re.Test(vString)
        Set Re = Nothing
    End Function

    Dim TemplateContent,TemplateDeBug
    Public Sub LoadTemplate(TemplateName)
        On Error Resume Next
        Dim TemplateObject,TemplateFile
        Set TemplateObject=Server.CreateObject("Scripting.FileSystemObject")
        Set TemplateFile=TemplateObject.OpenTextFile(Server.MapPath(TemplateName))
        If Err.Number <> 0 Then
            Err.Clear
            Set TemplateFile=Nothing
            Set TemplateObject=Nothing
            TemplateDeBug=1
        End If
        TemplateContent=TemplateFile.ReadAll
        TemplateFile.Close
        Set TemplateFile=Nothing
        Set TemplateObject=Nothing
    End Sub

    Dim HtmlContent,CreatDeBug
    Public Sub BuildFile(Catalogue, HtmlName)
        On Error Resume Next
        If Not CheckFolder(Catalogue) Then
            CreatDeBug=1
            Exit Sub
        End If
        Dim CreatObject,CreatFile
        Set CreatObject=Server.CreateObject("Scripting.FileSystemObject")
        Set CreatFile=CreatObject.CreateTextFile(Server.MapPath(Catalogue & HtmlName),True,False)
        If Err.Number <> 0 Then
            Set CreatFile=Nothing

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

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