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.
 
 
 
 
 
 

89 lines
2.1 KiB

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