转至繁体中文版　　　  | 网站首页 | 图文教程 | 资源下载 | 站长博客 | 图片素材 | 武汉seo | 武汉网站优化 | 
最新公告：     敏韬网|教学资源学习资料永久免费分享站！  [mintao  2008年9月2日]        
您现在的位置： 学习笔记 >> 图文教程 >> 站长学院 >> Web开发 >> 正文
创建服务器端的ASP搜索组件（二）    热     ★★★★

创建服务器端的ASP搜索组件（二）

作者：闵涛 文章来源：闵涛的学习笔记 点击数：1400 更新时间：2009/4/23 10:26:51
ShowSearchFrame 方法
　　ShowSearchFrame是唯一一个声明为Public 的主方法。它不接收自变量，动态生成搜索-输入域、导航条和标题列表。这是通过调用4个支持性Private 方法实现的。

　　在ShowSearchFrame 方法中要声明多个变量，是为了引用我们的支持性Private 方法时进行传递。在应用它们的Private 方法的上下文中进行解释。

　　调用的第一个Private 方法是 SearchInputField 函数。这个函数返回一个字符串，在我们这个例子中，字符串由HTML标记和文本填充，以产生一个文本输入区和搜索按钮。

　　我们将这个HTML代码存储在字符串变量strHTML中：
Public Function ShowSearchFrame() As String
"~~~~~ Local variables
Dim strHTML As String
"===== Search input field
strHTML = SearchInputField
End Function

SearchInputField 函数 　　SearchInputField 函数不接收自变量。但是它动态地设置一个由页面访问者决定的变量。它还设置源文件名和画面名，与在SearchFrameSet.htm 文件中使用的FRAME 标记名相匹配，这是与决定我们站点的画面特征的SearchFrameSet.htm 相同的文件。

　　首先看看将要返回的HTML代码：
＜ FORM NAME="SearchForm" METHOD="GET" ACTION="SearchPage.asp" TARGET="SearchFrame" ＞
＜ INPUT TYPE="TEXT" NAME="Src" MAXLENGTH="50" SIZE=15 VALUE="" ＞
＜ INPUT TYPE=SUBMIT VALUE="Search" ＞
＜ /FORM ＞
　　表单的NAME标记设置为 SearchForm。ACTION标记设置为SearchPage.asp, 这是mstrSearchFrameURL变量的默认值。
　　任何从这个表单的输入域中输入的文本都将传送到源文件(SearchPage.asp )。我们的情况是，这个源文件自引用完全相同的asp 文件，其中容纳着包含SearchInputField 方法的组件。实质上，这个表单调用了它自己，这是设置默认的结构。

　　在浏览器中，这个HTML代码生成下面的文本输入控件：

现在当访问者在输入域中键入文本并且点击Search 按钮时，文本就会被附在SearchPage.asp URL结尾处。这是因为FORM标记内的METHOD被设置为GET，而不是POST。

　　POST当然是这两种方法中较好的一个，因为它在HTTP 头文件中隐藏了输入的文本并且允许更长的值。但是我们的例子中，是一个短的文本值，? T 也能允许通过将一个查询字符串附在任何URL的结尾来调用方法。它还有一个好处就是允许浏览器缓存查询结果，因为在进行GET 时，缓存在完整的URL上工作。这样就可以快速访问每个搜索页面，并且在后来离线浏览。

　　当访问者输入"component" 作为他们的文本输入时，我们的表单发送下面的URL和查询字符串：
SearchPage.asp?Src=component
　　你还可以从任何站点将这一声明作为一个连接包含在一个HREF标记内--SearchPage.asp 文件不需FORM标记就能工作。
　　以下是完整的SearchInputField 函数，它生成以上的HTML 代码和浏览器输入控制：
Private Function SearchInputField() As String
Dim strHTML As String
"~~~~ Search input form start
strHTML = strHTML & "＜ FORM NAME=""SearchForm"" METHOD=""GET"" ACTION=""" _
& mstrSearchFrameURL & """ TARGET=""" & mstrSearchFrameName & """ ＞"
"~~~~ Search input field
strHTML = strHTML & "＜ INPUT TYPE=""TEXT"" NAME=""Src"" MAXLENGTH=""50""" _
& "SIZE=15 VALUE=""" & mobjRequest.QueryString("Src") & """ ＞"
"~~~~ Search input button
strHTML = strHTML & "＜ INPUT TYPE=SUBMIT VALUE=""Search"" ＞"
"~~~~ Search input form end
strHTML = strHTML & "＜ /FORM ＞"
SearchInputField = strHTML
End Function
　　请注意我们是如何在HTML代码的连接片段内连接属性程序变量来使用它们的。还要注意HTML标记内要求的单引号(") 是如何被双引号("") 引用的，这样就可以避免VB把它作为一个字符串常量的开头或结尾而产生错误。
　　还有一个需要注意的是，在INPUT标记内被设置为VALUE的变量。它从查询字符串mobjRequest.QueryString("Src") 中得到它的值，聪明的读者会认出它就是标记本身的名字：
VALUE=""" & mobjRequest.QueryString("Src")
　　这个自引用查询字符串将在它的文本域内显示发送时在域中键入的任何文本。由于在文本输入域中键入"component" 将把?Src=component附在URL的结尾，INPUT 标记的值将在输入文本框中显示Src的值。

　　假设在文本输入域内键入的是"component" ，则发送的URL是?/P ＞
SearchPage.asp?Src=component
　　而下面的VB代码＜ INPUT TYPE=""TEXT"" NAME=""Src"" VALUE=""" & _
mobjRequest.QueryString("Src") & """ ＞
　　将生成
＜ INPUT TYPE="TEXT" NAME="Src" VALUE="component" ＞
　　而且将显示：

现在用户可以输入一个查询字符串，并将其发送到我们的组件看看查询字符串完成一次搜索。

回到ShowSearchFrame 方法第二部分
　　回到我们的ShowSearchFrame 方法，它是在SearchInputField 方法中被调用的，我们将返回的HTML代码存储在strHTML变量中。但是在我们将它发送给浏览器之前，必须要确定访问者是否已经输入了一个搜索查询文本让我们在搜索数据库过程中使用。
　　这是通过校验Src 查询字符串变量是否为空实现的。如果为空，就通知访问者现在他们可以输入查询字符串了。当访问者进入一个搜索站点，连接到一个没有Src 查询字符串的网页时通常就会看到这样的提示。
　　ShowSearchFrame 调用 SearchInputField 方法并将HTML输入控制代码存储到strHTML 变量后，我们要查看一下这是不是一个新用户或查询请求：
"===== Search input field
strHTML = SearchInputField
If mobjRequest.QueryString("Src") = "" Then
"~~~~~ No query was entered
strHTML = strHTML & "Enter a query"
Else
"[Search code here]
End If

　　如果没有名为Src的查询字符串，连接来自我们的组件以外，我们可以将一个介绍性的信息附在strHTML 代码上（从这个组件发送一个空查询也会产生同样效果）：
strHTML = strHTML & "Enter a query"
　　现在我们的第一个HTML代码已经完整了，我们将它发送给 IIS在访问者的浏览器上显示：
Else
"[Search code here]
End If
"~~~~~ Send html code to IIS for delivery to visitors browse r
mobjResponse.Write (strHTML )
产生下面的显示：


　　访问者输入了要组件搜索的文本以后，以上的条件If 语句就会发现VBmobjRequest.QueryString("Src") 变量不为空，分支控制逻辑就会流向选择的Else 部分。然后连接到数据库并在数据库中搜索匹配的Title 和 Text 域。
　　因为我们要搜索一个Access Memo 型域，或者说是SQL 服务器文本型域，我们不在SQL声明内使用LIKE 语句。相反，我们通过以下的SQL字符串返回一个记录集：
SELECT Title, Text, URL FROM SearchTable
　　可以用一个帐号群ID、一个典型范围或者在过滤表中有相关内容的任何类别来限制初始查询。
　　由于SQL声明恢复每个记录，我们就很快地搜索Title和 Text 域寻找与我们的访问者所提交的文本查询字符串相匹配的内容。这个字符串的搜索用VB InStr声明来实现。如果找到了匹配，并且我们在导航分界线的范围之内，就将标题和URL放置在动态字符串数列里。

　　查看导航分界线限制实质上是从记录的子集中选择一个标题和UR列表L。然后，用户就可以用"next"来访问标题的下一个列表或用"back" 来访问已经看过的列表中的前一个。实际上就是在向浏览器进行显示时，限制从数据库搜索返回的文本数量。

　　现在我们的数据库中充满了从SQL声明中提取出来的记录（如果你在SQL 声明中使用了WHERE 过滤器的话就可能是一个有限数量的记录）。然后用InStr 声明在每一个返回记录中搜索一个匹配。这就在SQL声明返回的数据库记录中创建了一个虚拟子集。如果这个子集比我们将要显示的大的话，就不将它存储在VB变量中。相反我们选择我们子集的另一个子集在web 页面上显示。我们将数据库域的变量分配限制在最后的子集中，从而节省系统资源并提高运行速度。


　　为了收集与搜索查询相匹配的web 站点标题和URL，需要创建两个字符串数列。一个保存标题，另一个保存URL。因为我们不知道字符串数列最终将保存多少条目，所以将它们设置为动态数列，每次增加一个新条目时调整它的大小。我们还在不止一个方法中需要这些数列。我们在初始的包装方法ShowSearchFrame 中创建它们，而不是将它们设置为全局变量。然后就将其作为自变量向每个需要的方法传递。我们还需要创建另外两个整形变量，与字符串变量一起传递。

Public Function ShowSearchFrame() As String
"~~~~~ Local variables
Dim strHTML As String
Dim astrTitleArray() As String
Dim astrURLarray() As String
Dim intRecordsDisplayed As Integer
Dim intRecordsMatched As Integer
　　声明了两个动态字符串变量和两个整形变量之后，就可以将它们传递给第二个方法。GetRecords 函数用数据库中的标题和URL的值来填充字符串数列。用数列中条目的个数设置intRecordsDisplayed 变量。intRecordsMatched 变量中保存与访问者查询字符串相匹配的记录数。我们使mintRecordsSearched 成为一个属性程序，可从ASP主机文件中读取。尽管我们不在这个组件中使用它，用户可能想知道共搜索到多少条记录。

　　这是ShowSearchFrame 方法中的方法调用。记住，GetRecords函数是有条件地被调用的，当有来自用户的搜索查询，并且在SearchInputField方法之后:
If mobjRequest.QueryString("Src") = "" Then
"~~~~~ No query was entered
strHTML = strHTML & "Enter a query"
Else
"[Search code here]
mintRecordsSearched = GetRecords(astrTitleArray(),astrURLarray(), _
intRecordsDisplayed, intRecordsMatched)
End If

GetRecords 函数
　　现在我认为对声明和传递方法变量的特殊方法的细节已经介绍得够多了。对于GetRecords方法的解释将主要是此方法的一般功能方面。
　　如果你使用的是VB5的话，就需要安装Service Pack 3 以获得对ADO 的引用来使这些代码工作。
　　首先要注意在声明之后，代码有一个错误控制声明。
　Private Function GetRecords(astrTitleArray() As String, astrURLarray() As _
String, intRecordsDisplayed As Integer, intRecordsMatched As _
Integer) As Integer
"~~~~~ LOCAL VARIABLES
Dim intCount As Integer
Dim intRecordsSearched As Integer
Dim strHTML As String
Dim strSearchHold As String
Dim strTitleHold As String
Dim strTextHold As String
Dim strURLhold As String
Dim recSearch As New ADODB.Recordset
Dim objCmd As New ADODB.Command
Dim objConn As New ADODB.Connection
Dim strSQL As String
On Error GoTo ErrorCode
　　如果在使用数据库时发生了错误，控制就在函数结尾处传递一个ErrorCode 标志。
　　下面的6个声明用Data Source Name（数据源名）打开到数据库的连接、启动一个处理、设置SQL字符串、将SQL 字符串分配给ADO命令对象、告诉命令对象等待一个SQL字符串、设置到命令对象的连接。
　　在这里我使用的处理是为了示范，而且因为它在转入命令之前用二进制存储代码，这样可以提高数据库处理的速度：
"~~~~~ Open the connection with a data source name
objConn.Open "SearchExampleDSN"
"~~~~~ Begin the transaction (only for speed in this case)
objConn.BeginTrans
"~~~~~ Store the SQL command in a string
strSQL = "SELECT Title, Text, URL FROM SearchTable"
"~~~~~ Set the Command object to the SQL string
objCmd.CommandText = strSQL
"~~~~~ indicate that the command is a SQL string (for speed)
objCmd.CommandType = adCmdText
"~~~~~ Set the Connection object to the Command object
Set objCmd.ActiveConnection = objConn
　　一旦我们用命令对象得到了所需要的打开记录集的连接，我们就设置：
"~~~~~Open Recordset with the above Command settings
recSearch.Open objCmd
　　在继续进行搜索之前，需要验证我们确实向搜索返回了一些记录。如果没有返回记录，记录集就既是在开头也是在结尾：
If recSearch.EOF And recSearch.BOF Then
"~~~~No records were returned by the SQL
GetRecords = 0
　　但是，如果SQL声明返回了一些记录，就需要设置一些变量确保记录集处在开头：
Else
"~~~~Initialize Procedural Variables
intRecordsMatched = 0
intRecordsDisplayed = 0
intRecordsSearched = 0
mintSearchStart = CInt(mobjRequest.QueryString("Start"))
If mintSearchStart = 0 Then mintSearchStart = 1
recSearch.MoveFirst
　　随着不同的整数计数器的增加，我们在记录集中循环，并将数据库中的标题、文本、URL数据存储在本地字符串变量中：
"~~~~Loop through the recordset
Do While Not recSearch.EOF
"Increment the total number of records to be searched
intRecordsSearched = intRecordsSearched + 1
"~~~~~ Store the database field data in temparary strings
strTitleHold = recSearch.Fields("Title")
strTextHold = recSearch.Fields("Text")
strURLhold = recSearch.Fields("URL")
　　连接文本和标题字符串后，从头至尾搜索字符串，首先将字符串变成大写字母，然后把我们的查询字符串片段也变成大写字母进行搜索：
"~~~~Concatenate the Title and URL into a String to Search
strSearchHold = strTitleHold & strTextHold
"~~~~~ Determine if the database record meets the visitors query
If InStr(UCase(strSearchHold), _
UCase(mobjRequest.QueryString("Src"))) Then
"~~~~Increment the number of records that match the visitor"s query
intRecordsMatched = intRecordsMatched + 1
　　如果我们的记录数据包含了查询字符串，就必须要确定它是否在导航列表界限范围内。这是一点技巧，
"Determine if records are within Start/Stop display range
If intRecordsMatched ＞= mintSearchStart And _
intRecordsDisplayed ＜ mintMaxSearchReturn Then
　　这个声明使用了mintSearchStart 变量，导航条把它作为一个查询字符串来获取，然后查看一下列表页是否达到了它的最大容量，而这个最大容量是由mintMaxSearchReturn变量决定的。如果通过了测试，就将控制传递给动态数列声明。
　　每次传递动态数列保存内容之后，调整其大小。
"~~~~Increment number of records to display
intRecordsDisplayed = intRecordsDisplayed + 1
"~~~~Store Title in title array
ReDim Preserve astrTitleArray(intRecordsDisplayed)
astrTitleArray(intRecordsDisplayed) = strTitleHold
"~~~~Store URL in URL array
Redim Preserve astrURLArray(intRecordsDisplayed)
astrURLArray(intRecordsDisplayed) = strURLHold
End If
End If<

[1] [2]  下一页


没有相关教程
教程录入：mintao    责任编辑：mintao 
  • 上一篇教程：

  • 下一篇教程：
    • 【字体：小 大】【发表评论】【加入收藏】【告诉好友】【打印此文】【关闭窗口】
    　 注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网]
    　　网友评论：（只显示最新10条。评论内容只代表网友观点，与本站立场无关！）
    同类栏目
    · Web开发  · 网页制作
    · 平面设计  · 网站运营
    · 网站推广  · 搜索优化
    · 建站心得  · 站长故事
    · 互联动态
    更多内容
    热门推荐 更多内容
  • 没有教程
    		•
    赞助链接
    更多内容
    闵涛博文 更多关于武汉SEO的内容
    500 - 内部服务器错误。

    500 - 内部服务器错误。

    您查找的资源存在问题，因而无法显示。
    | 设为首页 |加入收藏 | 联系站长 | 友情链接 | 版权申明 | 广告服务
    MinTao学以致用网

    Copyright ＠ 2007-2012 敏韬网(敏而好学，文韬武略--MinTao.Net)（学习笔记） Inc All Rights Reserved.
    闵涛 投放广告、内容合作请Q我! E_mail:admin@mintao.net(欢迎提供学习资源)

    站长：MinTao ICP备案号：鄂ICP备11006601号-18

    闵涛站盟:医药大全-武穴网。A打造B、C、D……
    		咸宁网络警察报警平台