网址中，需要将中文转化为相应的URL Encode才能识别（中文域名也是转化成URL code），所以这里介绍一个URL encode的函数。

工具/原料

  • VB6.0

方法/步骤

  1. 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. 2

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

  3. 3
    形参为中文等字符。
  4. 4

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

    END
经验内容仅供参考，如果您需解决具体问题(尤其法律、医学等领域)，建议您详细咨询相关领域专业人士。