DFilter.asp
<% ' Copyright 1998-1999 Microsoft Corporation. All rights reserved. %>
<!-- SEARCH MENU DIV -->
<div STYLE="HEIGHT: 95%; LEFT:5px; POSITION: absolute; TOP: 30px; WIDTH: 170px">
<span STYLE="HEIGHT: 24px; LEFT: 2px; POSITION: absolute; TOP: 120px; WIDTH: 120px">
<input name="txtWord" style="HEIGHT: 20px; WIDTH: 109px"></span>
<span class="UpButton" title="Start Search" onClick="DoSearch()"
OnMouseDown="javascript:push()" OnMouseUp="javascript:unPush()"
style="TOP:118px;LEFT=125px">Search</span>
<span style="FONT-FAMILY: Verdana, Arial; FONT-SIZE: 8 pt; HEIGHT: 42px; LEFT: 4px; POSITION: absolute; TOP: 148px; WIDTH: 193px">
<input onClick="takeFocus()" TYPE="Radio" NAME="Type" ID="cbTitle" VALUE="Title" CHECKED><label FOR="cbTitle" TITLE="Search By Title">Title</label>
<input onClick="takeFocus()" TYPE="Radio" NAME="Type" ID="cbAuthor" VALUE="Author"><label FOR="cbAuthor" TITLE="Search By Author">Author</label>
<input onClick="takeFocus()" TYPE="Radio" NAME="Type" ID="cbSubject" VALUE="Subject"><label FOR="cbSubject" TITLE="Search By Subject">Subject</label><br>
Combine keywords using <strong>AND</strong>, <strong>OR</strong>, or <strong>NEAR</strong>.
</span>
<!-- INCLUDE COLLECTION DIV -->
<span CLASS="Item" STYLE="LEFT: 5px; TOP: 210px">Include...<br>
<input onClick="takeFocus()" NAME="cbAV" ID="cbAV" TYPE="checkbox" CHECKED>
<img onClick="flipSelection(cbAV)" src="../images/iconav.gif" width=12 height=12>
<LABEL FOR="cbAV" TITLE="Include Audio and Video">Audio/Visual</LABEL>
<br>
<input onClick="takeFocus()" NAME="cbBook" ID="cbBook" TYPE="checkbox" CHECKED>
<img onClick="flipSelection(cbBook)" src="../images/iconbook.gif" width=12 height=12>
<LABEL FOR="cbBook" TITLE="Include Books (Hard/Softcover)">Books</LABEL>
<br>
<input onClick="takeFocus()" NAME="cbPrd" ID="cbPrd" TYPE="checkbox" CHECKED>
<img onClick="flipSelection(cbPrd)" src="../images/iconprd.gif" width=12 height=12>
<LABEL FOR="cbPrd" TITLE="Include Magazines and Journals">Periodicals</LABEL>
<br>
<input onClick="takeFocus()" NAME="cbRef" ID="cbRef" TYPE="checkbox" CHECKED>
<img onClick="flipSelection(cbRef)" src="../images/iconref.gif" width=12 height=12>
<LABEL FOR="cbRef" TITLE="Include Non-Circulating Materials">Reference</LABEL>
<br>
<input onClick="takeFocus()" NAME="cbSoft" ID="cbSoft" TYPE="checkbox" CHECKED>
<img onClick="flipSelection(cbSoft)" src="../images/iconsoft.gif" width=12 height=12>
<LABEL FOR="cbSoft" TITLE="Include Computer Programs">Software</LABEL>
<br>
</span>
<div CLASS="BUTTON" ID="selectAll" onClick="selection(True)" STYLE="DISPLAY: none; TOP: 335px" TITLE="Select All" >Select All</div>
<div CLASS="deselButton" ID="selectNone" onClick="selection(False)" STYLE="TOP: 335px" TITLE="Deselect All">Deselect All</div>
</div>
<script language=VBScript>
Sub push()
window.event.srcElement.className = "DownButton"
End Sub
Sub unPush()
window.event.srcElement.className = "UpButton"
End Sub
'--- Trap ENTER key and invoke SUBMIT function
Sub document_onkeypress()
If Window.Event.keyCode = 13 Then
DoSearch()
End If
End Sub
Sub DoSearch()
Dim strSearch,optSearch,passString,newSearch
strSearch = Trim(txtWord.value)
If strSearch <> "" Then
If setCheckboxValues Then
nLastSearch = cSearch
optSearch = ChooseTypeOfSearch()
newSearch = "Yes"
passString = "search.asp?currentword=" & escape(strSearch) & _
"&optSearch=" & optSearch & "&newSearch=" & newSearch & _
"&cbAV=" & cbAVVal & "&cbBook=" & cbBookVal & "&cbPrd=" & _
cbPrdVal & "&cbRef=" & cbRefVal & "&cbSoft=" & cbSoftVal
document.all.ifControl.src = passString
Else
MsgBox "You must include at least one item type to search."
End If
Else
MsgBox "You must enter a search string"
txtWord.Focus
End If
End Sub
</script>
<script LANGUAGE=VBScript>
Dim cbAVVal,cbBookVal,cbPrdVal,cbRefVal,cbSoftVal
'--- Called as buttons are pressed, and returns focus to textbox
Sub TakeFocus()
Call checkSelection
txtWord.Focus
End Sub
'--- Changes the button style if all selections are made
Sub checkSelection()
If (cbAV.checked = FALSE OR _
cbBook.checked = FALSE OR _
cbPrd.checked = FALSE OR _
cbRef.checked = FALSE OR _
cbSoft.checked = FALSE) Then
selectNone.style.display = "none"
selectAll.style.display = ""
Else
selectAll.style.display = "none"
selectNone.style.display = ""
End If
End Sub
'--- Changes the status of a single checkbox
Sub flipSelection(oSel)
oSel.checked = Not oSel.checked
Call TakeFocus
End Sub
'--- Selects everything as a group to on or off
Sub Selection(bSel)
cbAV.checked = bSel
cbBook.checked = bSel
cbPrd.checked = bSel
cbRef.checked = bSel
cbSoft.checked = bSel
' Change the button style by switching the display style
If bSel Then
selectAll.style.display = "none"
selectNone.style.display = ""
Else
selectNone.style.display = "none"
selectAll.style.display = ""
End If
txtWord.Focus
End Sub
</script>
<script LANGUAGE=VBScript>
'--- IIf (Inline If) function is not available in VBS, so we reproduce it here
Private Function IIf(ByVal bcase,ByVal btrue,ByVal bFalse)
If (bCase) Then
IIf = bTrue
Else
IIf = bFalse
End If
End Function
'--- Functions used to store and retrieve checkbox state to and from the URL
Function setCheckBoxValues()
cbAVVal = IIf(cbAV.checked,1,0)
cbBookVal = IIf(cbBook.checked,1,0)
cbPrdVal = IIf(cbPrd.checked,1,0)
cbRefVal = IIf(cbRef.checked,1,0)
cbSoftVal = IIf(cbsoft.checked,1,0)
' make sure at least one include value is checked
If (cbAVVal + cbBookVal + cbPrdVal + cbRefVal + cbSoftVal = 0) Then
setCheckBoxValues = False
Else
setCheckBoxValues = True
End If
End Function
Sub SetCheckBoxes(ByVal vAV, ByVal vBook, ByVal vPrd, ByVal vRef, ByVal vSoft)
cbAV.checked = IIf(vAV,True,False)
cbBook.checked = IIf(vBook,True,False)
cbPrd.checked = IIf(vPrd,True,False)
cbRef.checked = IIf(vRef,True,False)
cbSoft.checked = IIf(vSoft,True,False)
End Sub
</script>
<script LANGUAGE=VBScript>
'--- Choose option from checked radio button
Function ChooseTypeOfSearch()
Dim optSearch
If (cbTitle.checked = True) Then
optSearch = 1
ElseIf (cbAuthor.checked = True) Then
optSearch = 2
Else
optSearch = 3
End If
' set return value
ChooseTypeOfSearch = optSearch
End Function
</script>