主頁 > 知識庫 > 檢測函數(shù) asp class

檢測函數(shù) asp class

熱門標簽:縣域地圖標注打印店 怎么在地圖標注自己 個人可以辦理400電話么 萊西電子地圖標注 金昌電話機器人價格 武夷山旅游地圖標注 鳳臺百度地圖標注店 修改地圖標注 外呼系統(tǒng)API接口
復制代碼 代碼如下:

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

標簽:清遠 邢臺 南京 上海 涼山 通遼 赤峰 楚雄

巨人網(wǎng)絡通訊聲明:本文標題《檢測函數(shù) asp class》,本文關鍵詞  檢測,函數(shù),asp,class,檢測,;如發(fā)現(xiàn)本文內容存在版權問題,煩請?zhí)峁┫嚓P信息告之我們,我們將及時溝通與處理。本站內容系統(tǒng)采集于網(wǎng)絡,涉及言論、版權與本站無關。
  • 相關文章
  • 下面列出與本文章《檢測函數(shù) asp class》相關的同類信息!
  • 本頁收集關于檢測函數(shù) asp class的相關信息資訊供網(wǎng)民參考!
  • 推薦文章