asp获取远程网页的指定内容的实现代码

代码如下：
代码如下:

<BR /><% <BR />'用ASP获取远程目标网页指定内容，代码由广州网站建设//www.51frw.cn提供 <BR />On Error Resume Next <BR />Server.ScriptTimeOut=9999999 <BR />Function getHTTPPage(Path) <BR />t = GetBody(Path) <BR />getHTTPPage=BytesToBstr(t,"GB2312") <BR />End function <BR />Function Newstring(wstr,strng) <BR />Newstring=Instr(lcase(wstr),lcase(strng)) <BR />if Newstring<=0 then Newstring=Len(wstr) <BR />End Function <BR />Function BytesToBstr(body,Cset) <BR />dim objstream <BR />set objstream = Server.CreateObject("adodb.stream") <BR />objstream.Type = 1 <BR />objstream.Mode =3 <BR />objstream.Open <BR />objstream.Write body <BR />objstream.Position = 0 <BR />objstream.Type = 2 <BR />objstream.Charset = Cset <BR />BytesToBstr = objstream.ReadText <BR />objstream.Close <BR />set objstream = nothing <BR />End Function <BR />Function GetBody(url) <BR />on error resume next <BR />Set Retrieval = CreateObject("Microsoft.XMLHTTP") <BR />With Retrieval <BR />.Open "Get", url, False, "", "" <BR />.Send <BR />GetBody = .ResponseBody <BR />End With <BR />Set Retrieval = Nothing <BR />End Function <br /><br />'ASP获取远程网页指定内容开始 <BR />Dim wstr,str,url,start,over,dtime <BR />a="开始内容" 'ASP获取目标网页内容开始标记 <BR />b="结束内容" 'ASP获取网页内容结束标记 <BR />url="http://sc.jb51.net/" <BR />wstr=getHTTPPage(url) <BR />start=Newstring(wstr,a) <BR />over=Newstring(wstr,b) <BR />body=mid(wstr,start,over-start) <BR />response.write ""&body&"" '

输出获取到的网页内容
'ASP获取远程网页指定内容结束
%>

上面的代码可以获取指定网页的内容，如果是全部获取就更简单了
核心代码:
代码如下:
'ASP获取远程网页指定内容开始
Dim wstr,str,url,start,over,dtime
url="http://sc.jb51.net/"
wstr=getHTTPPage(url)
body=wstr

【说明】：本文章由站长整理发布，文章内容不代表本站观点，如文中有侵权行为，请与本站客服联系(QQ:254677821)！