繁體中文当前位置: 首页 > 图文教程 > 网络编程 > PHP > 转换中文为unicode 转换unicode到正常文本
- PHP
- 采用行写方式的聊天程序（之一）
- 采用行写方式的聊天程序（之二）
- 采用行写方式的聊天程序（之三）
- php.net新闻拦截！
- PHP的面向对象编程：开发大型PHP项目的方法(一)
- PHP的面向对象编程：开发大型PHP项目的方法(二)
- PHP的面向对象编程：开发大型PHP项目的方法(三)
- PHP的面向对象编程：开发大型PHP项目的方法(四)
- PHP的面向对象编程：开发大型PHP项目的方法(五)
- 用PHP发送MIME邮件（一）
- 用PHP发送MIME邮件（二）
- 用PHP发送MIME邮件（三）
- 用PHP发送MIME邮件（四）
- 用PHP发送MIME邮件（五）
- 用PHP发送MIME邮件（六）
- 一个广告轮播系统的例子（内含文件上传的方法）
- PHP 留言簿（带Oracle数据库分页的显示功能）
- PHP/MySQL教程 完整教程
- 老技术新外衣 如何设计一个包含Ajax技术的PHP网页
- 打造超酷的PHP数据饼图
PHP 中的 转换中文为unicode 转换unicode到正常文本
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-09-13 浏览: 207 ::
收藏到网摘: 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
