📄 testtitlesserviceinput.aspx

📁 asp.net技术内幕的书配源码

💻 ASPX

字号:

<Script runat="Server">

Sub Button_Click( s As Object, e As EventArgs )
  Dim objTitlesService As TitlesServiceInput
  Dim objMatches As GetTitlesInputMatches
  Dim intCounter As Integer

  objTitlesService = New TitlesServiceInput
  objTitlesService.Timeout = 10000
  objMatches = objTitlesService.GetTitlesInput( txtBookType.Text )
  
  For intCounter = 0 To objMatches.Titles.Length - 1 
    lblTitles.Text &= "<p>TITLE: " & objMatches.Titles( intCounter )
    lblTitles.Text &= "<br>PRICE: " & objMatches.Prices( intCounter )
  Next
End Sub

</Script>

<html>
<head><title>TestTitlesServiceInput.aspx</title></head>
<body>

<h2>Scraped Titles</h2>

<form runat="Server">

<asp:TextBox
  id="txtBookType"
  Runat="Server" />

<asp:Button
  Text="Go!"
  OnClick="Button_Click"
  Runat="Server" />
<p>

<asp:Label
  id="lblTitles"
  EnableViewState="False"
  Runat="Server" />

</form>


</body>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -