ץȡÍøÒ³ÝÍÈ¡ÍøÒ³ÄÚÈݵĴúÂë

dim sUrl
£ £  sUrl="http://travel.state.gov/visa/frvi_bulletincurrent.html"
£ £  Function streamtochar(StrStream)
£ £  set stream=CreateObject("ADODB.Stream")
£ £  stream.type=1
£ £  stream.Mode=3
£ £  stream.Open
£ £  stream.Write Strstream
£ £  stream.Position= 0
£ £  stream.Type= 2
£ £  stream.Charset="gb2312"
£ £  streamtochar= stream.ReadText
£ £  stream.Close
£ £  set stream=nothing
£ £  End Function
£ £  i = i + 1
£ £  function getContentByUrl(url)
£ £  set XmlHttp = CreateObject("MSXML2.XMLHTTP")
£ £  XmlHttp.open "GET",url,false
£ £  XmlHttp.send
£ £  getContentByUrl = streamtochar(oXmlHttp.responseBody)
£ £  set XmlHttp=nothing
£ £  end function
£ £ 
£ £  function getRealContent(url)
£ £  sContent = getContentByUrl(url)
£ £  getRealContent=sContent
£ £  end function
£ £ 
£ £ html= getContentByUrl(surl)
£ £  url_start=inStr(html," " ) £ £  url_end=inStr(html," ")
£ £  url=Mid(html,url_start,url_end-url_start)
£ £  url=replace(url,"¡°)
£ £ 
£ £  Date_start=inStr(html,"Washington, D.C. ")+57
£ £  Date_end=inStr(html," A. STATUTORY")-14
£ £  Date_T=Mid(html,Date_start,Date_end-Date_start)