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

    s = ""
    l = Len(Sin)
    For i = 1 To l
        c = Mid(Sin, i, 1)
        If c<>"%" Then
            s = s & c
        Else
            c = Mid(Sin, i + 1, 2)
            i = i + 2
            t = CInt("&H" & c)
            If t<&H80 Then
                s = s & Chr(t)
            Else
                c = Mid(Sin, i + 1, 3)
                If Left(c, 1)<>"%" Then
                    URLDecoding = s
                    Exit Function
                Else
                    c = Right(c, 2)
                    n = CInt("&H" & c)
                    t = t * 256 + n -65536
                    s = s & Chr(t)
                    i = i + 3
                End If
            End If
        End If
    Next
    URLDecoding = s
End Function

'===================================================================================