QQ登录

只需一步,快速开始

新浪微博登陆

只需一步, 快速开始

切换风格 注册 找回密码

php开发-PHP教程网


发表于 2014-6-16 10:48:02 | 显示全部楼层 |阅读模式

  1. '//转换中文为unicode
  2. function URLEncoding(vstrIn)

  3.     dim i
  4.     dim strReturn,ThisChr,innerCode,Hight8,Low8

  5.     strReturn = ""
  6.     for i = 1 to Len(vstrIn)
  7.         ThisChr = Mid(vStrIn,i,1)
  8.         If 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.             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
复制代码


发表于 2014-6-30 18:13:29 | 显示全部楼层
我也是坐沙发的
发表于 2014-6-30 18:51:56 | 显示全部楼层
看起来不错
发表于 2014-7-1 19:34:54 | 显示全部楼层

发表于 2014-7-1 20:16:45 | 显示全部楼层
我了个去,顶了
发表于 2014-7-3 15:45:38 | 显示全部楼层
路过 帮顶 嘿嘿
发表于 2014-7-3 18:16:55 | 显示全部楼层
好,很好,非常好!
发表于 2014-7-3 20:40:35 | 显示全部楼层
楼猪V5啊
发表于 2014-7-5 19:36:49 | 显示全部楼层
好,很好,非常好!
发表于 2014-7-6 12:00:27 | 显示全部楼层
在撸一遍。。。
您需要登录后才可以回帖 登录 | 立即注册 新浪微博登陆



Archiver|  

662p开源网. Powered by Niuzen

© 2001-2014 Niuzen Inc.

返回顶部