<%@ Import Namespace="System.Net" %
<%@ Import Namespace="System.IO" %
<script language="VB" runat="server"
dim STRtemp as string
Sub Page_Load(Src As Object, E As EventArgs)
Dim HttpWResp as HTTPWebresponse
Dim sr As StreamReader
'dim STRtemp as string （本文来源于图老师网站，更多请访问http://m.tulaoshi.com）
HttpWReq = WebRequestFactory.Create("http://www.funinspace.com")
HttpWReq.KeepAlive = false
HttpWResp = HttpWReq.GetResponse()
sr = new StreamReader(HttpWResp.GetResponseStream(), Encoding.ASCII)
Try
line=sr.ReadLine()
lineENC = server.HTMLencode(line) & vbcrlf & "<br"
STRtemp=lineENC
do while line < null
'response.write (lineENC)
line = sr.ReadLine()
lineENC = server.HTMLencode(line) & vbcrlf & "<br"
STRtemp=STRtemp & lineENC
loop
Catch ex As Exception
Response.Write(ex.Message)
End Try
End Sub
</script
<html<head
<titleScraping A Website</title
</head
<body bgcolor="#FFFFFF"
<h3<font face="Verdana"Scraped Data</font</h3
<%response.write (STRtemp)%
</body</html
