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

woolnil

于 2012-08-26 16:09:45 发布

阅读量3.2k

点赞数

分类专栏： VB 文章标签： url vb hex function string 测试

VB 专栏收录该内容

3 篇文章

订阅专栏

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

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

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