轉(zhuǎn)換中文為unicode 轉(zhuǎn)換unicode到正常文本
更新時(shí)間:2006年10月08日 00:00:00 作者:
復(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對(duì)象
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
相關(guān)文章
ASP中經(jīng)常使用的SQL語(yǔ)句與教程說(shuō)明
ASP中經(jīng)常使用的SQL語(yǔ)句與教程說(shuō)明...2007-03-03[ASP]RegExp對(duì)象提供簡(jiǎn)單的正則表達(dá)式支持功能使用說(shuō)明
[ASP]RegExp對(duì)象提供簡(jiǎn)單的正則表達(dá)式支持功能使用說(shuō)明...2007-07-07如何從數(shù)據(jù)庫(kù)中隨機(jī)取出10條記錄的方法
如何從數(shù)據(jù)庫(kù)中隨機(jī)取出10條記錄的方法...2007-01-01用asp腳本實(shí)現(xiàn)限制IP訪(fǎng)問(wèn)
用asp腳本實(shí)現(xiàn)限制IP訪(fǎng)問(wèn)...2007-06-06asp下實(shí)現(xiàn)代碼的“運(yùn)行代碼”“復(fù)制代碼”“保存代碼”功能源碼
asp下實(shí)現(xiàn)代碼的“運(yùn)行代碼”“復(fù)制代碼”“保存代碼”功能源碼...2007-06-06ASP也使用ORM,給ASP上所有的SQL注入畫(huà)上句號(hào)
PS:KJ大牛寫(xiě)的文章,昨天跟一朋友聊天的時(shí)候提到了ADO的command查詢(xún),我竟然把這個(gè)東西給忘記了,看來(lái)記性真的是太差了,找到了kj大牛的文章,拜讀一下。2008-12-12