到全局代码添加下面代码:
Public Function PercentEncode(ByVal value As String) As String
Dim stringBuilder As StringBuilder = New StringBuilder()
Dim text As String = "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789-_.~"
Dim bytes As Byte() = System.Text.Encoding.UTF8.GetBytes(value)
For Each b As Byte In bytes
Dim c As Char = chr(b)
If text.IndexOf(c) >= 0 Then
stringBuilder.Append(c)
Else
stringBuilder.Append("%").Append(String.Format(System.Globalization.CultureInfo.InvariantCulture, "{0:X2}", CInt(b)))
End If
Next
Return stringBuilder.ToString()
End Function
调用
PercentEncode(" ")