vb.net编解码url

概述解码：   Public Function URLDecode(sEncodedURL As String) As String On Error Goto Catch Dim iLoop As Integer Dim sRtn As String Dim sTmp As String If Len(sEncodedURL) > 0 解码：

Public Function URLDecode(sEncodedURL As String) As String    On Error Goto Catch        Dim iLoop As Integer    Dim sRtn As String    Dim sTmp As String        If Len(sEncodedURL) > 0 Then        For iLoop = 1 To Len(sEncodedURL)            sTmp = MID(sEncodedURL,iLoop,1)            sTmp = Replace(sTmp,"+"," ")            If sTmp = "%" and LEN(sEncodedURL) > iLoop + 2 Then                sTmp = MID(sEncodedURL,iLoop + 1,2)                sTmp = Chr(CDec("&H" & sTmp))                iLoop = iLoop + 2            End If            sRtn = sRtn & sTmp        Next iLoop        URLDecode = sRtn    End If    Finally:    Exit Function    Catch:    URLDecode = ""    Resume FinallyEnd Function

编码：

Public Function URLEncode(sRawURL As String) As String    On Error Goto Catch    Dim iLoop As Integer    Dim sRtn As String    Dim sTmp As String    Const sValIDChars = "1234567890ABCDEFGHIJKLMnopQRSTUVWXYZabcdefghijklmnopqrstuvwxyz:/.?=_-$(){}~&"    If Len(sRawURL) > 0 Then        For iLoop = 1 To Len(sRawURL)            sTmp = MID(sRawURL,1)            If InStr(1,sValIDChars,sTmp,vbBinaryCompare) = 0 Then                sTmp = Hex(Asc(sTmp))                If sTmp = "20" Then                    sTmp = "+"                ElseIf Len(sTmp) = 1 Then                    sTmp = "%0" & sTmp                Else                    sTmp = "%" & sTmp                End If            End If            sRtn = sRtn & sTmp        Next iLoop        URLEncode = sRtn    End If    Finally:    Exit Function    Catch:    URLEncode = ""    Resume FinallyEnd Function

总结

以上是内存溢出为你收集整理的vb.net编解码url全部内容，希望文章能够帮你解决vb.net编解码url所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。