www一片黄-www一区-www伊人-www淫-少妇被按摩-射在老师的里面真爽

行業(yè)動(dòng)態(tài)
asp gbk轉(zhuǎn)UTF函數(shù),ASP中文轉(zhuǎn)UTF函數(shù)
發(fā)布日期:2012-08-23 閱讀次數(shù):3798 字體大?。?a href="javascript:;" onclick="ChangeFontSize('content',16)">大

今天易天科技在開發(fā)由一個(gè)網(wǎng)站向另外一個(gè)網(wǎng)站提交信息的接口時(shí),由于接口只支持中文的UTF-8編碼方式,而網(wǎng)站又是GB2312編碼,用UTF-8做的頁面可以正常發(fā)送短信了,但想想這樣兩種編碼分開來,對(duì)網(wǎng)站系統(tǒng)的整合還是很方便,易天技術(shù)試了很多代碼,終于還是調(diào)試出這個(gè)GB2312轉(zhuǎn)UTF-8編碼的函數(shù),分享出來給大家。

 

ASP/Visual Basic代碼
  1. Private Function YiskyGBtoUTF8(szInput)    
  2. Dim wch, uch, szRet    
  3. Dim x    
  4. Dim nAsc, nAsc2, nAsc3    
  5. If szInput = "" Then    
  6. YiskyGBtoUTF8= szInput    
  7. Exit Function    
  8. End If    
  9. For x = 1 To Len(szInput)    
  10. wch = Mid(szInput, x, 1)    
  11. nAsc = AscW(wch)    
  12. If nAsc < 0 Then nAsc = nAsc + 65536    
  13. If (nAsc And &HFF80) = 0 Then    
  14. szRet = szRet & wch    
  15. Else    
  16. If (nAsc And &HF000) = 0 Then    
  17. uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)    
  18. szRet = szRet & uch    
  19. Else    
  20. uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _    
  21. Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _    
  22. Hex(nAsc And &H3F Or &H80)    
  23. szRet = szRet & uch    
  24. End If    
  25. End If    
  26. Next    
  27. YiskyGBtoUTF8= szRet    
  28. End Function  

使用時(shí):a=GBtoUTF8(字符串變量)

主站蜘蛛池模板: 中文字幕国产日韩 | 欧日韩美香蕉在线观看 | 精品久久久久免费极品大片 | 韩国成人理伦片免费播放 | 日韩精品国产一区 | 亚洲三级理论 | 五月综合激情视频在线观看 | 国产v片在线播放免费观 | 天堂在线视频网站 | 精品视频99| 国产成人高清亚洲一区91 | 欧美日韩国产片 | 永久免费看毛片 | 欧美黑人巨大硬xxx猛性 | 精品国产拍拍拍无遮挡 | 加勒比一本大道香蕉在线视频 | 北条麻妃中文字幕在线观看 | 国产精品久久女同磨豆腐 | 亚洲永久中文字幕在线 | 在线亚洲精品国产波多野结衣 | 日本亚洲欧美国产日韩ay高清 | 香蕉视频你懂的 | 免费在线观看黄 | 韩日免费视频 | 涩视频成人永久免费观看网站 | 亚洲精品一二三区-久久 | 在线中文字幕播放 | 亚洲欧美日韩精品久久奇米色影视 | 亚洲欧美一区二区三区在饯 | 国产精品v欧美精品v日韩精品 | 黄色网在线播放 | 欧美国产大片 | 五月天婷婷视频 | 国产欧美一区二区成人影院 | 香蕉国产精品 | 在线国产小视频 | 久草网站在线 | 波多野结衣免费观看视频 | 白丝丝袜高跟国产在线视频 | 国产黑丝美女 | 欧美在线 | 亚洲 |