| ASP.NET实现HTTP方式获取功能 |
| 日期:2006-9-13 11:03:49 人气: [大 中 小] |
<%@ 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><head> <title>Scraping A Website</title> </head> <body bgcolor="#FFFFFF"> <h3><font face="Verdana">Scraped Data</font></h3> <asp:label id=problem runat="server"/> <font face="courier new" size="2"> <asp:label id=labelscrape runat="server"/> </font> </body></html> |
| 出处:CnCode转载收集 作者:不详 |