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 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 instantiatea 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, 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>
|
