源码论坛公告:有很多假冒锦尚中国的网站出现,还有声称是跟我们合作网站,请擦亮眼睛避免被骗,源码论坛唯一域名为52jscn.com 【点击此处将锦尚放在桌面

源码论坛,商业源码下载,尽在锦尚中国商业源码论坛

 找回密码
 会员注册

QQ登录

只需一步,快速开始

新版大型房产门户源码下载
知名广告联盟 精准不扣量
企业免备案主机仅需80元
亿恩免费建网站 服务器特价
锦尚中国源码论坛
百度站长平台 精确提升SEO
旅游网解决方案 大型旅游门户
大型装修门户助您抢占商机
【稳定】ios苹果签名 网站封装微信营销项目诚招代理
安乐业房产网全新来袭
 
源码下载,源码论坛,网站源码,php源码,asp源码全部就在锦尚中国源码论坛
网站源码下载,商业源码下载,源码论坛,网站源码,php源码,asp源码全部就在锦尚中国源码论坛
查看: 1180|回复: 0

[PHP编程] 转换中文为unicode 转换unicode到正常文本

[复制链接]

1048

主题

1309

帖子

738万

金币

超级版主

Rank: 8Rank: 8

积分
14773867
发表于 2019-2-13 01:05:28 | 显示全部楼层 |阅读模式
  1. '//转换中文为unicode
  2. function URLEncoding(vstrIn)

  3.     dim i
  4.     dim strReturn,ThisChr,innerCode,Hight8,Low8

  5.     strReturn = ""
  6.     for i = 1 to Len(vstrIn)
  7.         ThisChr = Mid(vStrIn,i,1)
  8.         If Abs(Asc(ThisChr)) < &HFF then
  9.             strReturn = strReturn & ThisChr
  10.         else
  11.             innerCode = Asc(ThisChr)
  12.             If innerCode < 0 then
  13.                 innerCode = innerCode + &H10000
  14.             end If
  15.             Hight8 = (innerCode  and &HFF00)\ &HFF
  16.             Low8 = innerCode and &HFF
  17.             strReturn = strReturn & "%" & Hex(Hight8) &  "%" & Hex(Low8)
  18.         end If
  19.     next

  20.     URLEncoding = strReturn

  21. end function

  22. '//转换unicode到正常文本
  23. function bytes2BSTR(vIn)
  24.     dim i
  25.     dim strReturn,ThisCharCode,nextCharCode

  26.     strReturn = ""
  27.     for i = 1 to LenB(vIn)
  28.         ThisCharCode = AscB(MidB(vIn,i,1))
  29.         If ThisCharCode < &H80 then
  30.             strReturn = strReturn & Chr(ThisCharCode)
  31.         else
  32.             nextCharCode = AscB(MidB(vIn,i+1,1))
  33.             strReturn = strReturn & Chr(CLng(ThisCharCode) * &H100 + CInt(nextCharCode))
  34.             i = i + 1
  35.         end If
  36.     next
  37.     bytes2BSTR = strReturn

  38. end function

  39. function getText(oReq,url)

  40.     on error resume next
  41.     '//创建XMLHTTP对象     
  42.     if oReq is nothing then
  43.         set oReq    = CreateObject("MSXML2.XMLHTTP")
  44.     end if

  45.     if    not oReq is nothing then
  46.         oReq.open "get",url,false
  47.         oReq.send  

  48.         if oReq.status = 200 then
  49.             getText = bytes2BSTR(oReq.responseBody)
  50.         else
  51.             getText = ""
  52.         end if
  53.     else
  54.         getText = ""
  55.     end if

  56. end function
复制代码
锦尚数据隆重推出免备案国内BGP多线主机,相信欧阳没错滴   双线至强云主机火热订购 http://yun.52jscn.com/shuanxian.html
您需要登录后才可以回帖 登录 | 会员注册

本版积分规则

锦尚中国源码论坛 锦尚中国源码

锦尚中国,为中国网站设计添动力 ( 鲁ICP备09033200号 )

GMT+8, 2019-7-21 03:55 , Processed in 0.156321 second(s), 25 queries .

带宽由 锦尚数据 提供 专业的数据中心

© 锦尚中国源码论坛 52jscn Inc. 非法入侵必将受到法律制裁 法律顾问:IT法律网 锦尚爱心