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

  • A+
所属分类：PHP编程
  1. '//转换中文为unicode 
  2. function URLEncoding(vstrIn)
  4.     dim i
  5.     dim strReturn,ThisChr,innerCode,Hight8,Low8
  7.     strReturn = ""
  8.     for i = 1 to Len(vstrIn)
  9.         ThisChr = Mid(vStrIn,i,1)
  10.         If Abs(Asc(ThisChr)) < &HFF then
  11.             strReturn = strReturn & ThisChr
  12.         else
  13.             innerCode = Asc(ThisChr)
  14.             If innerCode < 0 then
  15.                 innerCode = innerCode + &H10000
  16.             end If
  17.             Hight8 = (innerCode  and &HFF00)\ &HFF
  18.             Low8 = innerCode and &HFF
  19.             strReturn = strReturn & "%" & Hex(Hight8) &  "%" & Hex(Low8)
  20.         end If
  21.     next
  23.     URLEncoding = strReturn
  25. end function
  27. '//转换unicode到正常文本 
  28. function bytes2BSTR(vIn)
  29.     dim i
  30.     dim strReturn,ThisCharCode,nextCharCode
  32.     strReturn = ""
  33.     for i = 1 to LenB(vIn)
  34.         ThisCharCode = AscB(MidB(vIn,i,1))
  35.         If ThisCharCode < &H80 then
  36.             strReturn = strReturn & Chr(ThisCharCode)
  37.         else
  38.             nextCharCode = AscB(MidB(vIn,i+1,1))
  39.             strReturn = strReturn & Chr(CLng(ThisCharCode) * &H100 + CInt(nextCharCode))
  40.             i = i + 1
  41.         end If
  42.     next
  43.     bytes2BSTR = strReturn
  45. end function
  47. function getText(oReq,url)
  49.     on error resume next
  50.     '//创建XMLHTTP对象     
  51.     if oReq is nothing then
  52.         set oReq    = CreateObject("MSXML2.XMLHTTP")
  53.     end if
  55.     if    not oReq is nothing then
  56.         oReq.open "get",url,false
  57.         oReq.send
  59.         if oReq.status = 200 then
  60.             getText = bytes2BSTR(oReq.responseBody)
  61.         else
  62.             getText = ""
  63.         end if
  64.     else
  65.         getText = ""
  66.     end if
  68. end function
1 2 3