<% Option Explicit %> <% Response.Buffer = True 'Dimension variables Dim rsSearchResults 'database Recordset Variable Dim intRecordPositionPageNum 'Holds the record position Dim intRecordLoopCounter 'Loop counter for displaying the database records Dim lngTotalRecordsFound 'Holds the total number of records in the database Dim lngTotalNumPages 'holds the total number of pages in the database Dim intLinkPageNum 'Holds the page number to be linked to Dim intLoopCounter 'Holds the loop counter number Dim sarySearchWord 'Holds the keywords for the URL Dim strSearchKeywords 'Holds the keywords to be searched Dim intSQLLoopCounter 'Loop counter for the loop for the sql query Dim intSearchWordLength 'Holds the length of the word to be searched Dim blnSearchWordLenthOK 'Boolean set to false if the search word length is not OK Dim intRecordDisplayFrom 'Holds the number of the search result that the page is displayed from Dim intRecordDisplayedTo 'Holds the number of the search result that the page is displayed to 'If this is the first time the page is displayed then the page position is set to page 1 If Request.QueryString("PagePosition") = "" Then intRecordPositionPageNum = 1 'Else the page has been displayed before so the page postion is set to the Record Position number Else intRecordPositionPageNum = CInt(Request.QueryString("PagePosition")) End If 'Read in all the search words into one variable strSearchKeywords = Trim(Request.QueryString("search")) 'If the use has not entered a value then let the search words variable contain a space (chr10) If strSearchKeywords = "" Then strSearchKeywords = chr(10) 'Replace any less than or greater than signs with the HTML equivalent (stops people entering HTML tags) strSearchKeywords = Replace(strSearchKeywords, "<", "<") strSearchKeywords = Replace(strSearchKeywords, ">", ">") strSearchKeywords = Replace(strSearchKeywords, "'", "''") 'Read in the search words to be searched sarySearchWord = Split(Trim(strSearchKeywords), " ") 'Return the tow '' back to one' for displaying on the screen strSearchKeywords = Replace(strSearchKeywords, "''", "'") 'Initalise the word search length variable blnSearchWordLenthOK = True 'Loop round to check that each word to be searched has more than the minimum word length to be searched For intLoopCounter = 0 To UBound(sarySearchWord) 'Initialise the intSearchWordLength variable with the length of the word to be searched intSearchWordLength = Len(sarySearchWord(intLoopCounter)) 'If the word length to be searched is less than or equal to min word length then set the blnWordLegthOK to false If intSearchWordLength <= intMinuiumSearchWordLength Then blnSearchWordLenthOK = False End If Next 'Create a recordset object Set rsSearchResults = Server.CreateObject("ADODB.Recordset") 'Initalise the strSQL variable with an SQL statement to query the database strSQL = "SELECT tblWebsites.* FROM tblWebsites " 'Get the mode to decide how we are going to buid the SQL Query Select Case Request.QueryString("mode") 'If the user has selected to search any words then intalise the strSQL statement to search for any words in the database Case "anywords" 'Search for the first search word in the URL titles strSQL = strSQL & "WHERE Title LIKE '%" & sarySearchWord(0) & "%'" 'Loop to search for each search word entered by the user For intSQLLoopCounter = 0 To UBound(sarySearchWord) strSQL = strSQL & " OR Title LIKE '%" & sarySearchWord(intSQLLoopCounter) & "%'" strSQL = strSQL & " OR Keywords LIKE '%" & sarySearchWord(intSQLLoopCounter) & "%'" strSQL = strSQL & " OR Description LIKE '%" & sarySearchWord(intSQLLoopCounter) & "%'" Next 'Order the search results by the number of click through hits decending (most popular sites first) strSQL = strSQL & " ORDER By Rating DESC, No_of_ratings DESC, Hits DESC;" 'If the user has selected to search for all words then intalise the strSQL statement to search for entries containing all the search words Case "allwords" 'Search for the first word in the URL titles strSQL = strSQL & "WHERE (Title LIKE '%" & sarySearchWord(0) & "%'" 'Loop to search the URL titles for each word to be searched For intSQLLoopCounter = 1 To UBound(sarySearchWord) strSQL = strSQL & " AND Title LIKE '%" & sarySearchWord(intSQLLoopCounter) & "%'" Next 'OR if the search words are in the keywords strSQL = strSQL & ") OR (Keywords LIKE '%" & sarySearchWord(0) & "%'" 'Loop to search the URL keywords for each word to be searched For intSQLLoopCounter = 1 To UBound(sarySearchWord) strSQL = strSQL & " AND Keywords LIKE '%" & sarySearchWord(intSQLLoopCounter) & "%'" Next 'Or if the search words are in the title strSQL = strSQL & ") OR (Description LIKE '%" & sarySearchWord(0) & "%'" 'Loop to search the URL description for each word to be searched For intSQLLoopCounter = 1 To UBound(sarySearchWord) strSQL = strSQL & " AND Description LIKE '%" & sarySearchWord(intSQLLoopCounter) & "%'" Next 'Order the search results by the number of click through hits decending (most popular sites first) strSQL = strSQL & ") ORDER By Rating DESC, No_of_ratings DESC, Hits DESC;" Case "category" 'Search for the first search word in the URL titles strSQL = strSQL & "WHERE (Title LIKE '%" & sarySearchWord(0) & "%'" 'Loop to search for each search word entered by the user For intSQLLoopCounter = 0 To UBound(sarySearchWord) strSQL = strSQL & " OR Title LIKE '%" & sarySearchWord(intSQLLoopCounter) & "%'" strSQL = strSQL & " OR Keywords LIKE '%" & sarySearchWord(intSQLLoopCounter) & "%'" strSQL = strSQL & " OR Description LIKE '%" & sarySearchWord(intSQLLoopCounter) & "%'" Next strSQL = strSQL & ") AND category LIKE '" & Request.QueryString("ref") & "%'" 'Order the search results by the number of click through hits decending (most popular sites first) strSQL = strSQL & " ORDER By Rating DESC, No_of_ratings DESC, Hits DESC;" 'If the user has selected to see newly enetred URL's then order the search results by date decending Case "new" 'Initalise the strSQL variable with an SQL statement to query the database strSQL = "SELECT TOP " & intRecordsPerPage & " tblWebsites.* FROM tblWebsites" strSQL = strSQL & " ORDER By SiteIDNo DESC;" End Select 'Query the database with the strSQL statement rsSearchResults.Open strSQL, strCon, 3 'Count the number of records found lngTotalRecordsFound = CLng(rsSearchResults.RecordCount) 'If this is a random URL then strip all the other URL's and only leave one remaining URL If Request.QueryString("submit") = "Random Search" and NOT rsSearchResults.EOF Then 'Randomise system timer Randomize Timer 'Move to a random record in the recordset rsSearchResults.Move CLng(RND * lngTotalRecordsFound) - 0.5 'Filter out all the other records rsSearchResults.Filter = "SiteIDNo =" & rsSearchResults("SiteIDNO") Else 'Set the number of records to display on each page by the constant set at the top of the script rsSearchResults.PageSize = intRecordsPerPage 'Get the page number record poistion to display from IF NOT rsSearchResults.EOF Then rsSearchResults.AbsolutePage = intRecordPositionPageNum 'Count the number of pages the search results will be displayed on calculated by the PageSize attribute set above lngTotalNumPages = CLng(rsSearchResults.PageCount) 'Calculate the the record number displayed from and to on the page showing intRecordDisplayFrom = (intRecordPositionPageNum - 1) * intRecordsPerPage + 1 intRecordDisplayedTo = (intRecordPositionPageNum - 1) * intRecordsPerPage + intRecordsPerPage If intRecordDisplayedTo > lngTotalRecordsFound Then intRecordDisplayedTo = lngTotalRecordsFound End If %> Cadastrodailha - Guia de Florianopolis - Site de busca de Floripa
">
  Sugerir um site | Sites Recentes
  ">  
 
Pesquise em : Todas as Palavras Qualquer Palavra Somente nesta categoria
<% If Request.QueryString("mode") = "" OR IsEmpty (Request.QueryString("mode")) Then Dim categorias,temp,num_itens,links strSQL = "SELECT * From tblCategory WHERE ref LIKE '" If Request.QueryString("ref") <> "" AND NOT IsEmpty(Request.QueryString("ref")) Then strSQL = strSQL & Request.QueryString("ref") End If strSQL = strSQL & "__' ORDER BY name;" set categorias = adoCon.Execute(strSQL) temp = 0 If NOT categorias.EOF Then Response.Write "
" While NOT categorias.EOF temp = temp + 1 categorias.MoveNext Wend categorias.MoveFirst num_itens = temp/3 if num_itens < 1 Then num_itens = 1 End If temp = 1 While NOT categorias.EOF if temp > num_itens Then Response.Write "
" temp = 1 End If If temp = 1 Then Response.Write "" End If Response.Write "" temp = temp + 1 categorias.MoveNext Wend Response.Write "
" & categorias("name") & "
" End If If Not IsEmpty(Request.QueryString("ref")) Then Response.Write "     Top 10 links nesta categoria
" strSQL = "SELECT * From tblWebsites WHERE category = '" & Request.QueryString("ref") & "' ORDER By Rating DESC, No_of_ratings DESC, Hits DESC ;" set rsSearchResults = adoCon.Execute(strSQL) Response.Write vbCrLf & " " Response.Write vbCrLf & " " Response.Write vbCrLf & "
" If rsSearchResults.EOF Then Response.Write "Nenhum link foi encontrado
" End If For temp = 1 to 5 If rsSearchResults.EOF Then Exit For 'Display the details of the URLs found Response.Write vbCrLf & " " & rsSearchResults("Title") & "" Response.Write vbCrLf & "
" Response.Write vbCrLf & " " & rsSearchResults("Description") Response.Write vbCrLf & "
" Response.Write vbCrLf & " Avaliação média baseada em " & CLng(rsSearchResults("No_of_ratings")) & " votos  -  Rate Link  -  Hits " & CInt(rsSearchResults("Hits")) & "  -  " & Replace(rsSearchResults("URL"), "http://", "") & "" Response.Write vbCrLf & "

" 'Move to the next record in the database rsSearchResults.MoveNext 'Loop back round Next 'Close the HTML table displaying the results Response.Write vbCrLf & " " Response.Write vbCrLf & " " Response.Write vbCrLf & " " Response.Write "
" End If Else 'Display the HTML table with the results status of the search or what type of search it is Response.Write vbCrLf & " " Response.Write vbCrLf & " " Response.Write vbCrLf & " " Response.Write vbCrLf & " " Response.Write vbCrLf & "
" Response.Write vbCrLf & " " Response.Write vbCrLf & " " 'Display that the URL is randomly generated If Request.QueryString("submit") = "Random Search" Then Response.Write vbCrLf & " " 'Display that we are showing a page of the latest URL's indexed ElseIf Request.QueryString("mode") = "new" Then Response.Write vbCrLf & " " 'Display that one of the words entered was to short ElseIf blnSearchWordLenthOK = False Then Response.Write vbCrLf & " " 'Display that there where no matching records found ElseIf rsSearchResults.EOF Then Response.Write vbCrLf & " " 'Else Search went OK so display how many records found Else Response.Write vbCrLf & " " End If 'Close the HTML table with the search status Response.Write vbCrLf & " " Response.Write vbCrLf & "
Random Search for " & strSearchKeywords & ". As " & intRecordsPerPage & " últimas URL's Indexadas. Pesquisado " & strSearchKeywords & ".    Uma das palavras procuraradas é muito curta. Pesquisado " & strSearchKeywords & ".    Desculpe, nenhum resultado achado. Pesquisado " & strSearchKeywords & ".    Exibindo Resultados " & intRecordDisplayFrom & " - " & intRecordDisplayedTo & " of " & lngTotalRecordsFound & ".
" Response.Write vbCrLf & "
" 'Display the various results 'HTML table to display the search results or an error if there are no results Response.Write vbCrLf & "
" & vbCrLf Response.Write vbCrLf & " " Response.Write vbCrLf & " " Response.Write vbCrLf & " " Response.Write vbCrLf & " " Response.Write vbCrLf & "
" 'Display error message if one of the words is to short If blnSearchWordLenthOK = False And NOT Request.QueryString("mode") = "new" Then 'Write HTML displaying the error Response.Write vbCrLf & " Buscando na web por - " & strSearchKeywords & " - Desculpe, não foi encontrado nenhum arquivo." Response.Write vbCrLf & "

" Response.Write vbCrLf & " Sugestões:" Response.Write vbCrLf & "
" Response.Write vbCrLf & "
  • Tenha certeza todas as palavras são soletradas corretamente.
  • Tente palavras chaves diferentes.
  • Tente palavras chaves mais gerais.
  • Tente menos palavras chaves.
" 'If no search results found then show an error message ElseIf rsSearchResults.EOF Then 'Write HTML displaying the error Response.Write vbCrLf & " Buscando na web por - " & strSearchKeywords & " - Desculpe, não foi encontrado nenhum arquivo." Response.Write vbCrLf & "

" Response.Write vbCrLf & " Sugestões:" Response.Write vbCrLf & "
" Response.Write vbCrLf & "
  • Tenha certeza todas as palavras são soletradas corretamente.
  • Tente palavras chaves diferentes.
  • Tente palavras chaves mais gerais.
  • Tente menos palavras chaves.
" Else 'For....Next Loop to display the results from the database For intRecordLoopCounter = 1 to intRecordsPerPage 'If there are no records left to display then exit loop If rsSearchResults.EOF Then Exit For 'Display the details of the URLs found Response.Write vbCrLf & " " & rsSearchResults("Title") & "" Response.Write vbCrLf & "
" Response.Write vbCrLf & " " & rsSearchResults("Description") Response.Write vbCrLf & "
" Response.Write vbCrLf & " Avaliação média baseada em " & CLng(rsSearchResults("No_of_ratings")) & " votos  -  Vote no link  -  Hits " & CInt(rsSearchResults("Hits")) & "  -  " & Replace(rsSearchResults("URL"), "http://", "") & "" Response.Write vbCrLf & "

" 'Move to the next record in the database rsSearchResults.MoveNext 'Loop back round Next End If 'Close the HTML table displaying the results Response.Write vbCrLf & "
" 'If there are more pages to display then add a title to the other pages If intRecordPositionPageNum > 1 OR NOT rsSearchResults.EOF AND blnSearchWordLenthOK = True 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 & " " Response.Write vbCrLf & " " Response.Write vbCrLf & "
" 'If there are more pages to display then add a title to the other pages If intRecordPositionPageNum > 1 or NOT rsSearchResults.EOF Then Response.Write vbCrLf & " Resultados de Páginas:  " End If 'If the page number is higher than page 1 then display a back link If intRecordPositionPageNum > 1 Then Response.Write vbCrLf & " << Anterior  " End If 'If there are more pages to display then display links to all the search results pages If intRecordPositionPageNum > 1 or NOT rsSearchResults.EOF Then 'Loop to diplay a hyper-link to each page in the search results For intLinkPageNum = 1 to lngTotalNumPages 'If the page to be linked to is the page displayed then don't make it a hyper-link If intLinkPageNum = intRecordPositionPageNum Then Response.Write vbCrLf & " " & intLinkPageNum Else Response.Write vbCrLf & "  " & intLinkPageNum & "  " End If Next End If 'If it is Not the End of the search results than display a next link If NOT rsSearchResults.EOF then Response.Write vbCrLf & "  Próxima >>" End If 'Finsh HTML the table Response.Write vbCrLf & "
" Response.Write vbCrLf & "
" Response.Write vbCrLf & "
" End If End If 'Close Server Objects Set rsSearchResults = Nothing Set strCon = Nothing Set adoCon = Nothing %>
Sugerir um site | Sites Recentes Faça do cadastrodailha sua pagina de inicio
® 2004 cadastrodailha – Pesquisando 90,351 paginas na web