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

　　<%

　　'用ASP获取远程目标网页指定内容，代码由广州网站建设http://www.glzy8.com提供

　　On Error Resume Next

　　Server.ScriptTimeOut=9999999

　　Function getHTTPPage(Path)

　　t = GetBody(Path)

　　getHTTPPage=BytesToBstr(t,"GB2312")

　　End function

　　Function Newstring(wstr,strng)

　　Newstring=Instr(lcase(wstr),lcase(strng))

　　if Newstring<=0 then Newstring=Len(wstr)

　　End Function

　　Function BytesToBstr(body,Cset)

　　dim objstream

　　set objstream = Server.CreateObject("adodb.stream")

　　objstream.Type = 1

　　objstream.Mode =3

　　objstream.Open

　　objstream.Write body

　　objstream.Position = 0

　　objstream.Type = 2

　　objstream.Charset = Cset

　　BytesToBstr = objstream.ReadText

　　objstream.Close

　　set objstream = nothing

　　End Function

　　Function GetBody(url)

　　on error resume next

　　Set Retrieval = CreateObject("Microsoft.XMLHTTP")

　　With Retrieval

　　.Open "Get", url, False, "", ""

　　.Send

　　GetBody = .ResponseBody

　　End With

　　Set Retrieval = Nothing

　　End Function

　　'ASP获取远程网页指定内容开始

　　Dim wstr,str,url,start,over,dtime

　　a="开始内容" 'ASP获取目标网页内容开始标记

　　b="结束内容" 'ASP获取网页内容结束标记

　　url="http://sc.glzy8.com/"

　　wstr=getHTTPPage(url)

　　start=Newstring(wstr,a)

　　over=Newstring(wstr,b)

　　body=mid(wstr,start,over-start)

　　response.write ""&body&"" '输出获取到的网页内容

　　'ASP获取远程网页指定内容结束

　　%>

　　'ASP获取远程网页指定内容开始

　　Dim wstr,str,url,start,over,dtime

　　url="http://sc.glzy8.com/"

　　wstr=getHTTPPage(url)

　　body=wstr