用ASP编程实现快速查找(2) '找到匹配 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