有一天我突发奇想,要是我每到一个网站,那里都能立刻调出我需要看的信息,那岂非美妙得很。接下来我想更深入地考虑这个问题,坐到椅子上拿一支铅笔,却不知道自己写什么。如此一来,我还是得着手对付代码它们。
我的朋友开了一个小型站点,原本是我设计的。这是个检验我想法的好平台。所以我写出代码,上传了文件。真叫人兴奋,程序工作起来煞是圆满,同时也证明我的想法的确不错。
以前看过一些网络使用者倾向报告,其中有一个规律给我印象很深。说是大多数用户如果在三次点击内无法找到自己需要的内容,就会立刻离开该站点。我的代码就可以针对这个问题,保险用户只要点一次鼠标就找到目标。在我的例子里,假设有个用户上了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 <> "" And lCase(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")) <> "none" OR Session("Referer") <> "" Then' 解析指向数据 Response.Write vbCrLf & "
" _ & Finder(pArray, URLDecode(isProduct(Session("Referer")))) _ & "
" & vbCrLf
End If
分享到:
相关推荐
实例分析之用ASP编程实现网络内容快速查找的代码
内容简介回到顶部↑本书全面介绍了ASP.NET各种编程技能和2.0版中的巨大变化,并详细阐述了2.0版中的每个新特性。书中提供了大量的实例,可帮助读者快速掌握如何在.NET平台下开发功能强大的ASP.NET应用程序。本书适合...
书中提供了大量的实例,可帮助读者快速掌握如何在.NET平台下开发功能强大的ASP.NET应用程序。本书适合有一些基础的ASP.NET初级程序员以及准备迁移到ASP.NET 2.0的编程老手。该书与《ASP.NET 2.0入门经典(第4版)》...
本系统主要功能有用户管理、学生成绩查询、学生成绩管理(查找、录入、修改)等数据操作……包括功能需求描述、数据库设计等内容。第二部分介绍了本系统的分析、设计,第三部分介绍了本系统的具体实现,第四部分关于本...
归并排序,快速排序,冒泡算法,二叉查找树.doc 微软C编程精粹.doc 探讨 ASP.NET 的可伸缩性.doc 提高ASP.Net应用程序性能的十大方法.doc 无废话XML.pdf 概念.txt 求最大最小值示例.txt 用ASP.NET创建...
此外,《ASP.NET 4高级程序设计(第4版)》专门提供了两章的内容来教你如何用Ajax 技术制作快速响应的页面,以及如何使用微软的ASP.NETAJAX平台。另外,还专门介绍了ASP.NET4 新增的功能,如MVC 和动态数据等。 ...
3. 强大的查询功能:系统支持多种查询方式,如按线路、站点、时间等条件进行查询,方便用户快速查找所需信息。 4. 实时数据分析与统计:系统能够实时分析公交车的运营数据,为用户提供统计报表和图表展示,帮助用户...
本系统主要功能有用户管理、学生成绩查询、学生成绩管理(查找、录入、修改)等数据操作……包括功能需求描述、数据库设计等内容。第二部分介绍了本系统的分析、设计,第三部分介绍了本系统的具体实现,第四部分关于本...
2. **设备分类管理**:系统将设备按照类别进行分类管理,方便用户快速查找和统计设备信息。 3. **设备全生命周期管理**:从设备的采购、入库、分配、使用到报废,实现设备的全生命周期跟踪管理。 4. **权限控制与...
43 <br>0061 树的实现 44 <br>3.2 排序 48 <br>0062 如何实现选择排序算法 48 <br>0063 如何实现冒泡排序算法 49 <br>0064 如何实现快速排序算法 50 <br>0065 如何实现插入排序算法 ...
此外,《ASP.NET 4高级程序设计(第4版)》专门提供了两章的内容来教你如何用Ajax 技术制作快速响应的页面,以及如何使用微软的ASP.NETAJAX平台。另外,还专门介绍了ASP.NET4 新增的功能,如MVC 和动态数据等。 ...
完美的ASP编程的学校网站源码,后台功能非常强大,并参考目前众多流行的国内国外学校网站模板重新做了美化,非常漂亮的学校网站模板,适用于各学校网站建设的网站源码,学校网站管理系统,学校事业单位网站管理系统,Asp+...
后来作者不想搞股票网,转为搞ASP.NET编程网站《草动学园》, 但放着源码不共享出来觉得浪费,因此愿与大家一起分享。 尽管现在有很多资源丰富的财经网站,但它们对网速的要求比较高,人们不能及时地获取所需信息,...