vb6 url编码和解码

在VB6（Visual Basic 6）中，URL编码和解码是常见的需求，特别是在处理网页数据或进行网络请求时。URL编码是将特殊字符转换为可以在URL中安全传输的格式，而URL解码则是将编码后的字符串转换回原始格式。

### URL编码

在VB6中，可以使用`Server.URLEncode`方法进行URL编码。这个方法通常在ASP页面中使用，但也可以在VB6的COM组件中使用。

Function URLEncode(ByVal StringVal As String) As String
    Dim i As Long
    Dim CharVal As Integer
    Dim EncodedStr As String
    
    For i = 1 To Len(StringVal)
        CharVal = Asc(Mid$(StringVal, i, 1))
        Select Case CharVal
            Case 48 To 57, 65 To 90, 97 To 122 ' 0-9, A-Z, a-z
                EncodedStr = EncodedStr & Chr$(CharVal)
            Case 32 ' Space
                EncodedStr = EncodedStr & "+"
            Case Else
                EncodedStr = EncodedStr & "%" & Hex$(CharVal)
        End Select
    Next i
    
    URLEncode = EncodedStr
End Function

### URL解码

在VB6中，可以使用`Server.URLDecode`方法进行URL解码。同样，这个方法通常在ASP页面中使用，但也可以在VB6的COM组件中使用。

Function URLDecode(ByVal StringVal As String) As String
    Dim i As Long
    Dim CharVal As Integer
    Dim DecodedStr As String
    
    For i = 1 To Len(StringVal)
        CharVal = Asc(Mid$(StringVal, i, 1))
        Select Case CharVal
            Case 43 ' +
                DecodedStr = DecodedStr & " "
            Case 37 ' %
                DecodedStr = DecodedStr & Chr$(Val("&H" & Mid$(StringVal, i + 1, 2)))
                i = i + 2
            Case Else
                DecodedStr = DecodedStr & Chr$(CharVal)
        End Select
    Next i
    
    URLDecode = DecodedStr
End Function

### 使用示例

Sub TestURLEncodeDecode()
    Dim originalString As String
    Dim encodedString As String
    Dim decodedString As String
    
    originalString = "Hello World! 123"
    encodedString = URLEncode(originalString)
    decodedString = URLDecode(encodedString)
    
    MsgBox "Original: " & originalString
    MsgBox "Encoded: " & encodedString
    MsgBox "Decoded: " & decodedString
End Sub

通过上述代码，你可以看到如何进行URL编码和解码，并验证其正确性。