繁體中文当前位置: 首页 > 图文教程 > 网络编程 > PHP > 转换中文为unicode 转换unicode到正常文本
- PHP
- php 服务器调试 Zend Debugger 的安装教程
- 从Web查询数据库之PHP与MySQL篇
- php 应用程序安全防范技术研究
- php 不同编码下的字符串长度区分
- php 生成饼图 三维饼图
- PHP 字符截取 解决中文的截取问题,不用mb系列
- PHP5 操作MySQL数据库基础代码
- php面向对象全攻略 （一） 面向对象基础知识
- php面向对象全攻略 （二） 实例化对象 使用对象成员
- php面向对象全攻略 （三）特殊的引用“$this”的使用
- php面向对象全攻略 （四）构造方法与析构方法
- php面向对象全攻略 （五） 封装性
- php面向对象全攻略 （六）__set() __get() __isset() __unset()的用法
- php面向对象全攻略 （七） 继承性
- php面向对象全攻略 （八）重载新的方法
- php面向对象全攻略 （九）访问类型
- php面向对象全攻略 （十） final static const关键字的使用
- php面向对象全攻略 （十一）__toString()用法 克隆对象 __call处理调用错误
- php面向对象全攻略 （十二） 抽象方法和抽象类
- php面向对象全攻略 （十四） php5接口技术
PHP 中的 转换中文为unicode 转换unicode到正常文本
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-09-13 浏览: 308 ::
收藏到网摘: n/a
复制代码 代码如下:
'//转换中文为unicode
function URLEncoding(vstrIn)
dim i
dim strReturn,ThisChr,innerCode,Hight8,Low8
strReturn = ""
for i = 1 to Len(vstrIn)
ThisChr = Mid(vStrIn,i,1)
If Abs(Asc(ThisChr)) < &HFF then
strReturn = strReturn & ThisChr
else
innerCode = Asc(ThisChr)
If innerCode < 0 then
innerCode = innerCode + &H10000
end If
Hight8 = (innerCode and &HFF00)\ &HFF
Low8 = innerCode and &HFF
strReturn = strReturn & "%" & Hex(Hight8) & "%" & Hex(Low8)
end If
next
URLEncoding = strReturn
end function
'//转换unicode到正常文本
function bytes2BSTR(vIn)
dim i
dim strReturn,ThisCharCode,nextCharCode
strReturn = ""
for i = 1 to LenB(vIn)
ThisCharCode = AscB(MidB(vIn,i,1))
If ThisCharCode < &H80 then
strReturn = strReturn & Chr(ThisCharCode)
else
nextCharCode = AscB(MidB(vIn,i+1,1))
strReturn = strReturn & Chr(CLng(ThisCharCode) * &H100 + CInt(nextCharCode))
i = i + 1
end If
next
bytes2BSTR = strReturn
end function
function getText(oReq,url)
on error resume next
'//创建XMLHTTP对象
if oReq is nothing then
set oReq = CreateObject("MSXML2.XMLHTTP")
end if
if not oReq is nothing then
oReq.open "get",url,false
oReq.send
if oReq.status = 200 then
getText = bytes2BSTR(oReq.responseBody)
else
getText = ""
end if
else
getText = ""
end if
end function
评论 (0) All
