VB,VBS,实现server.URLEncode及反编码功能的函数URLEncode()与URLDecode()

Function URLEncode(strURL)
    Dim I
    Dim tempStr
    For I = 1 ToLen(strURL)
        IfAsc(Mid(strURL, I, 1)) < 0 Then
            tempStr ="%"&Right(CStr(Hex(Asc(Mid(strURL, I, 1)))), 2)
            tempStr ="%"&Left(CStr(Hex(Asc(Mid(strURL, I, 1)))), Len(CStr(Hex(Asc(Mid(strURL, I, 1))))) - 2) & tempStr
            URLEncode = URLEncode & tempStr
        ElseIf (Asc(Mid(strURL, I, 1)) >= 65 AndAsc(Mid(strURL, I, 1)) <= 90) Or (Asc(Mid(strURL, I, 1)) >= 97 AndAsc(Mid(strURL, I, 1)) <= 122) Or (Asc(Mid(strURL, I, 1)) >= 48 AndAsc(Mid(strURL, I, 1)) <= 57) Then
            URLEncode = URLEncode &Mid(strURL, I, 1)
        Else
            URLEncode = URLEncode &"%"&Hex(Asc(Mid(strURL, I, 1)))
        EndIfNextEndFunctionFunction URLDecode(strURL)
    Dim I

    IfInStr(strURL, "%") = 0 Then
        URLDecode = strURL
        ExitFunctionEndIfFor I = 1 ToLen(strURL)
        IfMid(strURL, I, 1) ="%"ThenIfEval("&H"&Mid(strURL, I + 1, 2)) > 127 Then
                URLDecode = URLDecode &Chr(Eval("&H"&Mid(strURL, I + 1, 2) &Mid(strURL, I + 4, 2)))
                I = I + 5
            Else
                URLDecode = URLDecode &Chr(Eval("&H"&Mid(strURL, I + 1, 2)))
                I = I + 2
            EndIfElse
            URLDecode = URLDecode &Mid(strURL, I, 1)
        EndIfNextEndFunction

<script language=vbs> Function URLEncode(strURL) Dim I Dim tempStr For I = 1 To Len(strURL) If Asc(Mid(strURL, I, 1)) < 0 Then tempStr = "%" & Right(CStr(Hex(Asc(Mid(strURL, I, 1)))), 2) tempStr = "%" & Left(CStr(Hex(Asc(Mid(strURL, I, 1)))), Len(CStr(Hex(Asc(Mid(strURL, I, 1))))) - 2) & tempStr URLEncode = URLEncode & tempStr ElseIf (Asc(Mid(strURL, I, 1)) >= 65 And Asc(Mid(strURL, I, 1)) <= 90) Or (Asc(Mid(strURL, I, 1)) >= 97 And Asc(Mid(strURL, I, 1)) <= 122) Or (Asc(Mid(strURL, I, 1)) >= 48 And Asc(Mid(strURL, I, 1)) <= 57) Then URLEncode = URLEncode & Mid(strURL, I, 1) Else URLEncode = URLEncode & "%" & Hex(Asc(Mid(strURL, I, 1))) End If Next End Function Function URLDecode(strURL) Dim I If InStr(strURL, "%") = 0 Then URLDecode = strURL Exit Function End If For I = 1 To Len(strURL) If Mid(strURL, I, 1) = "%" Then If Eval("&H" & Mid(strURL, I + 1, 2)) > 127 Then URLDecode = URLDecode & Chr(Eval("&H" & Mid(strURL, I + 1, 2) & Mid(strURL, I + 4, 2))) I = I + 5 Else URLDecode = URLDecode & Chr(Eval("&H" & Mid(strURL, I + 1, 2))) I = I + 2 End If Else URLDecode = URLDecode & Mid(strURL, I, 1) End If Next End Function msgbox URLEncode("我是谁呀haha"),,"URLEncode(""我是谁呀haha"")" msgbox URLEncode("yongfa365"),,"URLEncode(""yongfa365"")" msgbox URLEncode("How are you ?"),,"URLEncode(""How are you ?"")" msgbox URLDecode(URLEncode("我是谁呀haha")),,"URLDecode(URLEncode(""我是谁呀haha""))" window.close() </script>
可修改代码后再运行