 |
|
|
 首页 |
名片设计 CorelDRAW Illustrator AuotoCAD Painter 其他软件 Photoshop Fireworks Flash |
|
<%@ 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> 返回类别: 教程 上一教程: 有关站内模糊查询的源程序! 下一教程: 中文虚拟域名实现(3) (环境：中文NT) 您可以阅读与"ASP.NET实现HTTP方法获取功能"相关的教程: · 用asp.net实现的把本文推荐给挚友功能 · 用ASP+XMLHTTP实现RSSREADER功能 · 利用ASP实现三个强盛功能之二 · ASP环境下邮件列表功能的实现 （三） · 使用ASP实现广告代理方式 |
  |
| 快精灵印艺坊 版权所有 |
首页 会员中心在线印刷在线编辑付款方式索取样品设计指南连锁门店
|
||
