asp.net <%@ 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 in 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>
<title>scraping A website</title>
<body bgcolor= "#FFFFFF" >
<asp:label id=problem runat= "Server"/>
<font face= "Courier New" size= "2" >
<asp:label id=labelscrape runat= "Server"/>
</font>
</body>
