快捷搜索:

用ASP编程实现快速查找

有一天我突发奇想,如果我每到一个网站,那里都能立即调出我必要看的信息,那岂非美妙得很。接下来我想更深入地斟酌这个问题,坐到椅子上拿一支铅笔,却不知道自己写什么。如斯一来,我照样得动手对于代码它们。

??我的同伙开了一个小型站点,蓝本是我设计的。这是个查验我设法主见的好平台。以是我写出代码,上传了文件。真叫人愉快,法度榜样事情起来煞是完满,同时也证实我的设法主见切实着实不错。

??曩昔看过一些收集应用者倾向申报,此中有一个规律给我印象很深。说是大年夜多半用户假如在三次点击内无法找到自己必要的内容,就会立即脱离该站点。我的代码就可以针对这个问题,保险用户只要点一次鼠标就找到目标。在我的例子里,假设有个用户上了Yahoo,检索关键字为Fireplace Accessories(飞行器材配件)。在给出的结果里,他来到我同伙的站点,将看到"你正在搜索Fireplace Accessories"等字样的画面。接着他会按照网站上的提示,直接到想要去的页面。

??你要作的第一步,是在global.asa文件中建立一个初始变量,放置在你的Sub Session_onStart()法度榜样中。

??Sub Session_onStart()

??Referer = Trim(Request.ServerVariables("HTTP_REFERER"))

??If Referer = "" Then

??Referer = "None"

??End If

??Session("Referer") = Referer

??End Sub

??接着我们来动手看看若何完成法度榜样的主要功能。

??由于url颠最后编码,以是首先要把来访者主机的指向数据还原成对我们有用的器械。建立一个ASP页面,叫它decode.asp,是我们法度榜样的主干。第一个功能是要对编码过的指向头进行解码。法度榜样有点长,而且很直接,没有什么转弯抹角,假如你嫌麻烦,不如到www.popunet.com的"网虫学习班"上面找到本文,用"拷贝/粘贴"大年夜法吧。

??源代码

第二件要作的工作是:从URL头信息里分离出查询部分--这个才是我们必要的。

'从指向URL平分离查询字段。

??Function isProduct(pStr)

??If pStr"none" Then

??'向后搜索字段

??temp = inStrRev(pStr, "/")

??'获得目录分离的位置

??tempStr = Right(pStr, temp)

??'获得有关数据长度

??temp2 = Len(pStr)

??'获得查询数据行

??pStr = Mid(pStr, temp, temp2)

??'设定返回功能的值

??isProduct = pStr

??Else

??isProduct = ""

??End If

??End Function

??接着是要确立查找的明确标准。为达到这个目的,建立两个静态空间"指?查找指向数据

??Function Finder(byRef prodList, byVal refList)

??'隐隐查询

??refList = lCase(refList)

??' 经由过程指针轮回查找匹配字段

??For i = 0 To uBound(prodList) - 1

??If inStr(refList, lCase(prodList(i, 0))) Then

??'找到匹配

??tHolder = tHolder & "Are You looking For " _

??& "" _

??& prodList(i, 0) & "

??"

??End If

??'第二次轮回

??Next

??'返回结果

??Finder = tHolderEnd Function

??经由过程一个inclue,把我们做好的decode.asp放到必要此功能的任何页面,大年夜功告成啦。

详细如下:

'假如指向头不为空,调出此功能If lCase(Session("Referer"))"" Then' 解析指向数据 Response.Write vbCrLf & "

??" _ & Finder(pArray, URLDecode(isProduct(Session("Referer")))) _ & "

??" & vbCrLf

??End If

您可能还会对下面的文章感兴趣: