实例分析之用ASP编程实现网络内容快速查找的代

某天，我突然萌生了一个想法，如果我能在网上畅游时，每到一个网站，都能够立刻展现出我需要的信息，那将会是一种怎样的美妙体验。于是我开始深入思考这个问题，坐在椅子上的我握着铅笔，却感到有些迷茫，不知从何下手。我知道最终还是需要与那些代码打交道。

我有一个朋友开了一个小网站，这个网站正是我设计的。于是，我决定在这个平台上试验我的想法。我编写代码，上传文件，看着程序运行得如此顺畅，我兴奋不已，这也证明了我的想法是可行的。

之前看过的一些网络用户习惯报告给我留下了深刻的印象，其中一个规律尤其如此：大多数用户在三次点击内如果无法找到所需内容，就会立刻离开该网站。我的代码设计就是为了解决这个问题，确保用户只需点击一次就能找到目标。以用户在Yahoo搜索"Fireplace Aessories"（飞行器材配件）为例，来到朋友的网站后，他们将看到与他们搜索内容相关的页面。

要实现这一目标，第一步是在global.asa文件中建立一个初始变量，放置在Sub Session_onStart()程序中。代码如下：

```sql

Sub Session_onStart()

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

If Referer = "" Then

Referer = "None"

End If

Session("Referer") = Referer

End Sub

```

接下来，我们来看看如何完成程序的主要功能。由于URL已经进行了编码，我们需要将访问者的主机引用数据解码成有用的信息。为此，我们创建了一个名为decode.asp的ASP页面，这是程序的主干。它的第一个功能是对编码的引用头进行解码。程序直接且简洁，如果你觉得编写麻烦，可以在“.popu.”的“网虫进修班”上找到这篇文章，使用“复制/粘贴”的方式获取代码。

解码后，我们的下一步是从URL头信息中分离出查询部分，这才是我们真正需要的。这个功能可以通过以下代码实现：

```python

'从指向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

```

我们需要确立明确的查找标准。为了达到这个目的，我们建立了两个静态空间来查找和匹配数据。这个功能的实现代码如下：

```vbnet

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

```通过包含我们做好的decode.asp文件，我们可以将其应用到任何需要的页面。就这样，大功告成了！在数字世界中，每一个点击都承载着用户的意图，每一次跳转都映射着信息的流动。那么，当用户的浏览器指向头不为空时，我们的网站将启动一项特殊的功能，以响应这种互动。

当用户的会话(Session)中的“Referer”参数并非空白，或是没有设置为我们默认的标识值时，我们知道这场对话的开始并非简单的一次偶然点击。这是一种交流的开始，我们的网站正在接收一种带有信息指向的数据。这种数据如同一串解码的密码，向我们展示用户的兴趣所在和他们即将访问的内容。我们必须对这些数据进行，以理解用户的意图和需求。

我们的代码开始工作。它首先调用一个名为`Finder`的函数，这个函数在数组`pArray`中寻找与会话中的“Referer”参数相匹配的内容。经过URL解码后，这些内容被识别为产品相关的信息。然后，这些信息被整合并展示给用户。这个过程就像一场信息的交响乐章，每个音符都被精准地演奏和。

我们借助`Response.Write`将后的信息以特定的格式呈现在网页上。这些信息的呈现方式既生动又吸引人，因为它们反映了用户的兴趣和需求。我们也通过`Cambrian.render('body')`这一行代码来确保这些内容被完美地渲染在网页的主体部分。这就像一幅精心绘制的画卷，每一笔都充满了深意和细节。这就是我们的网站与用户之间的对话方式，每一次点击都能带来一次的交流和理解。