復(fù)制代碼 代碼如下:
'//轉(zhuǎn)換中文為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
'//轉(zhuǎn)換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(o,url)
dim oReq
on error resume next
if o is nothing then
'//創(chuàng)建XMLHTTP對象
set oReq = CreateObject("MSXML2.XMLHTTP")
else
set oReq = o
end if
oReq.open "get",url,false
oReq.send
if oReq.status = 200 or oReq.status = 0 then
getText = bytes2BSTR(oReq.responseBody)
else
getText = ""
end if
end function
您可能感興趣的文章:- java unicode轉(zhuǎn)碼為中文實(shí)例
- Java String字符串和Unicode字符相互轉(zhuǎn)換代碼
- java實(shí)現(xiàn)漢字轉(zhuǎn)unicode與漢字轉(zhuǎn)16進(jìn)制實(shí)例
- java中unicode和中文相互轉(zhuǎn)換的簡單實(shí)現(xiàn)