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ù):3796 字體大小:

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

 

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(字符串變量)

主站蜘蛛池模板: 国产成人毛片毛片久久网 | 521色香蕉网在线观看免费 | 成人毛片免费观看视频在线 | 丰满肥胖大码中年熟妇毛片 | 青青草国产精品人人爱99 | 亚洲欧美日韩天堂在线观看 | 日本视频www| 日本一区二区免费在线 | 亚洲欧洲网站 | 在线亚洲欧国产精品专区 | 最近中文字幕视频国语中文字幕 | 在线看片亚洲 | 最新日本免费一区二区三区中文 | 精品国产成a人在线观看 | 日韩伦理片在线播放 | 在线观看黄色毛片 | 亚洲精品永久www嫩草 | 黄色片网站免费 | 日韩不卡在线视频 | 中文字幕一区二区三区免费看 | 91精品国产美女福到在线不卡 | 亚洲日本视频在线观看 | 日本三级a | 日韩在线天堂 | 波多野结衣在线观看一区二区 | 一级爱爱片一级毛片-一毛 一级α一级α片免费观看网站 | 日韩成人免费观看 | 欧美极品欧美精品欧美视频 | 午夜久久网 | 欧美a站| 韩国伊人 | 热热色原原网站 | 亚洲第一精品夜夜躁人人爽 | 黄色三级视频在线 | 高清freexxxx性 | 毛片免费毛片一级jjj毛片 | 看一级毛片免费观看视频 | 色综合久久久久久888 | 亚洲国产日韩在线 | 精品国产自在现线看久久 | 人人人干 |