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, 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 总结

以上是内存溢出为你收集整理的VB包含汉字的URL转码函数(包含空格,汉字)全部内容，希望文章能够帮你解决VB包含汉字的URL转码函数(包含空格,汉字)所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。