stripimage.aspx

来自「asp.net技术内幕的书配源码」· ASPX 代码 · 共 18 行

<%@ Import Namespace="System.Net" %>

<Script Runat="Server">

Sub Page_Load
  Dim wcMicrosoft As WebClient
  Dim objUTF8Encoding As UTF8Encoding  
  Dim strResponse As String

  wcMicrosoft = New WebClient
  objUTF8Encoding = New UTF8Encoding
  strResponse = objUTF8Encoding.GetString( _
    wcMicrosoft.DownloadData( "http://www.amazon.com" ) )
  strResponse = RegEx.Replace( strResponse, "(<img.*?>)", "[image]", RegExOptions.SingleLine )
  Response.Write( strResponse )
End Sub

</Script>