| 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) |