newasp中main类(27)

                If c > 255 Then t = t + 1
            Next
            strLength = t
        Else
            strLength = Len(str)
        End If
    End Function
    '=================================================
    '函数名：isInteger
    '作  用：判断数字是否整型
    '参  数：para ----参数
    '=================================================
    Public Function isInteger(ByVal 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
    Public Function CutString(ByVal str, ByVal strLen)