快捷搜索:

用ASP编程实现快速查找一例

你要作的第一步,是在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 (大年夜众收集报/karry)

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