VBScript访问网络位置时不支持中文字符

VBScript在访问网络位置时不支持中文字符，需要将中文字符转换为URL编码。可以使用以下函数将中文字符转换为URL编码：

Function UrlEncode(str)
    Dim i, c, chrCode
    Dim outStr
    For i = 1 To Len(str)
        c = Mid(str, i, 1)
        If c Like "[A-Za-z0-9]" Or c = "-" Or c = "_" Or c = "." Or c = "~" Then
            outStr = outStr & c
        Else
            chrCode = AscW(c)
            If chrCode < &H80 Then
                outStr = outStr & "%" & Hex(chrCode)
            Else
                outStr = outStr & "%" & Hex(chrCode \ &H100) & "%" & Hex(chrCode Mod &H100)
            End If
        End If
    Next
    UrlEncode = outStr
End Function

使用示例：

Dim url, chineseStr
chineseStr = "中文字符"
url = "http://example.com/" & UrlEncode(chineseStr) & "/file.html"

这将生成以下URL：

http://example.com/%E4%B8%AD%E6%96%87%E5%AD%97%E7%AC%A6/file.html