用ASP编程实现网络内容快速查找

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编写下载网页中所有资源的程序

下一篇： IIS HTTP500内部错误解决办法