| <%@ 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> 注意：联系我时，请一定说明是从【S】看到的信息，谢谢。 |
 联系电话： 联系 QQ： 打电话给我、或者加QQ好友时，请一定说明来自（三亚上门维修电脑）谢谢您！ 三亚上门维修电脑 |