able/windows-nt
1
0
Fork 0
Code Issues Pull requests Projects Releases Wiki Activity
windows-nt/Source/XPSP1/NT/inetsrv/query/admin/ciquery.htm
CryptoAlgo Inc b3cac27891 Add source files
2020-09-26 16:20:57 +08:00

678 lines
20 KiB
HTML
Raw Blame History

<!DOCTYPE HTML PUBLIC "-//IETF//DTD HTML//EN">
<!--------------------------------------------------------------------------
//
// THIS CODE AND INFORMATION IS PROVIDED "AS IS" WITHOUT WARRANTY OF
// ANY KIND, EITHER EXPRESSED OR IMPLIED, INCLUDING BUT NOT LIMITED TO
// THE IMPLIED WARRANTIES OF MERCHANTABILITY AND/OR FITNESS FOR A
// PARTICULAR PURPOSE.
//
// Copyright 1998-2000 Microsoft Corporation. All Rights Reserved.
//
// PROGRAM: Ciquery.htm
//
// PURPOSE: Illustrates use of Dynamic HTML to build a client-side
// query page used to access Indexing Service.
//
// PLATFORM: Windows 2000
//
//-------------------------------------------------------------------------->
<HTML>
<HEAD>
<TITLE>Indexing Services Dynamic HTML Sample</TITLE>
<META NAME="DESCRIPTION" CONTENT="Indexing Services client-side query form">
<META NAME="AUTHOR" CONTENT="Indexing Service Team">
<META NAME="KEYWORDS" CONTENT="Indexing Services, 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=utf-8">
<base target="_blank">
</HEAD>
<BODY OnLoad="Init()" LANGUAGE="VBScript">
<center>
<DIV ID="idTransDiv"
ALIGN=CENTER
STYLE="position:0; top:0; height:0; width:500; filter:revealTrans(duration=3.0, transition=5);">
<H2 id="idHead" STYLE="position:0; visibility:visible; margin-bottom:0;">
<font color=Blue>
Indexing&nbsp;Service Query&nbsp;Form
</font></H2>
</DIV>
</center>
<br>
<!-- This table contains the user-entry form. -->
<div align=center>
<TABLE bgcolor=ffffcc cellpadding=2 cellspacing=3 Border=3 WIDTH=400>
<TR><td>
<div id="QueryHeader"><b><LABEL FOR=SrchStrCtrl NAME="UserSearchString"> </LABEL></b></div>
<INPUT ID="SrchStrCtrl" TYPE="TEXT" NAME="UserSearchString" SIZE="50" MAXLENGTH="100" TABINDEX=1>&nbsp;
<BUTTON TYPE=SUBMIT ID="CmdGo">&nbsp;<FONT SIZE=-1>Search</FONT>&nbsp;</BUTTON>&nbsp;<br>
<INPUT TYPE="RADIO" ID = StdQryButton NAME="radioQueryType" VALUE="0" checked onclick="StandardSelected()">
<LABEL FOR=StdQryButton ID=StdqryButtonId> </LABEL> <br>
<INPUT TYPE="RADIO" ID = AdvQryButton NAME="radioQueryType" VALUE="1" onclick="AdvancedSelected()">
<LABEL FOR=AdvQryButton ID=AdvQryButtonId> </LABEL> <br>
<div align=right> <A HREF="ixqlang.htm" target=_self ID=TipId> </A></div>
<LABEL FOR=SortCtrl ID=SortCtrlId> <b> </b> </LABEL> <SELECT ID = SortCtrl NAME="selectSort" onchange="SortOrderSelected()">
<OPTION SELECTED VALUE="Rank" ID=RankId> ?????
<OPTION VALUE="DocTitle" ID=Title2Id> ?????
<OPTION VALUE="Path" ID=Path2Id> ?????
<OPTION VALUE="Size" ID=Size2Id> ?????
<OPTION VALUE="Write" ID=Write2Id> ?????
</SELECT>
<LABEL FOR=OrderCtrl ID=OrderCtrlId> <b> </b> </LABEL>
<SELECT ID = OrderCtrl NAME="selectOrder" onchange="SortOrderSelected()">
<OPTION SELECTED VALUE="[d]" ID=DescendingId> ?????????????
<OPTION VALUE="[a]" ID=AscendingId> ?????????????
</SELECT>
<P><table ID=idUnfiltered cellspacing=0 cellpadding=0><tr><td> <LABEL ID=UnfilteredListId> </LABEL>&nbsp;
</td><td><INPUT TYPE="button" VALUE="Unfiltered Docs" ID="UnfilteredDocsId" onclick="UnfilteredSelected()"></td></table>
</TD></TR>
</TABLE>
<p>
<HR WIDTH=80% ALIGN=center SIZE=3>
<p>
<!-- A couple of navigation buttons, initially disabled. -->
<a id=JumpPoint name="ResultPart"></a>
<table width=775 ID=TopButt>
<tr><td>
<FORM NAME=Navigation ALIGN=RIGHT>
<INPUT TYPE="BUTTON" NAME="CmdPrevious" VALUE=" ???????? ">
<INPUT TYPE="BUTTON" NAME="CmdNext" VALUE=" ??????? ">
</FORM>
<BR>
<P ID=Counter><EM> </EM>
<BR>
<!--
-- This is the output table. Result rows will by dynamically added, but the header will
-- just be hidden until needed.
-->
</td></td>
</table>
<!-- <br><INPUT TYPE="BUTTON" NAME="SortRank" VALUE="Sort by Ascending Rank"> -->
<P>
<TABLE bgcolor=ffffcc ID=Results COLS=3 CELLSPACING=1 CELLPADDING=3>
<TR bgcolor=99cccc>
<TH> <LABEL ID=SerialId> ?? </LABEL> </TH>
<TH> <LABEL ID=TitleId> ??????? </LABEL> </TH>
<TH> <LABEL ID=SizeId> ??????? </LABEL> </TH>
<TH> <LABEL ID=ModifiedId> ????????? </LABEL> </TH>
<TH> <LABEL ID=PathId> ????? </LABEL> </TH>
</TR>
</TABLE>
<table width=775 ID=BottomButt>
<tr><td>
<br><br>
<FORM NAME=Navigation2 ALIGN=RIGHT>
<INPUT TYPE="BUTTON" NAME="CmdPrevious" VALUE=" ????????? ">
<INPUT TYPE="BUTTON" NAME="CmdNext" VALUE=" ???????? ">
</FORM>
</td></tr>
</table>
</BODY>
<SCRIPT LANGUAGE=VBSCRIPT>
Const L_Title_Text = "Title"
Const L_Size_Text = "Size"
Const L_Modified_Text = "Modified"
Const L_Path_Text = "Path"
Const L_Rank_Text = "Rank"
Const L_StdQryButton_Text = "Standard query (free text)"
Const L_AdvQryButton_Text = "Advanced query"
Const L_SortBy_Text = "Sort by: "
Const L_OrderBy_Text = "Order by: "
Const L_SearchTips_Text = "Tips for searching"
Const L_Ascending_Text = "Ascending"
Const L_Descending_Text = "Descending"
Const L_Previous_Text = "Previous"
Const L_Next_Text = "Next"
Const L_UnfilteredLabel_Text = "To see a list of unfiltered documents click:"
Const L_UnfilteredCmd_Text = "Unfiltered Docs"
Const L_SerialNum_Text = "#"
Const L_Period_Text = "."
DIM RS ' The ADO Recordset. Initially null.
DIM SortBy ' Current sort order
DIM FirstOnPage, LastOnPage ' Keeps track of records being shown
DIM MaxDisplayed ' Max number of results displayed on-screen
DIM machine,catalog
DIM OrigLocation
DIM fUnfiltered ' Unfiltered query was requested.
DIM fFreetext ' Free text query was requested
'
' SubRoutine: Init
'
' Synopsis: Initializes the page. Sets defaults for page-global variables
' and DHTML elements. Initially, no query is active.
'
Private SUB Init()
' Make the heading roll into view
' idHead.style.visibility = "hidden"
' idTransDiv.filters.item(0).apply()
' idTransDiv.filters.item(0).transition = 3
' idHead.style.visibility = "visible"
' idTransDiv.filters(0).play(1.000)
UserSearchString.focus
Navigation.CmdPrevious.Disabled = TRUE
Navigation.CmdNext.Disabled = TRUE
Navigation2.CmdPrevious.Disabled = TRUE
Navigation2.CmdNext.Disabled = TRUE
FirstOnPage = 0
LastOnPage = 0
MaxDisplayed = 25
fUnfiltered = FALSE
SortBy = "Rank[d]"
'Parse the catalog name out of the URL
'No need to localize "catalog", "machine" because they are hidden
'from the user.
'URL syntax is: file://<syspath>/help/ciquery.htm#machine=<machine>,catalog=<catalog>
catPos = InStr(1, Document.Location.Hash, "catalog=", 1)
catPos = catPos + 8
'catalog name is at the end of the string
catalog = Right(Document.Location.Hash, len(Document.Location.Hash) - catPos + 1)
catalog = DecodeToken(catalog)
'Parse the machine name out of the URL
macPos = InStr(1, Document.Location.Hash, "machine=", 1)
macPos = macPos + 8
'machine name is between "machine=" and ",catalog="
commaPos = InStr(macPos, Document.Location.Hash, ",catalog", 1)
machine = Mid(Document.Location.Hash, macPos, commaPos - macPos)
machine = DecodeToken(machine)
StdQryButtonId.InnerText = CStr(L_StdQryButton_Text)
AdvQryButtonId.InnerText = CStr(L_AdvQryButton_Text)
SortCtrlId.InnerText = CStr(L_SortBy_Text)
OrderCtrlId.InnerText = CStr(L_OrderBy_Text)
TipId.InnerText = CStr(L_SearchTips_Text)
DescendingId.InnerText = CStr(L_Descending_Text)
AscendingId.InnerText = CStr(L_Ascending_Text)
UnfilteredListId.InnerText = CStr(L_UnfilteredLabel_Text)
UnfilteredDocsId.InnerText = CStr(L_UnfilteredCmd_Text)
SerialId.InnerText = CStr(L_SerialNum_Text)
TitleId.InnerText = CStr(L_Title_Text)
ModifiedId.InnerText = CStr(L_Modified_Text)
PathId.InnerText = CStr(L_Path_Text)
SizeId.InnerText = CStr(L_Size_Text)
Navigation.CmdPrevious.value = CStr(L_Previous_Text)
Navigation.CmdNext.value = CStr(L_Next_Text)
Navigation2.CmdPrevious.value = CStr(L_Previous_Text)
Navigation2.CmdNext.value = CStr(L_Next_Text)
Document.All.Counter.innerHTML = CStr(L_NoResults_Text)
RankId.InnerText = CStr(L_Rank_Text)
Title2Id.InnerText= CStr(L_Title_Text)
Path2Id.InnerText = CStr(L_Path_Text)
Size2Id.InnerText = CStr(L_Size_Text)
Write2Id.InnerText = CStr(L_Modified_Text)
'Check the state of buttons and init accordingly
IF StdQryButton.Checked THEN
call StandardSelected
ELSE
call AdvancedSelected
end if
HideTable()
HideBottomButt()
END SUB
Const L_Freetext_Text="<LABEL FOR=SrchStrCtrl> <b>Enter your free text query below:</b> </LABEL>"
Const L_Advanced_Text="<LABEL FOR=SrchStrCtrl> <b>Enter your advanced query below:</b> </LABEL>"
'
' SubRoutine: StandardSelected()
'
' Synopsis: Queries will be free-text
'
Private SUB StandardSelected()
Document.All.QueryHeader.innerHTML = CStr(L_Freetext_Text)
fFreetext = TRUE
END SUB
'
' SubRoutine: AdvancedSelected
'
' Synopsis: Allows for advanced queries to be executed
'
Private SUB AdvancedSelected()
Document.All.QueryHeader.innerHTML = CStr(L_Advanced_Text)
fFreetext = FALSE
END SUB
'
' SubRoutine: UnfilteredSelected()
'
' Synopsis: Searches for unfiltered documents
'
Private SUB UnfilteredSelected()
fUnfiltered = TRUE
CmdGo_OnClick()
END SUB
'
' SubRoutine: SortOrderSelected()
'
' Synopsis: Sets the sort order as selected by the user
'
Private SUB SortOrderSelected()
IF StrComp(selectSort.value, "DocTitle") = 0 THEN
SortBy = selectSort.value & selectOrder.value & ",Filename" & selectOrder.value
ELSE
SortBy = selectSort.value & selectOrder.value
END IF
END SUB
'
' SubRoutine: CmdNext_OnClick()
'
' Synposis: Displays next page of query results.
'
Private SUB CmdNext_OnClick()
NextPage()
END SUB
'
' SubRoutine: CmdPrevious_OnClick()
'
' Synposis: Displays previous page of query results.
'
Private SUB CmdPrevious_OnClick()
RS.Move( -MaxDisplayed - LastOnPage + FirstOnPage )
NextPage()
END SUB
Const L_CreationStatus_Text="Creating query object..."
Const L_IssuingStatus_Text="Issuing query..."
'
' SubRoutine: CmdGo_OnClick
'
' Synopsis: Executes query
'
Private SUB CmdGo_OnClick()
ON ERROR RESUME NEXT
'
' Setup Query
'
Window.Status = L_CreationStatus_Text
SET Q = CreateObject("ixsso.Query")
SET U = CreateObject("ixsso.Util")
Q.LocaleID = U.ISOToLocaleID(navigator.userLanguage)
Q.DefineColumn "Unfiltered(DBTYPE_BOOL, 1) = 49691c90-7e17-101a-a91c-08002b2ecda9 7"
Q.Catalog = "query://"+ machine + "/" + catalog
Q.SortBy = SortBy
Q.Columns = "DocTitle, FileName, Path, Write, Size"
Q.Dialect = 2
'
' The default use of the query form should be completely freetext.
' Advanced users can then use all of the features of the query language
' by having the check boxed checked.
'
IF fUnfiltered THEN
CompSearch = "@Unfiltered=TRUE"
fUnfiltered = FALSE
ELSEIF fFreetext = TRUE THEN
CompSearch = "{freetext}" & UserSearchString.value & "{/freetext}"
ELSE
CompSearch = UserSearchString.value
END IF
'
' The query is now set up. Time to execute.
'
IF CompSearch <> "" THEN
Q.Query = CompSearch
' Issue query
Window.Status = L_IssuingStatus_Text
set RS = Q.CreateRecordSet("nonsequential")
Navigation.CmdPrevious.Disabled = TRUE
Navigation.CmdNext.Disabled = TRUE
Navigation2.CmdPrevious.Disabled = TRUE
Navigation2.CmdNext.Disabled = TRUE
HideBottomButt()
IF Err.Number = 0 THEN
NextPage()
ELSE
ReportError Err.Number, Err.Description
Err.Clear()
END IF
END IF
END SUB
'
' SubRoutine: NextPage
'
' Synopsis: Workhorse routine to populate table with results
'
Const L_QueryMatched_Text="Query matched "
Const L_Records_Text=" record(s)"
Const L_NoResults_Text="<EM>No results</EM>"
Const L_NoResultsNoEm_Text="No results"
Const L_PopulatingList_Text="Populating result list (row "
Const L_Of_Text=" of "
Const L_NowShowing_Text=" Now showing "
Const L_To_Text=" to "
Const L_Period1_Text="."
Const L_Period2_Text="."
' working with date format: Change DateSeparator if necessary
' reposition mm (month), dd (day), yyyy (year) without changing the
' the individual tokens.
Const L_DateSeparator_Text="/"
Const L_DateFormat_Text = "mm-dd-yyyy"
Private SUB NextPage
'
' Populate result list. Once this message is displayed, virtually all the time is being
' spent in DHTML and not in query processing.
'
fFirstPage = TRUE
'
' Did we actually get anything back?
'
IF RS.RecordCount = 0 THEN
IF Err.Number = 0 THEN
Document.All.Counter.innerHTML = CStr(L_NoResults_Text)
Window.Status = CStr(L_NoResultsNoEm_Text)
MsgBox CStr(L_NoResultsNoEm_Text)
ELSE
ReportError Err.Number, Err.Description
END IF
JumpPoint.scrollintoview ( FALSE )
FirstOnPage = 0
Navigation.CmdNext.Disabled = TRUE
Navigation.CmdPrevious.Disabled = TRUE
Navigation2.CmdPrevious.Disabled = TRUE
Navigation2.CmdNext.Disabled = TRUE
HideBottomButt()
HideTable()
ELSE
JumpPoint.scrollintoview ( TRUE )
FirstOnPage = RS.AbsolutePosition
LastOnPage = FirstOnPage
Document.All.Counter.innerText = CStr(L_QueryMatched_Text) + CStr(RS.RecordCount) + CStr(L_Records_Text)
ShowTable()
END IF
'
' Loop through the table. For each row, either store values from Recordset or delete
' the row.
'
FOR i = 1 TO MaxDisplayed
Window.Status = CStr(L_PopulatingList_Text) + CStr(i) + CStr(L_Of_Text) + Cstr(MaxDisplayed) + ")"
IF RS.EOF THEN
'
' We hit the end. Just clear any remaining rows and fall out of loop.
'
FOR j = Results.Rows.length - 1 TO i STEP -1
Results.DeleteRow(j)
NEXT
EXIT FOR
ELSE
'
' We may have to add a row...
'
IF i >= Results.Rows.length THEN
Results.InsertRow()
FOR j = 0 TO 4
Results.Rows(i).InsertCell()
NEXT
Results.Rows(i).Cells(0).align = "right"
Results.Rows(i).Cells(2).align = "right"
Results.Rows(i).Cells(3).align = "right"
END IF
' Write record number
Results.Rows(i).Cells(0).innerText = CStr( RS.AbsolutePosition ) + CStr(L_Period_Text)
' Write either title or filename
IF VarType(RS("DocTItle")) = 1 Or RS("DocTItle") = "" THEN
Results.Rows(i).Cells(1).innerHTML = "<A HREF=""file://" & RS("path") & """>" & RS("fIlename") & "</A>"
ELSE
Results.Rows(i).Cells(1).innerHTML = "<A HREF=""file://" & RS("path") & """>" & RS("DocTItle") & "</A>"
END IF
' Size
Results.Rows(i).Cells(2).innerText = RS("SIze")
' Last Modify time
WriteTime = CDate( RS("WrIte") )
Results.Rows(i).Cells(3).innerText = PrintDate( CStr( L_DateFormat_Text), CStr(L_DateSeparator_Text), CStr(Month(WriteTime)), CStr(Day(WriteTime)), CStr(Year(WriteTime) ) )
' Path
Results.Rows(i).Cells(4).innerHTML = "<A HREF=""file://" & RS("path") & """>" & RS("Path") & "</A>"
LastOnPage = LastOnPage + 1
RS.MoveNext
END IF
NEXT
'
' Report result.
'
IF FirstOnPage <> LastOnPage And RS.RecordCount <> 0 THEN
' "Query matched 392 record(s). Now showing 1 to 25."
Document.All.Counter.innerHTML = CStr(L_QueryMatched_Text) + CStr(RS.RecordCount) + CStr(L_Records_Text) + CStr(L_Period1_Text) + CStr(L_NowShowing_Text) + CStr(FirstOnPage) + CStr(L_To_Text) + CStr(LastOnPage-1) + CStr(L_Period2_Text)
END IF
'
' Enable Previous/Next as appropriate
'
IF FirstOnPage <= 1 THEN
Navigation.CmdPrevious.Disabled = TRUE
Navigation2.CmdPrevious.Disabled = TRUE
ELSE
Navigation.CmdPrevious.Disabled = FALSE
Navigation2.CmdPrevious.Disabled = FALSE
END IF
IF RS.EOF THEN
Navigation.CmdNext.Disabled = TRUE
Navigation2.CmdNext.Disabled = TRUE
UserSearchString.focus
ELSE
Navigation.CmdNext.Disabled = FALSE
Navigation.CmdNext.focus
Navigation2.CmdNext.Disabled = FALSE
END IF
IF Navigation2.CmdPrevious.Disabled = FALSE OR Navigation2.CmdNext.Disabled = FALSE THEN
ShowBottomButt()
END IF
'
' Done!
'
Window.Status = Window.DefaultStatus
END SUB
'
' SubRoutine: HideBottomButt
'
' Synopsis: Hides the bottom button table from the user's view.
'
SUB HideBottomButt()
BottomButt.Rows(0).Cells(0).style.visibility = "hidden"
BottomButt.Border = 0
BottomButt.Rules = ""
FOR i = BottomButt.Rows.length - 1 TO 1 STEP -1
BottomButt.DeleteRow(i)
NEXT
END SUB
'
' SubRoutine: ShowBottomButt
'
' Synopsis: Shows the bottom button table from the user's view.
'
SUB ShowBottomButt()
BottomButt.Rows(0).Cells(0).style.visibility = "visible"
BottomButt.Border = 0
BottomButt.Rules = ""
END SUB
'
' SubRoutine: HideTable
'
' Synopsis: Hides the table from the user's view.
'
SUB HideTable()
Results.Rows(0).Cells(0).style.visibility = "hidden"
Results.Rows(0).Cells(1).style.visibility = "hidden"
Results.Rows(0).Cells(2).style.visibility = "hidden"
Results.Rows(0).Cells(3).style.visibility = "hidden"
Results.Rows(0).Cells(4).style.visibility = "hidden"
Results.Border = 0
Results.Rules = ""
FOR i = Results.Rows.length - 1 TO 1 STEP -1
Results.DeleteRow(i)
NEXT
END SUB
'
' SubRoutine: ShowTable
'
' Synopsis: Makes the result table visible.
'
SUB ShowTable()
Results.Rows(0).Cells(0).style.visibility = "visible"
Results.Rows(0).Cells(1).style.visibility = "visible"
Results.Rows(0).Cells(2).style.visibility = "visible"
Results.Rows(0).Cells(3).style.visibility = "visible"
Results.Rows(0).Cells(4).style.visibility = "visible"
Results.Border = 1
Results.Rules = "cols"
END SUB
FUNCTION DecodeToken( Token )
'Replace all escaped characters with their original characters
'%20 --> ' '
'Characters that must be encoded include any characters that have no
'corresponding graphic character in the US-ASCII coded character set
'(hexadecimal 80-FF, which are not used in the US-ASCII coded character
'set, and hexadecimal 00-1F and 7F, which are control characters), blank
'spaces, "%" (which is used to encode other characters), and unsafe
'characters (<, >, ", #, {, }, |, \, ^, ~, [, ], and ').
' This doesn't cover all possible cases, just the SPACE, which is
' the most common case.
Token = Replace(Token, "%20", " ")
DecodeToken = Token
END FUNCTION
'
' SubRoutine: ReportError
'
' Synopsis: Clears table and reports error.
'
' Arguments: [ErrNo] -- Error to report
'
Const L_RedError_Text="<FONT color=red><EM><B>Error "
SUB ReportError( ErrNo, ErrDesc )
HideTable()
Window.Status = Err.Description
MsgBox Err.Description
UserSearchString.focus
Document.All.Counter.innerHTML = CStr(L_RedError_Text) + Hex(Err.Number) + " - " + Err.Description + "</B></EM></FONT>"
END SUB
</SCRIPT>
<SCRIPT LANGUAGE="JavaScript">
function PrintDate(DateFormat, DateSeparatorText, Month, Day, Year)
{
var FormattedDate
FormattedDate = DateFormat.replace("mm", Month)
FormattedDate = FormattedDate.replace("dd", Day)
FormattedDate = FormattedDate.replace("yyyy", Year)
FormattedDate = FormattedDate.replace("-", DateSeparatorText)
FormattedDate = FormattedDate.replace("-", DateSeparatorText)
return FormattedDate
}
</SCRIPT>
</HTML>
Reference in a new issue View git blame Copy permalink