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

        IIf = value1
    Else
        IIf = value2
    End If
End Function


'===================================================================================
' 函数原型：URLEncoding (v,f)
'功能：URL编码函数
'参数：v中英文混合字符串
'f是否对ASCII字符编码
'返 回 值：编码后的ASC字符串
'涉及的表：无
'===================================================================================

Public Function URLEncoding(v, f)
    Dim s, t, i, j, h, l, x
    s = ""
    x = Len(v)
    For i = 1 To x
        t = Mid(v, i, 1)
        j = Asc(t)
        If j> 0 Then
            If f Then
                s = s & "%" & Right("00" & Hex(Asc(t)), 2)
            Else
                s = s & t
            End If
        Else
            If j < 0 Then j = j + &H10000
            h = (j And &HFF00) \ &HFF
            l = j And &HFF
            s = s & "%" & Hex(h) & "%" & Hex(l)
        End If
    Next
    URLEncoding = s
End Function

'===================================================================================
' 函数原型：URLDecoding (sIn)
'功能：URL解码码函数
'参数：vURL编码的字符串
'返 回 值：解码后的字符串
'涉及的表：无
'===================================================================================

Public Function URLDecoding(Sin)
    Dim s, i, l, c, t, n