screenscrape.aspx

来自「Code for VB.NET教程源码 很好的源码」· ASPX 代码 · 共 24 行

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

<Script runat="server">
Public Sub GetSalesRank(sender As Object, e As EventArgs)
  Dim bn As New BarnesAndNoble()
  Dim match As GetBookDetailsMatches
  match = bn.GetBookDetails(isbn.Value)

  rank.Text = match.Rank
End Sub
</Script>
<font face="arial">
  <form runat="server">
  ISBN number: <input type=text id="isbn" runat="server"/>
  <input type="submit" id="submit" onserverclick="GetSalesRank" runat="server"/>
  </form>
  Sales Rank: <font color=red><b><asp:label id="rank" runat="server"/></b></font>
</font>

<!-- Sample ISBNs
A Preview of ASP+: 1861004753
Professional ASP.NET: 1861007035
-->