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.
|
|
<% Response.Expires = 0 %><HTML><HEAD><TITLE>Test page 10 for IXSSO tests.</TITLE><!--#include virtual="/IXSTest/prolog.inc"--><!--#include virtual="/IXSTest/showqry1.inc"--></HEAD><BODY BGCOLOR=FFFFFF LINK=0000FF ALINK=00DDDD> <H2>Test 10 for IXSSO.</H2><P>Test multi-scoped queries.</P>
<% set Util=Server.CreateObject("IXSSO.Util") set Q=Server.CreateObject("IXSSO.Query") Q.Columns = "Filename, Rank, vpath, Size, Write" Q.Query = "#filename *.asp*" Q.SortBy = "rank[d]"
Util.AddScopeToQuery Q, "/aspsamp", "SHALLOW"
Q.OptimizeFor = "recall" Q.AllowEnumeration = TRUE
Q.MaxRecords = 20000
set RS=Q.CreateRecordSet( "nonsequential" ) RecordCount1 = RS.RecordCount if RecordCount1 = 0 then Response.Write "no records returned from first query<BR>" end if RS.close Set RS = Nothing
Q.Reset Q.Columns = "Filename, Rank, vpath, Size, Write" Q.Query = "#filename *.asp*" Q.SortBy = "rank[d]"
Util.AddScopeToQuery Q, "/ixstest"
Q.OptimizeFor = "recall" Q.AllowEnumeration = TRUE
Q.MaxRecords = 20000
set RS=Q.CreateRecordSet( "nonsequential" ) RecordCount2 = RS.RecordCount if RecordCount2 = 0 then Response.Write "no records returned from second query<BR>" end if RS.close Set RS = Nothing
Q.Reset Q.Columns = "Filename, Rank, vpath, Size, Write" Q.Query = "#filename *.asp*" Q.SortBy = "rank[d]"
Util.AddScopeToQuery Q, "/aspsamp", "SHALLOW" Util.AddScopeToQuery Q, "/ixstest"
Q.OptimizeFor = "recall" Q.AllowEnumeration = TRUE
Q.MaxRecords = 40000
set RS=Q.CreateRecordSet( "nonsequential" ) RecordCount3 = RS.RecordCount if RecordCount3 <> RecordCount1+RecordCount2 then Response.Write "Error - third query is not union of first and second queries<BR>" end if RS.close Set RS = Nothing%>Record count 1 = <%= RecordCount1 & "<BR>"%>Record count 2 = <%= RecordCount2 & "<BR>"%>Record count 3 = <%= RecordCount3 & "<BR>"%>
<BR><BR><TABLE><TR><TD><!--#include virtual="/IXSTest/srcform.inc"--></TD></TR></TABLE><BR></BODY></HTML>
|
