【www.gdgbn.com--其他相关】

<script language="VB" runat="server">
Sub Page_Load(Src As Object, E As EventArgs)
      Try
     Dim objResponse As System.Net.WebResponse
     Dim objRequest As System.Net.WebRequest
     DIM theurlresult as string
     DIM theurl as string = "http://www.funinspace.com"
     objRequest = System.Net.HttpWebRequest.Create(theurl)
     objResponse = objRequest.GetResponse()
     Dim sr As new system.io.StreamReader(objResponse.GetResponseStream())
     theURLresult=server.HTMLencode(sr.ReadToEnd())
     Page.Controls.Add(new LiteralControl(theURLresult))
      Catch ex As Exception
     Page.Controls.Add(new LiteralControl(ex.Message))
      End Try
End Sub
</script>

Scraped Data

 

本文来源：http://www.gdgbn.com/asp/5377/