<%
'Read in all the search words into one variable
strSearchWords = Trim(Request.QueryString("search"))
'Read in all the search words into one variable
strSearchWords = Trim(Request.QueryString("search"))
'If the site is in English then use the server HTML encode method
If blnEnglishLanguage = True Then
'Replace any HTML tags with the HTML codes for the same characters (stops people entering HTML tags)
strSearchWords = Server.HTMLEncode(strSearchWords)
'If the site is not english just change the script tags
Else
'Just replace the script tag <> with HTML encoded < and >
strSearchWords = Replace(strSearchWords, "<", "<", 1, -1, 1)
strSearchWords = Replace(strSearchWords, ">", ">", 1, -1, 1)
End If
'Slit each word to be searched up and place in an array
sarySearchWord = Split(Trim(strSearchWords), " ")
'Read the file number to show from
intFileNum = CInt(Request.QueryString("FileNumPosition"))
'Set the number of files shown so far to the file number read in above
intNumFilesShown = intFileNum
'Create the file system object
Set fsoObject = Server.CreateObject("Scripting.FileSystemObject")
'If there is no words entered by the user to search for then dont carryout the file search routine
If NOT Request.QueryString("search") = "" Then
'Get the path and the root folder to be searched
Set fldObject = fsoObject.GetFolder(Server.MapPath("./"))
'Read in the server path to this ASP script
strServerPath = fldObject.Path & "\"
'Set to true as this is searching the root directory
blnIsRoot = True
'Call the search sub prcedure
Call SearchFile(fldObject)
'Reset server variables
Set fsoObject = Nothing
Set fldObject = Nothing
'Call the Bubble Sort procedure to sort the results into highest matches first
Call SortResultsByNumMatches(sarySearchResults, intTotalFilesFound)
'Display the HTML table with the results status of the search or what type of search it is
Response.Write vbCrLf & " "
Response.Write vbCrLf & " "
'Display that there where no matching records found
If blnSearchResultsFound = False Then
Response.Write vbCrLf & " Searched the site for " & strSearchWords & ". Sorry, no results found. | "
'Else Search went OK so display how many records found
Else
Response.Write vbCrLf & " Searched the site for " & strSearchWords & ". Displaying Results " & intFileNum + 1 & " - " & intNumFilesShown & " of " & intTotalFilesFound & ". | "
End If
'Close the HTML table with the search status
Response.Write vbCrLf & " "
Response.Write vbCrLf & " "
'HTML table to display the search results or an error if there are no results
Response.Write vbCrLf & " "
Response.Write vbCrLf & " "
Response.Write vbCrLf & " "
'If no results are found then display an error message
If blnSearchResultsFound = False Then
'Write HTML displaying the error
Response.Write vbCrLf & " "
Response.Write vbCrLf & " Your Search - " & strSearchWords & " - did not match any files on this site."
Response.Write vbCrLf & "
"
Response.Write vbCrLf & " Suggestions:"
Response.Write vbCrLf & " "
Response.Write vbCrLf & " - Make sure all words are spelled correctly.
- Try different keywords.
- Try more general keywords.
- Try fewer keywords.
"
'Else display the results
Else
'Loop round to display each result within the search results array
For intDisplayResultsLoopCounter = (intFileNum + 1) to intNumFilesShown
Response.Write vbCrLf & " "
Response.Write vbCrLf & " " & sarySearchResults(intDisplayResultsLoopCounter,1)
Response.Write vbCrLf & " "
Next
End If
'Close the HTML table displaying the results
Response.Write vbCrLf & " | "
Response.Write vbCrLf & " "
Response.Write vbCrLf & " "
End If
'Display an HTML table with links to the other search results
If intTotalFilesFound > intRecordsPerPage then
'Display an HTML table with links to the other search results
Response.Write vbCrLf & " "
Response.Write vbCrLf & " "
Response.Write vbCrLf & " "
Response.Write vbCrLf & " "
Response.Write vbCrLf & " "
Response.Write vbCrLf & " "
Response.Write vbCrLf & " "
Response.Write vbCrLf & " Results Page: "
'If the page number is higher than page 1 then display a back link
If intNumFilesShown > intRecordsPerPage Then
Response.Write vbCrLf & " << Prev "
End If
'If there are more pages to display then display links to all the search results pages
If intTotalFilesFound > intRecordsPerPage Then
'Loop to diplay a hyper-link to each page in the search results
For intPageLinkLoopCounter = 1 to CInt((intTotalFilesFound / intRecordsPerPage) + 0.5)
'If the page to be linked to is the page displayed then don't make it a hyper-link
If intFileNum = (intPageLinkLoopCounter * intRecordsPerPage) - intRecordsPerPage Then
Response.Write vbCrLf & " " & intPageLinkLoopCounter
Else
Response.Write vbCrLf & " " & intPageLinkLoopCounter & " "
End If
Next
End If
'If it is Not the last of the search results than display a next link
If intTotalFilesFound > intNumFilesShown then
Response.Write vbCrLf & " Next >>"
End If
'Finsh HTML the table
Response.Write vbCrLf & " | "
Response.Write vbCrLf & " "
Response.Write vbCrLf & " "
Response.Write vbCrLf & " | "
Response.Write vbCrLf & " "
Response.Write vbCrLf & " "
End If
%>
Searched
<% = intTotalFilesSearched %>
reviews in total. |
|
|
|
|