VB函数 - URL Encode

1、Public Function URLEncode(ByVal strParameter As String) As String

Dim s As String

Dim I As Integer

Dim intValue As Integer

Dim TmpData() As Byte

   s = ""

   TmpData = StrConv(strParameter, vbFromUnicode)

   For I = 0 To UBound(TmpData)

       intValue = TmpData(I)

       If (intValue >= 48 And intValue <= 57) Or _

           (intValue >= 65 And intValue <= 90) Or _

           (intValue >= 97 And intValue <= 122) Then

           s = s & Chr(intValue)

       ElseIf intValue = 32 Then

           s = s & "+"

       Else

           s = s & "%" & Hex(intValue)

       End If

   Next I

   URLEncode = s

End Function

2、这个VB的函数，可以把中文转化为相应的URL Encode。

3、形参为中文等字符。

4、返回值为形参对应的URL Encode。