90 lines
2.1 KiB
Plaintext
90 lines
2.1 KiB
Plaintext
|
<% 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>
|