【Asp】ASP Unescape加密/解密/编码/解码

ASP Unescape加密/编码，ASP Unescape加密，ASP Unescape编码：

Function vbEscape(psString)
    Dim nTemp, sTemp, sTempChar, nTempAsc
    For nTemp =1 To Len(psString)
        sTempChar =Mid(psString, nTemp, 1)
        nTempAsc =Ascw(sTempChar)
        If (nTempAsc >=48 and nTempAsc =65 and nTempAsc =97 and nTempAsc 0 Then
            sTemp =sTemp & sTempChar
        ElseIf nTempAsc >0 and nTempAsc
            sTemp =sTemp & "%0" & Hex(nTempAsc)
        ElseIf nTempAsc >=16 and nTempAsc
            sTemp =sTemp & "%" & Hex(nTempAsc)
        Else
            sTemp =sTemp & "%u" & Hex(nTempAsc)
        End If
    Next
    vbEscape =sTemp
End Function
%>

ASP Unescape解密/解码，ASP Unescape解密，ASP Unescape解码：

Function vbUnEscape(psString)
    Dim nTemp, sTemp, sTempChar
    sTemp =""
    For nTemp =1 To Len(psString)
        sTempChar =Mid(psString, nTemp, 1)
        If Mid(psString, nTemp, 2) ="%u" and nTemp
            If IsNumeric("&H" & Mid(psString, nTemp +2,4)) Then
                sTemp =sTemp & Chrw(CInt("&H" & Mid(psString, nTemp +2, 4)))
                nTemp = nTemp +5
            Else
                sTemp =sTemp & sTempChar
            End If
        ElseIf sTempChar ="%" and nTemp
            If IsNumeric("&H" & Mid(psString, nTemp +1, 2)) Then
                sTemp =sTemp & CHRW(CInt("&H" & Mid(psString, nTemp +1, 2)))
                nTemp =nTemp +2
            Else
                sTemp =sTemp & c
            End If
        Else
            sTemp =sTemp & sTempChar
        End If
    Next
    vbUnEscape =sTemp
End Function
%>