Source code of Windows XP (NT5)
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.

53 lines
1.2 KiB

  1. <% Response.Expires = 0 %>
  2. <HTML>
  3. <HEAD>
  4. <TITLE>Test page 5 for IXSSO tests.</TITLE>
  5. <!--#include virtual="/IXSTest/prolog.inc"-->
  6. <!--#include virtual="/IXSTest/showqry1.inc"-->
  7. </HEAD>
  8. <BODY BGCOLOR=FFFFFF LINK=0000FF ALINK=00DDDD>
  9. <H2>Test 5 for IXSSO.</H2>
  10. <P>
  11. Test default catalog.
  12. </P>
  13. <%
  14. set Q=Server.CreateObject("IXSSO.Query")
  15. Q.Columns = "Filename, Rank, vpath, Size, Write"
  16. Q.Query = "#filename *.asp*"
  17. Q.SortBy = "rank[d]"
  18. set Util=Server.CreateObject("IXSSO.Util")
  19. Util.AddScopeToQuery Q, "/aspsamp", "DEEP"
  20. Q.OptimizeFor = "recall"
  21. Q.AllowEnumeration = TRUE
  22. Q.MaxRecords = 20000
  23. set RS=Q.CreateRecordSet( "nonsequential" )
  24. %>
  25. <PRE>
  26. Catalog = <%= Q.Catalog %>
  27. CiMachine = <%= Q.CiMachine %>
  28. QueryTimedOut = <%= CStr( Q.QueryTimedOut ) %>
  29. QueryIncomplete = <%= CStr( Q.QueryIncomplete ) %>
  30. OutOfDate = <%= CStr( Q.OutOfDate ) %>
  31. RS.EOF = <%if RS.EOF then Response.Write("TRUE") else Response.Write("FALSE") %>
  32. RS.BOF = <%if RS.BOF then Response.Write("TRUE") else Response.Write("FALSE") %>
  33. RS.RecordCount = <%= RS.RecordCount%>
  34. </PRE>
  35. <BR>
  36. <BR>
  37. <TABLE><TR><TD>
  38. </TD><TD>
  39. <!--#include virtual="/IXSTest/srcform.inc"-->
  40. </TD></TR></TABLE>
  41. <BR>
  42. </BODY>
  43. </HTML>