IDC资讯中心 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,” ” )
抓取网页萃取网页内容的代码-ASP教程,ASP应用
版权申明：本站文章部分自网络，如有侵权，请联系：west999com@outlook.com 特别注意：本站所有转载文章言论不代表本站观点！ 本站所提供的图片等素材，版权归原作者所有，如需使用，请与原作者联系。未经允许不得转载：IDC资讯中心 » 抓取网页萃取网页内容的代码-ASP教程,ASP应用
