 |
|
|
| 返回 | 主页 |
创建服务器端的ASP搜索组件（9）
[摘要]
NavigationBar 方法有三个部分，每个用来生成上图的一部分。它接收匹配的记录数加上显示的记录数作为自变量：
Private Function NavigationBar(intRecordsMatched As Integer, _
intRecordsDisplayed As Integer)
Dim strHTML As String
back按钮...
NavigationBar 方法有三个部分，每个用来生成上图的一部分。它接收匹配的记录数加上显示的记录数作为自变量：
Private Function NavigationBar(intRecordsMatched As Integer, _
intRecordsDisplayed As Integer)
Dim strHTML As String
back按钮用来回到条目中的上一个列表。它发送一个查询字符串(Start) ，其中存储着上一个列表的第一条：
’~~~~Navigation Back
If mintSearchStart ＞ 1 Then
strHTML = strHTML & "＜ A HREF=""" & mstrSearchFrameURL & "?Src=" & _
mobjServer.URLEncode(mobjRequest.QueryString("Src")) & _
"&Start=" & (mintSearchStart - (mintMaxSearchReturn)) & _
""" ＞back＜ /A ＞ "
End If
注意要被发送回组件包含在文本域中的搜索查询字符串编码为：
Server.URLEncode(mobjRequest.QueryString("Src"))
如果不使用URLEncode ，浏览器就不能显示或发送有一定字符的查询字符串。
然后需要计算列表中的条目数和找到了多少条目：
’~~~~~Naviagation numbers
strHTML = strHTML & " " & CStr(mintSearchStart) & "-" & _
mintSearchStart + (intRecordsDisplayed - 1) & " of " & _
CStr(intRecordsMatched) & " "
next 按钮与 back按钮工作方法相同但方向相反：
’~~~~Navigation Next
If mintSearchStart + (intRecordsDisplayed - 1) ＜ intRecordsMatched Then
strHTML = strHTML & " ＜ A HREF=""" & mstrSearchFrameURL & "?Src=" & _
mobjServer.URLEncode(mobjRequest.QueryString("Src")) & _
"&Start=" & (mintSearchStart + intRecordsDisplayed) & _
""" ＞next＜ /A ＞"
End If
最后将字符串自变量返回到调用代码中：
’~~~~Send Back the composed HTML code
NavigationBar = strHTML
End Function
回到ShowSearchFrame 方法第四部分
最后我们要显示与查询字符串相匹配的URL的列表。这就需要调用我们的第四个私用方法ListRecords :
’===== Narvigation bar
If Not intRecordsDisplayed = 0 Then
strHTML = strHTML & NavigationBar(intRecordsMatched, _
intRecordsDisplayed) & "＜ BR ＞＜ BR ＞"
End If
’===== URL Title list
strHTML = strHTML & ListRecords(astrTitleArray(), astrURLarray(), _
intRecordsDisplayed)
End If
ListRecords 方法
本方法接受两个字符串数列，以及它们保存的条目数作为自变量：
Private Function Li
其它培训参考信息：
创建服务器端的ASP搜索组件（8）
创建服务器端的ASP搜索组件（7）
创建服务器端的ASP搜索组件（6）
创建服务器端的ASP搜索组件（5）
创建服务器端的ASP搜索组件（4）
创建服务器端的ASP搜索组件（3）
创建服务器端的ASP搜索组件（2）
创建服务器端的ASP搜索组件（1）
信息来自互联网，敬请核实，谨慎使用