NavigationBar 方法
用这个方法生成组成导航条的三个独立部分。
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 ListRecords(astrTitleArray() As String, _
astrURLArray() As String, _
intRecordsDisplayed As Integer)
Dim strHTML As String
Dim intCount As Integer
首先要验证存在可以列出的条目，在格式化我们的HTML代码的时候在字符串数列中循环。在这种情况下，我们使用条目字符串作为可视文本，将URL字符串数列作为HREF 源：
If intRecordsDisplayed = 0 Then
"~~~~No records where found for this query
strHTML = strHTML & "Query not found"
Else
"~~~~List search titles with URL link results
For intCount = 1 to intRecordsDisplayed
strHTML = strHTML & "＜ A HREF=""" & astrURLarray(intCount) & """" _
& "TARGET=""" & mstrResultFrameName & """ ＞" & _
astrTitleArray(intCount) & "＜ /A ＞＜ BR ＞"
Next
End If
注意以mstrResultFrameName 变量给TARGET 赋值。回想起来这个变量可以从ASP主机文件设置。它决定在哪个画面中显示HREF：
然后所需要做的就是将HTML代码返回字符串变量中：
"~~~~~Send back HTML code of the Title/URL list
ListRecords = strHTML
End Function
回到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
"===== Search input field
strHTML = 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)
"~~~~Exit of a database error occurred
If mintRecordsSearched = -1 Then Exit Function
"===== 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
"~~~~~ Send html code to IIS for delivery to visitors browser
mobjResponse.Write (strHTML)
End Function
这就是全部了。现在可以编译DLL，继续下一步了。
进一步超越基础
我使这些代码尽可能地简单，只有几个数据库处理和属性程序这些必需的内容。但是为了增强代码功能，还有许多可以做。
能够想到并且也很好玩的一个功能是缩短构成列表的标题。尽管将标题列表放在一个表格内可以改善可视界面，但是过长的标题会削弱列表的可读性。以下是进入ListRecords 方法缩短长标题的程序，它在标题结尾处加3个句号，表明它被删节了：
Dim strTemp As String
strTemp = strTitleArray(intCount)
If Not Trim(Len(strTemp)) = intListTitleMax Then
strTemp = Trim(Left(strTemp, intListTitleMax))
If Trim(Len(strTemp)) = intListTitleMax Then
strTemp = strTemp & "..."
End If
End If
以上代码将标题中超过一定字符长度的部分切断。字符长度是intListTitleMax 的值。
另外一个增加包括了在指针窗口中查看web 站点描述的选择。在一个非画面版本中，站点可以在一个空白浏览器中启动，以避免那些要求顶部画面的浏览器、用户粘贴新站点的能力、站点类别过滤、以字母或搜索的匹配程度为顺序进行列表等等。
在ASP下重新编译DLL
当我们第一次将组件存为DLL文件时，VB创建文件并在系统上注册它时是没有问题的。但是在ASP页上使用过DLL对象之后，如果不完全关掉ASP系统的话，VB就不允许重新编译DLL。
用Windows 9x 你可以关闭ASP、重新编译DLL并用以下指令启动ASP：
pws /sto p
pws /star t
在NT系统,用下列指令:
net stop iisadmin net start w3sv c
我不能肯定你怎么样，但是当基本的代码完成后，我对这个增强功能的过程很感兴趣，因为我知道，即使它们不能正常工作，我的基本代码部分是不受影响的。从这一点上来说，很难让这个程序样本保留这个样子而不去做那些增强工作。所以如果你有兴趣，随便怎么使用这个程序都可以。
点击本处下载本文相关链接。
利用http组件实现多引擎搜索功能
MicroSoft的ASP(Active Server Page)技术极大的方便了在网络中对于数据库的访问，而且由于ASP不同于CGI需要那么多的请求（减少了服务器的资源占用），以及ASP同Windows NT、2000的结合使得ASP技术被广泛的应用于今日的Internet，然而不知道你仔细的想过没有！ASP除了利用ADO对数据库的访问和其他几个内置组件的利用外，就不能作其他什么的了，相对于perl,php等程序，ASP的功能看起来就非常简单，而且功能缺乏；但是老比毕竟是老比，他给大家留了一手，那就是ASP组件(关于组件的概念，现在一大堆，你可不要搞错了），通过组件的开发你可以做到其他语言（比如PHP,PERL,C++）能做到的一切，甚至在某些方面还能更加超出，本文力求给你展示一下ASP组件的强大功能，但是由于ASP组件自身的过（使用的是非注册组件），可能有的时候使用会出现不稳定的状态，然而本文是力求向你展示一点东西以及提供一种思路给你，而不是其他，所以不足的地方就请求了原谅了！
代码思路：一般来看，我们提交一个表单给一个搜索引擎程序，搜索引擎获得提交的数据然后处理，返回结果；然而这种东西其实都是取得了一个提交的变量，我们可以使用另外一种直接跟从连接的方式访问搜索引擎，例如你可以使用yeah的首页搜索一个关键字“xuankong”,也可以使用下面的连接“http://search.163.com/cgi-bin/search/engine/search.fcgi?key=xuankong”取得使用结果，本文就是通过使用ASP的HTTP组件访问这种直接的连接，使用GET方式取得原本在WEB页中返回的数据，然后输出。
如果本组件能够实现多线程（如果那样就可以同时对不同的引擎取得数据，不必象现在单一的访问然后取得结果，）和代码进一步的优化和改进的话，将会极大的节约你的时间，让你一次搜索同时返回多个引擎的结果！
备注：搜索出来的结果中，由于某些引擎的类目使用了相对的连接，所以无效(这些结果其实你都可以处理的，只是笔者太懒了，所以不想花那些功夫)，但是所有的网站和网页的连接都是有效的，本文提供的代码只是适合于测试，不适合于具体的应用，如果需要具体的应用，需要使用适当的http组件，或者如果你是程序高手的话可以自己写多线程的组件，关于http组件的代码，你可以在www.chinaasp.com看到，欲得到更多的asp组件请访问www.aspcn.com！
代码开始：
＜!--
有任何的意见和建议请Mail：pu.junjie@263.net，
本代码使用了http组件同 阉鞒隽思父鏊阉饕娴氖荩盟械乃阉鹘峁允驹谝桓鲆趁娴敝校疚闹皇翘峁┮恢炙悸泛退伎几蠹艺故続SP组件的强大功能！
由于本组件是非注册组件可能功能有一定限制，同时由于同时搜索了几个引擎(搜索引擎可以任意扩充，但是会影响速度的)，所以系统输出数据的时间较长，请耐心等待在使用本代码前请你先去下载http://www.serverobjects.com/comp/asphttp3.zip，然好解压缩到你的system32目录(winnt or win2000)
使用regsvr32 asphttp.dll 注册本组件，然后拷贝本文件到相关的iis可执行目录，使用IE或者netscape浏览
--＞
＜%
’判断是输出页面还是处理数据，从而调用不同的部分
keyword=trim(request.form("keyword"))
if isnull(keyword) or keyword="" then
%＞
＜!--
html页面代码显示
--＞
＜html＞
＜head＞
＜title＞ASPCN.COM 超级搜索引擎＜/title＞
＜meta http-equiv="Content-Type" content="text/html; charset=gb2312"＞
＜META NAME="Author" CONTENT="蒲俊杰"＞
＜META NAME="Keywords" CONTENT="ASP,组件,www.aspcn.com"＞
＜style type="text/css"＞
＜!--
table { font-size: 9pt; font-style: normal}
test { border: 1px #000000 dashed; border-color: #000000 none}
test1 { background-color: #CCFFCC; clip: rect( ); font-size: 9pt; font-style:
normal; border-style: dashed; border-top-width: 1px; border-right-width: 1px;
border-bottom-width: 1px; border-left-width: 1px}
--＞
＜/style＞
＜/head＞
＜body bgcolor="#FFFFFF" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0"＞
＜table width="75%" border="1" align="center" height="20" cellpadding="0"
cellspacing="1" bgcolor="#66CC99" bordercolor="#FFFFFF"＞
＜tr＞
＜td height="4"＞
＜div align="center"＞＜font color="#000000" size="2"
face="Arial"＞ASPCN.COM＜/font＞＜font color="#000000" size="3"
face="Arial"＞＜/font＞＜b＞＜font color="#000000" size="3" face="Arial"＞
＜/font＞＜font color="#000000" size="3" face="仿宋_GB2312"＞超级搜索引擎＜/font＞＜/b＞＜/div＞
＜/td＞
＜/tr＞
＜tr bordercolor="#66CC99"＞
＜td height="21"＞请选择下面的搜索引擎:（请注意：本搜索引擎只是适合于＜font color="#ffffff"＞网页搜索＜/font＞）＜/td＞
＜/tr＞
＜tr bordercolor="#FFFFFF" align="center" valign="top"＞
＜td height="20"＞
＜form method="post" action="http.asp"＞
＜table width="96%" border="0" height="21" align="center"＞
＜tr＞
＜td height="10" width="31%"＞
＜div align="right"＞请输入你要搜索的关键字： ＜/div＞
＜/td＞
＜td height="10" width="69%"＞
＜input type="text" name="keyword" class="test"＞
＜/td＞
＜/tr＞
＜tr＞
＜td height="2" width="31%"＞
＜div align="right"＞请选择你使用的搜索引擎： ＜/div＞
＜/td＞
＜td height="2" width="69%"＞
＜input type="checkbox" name="yeah" value="yeah"＞
Yeah
＜input type="checkbox" name="yahoo" value="yahoo"＞
Yahoo
＜input type="checkbox" name="sina" value="sina"＞
Sina
＜input type="checkbox" name="sohu" value="sohu"＞
Sohu
＜input type="checkbox" name="goyoyo" value="goyoyo"＞
Goyoyo＜/td＞
＜/tr＞
＜tr＞
＜td height="2" colspan="2"＞
＜div align="right"＞
＜input type="submit" name="Submit" value="让我们开始吧" class="test1"＞
＜/div＞
＜/td＞
＜/tr＞
＜/table＞
＜/form＞
＜/td＞
＜/tr＞
＜tr bordercolor="#FFFFFF"＞
＜td height="20"＞备注：由于使用了多个搜索引擎检索，所以系统输出的时间较长，请耐心等待... ...＜/td＞
＜/tr＞
＜tr bordercolor="#FFFFFF"＞
＜td height="20"＞
＜div align="center"＞建议使用 IE 5.x 800*600访问 ASPCN.COM 版权保留(2000-2001)
＜font size="2"＞?＜/font＞＜/div＞
＜/td＞
＜/tr＞
＜/table＞
＜/body＞
＜/html＞
＜!--
页面代码显示结束数据处理代码显示
--＞
＜%else
Server.ScriptTimeout = 100’设置脚本时间，由于系统输出时间较长所以必须修改脚本代码执行时间
Set http = Server.CreateObject("AspHTTP.Conn")’连结组件
keyword=request.form("keyword")’取得搜索关键字
if request.form("yeah")="yeah" then’判断是否选择使用yeah搜索引擎
http.Url = "http://search.163.com/cgi-bin/search/engine/search.fcgi?key="&keyword’处理搜索地址
http.RequestMethod = "GET"’设置取得数据方式"GET，取得数据"
response.write http.geturl’输出搜索结果
end if
’以下代码请参考上例的说明，恕不罗嗦
’使用yahoo
if request.form("yahoo")="yahoo" then
http.Url = "http://google.yahoo.com/bin/query_gb?p="&keyword
http.RequestMethod = "GET"
response.write http.geturl
end if
’使用sohu
if request.form("sohu")="sohu" then
http.Url
="http://search.sohu.com/cgi-bin/search_main.cgi?txt_keyword="&keyword&"&page_index=0&
fuzzy=0&catagory=main"
http.RequestMethod = "GET"
response.write http.geturl
end if
’使用goyoyo
if request.form("goyoyo")="goyoyo" then
http.Url ="http://www.goyoyo.com.cn/gyy/query?dbs=guidedbs&code=GB&query="&keyword
http.RequestMethod = "GET"
response.write http.geturl
end if
set http=nothing
end if
’提交数据处理结束
%＞
上一页 [1] [2] [3] [4] 下一页
|
| 【字体：小 大】【发表评论】【加入收藏】【告诉好友】【打印此文】【关闭窗口】 |
您现在的位置： 卓越设计网 >> 网页制作 >> ASP学习 >> 组件开发 >> 网页制作正文
