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 3 for IXSSO tests.</TITLE></HEAD><BODY BGCOLOR=FFFFFF LINK=0000FF ALINK=00DDDD> <H2>Test 3 for IXSSO.</H2><P>Create a query object, set query parameters, execute query and instantiatea non-sequential recordset.Use ADO to iterate over all rows in the recordset and print fields from thestorage property set.</P>
<!--#include virtual="/IXSTest/prolog.inc"--><% set Q=Server.CreateObject("IXSSO.Query") Q.Columns = "filename, rank, path, size, write" Q.Query = "#filename *.asp" Q.SortBy = "rank[d]"
set Util=Server.CreateObject("IXSSO.Util") Util.AddScopeToQuery Q, "/" Q.Catalog = "web"
Q.OptimizeFor = "recall" Q.AllowEnumeration = TRUE
Q.MaxRecords = 20000 %>
<FONT SIZE=3><PRE>Query = <%= Q.Query%>Columns = <%= Q.Columns%>SortBy = <%= Q.SortBy%>
CiScope = <%= Q.CiScope%>CiFlags = <%= Q.CiFlags%>Catalog = <%= Q.Catalog%>CiMachine = <%= Q.CiMachine%>
OptimizeFor = <%= Q.OptimizeFor%>AllowEnumeration = <%Response.Write(CStr(Q.AllowEnumeration))%>MaxRecords = <%= Q.MaxRecords%></PRE>
<% set RS=Q.CreateRecordSet( "nonsequential" ) %>
<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") %>
RS.EOF = <%if RS.EOF then Response.Write("TRUE") else Response.Write("FALSE") %>RS.BOF = <%if RS.BOF then Response.Write("TRUE") else Response.Write("FALSE") %>RS.RecordCount = <%= RS.RecordCount%></PRE>
<% RS.MoveFirst %>
After RS.MoveFirst<PRE>RS.EOF = <%if RS.EOF then Response.Write("TRUE") else Response.Write("FALSE") %>RS.BOF = <%if RS.BOF 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>Path</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 --><% RecordNumber = 1 %><% Do While Not RS.EOF %> <TR><%if RecordNumber <> 1 then %> <TD BGCOLOR="f7efde" ALIGN=CENTER> <FONT STYLE="ARIAL NARROW" SIZE=1><%=RS.Fields("FileName").Value%></FONT></TD> <TD BGCOLOR="f7efde" ALIGN=CENTER> <FONT STYLE="ARIAL NARROW" SIZE=1><%=RS.Fields("Rank").Value%></FONT></TD> <TD BGCOLOR="f7efde" ALIGN=CENTER> <FONT STYLE="ARIAL NARROW" SIZE=1><A HREF="file:<%=RS.Fields("Path").Value%>"><%=RS("Path").Value%></A></FONT></TD> <TD BGCOLOR="f7efde" ALIGN=CENTER> <FONT STYLE="ARIAL NARROW" SIZE=1><%=RS.Fields("Size").Value%></FONT></TD> <TD BGCOLOR="f7efde" ALIGN=CENTER> <FONT STYLE="ARIAL NARROW" SIZE=1><%=RS.Fields("Write").Value%></FONT></TD><%else%> <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="file:<%=RS("Path")%>"><%=RS("Path")%></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><%end if%> </TR><% RS.MoveNext RecordNumber = RecordNumber+1 Loop RS.close Set RS = Nothing%>
</TABLE>
<BR><BR><!--#include virtual="/IXSTest/srcform.inc"--><BR><BR></BODY></HTML>
|
