<%@ Assembly Name="System.Net" %> <%@ 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 dim build as new stringbuilder
HttpWReq = WebRequestFactory.Create("http://www.funinspace.com") HttpWReq.KeepAlive = false HttpWResp = HttpWReq.GetResponse() sr = new StreamReader(HttpWResp.GetResponseStream(), Encoding.ASCII)
do while not IsNothing(line) line = sr.ReadLine() lineENC = server.HTMLencode(line) & vbcrlf & "<br>" build.append (lineENC) loop Catch ex As Exception PRoblem.text =ex.Message End Try
labelscrape.text=build.ToString() End Sub </script> <html><head> <title>Scraping A Website</title> </head> <body bgcolor="#FFFFFF"> <h3><font face="Verdana">Scraped Data</font></h3> <asp:label id=problem runat="server"/>
