欢迎您访问程序员文章站本站旨在为大家提供分享程序员计算机编程知识!
您现在的位置是: 首页  >  后端开发

转换中文为unicode 转换unicode到正常文本_PHP编程

程序员文章站 2024-04-04 20:15:47
...
复制代码 代码如下:

'//转换中文为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)) strReturn = strReturn & ThisChr
else
innerCode = Asc(ThisChr)
If innerCode 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 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