search08.asp

Active Server Pages 网页制作教程看之前请传到ASP空间。或者本地用iis。或安装pws内有说明

<%
Set Q = Server.CreateObject("ixsso.Query")
Keyword = Request("Keyword")
If Keyword = Empty Then Keyword = "王国荣"
Q.Query = Keyword
Q.Columns = "DocTitle,Characterization,Rank,VPath,Write,Size"
Q.SortBy = "Rank[d]"
Q.MaxRecords = 10

Set U = Server.CreateObject("ixsso.Util")
U.AddScopeToQuery Q, "/kjasp/ch16/vb", "deep"
U.AddScopeToQuery Q, "/kjasp/ch02", "deep"

Set rs = Q.CreateRecordset("nonsequential")

count = 1
While Not rs.EOF
  DocTitle =  rs("DocTitle")
  If DocTitle = Empty Then DocTitle="无"
%>
  <B>标题: </B><%=DocTitle%><BR>
  <B>相符: </B><%=rs("Rank")%><BR>
  <B>摘要: </B><%=rs("Characterization")%><BR>
  <B>网址: </B><A HREF=<%=rs("VPath")%>><%=rs("VPath")%></A><BR>
  <B>时间: </B><%=rs("Write")%><BR>
  <B>大小: </B><%=rs("Size")%><P>
<%
   rs.MoveNext
Wend
%>