接着是要确立查找的明确标准。为达到这个目的，建立两个静态空间"指?查找指向数据 
　　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放到需要此功能的任何页面，大功告成啦。 
　　具体如下： 
　　'<!–#include file="decode.asp"–>’如果指向头不为空，调出此功能If lCase(Session("Referer")) <> "none" OR Session("Referer") <> "" Then’ 解析指    向数据 Response.Write vbCrLf & "<center><p><font color=green>" _ & Finder(pArray, URLDecode(isProduct(Session("Referer")))) _  
     & "</font></p></center>" & vbCrLf 
    End If