欢迎来到代码驿站!

ASP代码

当前位置:首页 > 软件编程 > ASP代码

转换中文为unicode 转换unicode到正常文本

时间:2021-05-01 09:32:22|栏目:ASP代码|点击:

复制代码 代码如下:

'//转换中文为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

上一篇:rustysun同学ASP代码书写规范

栏    目:ASP代码

下一篇:获取图片宽度和高度的类,支持JPG,GIF,PNG,BMP

本文标题:转换中文为unicode 转换unicode到正常文本

本文地址:http://www.codeinn.net/misctech/112271.html

推荐教程

广告投放 | 联系我们 | 版权申明

重要申明:本站所有的文章、图片、评论等,均由网友发表或上传并维护或收集自网络,属个人行为,与本站立场无关。

如果侵犯了您的权利,请与我们联系,我们将在24小时内进行处理、任何非本站因素导致的法律后果,本站均不负任何责任。

联系QQ:914707363 | 邮箱:codeinn#126.com(#换成@)

Copyright © 2020 代码驿站 版权所有