111 lines
2.8 KiB
Plaintext
111 lines
2.8 KiB
Plaintext
<% Response.Expires = 0 %>
|
|
<HTML>
|
|
<HEAD>
|
|
<TITLE>Test page 2 for IXSSO tests.</TITLE>
|
|
</HEAD>
|
|
<BODY BGCOLOR=FFFFFF LINK=0000FF ALINK=00DDDD>
|
|
<H2>Test 2 for IXSSO.</H2>
|
|
<P>
|
|
Create a query object, set query parameters, execute query and instantiate
|
|
a recordset.
|
|
Use ADO to iterate over all rows in the recordset and print fields from the
|
|
storage property set.
|
|
</P>
|
|
|
|
|
|
<!--#include virtual="/IXSTest/prolog.inc"-->
|
|
<%
|
|
set Q=Server.CreateObject("IXSSO.Query")
|
|
Q.Columns = "filename, rank, vpath, size, write"
|
|
Q.Query = "#filename *.asp*"
|
|
Q.SortBy = "rank[d]"
|
|
|
|
set Util=Server.CreateObject("IXSSO.Util")
|
|
Util.AddScopeToQuery Q, "/"
|
|
|
|
Q.OptimizeFor = "recall"
|
|
Q.AllowEnumeration = TRUE
|
|
|
|
Q.MaxRecords = 20000
|
|
%>
|
|
|
|
<FONT SIZE=3>
|
|
<PRE>
|
|
Query = <%= Q.Query%>
|
|
Columns = <%= Q.Columns%>
|
|
CiScope = <%= Q.CiScope%>
|
|
CiFlags = <%= Q.CiFlags%>
|
|
SortBy = <%= Q.SortBy%>
|
|
|
|
Catalog = <%= Q.Catalog%>
|
|
OptimizeFor = <%= Q.OptimizeFor%>
|
|
AllowEnumeration = <%Response.Write(CStr(Q.AllowEnumeration))%>
|
|
MaxRecords = <%= Q.MaxRecords%>
|
|
</PRE>
|
|
|
|
<%
|
|
set RS=Q.CreateRecordSet( "sequential" )
|
|
%>
|
|
|
|
<PRE>
|
|
QueryTimedOut = <%if Q.QueryTimedOut then Response.Write("TRUE") else Response.Write("FALSE") %>
|
|
QueryIncomplete = <%if Q.QueryIncomplete then Response.Write("TRUE") else Response.Write("FALSE") %>
|
|
OutOfDate = <%if Q.OutOfDate then Response.Write("TRUE") else Response.Write("FALSE") %>
|
|
</PRE>
|
|
|
|
<TABLE COLSPAN=8 CELLPADDING=5 BORDER=0>
|
|
|
|
<!-- BEGIN column header row -->
|
|
|
|
<TR>
|
|
|
|
<TH ALIGN=CENTER BGCOLOR="#800000">
|
|
<FONT STYLE="ARIAL NARROW" COLOR="#ffffff" SIZE=1>File name</FONT>
|
|
</TH>
|
|
<TH ALIGN=CENTER BGCOLOR="#800000">
|
|
<FONT STYLE="ARIAL NARROW" COLOR="#ffffff" SIZE=1>Rank</FONT>
|
|
</TH>
|
|
<TH ALIGN=CENTER WIDTH=150 BGCOLOR="#800000">
|
|
<FONT STYLE="ARIAL NARROW" COLOR="#ffffff" SIZE=1>Vpath</FONT>
|
|
</TH>
|
|
<TH ALIGN=CENTER BGCOLOR="#800000">
|
|
<FONT STYLE="ARIAL NARROW" COLOR="#ffffff" SIZE=1>Size</FONT>
|
|
</TH>
|
|
<TH ALIGN=CENTER BGCOLOR="#800000">
|
|
<FONT STYLE="ARIAL NARROW" COLOR="#ffffff" SIZE=1>Write</FONT>
|
|
</TH>
|
|
|
|
</TR>
|
|
|
|
<!-- BEGIN first row of query results table -->
|
|
|
|
<% Do While Not RS.EOF %>
|
|
<TR>
|
|
<TD BGCOLOR="f7efde" ALIGN=CENTER>
|
|
<FONT STYLE="ARIAL NARROW" SIZE=1><%=RS("Filename")%></FONT></TD>
|
|
<TD BGCOLOR="f7efde" ALIGN=CENTER>
|
|
<FONT STYLE="ARIAL NARROW" SIZE=1><%=RS("Rank")%></FONT></TD>
|
|
<TD BGCOLOR="f7efde" ALIGN=CENTER>
|
|
<FONT STYLE="ARIAL NARROW" SIZE=1><A HREF="http:<%=RS("vpath")%>"><%=RS("vpath")%></A></FONT></TD>
|
|
<TD BGCOLOR="f7efde" ALIGN=CENTER>
|
|
<FONT STYLE="ARIAL NARROW" SIZE=1><%=RS("Size")%></FONT></TD>
|
|
<TD BGCOLOR="f7efde" ALIGN=CENTER>
|
|
<FONT STYLE="ARIAL NARROW" SIZE=1><%=RS("Write")%></FONT></TD>
|
|
</TR>
|
|
<%
|
|
RS.MoveNext
|
|
Loop
|
|
RS.close
|
|
Set RS = Nothing
|
|
%>
|
|
|
|
</TABLE>
|
|
|
|
<BR>
|
|
<BR>
|
|
<!--#include virtual="/IXSTest/srcform.inc"-->
|
|
<BR>
|
|
<BR>
|
|
</BODY>
|
|
</HTML>
|