婷婷综合国产,91蜜桃婷婷狠狠久久综合9色 ,九九九九九精品,国产综合av

主頁 > 知識庫 > 實現UTF8轉換GB2312國標碼的asp代碼

實現UTF8轉換GB2312國標碼的asp代碼

熱門標簽:長沙防封電銷卡品牌 智能電銷機器人適用于哪些行業 地圖標注服務哪家好 西寧公司外呼系統平臺 地圖標注宅基地 外呼系統還用卡么 徐州人工智能電銷機器人好用嗎 騰訊地圖標注商戶關閉 武漢營銷電話機器人軟件
復制代碼 代碼如下:

'個人代碼風格注釋(變量名中第一個小寫字母表表示變量類型)
'i:為Integer型;
's:為String;
Function U2UTF8(Byval a_iNum)
Dim sResult,sUTF8
Dim iTemp,iHexNum,i

iHexNum = Trim(a_iNum)

If iHexNum = “” Then
Exit Function
End If

sResult = “”

If (iHexNum 128) Then
sResult = sResult iHexNum
ElseIf (iHexNum 2048) Then
sResult = ChrB(H80 + (iHexNum And H3F))
iHexNum = iHexNum \ H40
sResult = ChrB(HC0 + (iHexNum And H1F)) sResult
ElseIf (iHexNum 65536) Then
sResult = ChrB(H80 + (iHexNum And H3F))
iHexNum = iHexNum \ H40
sResult = ChrB(H80 + (iHexNum And H3F)) sResult
iHexNum = iHexNum \ H40
sResult = ChrB(HE0 + (iHexNum And HF)) sResult
End If

U2UTF8 = sResult
End Function

Function GB2UTF(Byval a_sStr)
Dim sGB,sResult,sTemp
Dim iLen,iUnicode,iTemp,i

sGB = Trim(a_sStr)
iLen = Len(sGB)
For i = 1 To iLen
sTemp = Mid(sGB,i,1)
iTemp = Asc(sTemp)

If (iTemp>127 OR iTemp0) Then
iUnicode = AscW(sTemp)
If iUnicode0 Then
iUnicode = iUnicode + 65536
End If
Else
iUnicode = iTemp
End If

sResult = sResult U2UTF8(iUnicode)
Next

GB2UTF = sResult
End Function

'調用方法
Response.BinaryWrite(GB2UTF(“中國人”))
您可能感興趣的文章:
  • PHP函數utf8轉gb2312編碼
  • js 編碼轉換 gb2312 和 utf8 互轉的2種方法

標簽:荊門 運城 通遼 巴彥淖爾 雅安 普洱 鷹潭 通化

巨人網絡通訊聲明:本文標題《實現UTF8轉換GB2312國標碼的asp代碼》,本文關鍵詞  實現,UTF8,轉換,GB2312,國標碼,;如發現本文內容存在版權問題,煩請提供相關信息告之我們,我們將及時溝通與處理。本站內容系統采集于網絡,涉及言論、版權與本站無關。
  • 相關文章
  • 下面列出與本文章《實現UTF8轉換GB2312國標碼的asp代碼》相關的同類信息!
  • 本頁收集關于實現UTF8轉換GB2312國標碼的asp代碼的相關信息資訊供網民參考!
  • 推薦文章
    主站蜘蛛池模板: 抚顺县| 灵川县| 成安县| 栾川县| 蛟河市| 龙陵县| 铅山县| 新余市| 越西县| 克东县| 博湖县| 淮滨县| 陈巴尔虎旗| 博乐市| 伽师县| 巨野县| 德格县| 呼和浩特市| 榆树市| 稻城县| 恩平市| 福泉市| 大安市| 类乌齐县| 崇仁县| 阿城市| 吐鲁番市| 余庆县| 济阳县| 邛崃市| 凤凰县| 永康市| 盐源县| 彝良县| 织金县| 元朗区| 镇原县| 绥宁县| 辰溪县| 沅江市| 西充县|