ASP常用函数收藏乱七八糟未整理版(78)

' 函数原型：GetQueryStringNumber (FieldName,defValue)
'功能：从QueryString获取一个整数
'参数：FieldName参数名
'defValue默认值
'返 回 值：无
'涉及的表：无
'===================================================================================

Public Function GetQueryStringNumber (FieldName, defValue)
    Dim r
    r = Request.QueryString(FieldName)
    If r = "" Then
        GetQueryStringNumber = defValue
        Exit Function
    Else
        If Not IsNumeric(r) Then
            GetQueryStringNumber = defValue
            Exit Function
        Else
            On Error Resume Next
            r = CDbl(r)
            If Err.Number<>0 Then
                Err.Clear
                GetQueryStringNumber = defValue
                Exit Function
            Else
                GetQueryStringNumber = r
            End If
            On Error GoTo 0
        End If
    End If
End Function

'===================================================================================
' 函数原型：IIf (testExpr,value1,value2)
'功能：相当于C/C++里面的 ?: 运算符
'参数：testExprBoolean表达式
'value1testExpr=True 时的取值
'value2testExpr=False 时的取值
'返 回 值：如果testExpr为True返回value1否则返回value2
'涉及的表：无
'说明：VBScript里没有Iif函数
'===================================================================================

Public Function IIf(testExpr, value1, value2)
    If testExpr = True Then