📄 default.aspx
字号:
<%@ Page Language="VB" Debug="false" %>
<%@ Import Namespace="System.IO" %>
<%@ Import Namespace="System.Net" %>
<script runat="server">
Dim _searchExpression As Regex
Dim _HtmlContent As String = String.Empty
Sub Page_Load(sender As Object, e As EventArgs)
Status.InnerText = ""
If Page.IsPostBack Then
Dim myRequest As HttpWebRequest
Dim myResponse As HttpWebResponse
Dim s As Stream
myRequest = WebRequest.Create(URLToRead.Value)
Try
myResponse = myRequest.GetResponse()
s = myResponse.GetResponseStream()
_HtmlContent = New StreamReader(s).ReadToEnd()
s.Close()
Status.InnerText = "Read URL OK"
Catch WebEx As WebException
Status.InnerText = "WebException thrown"
myResponse = WebEx.Response
Catch ex As Exception
Throw ex
End try
' Update table with response info
ContentLength.InnerText = myResponse.ContentLength.ToString()
ContentEncoding.InnerText = myResponse.ContentEncoding
ContentTypeInfo.InnerText = myResponse.ContentType
Server.InnerText = myResponse.Server
StatusCode.InnerText = myResponse.StatusCode.ToString()
StatusDescription.InnerText = myResponse.StatusDescription
ResponseURL.InnerText = myResponse.ResponseUri.ToString()
Method.InnerText = myResponse.Method
LastModified.InnerText = myResponse.LastModified.ToString()
ProtocolVersion.InnerText = myResponse.ProtocolVersion.ToString()
End If
End Sub
Sub RenderStreamIntoPage()
' Stream the return string for the expected ranking
Dim re As Regex
Dim m As Match
re = New Regex("(?<x>Amazon.com Sales Rank: </b>)(?<rank>.*)")
m = re.Match( _HtmlContent )
' Check for multiple matches
While m.Success = True
Dim c As Capture
For Each c in m.Captures
Response.Write("<BR>Ranking : " + m.Result("${rank}" ) )
Next
m = m.NextMatch()
End While
End Sub
</script>
<html>
<body>
<H1>Amazon.COM Sales Rank</H1>
<p>This example downloads a web page from Amazon.COM and extracts the sales ranking for a book.</p>
<form id="myform" runat="server">
<table>
<tr>
<td>URL to read:
<td><input type="text" size=60 id="URLToRead" runat="server" value="http://www.amazon.com/exec/obidos/ASIN/1861007035">
<tr>
<td colspan=2><input type="submit" Value="Read" runat="server">
</table>
<p id="Status" style="color:red" runat="server"></p>
</form>
<table>
<tr>
<td>Server</td><td runat="server" id="Server" maintainstate="false"/>
</tr>
<tr>
<td>ContentLength</td><td runat="server" id="ContentLength" maintainstate="false"/>
</tr>
<tr>
<td>ContentEncoding</td><td runat="server" id="ContentEncoding" maintainstate="false" />
</tr>
<tr>
<td>ContentType</td><td runat="server" id="ContentTypeInfo" maintainstate="false"/>
</tr>
<tr>
<td>Status</td><td runat="server" id="StatusCode" maintainstate="false"/>
</tr>
<tr>
<td>StatusDescription</td><td runat="server" id="StatusDescription" maintainstate="false"/>
</tr>
<tr>
<td>ResponseURL</td><td runat="server" id="ResponseURL" maintainstate="false"/>
</tr>
<tr>
<td>Method</td><td runat="server" id="Method" maintainstate="false"/>
</tr>
<tr>
<td>LastModified</td><td runat="server" id="LastModified" maintainstate="false"/>
</tr>
<tr>
<td>ProtocolVersion</td><td runat="server" id="ProtocolVersion" maintainstate="false"/>
</tr>
</table>
<HR>
<pre>
<%
If Page.IsPostBack Then
RenderStreamIntoPage()
End If
%>
</pre>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -