我的一亩三分地 我就喜欢!
13fen  设为主页
 收藏本站
 
当前位置: > 一亩三分地：首页 > 网络学院 > 网络编程 > ASP专区 > ASP.NET实现抓取网页中的链接
热门文章排行
热门文章排行 手推车”功能的实现(10-07)
八大法则防范ASP网站漏洞(10-23)
在JSP中访问数据库大全(10-23)
ASP教程十一、调试ASP脚本(10-23)
虚机服务中常见Asp.Net低级错误一览(03-21)
精采文章排行
精采文章排行 ASP连接数据库的11种方法(11-10)
如何动态创建网页的RSS内容摘要(11-10)
ASP网站漏洞及入侵防范方法(11-10)
ASP自定义函数：对字符串正则替换(11-10)
ASP动态网页生成静态Html网页文件技(11-10)
技术专题推荐
网管论坛交流
　

ASP.NET实现抓取网页中的链接 

作者:   来源:   点击:   日期:2006-11-15
输入一个地址，就可以把那个网页中的链接提取出来，下面这段代码可以轻松实现，主要的是用到了正则表达式。
  
  GetUrl.ASPx代码如下：
  
  <%@ Page Language="<a href="http://dev.21tx.com/language/vb/" target="_blank">VB</a>" CodeBehind="GetUrl.aspx.vb" AutoEventWireup="false" Inherits="aspx<a href="http://dev.21tx.com/web/" target="_blank">Web</a>.GetUrl" %>
  <html>
  <head>
  <META http-equiv="content-type" content="text/html; charset=gb2312">
  </head>
  <body>
  <form id="Form1" method="post" runat="server">
   <P>
   <asp:Label id="Label1" runat="server"></asp:Label>
   <asp:TextBox id="urlTextBox" runat="server" Width="336px">
   http://lucky_elove.www1.dotnetplayground.com/
   </asp:TextBox>
   <asp:Button OnClick="scrapeButton_Click" id="scrapeButton" runat="server"></asp:Button>
   </P>
   <HR width="100%" SIZE="1">
   <P>
   <asp:Label id="TipResult" runat="server"></asp:Label>
   <asp:TextBox id="resultLabel" runat="server" TextMode="MultiLine"
   Width="100%" Height="400"></asp:TextBox>
   </P>
  </form>
  </body>
  </html>
  后代码GetUrl.aspx.vb如下：
  
  Imports System.IO
  Imports System.Net
  Imports System.Text
  Imports System.Text.RegularExpressions
  Imports System
  
  Public Class GetUrl
   Inherits System.Web.UI.Page
   Protected WithEvents Label1 As System.Web.UI.WebControls.Label
   Protected WithEvents urlTextBox As System.Web.UI.WebControls.TextBox
   Protected WithEvents scrapeButton As System.Web.UI.WebControls.Button
   Protected WithEvents TipResult As System.Web.UI.WebControls.Label
   Protected WithEvents resultLabel As System.Web.UI.WebControls.TextBox
  
  #Region " Web 窗体设计器生成的代码 "
  
   '该调用是 Web 窗体设计器所必需的。
   <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
  
   End Sub
  
   Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
   'CODEGEN: 此方法调用是 Web 窗体设计器所必需的
   '不要使用代码编辑器修改它。
   InitializeComponent()
   End Sub
  
  #End Region
  
   Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
   '在此处放置初始化页的用户代码
   Label1.Text = "请输入一个URL地址："
   scrapeButton.Text = "分离Href链接"
   End Sub
   Private report As New StringBuilder()
   Private webPage As String
   Private countOfMatches As Int32
  
   Public Sub scrapeButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
   webPage = GrabUrl()
   Dim myDelegate As New MatchEvaluator(AddressOf MatchHandler)
  
   Dim linksExpression As New Regex( _
   "\<a.+?href=['""](?!http\:\/\/)(?!mailto\:)(?>foundAnchor>[^'"">]+?)[^>]*?\>", _
   RegexOptions.Multiline Or RegexOptions.IgnoreCase Or RegexOptions.IgnorePatternWhitespace)
  
   Dim newWebPage As String = linksExpression.Replace(webPage, myDelegate)
  
   TipResult.Text = "<h2>从 " & urlTextBox.Text & "分离出的Href链接</h2>" & _
   "<b>找到并整理" & countOfMatches.ToString() & " 个链接</b><br><br>" & _
   report.ToString().Replace(Environment.NewLine, "<br>")
   TipResult.Text &= "<h2>整理过的页面</h2><script>window.document.title='抓取网页中的链接'</script>"
   resultLabel.Text = newWebPage
   End Sub
  
   Public Function MatchHandler(ByVal m As Match) As String
   Dim link As String = m.Groups("foundAnchor").Value
   Dim rToL As New Regex("^", RegexOptions.Multiline Or RegexOptions.RightToLeft)
   Dim col, row As Int32
   Dim lineBegin As Int32 = rToL.Match(webPage, m.Index).Index
  
   row = rToL.Matches(webPage, m.Index).Count
   col = m.Index - lineBegin
  
   report.AppendFormat( _
   "Link <b>{0}</b>, fixed at row: {1}, col: {2}{3}", _
   Server.HtmlEncode(m.Groups(0).Value), _
   row, _
   col, _
   Environment.NewLine _
   )
   Dim newLink As String
   If link.StartsWith("/") Then
   newLink = link.Substring(1)
   Else
   newLink = link
   End If
  
   countOfMatches += 1
   Return m.Groups(0).Value.Replace(link, newLink)
   End Function
  
   Private Function GrabUrl() As String
   Dim wc As New WebClient()
   Dim s As Stream = wc.OpenRead(urlTextBox.Text)
   Dim sr As StreamReader = New StreamReader(s, System.Text.Encoding.Default)
   GrabUrl = sr.ReadToEnd
   s.Close()
   wc.Dispose()
   End Function
  
  End Class

【文章评论】 【收藏本文】 【推荐好友】 【打印本文】 【论坛讨论】

   相关文章:
·用PHP和SQL Sever实现分页显示 ·固定网页语言编码、字号、字体
·如何动态创建网页的RSS内容摘要 ·ASP动态网页生成静态Html网页文件技术
·细细品味ASP.NET(2) ·ASP.NET 链接数据库基础

   文章评论:(条)
  
 请留名： 匿名评论   点击查看所有评论 网管论坛
 

  责任编辑:一分  声明：刊登此文章是为了传递更多信息,文章内容仅供参考,转载请注明出处。