📄 testtitlesservice.aspx

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

💻 ASPX

字号:

<Script runat="Server">

Sub Page_Load
  Dim objTitlesService As TitlesService
  Dim objMatches As GetTitlesMatches
  Dim intCounter As Integer

  objTitlesService = New TitlesService
  objTitlesService.Timeout = 10000
  objMatches = objTitlesService.GetTitles()
  
  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>TestTitlesService.aspx</title></head>
<body>

<h2>Scraped Titles</h2>

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

</body>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -