|
| 使用net classes访问其他网站内容 |
| |
| [作者:不详 转贴自:不详 点击数: 更新时间:2006-3-2 15:43:41] |
<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> <html><head> <title>Scraping A Website</title> </head> <body bgcolor="#FFFFFF"> <h3><font face="Verdana">Scraped Data</font></h3>
</body></html>
|
| |
|
winner 打印本页 关闭窗口 |
|
|