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

转载于 2012-08-26 16:09:45 发布 · 3.2k 阅读

文章标签：

#url #vb #hex #function #string #测试

VB 专栏收录该内容

3 篇文章

订阅专栏

本文介绍了一个用于将包含汉字的URL进行转码的VB函数。该函数能够处理各种字符，并将其转换为适用于网络请求的形式。文章详细展示了转码函数的具体实现。

测试调用的网页为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