search06.asp

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

<%
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 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
%>