<% 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 %>