search02.asp

来自「Active Server Pages 网页制作教程看之前请传到ASP空间。或者」· ASP 代码 · 共 13 行

<%
Set Q = Server.CreateObject("ixsso.Query")
Q.Query = Request("Keyword")
Q.Columns = "Filename"
Set rs = Q.CreateRecordset("nonsequential")

While Not rs.EOF
   Response.Write rs("Filename") & ", "
   rs.MoveNext
Wend
%>
<HR>
共有 <%=rs.RecordCount%>  个文件出现 '<%=Request("Keyword")%>'