转换汉语为unicode 转换unicode到一取色器站长工具-般文本

作者 : 共1349个字,阅读需4分钟。
点击购买本站资源可以说是全网最低价,为了换一个更好的服务器,提供更好的服务,开启了极品资源区,极品资源区都是我们花高价购买获得。
前往极品资源区
极品资源区仅限超级会员以上的权限免费使用,永久会员不可下载使用。我们也需要盈利以便更好的发展,白嫖大师就别耽误大家时间了。极品资源区内容不多,但是质量绝无仅有!!!!
  1. '//转换汉语为unicode
  2. function URLEncoding(vstrIn)
  3.     dim i
  4.     dim strReturn,ThisChr,innerCode,Hight8,Low8
  5.     strReturn 站长工具 ssl= "" 站长工具查询收录页面数量
  6.     for i = 1 to Len(vstrIn)
  7.         ThisChr = Mid(vStrIn,i,1)
  8.         I站长工具 百度指数f Abs(Asc(ThisChr)) < &HFF then
  9.             strReturn = strReturn & ThisChr
  10.         else
  11.             innerCode = Asc(ThisChr)
  12.             If innerCode < 0 then
  13.                 innerCode = innerCode + &H10000
  14.             end If
  15.             Hight8 = (innerCode  and &HFF00)\ &HFF
  16.             Low8 = innerCode and &HFF
  17.             strReturn = strReturn & "%" & Hex(Hight8) &  "%" & Hex(Low8)
  18.         end If
  19.     next
  20.     URLEncoding = strReturn
  21. end function
  22. '//转换unicode到一般文本
  23. function bytes2BSTR(vIn)
  24.     dim i
  25.     dim strReturn,ThisCharCode,nextCharCode
  26.     strReturn = ""
  27.     for i = 1 to LenB(vIn)
  28.         ThisCharCode = AscB(MidB(vIn,i,1))
  29.         If ThisCharCode < &H80 then
  30.          &seo 优化的工具nbsp;  strReturn = strReturn & Chr(ThisCharCode)
  31.         else
  32.             nextCharCode = AscB(MidB(vIn,i+1,1))
  33.             strReturn = strReturn & Chr(CLng(ThisCharCode) * &H100 + CInt(nextCharCode))
  34.             i = i + 1
  35.         end If
  36.     next
  37.     bytes2BSTR = strReturn
  38. end function
  39. function getText(oReq,url)
  40.     on error resume next
  41.     '//建立XMLHTTP工具     
  42.     if oReq is nothing then
  43.         set oReq    = CreateObject("MSXML2.XMLHTTP")
  44.     end if
  45.     if    not oReq is nothing then
  46.         oReq.open "get",url,false
  47.         oReq.send  
  48.         if oReq.status = 200 then
  49.             getText = bytes2BSTR(oReq.responseBody)
  50.         else
  51.             getText = ""
  52.         end if
  53.     else
  54.         getText = ""
  55.     end if
  56. end function

复造代码

常见问题FAQ

免费下载或者VIP会员专享资源能否直接商用?
本站所有资源版权均属于原作者所有,这里所提供资源均只能用于参考学习用,请勿直接商用。若由于商用引起版权纠纷,一切责任均由使用者承担。更多说明请参考 VIP介绍。
幽灵米只做资源收集整理,如需商用请联系原作者购买版权。
幽灵米 » 转换汉语为unicode 转换unicode到一取色器站长工具-般文本