VB包含汉字的URL转码函数(包含空格,汉字)

测试调用的网页为aspx页面

'包含汉字的URL转码函数

Private Function vbEscape(psString As String) As String
    Dim nTemp, sTemp, sTempChar, nTempAsc
    For nTemp = 1 To Len(psString)
        sTempChar = Mid(psString, nTemp, 1)
        nTempAsc = AscW(sTempChar)
        If (nTempAsc >= 48 And nTempAsc <= 57) Or (nTempAsc >= 65 And nTempAsc <= 90) Or (nTempAsc >= 97 And nTempAsc <= 122) Or InStr("@*_+-./", sTempChar) > 0 Then
            sTemp = sTemp & sTempChar
        ElseIf nTempAsc > 0 And nTempAsc < 16 Then
            sTemp = sTemp & "%0" & Hex(nTempAsc)
        ElseIf nTempAsc >= 16 And nTempAsc < 256 Then
            sTemp = sTemp & "%" & Hex(nTempAsc)
        Else
            sTemp = sTemp & "%u" & Hex(nTempAsc)
        End If
    Next
    vbEscape = sTemp
End Function