<% @ 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)
Try
Line = sr. ReadLine ()
LineENC = server. HTMLencode (line) & vbcrlf & "<br>"
Build. append (lineENC)
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> <Title> Scraping A Website </title>
</Head>
<Body bgcolor = "# FFFFFF">
<H3> <font face = "Verdana"> Scraped Data </font> <Asp: label id = problem runat = "server"/>
<Font face = "courier new" size = "2">
<Asp: label id = labelscrape runat = "server"/>
</Font>
</Body>
Start building with 50+ products and up to 12 months usage for Elastic Compute Service
1 on 1 presale consultation
24/7 Technical Support 6 Free Tickets per Quarter Faster Response
Alibaba Cloud offers highly flexible support services tailored to meet your exact needs.
A comprehensive suite of global cloud computing services to power your business
Payment Methods We Support
