转换中文为unicode 转换unicode到正常文本
更新时间:2006年10月08日 00:00:00 作者:
复制代码 代码如下:
'//转换中文为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(o,url)
dim oReq
on error resume next
if o is nothing then
'//创建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
相关文章
关于WPF WriteableBitmap类直接操作像素点的问题
WPF是微软新一代图形系统,运行在.NET Framework 3.0及以上版本下,为用户界面、2D/3D 图形、文档和媒体提供了统一的描述和操作方法,本文重点给大家介绍WPF WriteableBitmap类直接操作像素点的问题,感兴趣的朋友一起看看吧2022-01-01msxml3.dll 错误 800c0019 系统错误:-2146697191解决方法
今天发现一个asp后台使用了XMLHTTP组件的页面无法无法生成静态页面了,运行时提示msxml3.dll 错误 800c0019 系统错误:-2146697191,经过搜索如下方法解决了问题2020-11-11
最新评论