검출 함수 asp class

<% 
Dim Cmd 
Set Cmd = New Cls_Command 
Class Cls_Command 
    Private Re 

    Public Function IsPositiveInteger(value) 
        Set Re = New RegExp 
        Re.Pattern = "^[1-9][\d]*$" 
        Re.IgnoreCase = True 
        Re.Global = True 
        IsPositiveInteger = Re.Test(value) 
        Set Re = Nothing 
    End Function 

    Public Function IsDigit(vString) 
        If vString = "" Then IsDigit = False : Exit Function 
        Set Re = New RegExp 
        Re.Pattern = "^[a-z]+$" 
        Re.Global = True 
        Re.IgnoreCase = True 
        Re.MultiLine = True 
        IsDigit = Re.Test(vString) 
        Set Re = Nothing 
    End Function 

    Public Function IsAlpha(vString) 
        If vString = "" Then IsAlpha = False : Exit Function 
        Set Re = New RegExp 
        Re.Pattern = "^[\d]+$" 
        Re.Global = True 
        Re.IgnoreCase = True 
        Re.MultiLine = True 
        IsAlpha = Re.Test(vString) 
        Set Re = Nothing 
    End Function 

    Public Function IsAlphaDigit(vString) 
        If vString = "" Then IsAlphaDigit = False : Exit Function 
        Set Re = New RegExp 
        Re.Pattern = "^[a-zA-Z\d]+$" 
        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 
            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 
            CheckFolder = True 
        End If 
    End Function 

    Public Function WriteCache(appName, Value) 
        Application.Lock 
        Application(appName) = Value 
        Application.Unlock 
    End Function 

    Public Function ClearCache(appName) 
        Application.Lock 
        Application.Contents.Remove(appName) 
        Application.UnLock 
    End Function 

    Public Sub OutputJavaInfo(Message) 
        Response.Expires = 0 
        Response.ExpiresAbsolute = Now() - 1 
        Response.AddHeader "pragma","no-cache" 
        Response.AddHeader "cache-control","private" 
        Response.CacheControl = "no-cache" 
        Response.ContentType = "application/x-javascript" 
        Response.Write "document.getElementById(""updateinfo"").innerHTML = """ & Message & """;" 
        Response.End 
    End Sub 

    Public Sub OutputinterHtml(Message, ShowType) 
        Response.Write Message 
        If ShowType = 1 Then 
            Response.Flush 
        Else 
            Response.End 
        End If 
    End Sub 
End Class 
%>