The code is as follows:
Copy Code code as follows:
<%
' Use ASP to obtain the remote target Web page specified content, the code is provided by Guangzhou website Construction http://www.jb51.net
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 gets remote Web page specified content start
Dim Wstr,str,url,start,over,dtime
A= "Start content" ASP get the target page content start tag
b= "End Content" ASP get Web page content end tag
Url= "http://sc.jb51.net/"
Wstr=gethttppage (URL)
Start=newstring (Wstr,a)
Over=newstring (WSTR,B)
Body=mid (Wstr,start,over-start)
Response.Write "" &body& "' output to the content of the Web page acquired
' ASP get remote Web page specified end of content
%>
The code above can get the contents of the specified Web page, and it's easier if you get it all.
Core code:
Copy Code code as follows:
' ASP gets remote Web page specified content start
Dim Wstr,str,url,start,over,dtime
Url= "http://sc.jb51.net/"
Wstr=gethttppage (URL)
Body=wstr
