VB包含汉字的URL转码函数(包含空格,汉字)
发布时间：2020-12-16 22:22:28 所属栏目：大数据 来源：网络整理
导读：测试调用的网页为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 (nTem
|
测试调用的网页为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（编辑：李大同） 【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容! |