<% option explicit
'version 1.1 12-10-07 em.
' Search scripts
' Written by C Maunder (cmaunder@mail.com)
' www.codeproject.com
%>
Search This Learning Module
<%
'/////////////////////////////////////////////////////////////////////////////////
'// Initialisation
' Declare variables.
'Response.Write Request.ServerVariables("PATH_TRANSLATED")
dim target, firstRow, rowCount
' Get the request parameters.
target = Request("target") ' The search request
firstRow = Request("fr") ' First row of results to display
rowCount = Request("rc") ' Record Count - number of rows to show
' Set default values if none found
if firstRow = "" or not IsNumeric(firstRow) Then
firstRow = 1
else
firstRow = CInt(firstRow)
End If
if rowCount = "" or not IsNumeric(rowCount) Then
rowCount = 50
else
rowCount = CInt(rowCount)
End If
Dim ScriptName, ServerName
ScriptName = Request.ServerVariables("SCRIPT_NAME")
ServerName = Request.ServerVariables("SERVER_NAME")
' Construct base URL for navigation buttons
dim URL
URL = ScriptName & "?target=" & Server.URLEncode(target)
URL = URL & "&rc=" & Server.URLEncode(rowCount)
'/////////////////////////////////////////////////////////////////////////////////
'// The search form
%>
<%
'Prabha 3/16/07 --current folder stuff
dim str0, str1, str2, str3, str4, folderarray, lastone, thisfolder
dim intfind,intfind2, intfind3
str0 = request.ServerVariables("url")
'response.write "str0 is " & str0 & "
"
intfind=instr(str0, "/includes/search.asp") 'find the folder before this
if intfind > 0 then' if exists
thisfolder=left(str0,intfind-1) 'get folder path
intfind2=instrrev(thisfolder,"/modules/") 'find the beginning of the folder from the end
intfind3=instr(thisfolder,"/modules/") 'find the beginning of the folder
thisfolder=mid(thisfolder,intfind3+9,len(thisfolder)-intfind2+1) '+9 is for /modules/
' response.Write("thisfolder is " & thisfolder) & "
"
' response.write("Server.MapPath"& Server.MapPath("/quiz/cbtlib/modules/"& thisfolder))
end if
'end PAb
'folderarray=Split(str0, "/")
'lastone = UBound(folderarray)-2
'thisfolder = folderarray(lastone)
'response.write "folder is " & thisfolder
DoSearch target
'/////////////////////////////////////////////////////////////////////////////////
'// Perform the search
sub DoSearch(target)
on error resume next
if target <> "" then
dim strQuery
' strQuery = "$contents " & target ' for free text search
' strQuery = "((#filename *.htm) OR (#filename *.swf) OR (#filename *.html) OR (#filename *doc)) AND (" & target & ")" '&_
'strQuery = "((NOT #vpath *\_notes*) AND (NOT #vpath *\js*) AND (NOT #vpath *\cbtlibdev*) AND (NOT #vpath *\css*) AND " &_
strQuery = "((NOT #vpath *\_notes*) AND (NOT #vpath *\js*) AND (NOT #vpath *\css*) AND " &_
"(NOT #vpath *\z_old*) AND (NOT #vpath *\includes*) AND (NOT #vpath *\archived*) AND (NOT #vpath *\media*) )" &_
" AND ((#filename *.htm) )" &_
" AND (" & target & ")"
'dim strQuerytest
'strQuerytest = "(" & target & ")"
'dim strQueryLocal
' strQueryLocal = "((#vpath " & Server.MapPath(".") & ") AND (NOT #vpath *\_notes*) AND (NOT #vpath *\js*) AND (NOT #vpath *\css*) AND " &_
' "(NOT #vpath *\z_old*) AND (NOT #vpath *\includes*))" &_
' " AND ((#filename *.htm) OR (#filename *.swf) OR (#filename *.html) OR (#filename *doc))" &_
' " AND (" & target & ")"
'strQueryLocal = "(" & target & ")"
' strQuery = "((#filename *.htm) OR (#filename *.swf) OR (#filename *.html) OR (#filename *doc)) AND (" & target & ")" &_
' "(NOT #vpath *\_notes*) AND (NOT #vpath *\js*) AND " &_
' "(NOT #vpath *\css*) AND (NOT #vpath *\z_old*) AND " &_
' "(NOT #vpath *\includes*) "
' "(" & target & ")"
'response.write("
" & "queryloc is " & strQueryLocal & "
" )
' Create the Index Server query object, setting the columns, the sort to
' descending, the max records to 300, and the query string to the given
' target. Note that the query string specifies, with NOT and the
' #vpath operators, that any files in the *\_vti path, should be excluded.
' (_vti* directories contain FrontPage Extension files, and we don't want
' users browsing them.)
' response.write(strQuery);
dim ixQuery ' Index Server query object.
set ixQuery = Server.CreateObject("ixsso.Query")
if (Err.description <> "") Then
Response.Write ("Query object Error: " & Err.description & ".
" & vbCRLF)
Exit sub
end if
ixQuery.Columns = "doctitle, path, vpath, filename, size, write, characterization, rank"
ixQuery.SortBy = "rank[d], doctitle"
ixQuery.MaxRecords = 300
ixQuery.Query = strQuery
ixQuery.Catalog = "Web" ' Specify your catalog here if it's not the default
' Create a search utility object to allow us to specify the search type as 'deep',
' meaning it will search recursively down through the directories
dim util
set util = Server.CreateObject("ixsso.Util")
util.AddScopeToQuery ixQuery, Server.MapPath("/quiz/cbtlib/modules/"& thisfolder), "deep"
util.AddScopeToQuery ixQuery, Server.MapPath("/test/cbtlibdev/modules/"& thisfolder), "deep"
if (Err.description <> "") Then
Response.Write ("Search Utility Error: " & Err.description & ".
" & vbCRLF)
Exit sub
end if
' Run the query (i.e. create the recordset).
dim queryRS ' Query recordset.
set queryRS = ixQuery.CreateRecordSet("nonsequential")
' Check the query result. If it timed out or return no records, then show
' an appropriate message. Otherwise, show the hits.
if (Err.description <> "") Then
Response.Write ("Search Recordset Error: " & Err.description & ".
" & vbCRLF)
Exit sub
Else
if queryRS is Nothing Then
Response.Write ("Query returned no matches.
" & vbCRLF)
elseif (ixQuery.QueryTimedOut) then
Response.Write ("Error: " & timedOut_Text & ".
" & vbCRLF)
elseif (queryRS.EOF or queryRS.BOF or queryRS.RecordCount <= 0) then
Response.Write ("No matches found.
" & vbCRLF)
else
queryRS.PageSize = rowCount
call showHits(queryRS)
if (Err.number <> 0) Then
Response.Write ("Record Display Error: " & Err.description & ".
" & vbCRLF)
End If
end if
End If
' Clean up
queryRS.close
set queryRS = nothing
set ixQuery = nothing
set util = nothing
End if
end Sub
' showHits(): Displays the query hits from the query recordset.
'
sub showHits(queryRS)
dim recordNumber ' record number
dim docTitle ' document title
dim endRow ' last row being displayed
dim prevRow ' row to display for "prev" option
dim nextRow ' row to display for "next" option
dim lastRow ' row to display for "last" option
dim remainder ' remainder (used to determine if last page is short)
dim recordCount ' numner of records returned
recordCount = queryRS.RecordCount
if firstRow > recordCount Then firstRow = 1
endRow = firstRow + RowCount-1 ' Last row on page to show
if endRow > recordCount Then endRow = recordCount
prevRow = firstRow - RowCount ' Start of previous page's rows
if PrevRow < 1 Then PrevRow = 1
nextRow = endRow + 1 ' Start of next pages rows. May be > CommentCount
remainder = recordCount mod RowCount
if remainder = 0 Then
lastRow = recordCount - RowCount + 1
else
lastRow = recordCount - remainder + 1
End If
if lastRow < 1 Then lastRow = 1 ' Start of last pages rows
' Go to the top of the record set, then move forward to the record that
' corresponds to the first row.
queryRS.MoveFirst()
if (firstRow > 1) then
queryRS.Move(CInt(firstRow) - 1)
end if
' Show the summary info.: # of records found and range showing.
%>
| Found: <%=queryRS.RecordCount%> Showing: <%=firstRow%> - <%=endRow%> |
<% if firstRow <> "1" Then %>
">First |
<% Else %>
First |
<% End If %>
<% if firstRow <> "1" Then %>
Prev |
<% Else %>
Prev |
<% End If %>
<% if firstRow + RowCount <= recordCount Then %>
Next |
<% Else %>
Next |
<% End If %>
<% if firstRow + RowCount <= recordCount Then %>
Last
<% Else %>
Last
<% End If %>
|
|
| |
<%
' Show the records.
recordNumber = firstRow
do while ((not queryRS.EOF) and (recordNumber <= endRow))
' Get the document title. If it's blank, set it to "Untitled".
docTitle = queryRS("doctitle")
if docTitle = "" then docTitle = "Untitled"
' Show the record #, link to the document, URL, and characterization.
Response.Write ""
Response.Write "| " & recordNumber & ". | "
Response.Write ""
Response.Write "" & queryRS("filename") &"
"'docTitle &"
"
Response.Write Server.HTMLEncode(queryRS("characterization"))
Response.Write "URL: http://" & ServerName & queryRS("vpath") & " "
Response.Write " | "
Response.Write "
"
recordNumber = recordNumber + 1
queryRS.MoveNext()
loop
' Display the navigation links.
%>
| |
|
<% if firstRow <> "1" Then %>
">First |
<% Else %>
First |
<% End If %>
<% if firstRow <> "1" Then %>
Prev |
<% Else %>
Prev |
<% End If %>
<% if firstRow + RowCount <= recordCount Then %>
Next |
<% Else %>
Next |
<% End If %>
<% if firstRow + RowCount <= recordCount Then %>
Last
<% Else %>
Last
<% End If %>
|
<% end sub %>