467 lines
15 KiB
Plaintext
467 lines
15 KiB
Plaintext
|
<!DOCTYPE HTML PUBLIC "-//IETF//DTD HTML 3.0//EN" "html.dtd">
|
||
|
|
<HTML>
|
||
|
|
<HEAD>
|
||
|
|
|
||
|
|
<%
|
||
|
|
' ********** INSTRUCTIONS FOR QUICK CUSTOMIZATION **********
|
||
|
|
'
|
||
|
|
' This form is set up for easy customization. It allows you to modify the
|
||
|
|
' page logo, the page background, the page title and simple query
|
||
|
|
' parameters by modifying a few files and form variables. The procedures
|
||
|
|
' to do this are explained below.
|
||
|
|
'
|
||
|
|
'
|
||
|
|
' *** Modifying the Form Logo:
|
||
|
|
|
||
|
|
' The logo for the form is named is2logo.gif. To change the page logo, simply
|
||
|
|
' name your logo is2logo.gif and place in the same directory as this form. If
|
||
|
|
' your logo is not a GIF file, or you don't want to copy it, change the following
|
||
|
|
' line so that the logo variable contains the URL to your logo.
|
||
|
|
|
||
|
|
FormLogo = "is2logo.gif"
|
||
|
|
|
||
|
|
'
|
||
|
|
' *** Modifying the Form's background pattern.
|
||
|
|
|
||
|
|
' You can use either a background pattern or a background color for your
|
||
|
|
' form. If you want to use a background pattern, store the file with the name
|
||
|
|
' is2bkgnd.gif in the same directory as this file and remove the remark character
|
||
|
|
' the single quote character) from the line below. Then put the remark character on
|
||
|
|
' the second line below.
|
||
|
|
'
|
||
|
|
' If you want to use a different background color than white, simply edit the
|
||
|
|
' bgcolor line below, replacing white with your color choice.
|
||
|
|
|
||
|
|
' FormBG = "background = " & chr(34) & "is2bkgnd.gif" & chr(34)
|
||
|
|
FormBG = "bgcolor = " & chr(34) & "#FFFFFF" & chr(34)
|
||
|
|
|
||
|
|
|
||
|
|
' *** Modifying the Form's Title Text.
|
||
|
|
|
||
|
|
' The Form's title text is set on the following line.
|
||
|
|
%>
|
||
|
|
|
||
|
|
<TITLE>Sample ASP Search Form</TITLE>
|
||
|
|
|
||
|
|
<%
|
||
|
|
'
|
||
|
|
' *** Modifying the Form's Search Scope.
|
||
|
|
'
|
||
|
|
' The form will search from the root of your web server's namespace and below
|
||
|
|
' (deep from "/" ). To search a subset of your server, for example, maybe just
|
||
|
|
' a PressReleases directory, modify the scope variable below to list the virtual path to
|
||
|
|
' search. The search will start at the directory you specify and include all sub-
|
||
|
|
' directories.
|
||
|
|
|
||
|
|
FormScope = "/"
|
||
|
|
|
||
|
|
'
|
||
|
|
' *** Modifying the Number of Returned Query Results.
|
||
|
|
'
|
||
|
|
' You can set the number of query results returned on a single page
|
||
|
|
' using the variable below.
|
||
|
|
|
||
|
|
PageSize = 10
|
||
|
|
|
||
|
|
'
|
||
|
|
' *** Setting the Locale.
|
||
|
|
'
|
||
|
|
' The following line sets the locale used for queries. In most cases, this
|
||
|
|
' should match the locale of the server. You can set the locale below.
|
||
|
|
|
||
|
|
SiteLocale = "EN-US"
|
||
|
|
|
||
|
|
' ********** END QUICK CUSTOMIZATION SECTIONS ***********
|
||
|
|
%>
|
||
|
|
|
||
|
|
|
||
|
|
<LINK REL=STYLESHEET HREF="is2style.css" TYPE="text/css">
|
||
|
|
|
||
|
|
<META NAME="DESCRIPTION" CONTENT="Sample ASP query form for Indexing Service">
|
||
|
|
<META NAME="AUTHOR" CONTENT="Indexing Service Team">
|
||
|
|
<META NAME="KEYWORDS" CONTENT="query, content, hit">
|
||
|
|
<META NAME="SUBJECT" CONTENT="sample form">
|
||
|
|
<META NAME="MS.CATEGORY" CONTENT="Internet">
|
||
|
|
<META NAME="MS.LOCALE" CONTENT="EN-US">
|
||
|
|
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=Windows-1252">
|
||
|
|
|
||
|
|
<%
|
||
|
|
' Set Initial Conditions
|
||
|
|
NewQuery = FALSE
|
||
|
|
UseSavedQuery = FALSE
|
||
|
|
SearchString = ""
|
||
|
|
|
||
|
|
QueryForm = Request.ServerVariables("PATH_INFO")
|
||
|
|
|
||
|
|
' Did the user press a SUBMIT button to execute the form? If so get the form variables.
|
||
|
|
if Request.ServerVariables("REQUEST_METHOD") = "POST" then
|
||
|
|
SearchString = Request.Form("SearchString")
|
||
|
|
FreeText = Request.Form("FreeText")
|
||
|
|
' NOTE: this will be true only if the button is actually pushed.
|
||
|
|
if Request.Form("Action") = "Go" then
|
||
|
|
NewQuery = TRUE
|
||
|
|
RankBase=1000
|
||
|
|
end if
|
||
|
|
end if
|
||
|
|
if Request.ServerVariables("REQUEST_METHOD") = "GET" then
|
||
|
|
SearchString = Request.QueryString("qu")
|
||
|
|
FreeText = Request.QueryString("FreeText")
|
||
|
|
FormScope = Request.QueryString("sc")
|
||
|
|
RankBase = Request.QueryString("RankBase")
|
||
|
|
if Request.QueryString("pg") <> "" then
|
||
|
|
NextPageNumber = Request.QueryString("pg")
|
||
|
|
NewQuery = FALSE
|
||
|
|
UseSavedQuery = TRUE
|
||
|
|
else
|
||
|
|
NewQuery = SearchString <> ""
|
||
|
|
end if
|
||
|
|
end if
|
||
|
|
%>
|
||
|
|
|
||
|
|
</HEAD>
|
||
|
|
|
||
|
|
<BODY <%=FormBG%>>
|
||
|
|
|
||
|
|
<TABLE>
|
||
|
|
<TR><TD><A HREF="http://www.microsoft.com/ntserver/search" target="_top"><IMG SRC ="<%=FormLogo%>" VALIGN=MIDDLE ALIGN=LEFT border=0></a></TD></TR>
|
||
|
|
<TR><TD ALIGN="RIGHT"><H3>Sample ASP Search Form</H3></TD></TR>
|
||
|
|
</TABLE>
|
||
|
|
|
||
|
|
<p>
|
||
|
|
|
||
|
|
<FORM ACTION="<%=QueryForm%>" METHOD=POST>
|
||
|
|
<TABLE WIDTH=500>
|
||
|
|
<TR>
|
||
|
|
<TD>Enter your query below:</TD>
|
||
|
|
</TR>
|
||
|
|
<TR>
|
||
|
|
<TD><INPUT TYPE="TEXT" NAME="SearchString" SIZE="65" MAXLENGTH="100" VALUE="<%=SearchString%>"></TD>
|
||
|
|
<TD><INPUT TYPE="SUBMIT" NAME="Action" VALUE="Go"></TD>
|
||
|
|
</TR>
|
||
|
|
<TR>
|
||
|
|
<TD ALIGN="RIGHT"><A HREF="ixtiphlp.htm">Tips for searching</A></TD>
|
||
|
|
</TR>
|
||
|
|
<TR>
|
||
|
|
</TR>
|
||
|
|
<TR>
|
||
|
|
<TD>
|
||
|
|
<INPUT NAME="FreeText" TYPE=CHECKBOX
|
||
|
|
<% if FreeText = "on" then
|
||
|
|
Response.Write(" CHECKED")
|
||
|
|
end if %>>Use <a href="ixtiphlp.htm#FreeTextQueries">Free-Text Query</a>.
|
||
|
|
</TD>
|
||
|
|
</TR>
|
||
|
|
</TABLE>
|
||
|
|
</FORM>
|
||
|
|
|
||
|
|
<BR>
|
||
|
|
|
||
|
|
<%
|
||
|
|
if NewQuery then
|
||
|
|
set Session("Query") = nothing
|
||
|
|
set Session("Recordset") = nothing
|
||
|
|
NextRecordNumber = 1
|
||
|
|
|
||
|
|
' Remove any leading and ending quotes from SearchString
|
||
|
|
|
||
|
|
SrchStrLen = len(SearchString)
|
||
|
|
|
||
|
|
if left(SearchString, 1) = chr(34) then
|
||
|
|
SrchStrLen = SrchStrLen-1
|
||
|
|
SearchString = right(SearchString, SrchStrLen)
|
||
|
|
end if
|
||
|
|
|
||
|
|
if right(SearchString, 1) = chr(34) then
|
||
|
|
SrchStrLen = SrchStrLen-1
|
||
|
|
SearchString = left(SearchString, SrchStrLen)
|
||
|
|
end if
|
||
|
|
|
||
|
|
if FreeText = "on" then
|
||
|
|
CompSearch = "$contents " & chr(34) & SearchString & chr(34)
|
||
|
|
else
|
||
|
|
CompSearch = SearchString
|
||
|
|
end if
|
||
|
|
|
||
|
|
set Q = Server.CreateObject("ixsso.Query")
|
||
|
|
set util = Server.CreateObject("ixsso.Util")
|
||
|
|
|
||
|
|
Q.Query = CompSearch
|
||
|
|
Q.DefineColumn "breedOrigin (DBTYPE_WSTR) = d1b5d3f0-c0b3-11cf-9a92-00a0c908dbf1 breedOrigin"
|
||
|
|
Q.DefineColumn "breedName (DBTYPE_WSTR) = d1b5d3f0-c0b3-11cf-9a92-00a0c908dbf1 breedName"
|
||
|
|
Q.DefineColumn "breedFirstBred (DBTYPE_UI4) = d1b5d3f0-c0b3-11cf-9a92-00a0c908dbf1 breedFirstBred"
|
||
|
|
Q.DefineColumn "breedWeight (DBTYPE_UI4) = d1b5d3f0-c0b3-11cf-9a92-00a0c908dbf1 breedWeight"
|
||
|
|
Q.Columns = "DocTitle, vpath, filename, size, write, characterization, rank, breedOrigin"
|
||
|
|
Q.SortBy = "breedOrigin[d]"
|
||
|
|
Q.MaxRecords = 300
|
||
|
|
|
||
|
|
|
||
|
|
if FormScope <> "\" then
|
||
|
|
util.AddScopeToQuery Q, FormScope, "deep"
|
||
|
|
end if
|
||
|
|
|
||
|
|
if SiteLocale<>"" then
|
||
|
|
Q.LocaleID = util.ISOToLocaleID(SiteLocale)
|
||
|
|
end if
|
||
|
|
|
||
|
|
set RS = Q.CreateRecordSet("nonsequential")
|
||
|
|
|
||
|
|
RS.PageSize = PageSize
|
||
|
|
ActiveQuery = TRUE
|
||
|
|
|
||
|
|
elseif UseSavedQuery then
|
||
|
|
if IsObject( Session("Query") ) And IsObject( Session("RecordSet") ) then
|
||
|
|
set Q = Session("Query")
|
||
|
|
set RS = Session("RecordSet")
|
||
|
|
|
||
|
|
if RS.RecordCount <> -1 and NextPageNumber <> -1 then
|
||
|
|
RS.AbsolutePage = NextPageNumber
|
||
|
|
NextRecordNumber = RS.AbsolutePosition
|
||
|
|
end if
|
||
|
|
|
||
|
|
ActiveQuery = TRUE
|
||
|
|
else
|
||
|
|
Response.Write "ERROR - No saved query"
|
||
|
|
end if
|
||
|
|
end if
|
||
|
|
|
||
|
|
if ActiveQuery then
|
||
|
|
if not RS.EOF then
|
||
|
|
%>
|
||
|
|
|
||
|
|
<p>
|
||
|
|
<HR WIDTH=80% ALIGN=center SIZE=3>
|
||
|
|
<p>
|
||
|
|
|
||
|
|
<%
|
||
|
|
LastRecordOnPage = NextRecordNumber + RS.PageSize - 1
|
||
|
|
CurrentPage = RS.AbsolutePage
|
||
|
|
if RS.RecordCount <> -1 AND RS.RecordCount < LastRecordOnPage then
|
||
|
|
LastRecordOnPage = RS.RecordCount
|
||
|
|
end if
|
||
|
|
|
||
|
|
Response.Write "Documents " & NextRecordNumber & " to " & LastRecordOnPage
|
||
|
|
if RS.RecordCount <> -1 then
|
||
|
|
Response.Write " of " & RS.RecordCount
|
||
|
|
end if
|
||
|
|
Response.Write " matching the query " & chr(34) & "<I>"
|
||
|
|
Response.Write SearchString & "</I>" & chr(34) & ".<P>"
|
||
|
|
%>
|
||
|
|
|
||
|
|
<% if Not RS.EOF and NextRecordNumber <= LastRecordOnPage then%>
|
||
|
|
<table border=0>
|
||
|
|
<colgroup width=105>
|
||
|
|
<% end if %>
|
||
|
|
|
||
|
|
<% Do While Not RS.EOF and NextRecordNumber <= LastRecordOnPage
|
||
|
|
|
||
|
|
' This is the detail portion for Title, Abstract, URL, Size, and
|
||
|
|
' Modification Date.
|
||
|
|
|
||
|
|
' If there is a title, display it, otherwise display the filename.
|
||
|
|
%>
|
||
|
|
<p>
|
||
|
|
|
||
|
|
<% ' Graphically indicate rank of document with list of stars (*'s).
|
||
|
|
|
||
|
|
if NextRecordNumber = 1 then
|
||
|
|
RankBase=RS("rank")
|
||
|
|
end if
|
||
|
|
|
||
|
|
if RankBase>1000 then
|
||
|
|
RankBase=1000
|
||
|
|
elseif RankBase<1 then
|
||
|
|
RankBase=1
|
||
|
|
end if
|
||
|
|
|
||
|
|
NormRank = RS("rank")/RankBase
|
||
|
|
|
||
|
|
if NormRank > 0.80 then
|
||
|
|
stars = "rankbtn5.gif"
|
||
|
|
elseif NormRank > 0.60 then
|
||
|
|
stars = "rankbtn4.gif"
|
||
|
|
elseif NormRank > 0.40 then
|
||
|
|
stars = "rankbtn3.gif"
|
||
|
|
elseif NormRank >.20 then
|
||
|
|
stars = "rankbtn2.gif"
|
||
|
|
else stars = "rankbtn1.gif"
|
||
|
|
|
||
|
|
end if
|
||
|
|
|
||
|
|
%>
|
||
|
|
|
||
|
|
<tr class="RecordTitle">
|
||
|
|
<td align="right" valign=top class="RecordTitle">
|
||
|
|
<%= NextRecordNumber%>.
|
||
|
|
</td>
|
||
|
|
<td><b class="RecordTitle">
|
||
|
|
<%if VarType(RS("DocTitle")) = 1 or RS("DocTitle") = "" then%>
|
||
|
|
<a href="<%=RS("vpath")%>" class="RecordTitle"><%= Server.HTMLEncode( RS("filename") )%></a>
|
||
|
|
<%else%>
|
||
|
|
<a href="<%=RS("vpath")%>" class="RecordTitle"><%= Server.HTMLEncode(RS("DocTitle"))%></a>
|
||
|
|
<%end if%>
|
||
|
|
</b></td>
|
||
|
|
</tr>
|
||
|
|
|
||
|
|
<tr>
|
||
|
|
<td valign=top align=left>
|
||
|
|
<IMG SRC="<%=stars%>">
|
||
|
|
<br>
|
||
|
|
<%
|
||
|
|
' Construct the URL for hit highlighting
|
||
|
|
WebHitsQuery = "CiWebHitsFile=" & Server.URLEncode( RS("vpath") )
|
||
|
|
WebHitsQuery = WebHitsQuery & "&CiRestriction=" & Server.URLEncode( Q.Query )
|
||
|
|
WebHitsQuery = WebHitsQuery & "&CiBeginHilite=" & Server.URLEncode( "<strong class=Hit>" )
|
||
|
|
WebHitsQuery = WebHitsQuery & "&CiEndHilite=" & Server.URLEncode( "</strong>" )
|
||
|
|
WebHitsQuery = WebHitsQuery & "&CiUserParam3=" & QueryForm
|
||
|
|
' WebHitsQuery = WebHitsQuery & "&CiLocale=" & Q.LocaleID
|
||
|
|
%>
|
||
|
|
<a href="oop/qsumrhit.htw?<%= WebHitsQuery %>"><IMG src="hilight.gif" align=left alt="Highlight matching terms in document using Summary mode."> Summary</a>
|
||
|
|
<br>
|
||
|
|
<a href="oop/qfullhit.htw?<%= WebHitsQuery %>&CiHiliteType=Full"><IMG src="hilight.gif" align=left alt="Highlight matching terms in document."> Full</a>
|
||
|
|
</td>
|
||
|
|
<td valign=top>
|
||
|
|
<%if VarType(RS("characterization")) = 8 and RS("characterization") <> "" then%>
|
||
|
|
<b><i>Abstract: </I></b><%= Server.HTMLEncode(RS("characterization"))%>
|
||
|
|
<%end if%>
|
||
|
|
<p>
|
||
|
|
<%if VarType(RS("breedOrigin")) = 8 and RS("breedOrigin") <> "" then%>
|
||
|
|
<b><i>Breed Origin: </i></b><%= Server.HTMLEncode(RS("breedOrigin"))%>
|
||
|
|
<%end if%>
|
||
|
|
<p>
|
||
|
|
<i class="RecordStats"><a href="<%=RS("vpath")%>" class="RecordStats" style="color:blue;">http://<%=Request("server_name")%><%=RS("vpath")%></a>
|
||
|
|
<br><%if RS("size") = "" then%>(size and time unknown)<%else%>size <%=RS("size")%> bytes - <%=RS("write")%> GMT<%end if%></i>
|
||
|
|
</td>
|
||
|
|
</tr>
|
||
|
|
<tr>
|
||
|
|
</tr>
|
||
|
|
|
||
|
|
<%
|
||
|
|
RS.MoveNext
|
||
|
|
NextRecordNumber = NextRecordNumber+1
|
||
|
|
Loop
|
||
|
|
%>
|
||
|
|
|
||
|
|
</table>
|
||
|
|
|
||
|
|
<P><BR>
|
||
|
|
|
||
|
|
<%
|
||
|
|
else ' NOT RS.EOF
|
||
|
|
if NextRecordNumber = 1 then
|
||
|
|
Response.Write "No documents matched the query<P>"
|
||
|
|
else
|
||
|
|
Response.Write "No more documents in the query<P>"
|
||
|
|
end if
|
||
|
|
|
||
|
|
end if ' NOT RS.EOF
|
||
|
|
|
||
|
|
|
||
|
|
if NOT Q.OutOfDate then
|
||
|
|
' If the index is current, display the fact %>
|
||
|
|
<P>
|
||
|
|
<I><B>The index is up to date.</B></I><BR>
|
||
|
|
<%end if
|
||
|
|
|
||
|
|
|
||
|
|
if Q.QueryIncomplete then
|
||
|
|
' If the query was not executed because it needed to enumerate to
|
||
|
|
' resolve the query instead of using the index, but AllowEnumeration
|
||
|
|
' was FALSE, let the user know %>
|
||
|
|
|
||
|
|
<P>
|
||
|
|
<I><B>The query is too expensive to complete.</B></I><BR>
|
||
|
|
<%end if
|
||
|
|
|
||
|
|
|
||
|
|
if Q.QueryTimedOut then
|
||
|
|
' If the query took too long to execute (for example, if too much work
|
||
|
|
' was required to resolve the query), let the user know %>
|
||
|
|
<P>
|
||
|
|
<I><B>The query took too long to complete.</B></I><BR>
|
||
|
|
<%end if%>
|
||
|
|
|
||
|
|
|
||
|
|
<TABLE>
|
||
|
|
|
||
|
|
<%
|
||
|
|
' This is the "previous" button.
|
||
|
|
' This retrieves the previous page of documents for the query.
|
||
|
|
%>
|
||
|
|
|
||
|
|
<%SaveQuery = FALSE%>
|
||
|
|
<%if CurrentPage > 1 and RS.RecordCount <> -1 then %>
|
||
|
|
<td align=left>
|
||
|
|
<form action="<%=QueryForm%>" method="get">
|
||
|
|
<INPUT TYPE="HIDDEN" NAME="qu" VALUE="<%=SearchString%>">
|
||
|
|
<INPUT TYPE="HIDDEN" NAME="FreeText" VALUE="<%=FreeText%>">
|
||
|
|
<INPUT TYPE="HIDDEN" NAME="sc" VALUE="<%=FormScope%>">
|
||
|
|
<INPUT TYPE="HIDDEN" name="pg" VALUE="<%=CurrentPage-1%>" >
|
||
|
|
<INPUT TYPE="HIDDEN" NAME = "RankBase" VALUE="<%=RankBase%>">
|
||
|
|
<input type="submit" value="Previous <%=RS.PageSize%> documents">
|
||
|
|
</form>
|
||
|
|
</td>
|
||
|
|
<%SaveQuery = TRUE%>
|
||
|
|
<%end if%>
|
||
|
|
|
||
|
|
|
||
|
|
<%
|
||
|
|
' This is the "next" button for unsorted queries.
|
||
|
|
' This retrieves the next page of documents for the query.
|
||
|
|
|
||
|
|
if Not RS.EOF then%>
|
||
|
|
<td align=right>
|
||
|
|
<form action="<%=QueryForm%>" method="get">
|
||
|
|
<INPUT TYPE="HIDDEN" NAME="qu" VALUE="<%=SearchString%>">
|
||
|
|
<INPUT TYPE="HIDDEN" NAME="FreeText" VALUE="<%=FreeText%>">
|
||
|
|
<INPUT TYPE="HIDDEN" NAME="sc" VALUE="<%=FormScope%>">
|
||
|
|
<INPUT TYPE="HIDDEN" NAME = "RankBase" VALUE="<%=RankBase%>">
|
||
|
|
<INPUT TYPE="HIDDEN" name="pg" VALUE="<%=CurrentPage+1%>">
|
||
|
|
|
||
|
|
<% NextString = "Next "
|
||
|
|
if RS.RecordCount <> -1 then
|
||
|
|
NextSet = (RS.RecordCount - NextRecordNumber) + 1
|
||
|
|
if NextSet > RS.PageSize then
|
||
|
|
NextSet = RS.PageSize
|
||
|
|
end if
|
||
|
|
NextString = NextString & NextSet & " documents"
|
||
|
|
else
|
||
|
|
NextString = NextString & " page of documents"
|
||
|
|
end if
|
||
|
|
%>
|
||
|
|
<input type="submit" value="<%=NextString%>">
|
||
|
|
</form>
|
||
|
|
</td>
|
||
|
|
<%SaveQuery = TRUE%>
|
||
|
|
<%end if%>
|
||
|
|
|
||
|
|
</TABLE>
|
||
|
|
|
||
|
|
<% ' Display the page number %>
|
||
|
|
|
||
|
|
Page <%=CurrentPage%>
|
||
|
|
<%if RS.PageCount <> -1 then
|
||
|
|
Response.Write " of " & RS.PageCount
|
||
|
|
end if %>
|
||
|
|
|
||
|
|
<%
|
||
|
|
' If either of the previous or back buttons were displayed, save the query
|
||
|
|
' and the recordset in session variables.
|
||
|
|
if SaveQuery then
|
||
|
|
set Session("Query") = Q
|
||
|
|
set Session("RecordSet") = RS
|
||
|
|
else
|
||
|
|
RS.close
|
||
|
|
Set RS = Nothing
|
||
|
|
Set Q = Nothing
|
||
|
|
set Session("Query") = Nothing
|
||
|
|
set Session("RecordSet") = Nothing
|
||
|
|
end if
|
||
|
|
%>
|
||
|
|
<% end if %>
|
||
|
|
|
||
|
|
<!--#include file ="is2foot.inc"-->
|
||
|
|
|
||
|
|
</BODY>
|
||
|
|
</HTML>
|
||
|
|
|