用于gb2312下接收新浪api 的json數據utf-8轉gb2312

' UTF-8字符轉換成GB2312 Function UTF2GB(UTFStr) For Dig=1 to len(UTFStr) if mid(UTFStr,Dig,1)="%" then if len(UTFStr) >= Dig+8 then GBStr=GBStr & ConvChinese(mid(UTFStr,Dig,9)) Dig=Dig+8 else GBStr=GBStr & mid(UTFStr,Dig,1) end if else GBStr=GBStr & mid(UTFStr,Dig,1) end if Next UTF2GB=GBStr End Function

?

用于gb2312下api發送新浪微博中文轉碼

Function toUTF8(szInput)Dim wch, uch, szRetDim xDim nAsc, nAsc2, nAsc3'如果輸入參數為空，則退出函數If szInput = "" ThentoUTF8 = szInputExit FunctionEnd If'開始轉換For x = 1 To Len(szInput)'利用mid函數分拆GB編碼文字 wch = Mid(szInput, x, 1)'利用ascW函數返回每一個GB編碼文字的Unicode字符代碼'注：asc函數返回的是ANSI 字符代碼，注意區別 nAsc = AscW(wch)If nAsc < 0 Then nAsc = nAsc + 65536If (nAsc And &HFF80) = 0 ThenszRet = szRet & wchElseIf (nAsc And &HF000) = 0 Thenuch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)szRet = szRet & uchElse'GB編碼文字的Unicode字符代碼在0800 - FFFF之間采用三字節模版 uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _Hex(nAsc And &H3F Or &H80)szRet = szRet & uchEnd IfEnd IfNexttoUTF8 = szRetEnd Function

?

?

轉載于:https://www.cnblogs.com/henshui/archive/2012/12/26/2833594.html

總結

以上是生活随笔為你收集整理的asp不同编码下 UTF-8 GB2312转换收集的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。