推荐下天枫常用ASP函数封装，推荐大家使用(4)

        re.Pattern="<(.[^>]*)>"
        Str=re.Replace(Str,"")
        Set Re=Nothing
        If Str<>"" Then CheckIsEmpty=true
    End Function

    '****************************************************
    '函数名：isInteger
    '作  用：整数检验
    '参  数：tstr ----字符
    '返回值：true是整数，false不是整数
    '****************************************************
    Public function isInteger(para)
           on error resume Next
           Dim str
           Dim l,i
           If isNUll(para) then 
              isInteger=false
              exit function
           End if
           str=cstr(para)
           If trim(str)="" then
              isInteger=false
              exit function
           End if
           l=len(str)
           For i=1 to l
               If mid(str,i,1)>"9" or mid(str,i,1)<"0" then
                  isInteger=false 
                  exit function
               End if
           Next
           isInteger=true
           If err.number<>0 then err.clear
    End Function