Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

PhoEniXFirE

Buscador interno

Por , em ASP Clássico

Recommended Posts

PhoEniXFirE    0

PhoEniXFirE
Postado

Estou utilizando o Buscador interno de sites Web Wiz Guide Advanced Site Search Engine realease v1.65 beta q pode ser encontrado em http://www.webwizguide.com/

 

Achei mto bom, serviu mto bem pra mim e no IIS da minha maquina funcionou perfeitamente. Mas qndo eu coloquei no servidor, de vez em qndo dá erro aparecendo isto:

 

Active Server Pages error 'ASP 0113'

 

Script timed out

 

/buscarnosite.asp

 

The maximum amount of time for a script to execute was exceeded. You can change this limit by specifying a new value for the property Server.ScriptTimeout or by changing the value in the IIS administration tools.

 

Erro intermitente.

 

O meu servidor disse q este era por causa de script, mas acredito q isso este erro acontece por causa do servidor n suportar a utilização do FSO, pois ele deve sair abrindo todos os arquivos do site e o site tem mais de 6 mil arquivos.

 

Se alguém tiver uma idéia para resolver este problema e/ou queria baixar este script q eh mto pra ver o erro, seria mto bom.

 

Valew galera

Compartilhar este post

Link para o post
Compartilhar em outros sites

PhoEniXFirE    0

PhoEniXFirE
Postado

Passa o código pa nóis...

<% 'Set the response buffer to trueResponse.Buffer = true 'Dimension global variablesDim fsoObject 	 'File system objectDim fldObject 	 'Folder object	Dim sarySearchWord  'Array to hold the words to be searched forDim strSearchWords  'Holds the search wordsDim blnIsRoot 	 'Set to true if we are searching in the root directoryDim strFileURL 	 'Holds the path to the file on the siteDim strServerPath  'Holds the server path to this scriptDim intNumFilesShown  'Holds the number of files shown so farDim intTotalFilesSearched	'Holds the number of files searchedDim intTotalFilesFound  'Holds the total matching files foundDim intFileNum 	 'Holds the file numberDim intPageLinkLoopCounter	'Loop counter to display links to the other result pagesDim sarySearchResults(1000,2)	'Two Dimensional Array holding the search resultsDim intDisplayResultsLoopCounter 'loop counter to diplay the results of the searchDim intResultsArrayPosition	'Stores the array position of the array storing the resultsDim blnSearchResultsFound	'Set to true if search results are foundDim strFilesTypesToSearch	'Holds the types of files to be searchedDim strBarredFolders  'Holds the folders that you don't want searchedDim strBarredFiles  'Holds the names of the files not to be searchedDim blnEnglishLanguage  'Set to True if the user is using English' -------------------------- Número do resultado da busca por páginas ------------------------------------Const intRecordsPerPage = 10 'este séria um bom número' --------------------- Coloque as extensões dos arquivos que deseja ser procurado --------------------------strFilesTypesToSearch = "htm,html,asp" ' --------------------- Coloque as pastas q você deseja q n haja busca, separe as pastas por vírgula --------------------------strBarredFolders = "admin,banner"' ---------- Coloque os arquivos q você deseja q n haja busca, separe as pastas por vírgula, inclua as extensões -------------strBarredFiles = "admin.htm,admin.asp"' -------------------- Coloque False se você n estiver usando páginas em inglês --------------------------------------------------blnEnglishLanguage = False'-----------------------------------------------------------------------------------------------------------------------------------------------------'Initalise variablesintTotalFilesSearched = 0%><body bgcolor="#FFFFFF" text="#000000" link="#003366" vlink="#003366" alink="#800000"><center><img border="0" src="images/topo_buscarnosite.jpg" width="100%" height="74"></center><form method="get" name="frmSiteSearch" action="buscarnosite.asp" onSubmit="return CheckForm();">  <table cellpadding="0" cellspacing="0" width="90%" align="center">    <tr>                   <td class="arial" width="571">       <font face="Verdana" style="font-size: 8pt; font-weight: 700">Buscar no       Site:</font></td>    </tr>    <tr>       <td class="normal" height="2" width="571">      <font face="Verdana"><span style="font-size: 8pt">      <input name="search" maxlength="50" size="36" value="<% =Request.QueryString("search") %>" style="font-family: Verdana; font-size: 8 pt; color: #003366"></span><font style="font-size: 8pt">      </font><span style="font-size: 8pt">        <input type="submit" value="Busque >>" name="submit" style="font-family: Verdana; font-size: 8 pt"></span><font style="font-size: 8pt">      </font></font>        </td>    </tr>    <tr>       <td class="normal" width="571" valign="top">       <font face="Verdana"><font style="font-size: 8pt">Buscar por: </font>      <span style="font-size: 8pt">         <input type="radio" name="mode" value="allwords" CHECKED></span><font style="font-size: 8pt"> Palavras      </font><span style="font-size: 8pt">         <input type="radio" name="mode" value="phrase"></span><font style="font-size: 8pt"> Frases</font></font></td>    </tr>  </table></form><%'Read in all the search words into one variablestrSearchWords = Trim(Request.QueryString("search"))'If the site is in English then use the server HTML encode methodIf 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 tagsElse	'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 arraysarySearchWord = Split(Trim(strSearchWords), " ")'Read the file number to show fromintFileNum = CInt(Request.QueryString("FileNumPosition"))'Set the number of files shown so far to the file number read in aboveintNumFilesShown = intFileNum'Create the file system objectSet fsoObject = Server.CreateObject("Scripting.FileSystemObject")'If there is no words entered by the user to search for then dont carryout the file search routineIf NOT strSearchWords = "" 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 & "	<table bgcolor=""#EFEFEF"" width=""98%"" border=""0"" cellspacing=""1"" cellpadding=""1"" align=""center"" bgcolor=""#CCCCCC"">"	Response.Write vbCrLf & "    <tr>"		'Display that there where no matching records found	If blnSearchResultsFound = False Then   Response.Write vbCrLf & "      <td><font face=""Verdana"" style=""font-size: 8pt""> Buscou no site por <b>" & strSearchWords & "</b>.    Desculpe, nenhum resultado foi encontrado.</font></td>"   		'Else Search went OK so display how many records found	Else	  Response.Write vbCrLf & "      <td><font face=""Verdana"" style=""font-size: 8pt""> Buscou no site por <b>" & strSearchWords & "</b>.    Exibindo resultados " & intFileNum + 1 & " - " & intNumFilesShown & " de <b>" & intTotalFilesFound & "</b> encontrados.</font></td>"     	End If		'Close the HTML table with the search status	Response.Write vbCrLf & "   </tr>"	Response.Write vbCrLf & "	</table>"  		'HTML table to display the search results or an error if there are no results	Response.Write vbCrLf & "	<table width=""95%"" border=""0"" cellspacing=""1"" cellpadding=""1"" align=""center"">"	Response.Write vbCrLf & "  <tr>" 	Response.Write vbCrLf & "   <td>"   		'If no results are found then display an error message	If blnSearchResultsFound = False Then 	  'Write HTML displaying the error  Response.Write vbCrLf & "   <br>"  Response.Write vbCrLf & "<font face=""Verdana"" style=""font-size: 8pt"">    Sua busca - <b>" & strSearchWords & "</b> - não achou nenhum arquivo."   	 Response.Write vbCrLf & "    <br><br>"   	 Response.Write vbCrLf & "<font face=""Verdana"" style=""font-size: 8pt"">    Sugestões:"   	 Response.Write vbCrLf & "    <br>"   	 Response.Write vbCrLf & "<font face=""Verdana"" style=""font-size: 8pt"">    <ul><li>Certifique-se que todas as palavras foram escritas corretamente.<li>Tente palavras diferentes.<li>Tente mais por palavras-chaves.<li>Tente menos palavras.</ul>"		'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 & "      <br>" 	 Response.Write vbCrLf & "<font face=""Verdana"" style=""font-size: 8pt"">     " & sarySearchResults(intDisplayResultsLoopCounter,1) 	 Response.Write vbCrLf & "      <br>"  Next	End If		'Close the HTML table displaying the results	Response.Write vbCrLf & "     </td>"	Response.Write vbCrLf & "   </tr>"	Response.Write vbCrLf & "	</table>"End If 'Display an HTML table with links to the other search resultsIf intTotalFilesFound > intRecordsPerPage then	'Display an HTML table with links to the other search results	Response.Write vbCrLf & "	<br>"	Response.Write vbCrLf & "	<table width=""100%"" border=""0"" cellspacing=""0"" cellpadding=""0"" align=""center"">"	Response.Write vbCrLf & "    <tr>"	Response.Write vbCrLf & "      <td>"	Response.Write vbCrLf & "  <table width=""100%"" border=""0"" cellpadding=""0"" cellspacing=""0"">"	Response.Write vbCrLf & "    <tr>"	Response.Write vbCrLf & "      <td width=""50%"" align=""center"">"		Response.Write vbCrLf & "<font face=""Verdana"" style=""font-size: 8pt"">  Página do Resultado:  "	  	'If the page number is higher than page 1 then display a back link   	 	If intNumFilesShown > intRecordsPerPage Then   Response.Write vbCrLf & "<font face=""Verdana"" style=""font-size: 8pt"">   <a href=""buscarnosite.asp?FileNumPosition=" &  intFileNum - intRecordsPerPage  & "&search=" & Replace(strSearchWords, " ", "+") & "&mode=" & Request.QueryString("mode") & """ target=""_self""><font color=003366><< Anterior</font></a> "          	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 & "<font face=""Verdana"" style=""font-size: 8pt""><b>       " & intPageLinkLoopCounter & "</b>" 	 Else 	     Response.Write vbCrLf & "<font face=""Verdana"" style=""font-size: 8pt"">        <a href=""buscarnosite.asp?FileNumPosition=" &  (intPageLinkLoopCounter * intRecordsPerPage) - intRecordsPerPage & "&search=" & Replace(strSearchWords, " ", "+") & "&mode=" & Request.QueryString("mode") & """ target=""_self""><font color=003366>" & intPageLinkLoopCounter & "</font></a>  " 	  	 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 & "<font face=""Verdana"" style=""font-size: 8pt"">   <a href=""buscarnosite.asp?FileNumPosition=" &  intNumFilesShown  & "&search=" & Replace(strSearchWords, " ", "+") & "&mode=" & Request.QueryString("mode") & """ target=""_self""><font color=003366>Próximo >></font></a>"   	 	End If     	 			'Finsh HTML the table     	 	Response.Write vbCrLf & "      </td>"     	 	Response.Write vbCrLf & "    </tr>"	Response.Write vbCrLf & "  </table>"  	Response.Write vbCrLf & "     </td>"	Response.Write vbCrLf & "   </tr>"	Response.Write vbCrLf & "	</table>"	 End If %><br> <div align="center">    <div align="center">    <center>    <table width="98%" border="0" cellspacing="0" cellpadding="0" bgcolor="#EFEFEF" style="border-collapse: collapse" bordercolor="#111111">    <tr>         <td width="47%" height="18"><font face="Verdana" style="font-size: 8pt"> Buscado <% = intTotalFilesSearched  %> documentos no total.        </font> </td>        <td width="53%" align="right" height="18">        <font face="Verdana" style="font-size: 8pt">Reformulado por <a href="#falecomrairabelo" onClick="MM_openBrWindow('/falecom/?send=rairabelo','falecomrairabelo','width=232,height=275,top=25,left=100')"><font color=003366>Rai Rabelo</font></a>        </font>       </td>      </tr>    </table>    </center>  </div>    </div><%'Sub procedure to do the searchPublic Sub SearchFile(fldObject)	'Dimension local variabales	Dim objRegExp    'Regular Expersions object	Dim objMatches    'Holds the matches collection of the regular expresions object	Dim filObject    'File object	Dim tsObject    'Text stream object	Dim subFldObject 	 'Sub folder object	Dim strFileContents 	 'Holds the contents of the file being searched		Dim strPageTitle 	 'Holds the title of the page	Dim strPageDescription 	 'Holds the description of the page	Dim strPageKeywords 	 'Holds the keywords of the page	Dim intSearchLoopCounter  'Loop counter to search all the words in the array	Dim intNumMatches 	 'Holds the number of matches	Dim blnSearchFound 	 'Set to true if the search words are found			'Error handler	On Error Resume Next		'Set the error object to 0	Err.Number = 0      	'Create the regular expresions object	Set objRegExp = New RegExp      	'If an error has occured then the server does not support Regular Expresions	If Err.Number <> 0 Then   Response.Write("<br>Erro. O servidor não suporta fazer a busca.<br>Por favor, avise ao nosso WebMaster.")   	   'Reset error object  Err.Number = 0	End If  	'Loop to search each file in the folder	For Each filObject in fldObject.Files        'Check the file extension to make sure the file is of the extension type to be searched  If InStr(1, strFilesTypesToSearch, fsoObject.GetExtensionName(filObject.Name), vbTextCompare) > 0 Then     	 'Check to make sure the file about to be searched is not a barred file if it is don't search the file 	 If NOT InStr(1, strBarredFiles, filObject.Name, vbTextCompare) > 0 Then   	    	       'Initalise the search found variable to flase   	 blnSearchFound = False            'Initalise the number of matches variable      intNumMatches = 0   	             'Set the regular exprsion object to read all cases of the occurance not just the first      objRegExp.Global = True            'Set the regular expression object to ignore case      objRegExp.IgnoreCase = True                     	       'Open the file for searching        Set tsObject = filObject.OpenAsTextStream 	     'Read in the contents of the file     	 strFileContents = tsObject.ReadAll        'Read in the title of the file    strPageTitle = GetFileMetaTag("<title>", "</title>", strFileContents)          'Read in the description meta tag of the file    strPageDescription = GetFileMetaTag("<meta name=""description"" content=""", """>", strFileContents)   	    	 'Read in the keywords of the file   	 strPageKeywords = GetFileMetaTag("<meta name=""keywords"" content=""", """>", strFileContents)       	    	    	    	 'Set the pattern using regular expressions to srip any HTML tags   	 objRegExp.Pattern = "<[^>]*>"   	    	 'Strip HTML tags from the contects of the file to be searched   	 strFileContents = objRegExp.Replace(strFileContents,"")         	 'Put the tittle, description and the keywords back into the file to be searched   	 strFileContents = strFileContents & " " & strPageTitle & " " & strPageDescription & " " & strPageKeywords   	                  	 'If the user has choosen to search by phrase    	 If Request.QueryString("mode") = "phrase" Then            'Set the pattern to search for      objRegExp.Pattern = "\b" & strSearchWords & "\b"            'Search the file for the phrase      Set objMatches = objRegExp.Execute(strFileContents)            'Check to see if the phrase has been found      If objMatches.Count > 0 Then           	 'Get the number of times the phrase is matched     	 intNumMatches = objMatches.Count           	 'If the search is found then set the search found variable to true     	 blnSearchFound = True      End If   	    	    	 'Else the search is either by all or any words   	 Else       	       'If the search is by all words then initialise the search found variable to true      If Request.QueryString("mode") = "allwords" then blnSearchFound = True                  'Loop round to search for each word to be searched      For intSearchLoopCounter = 0 to UBound(sarySearchWord)           	 'Set the pattern to search for     	 objRegExp.Pattern = "\b" & sarySearchWord(intSearchLoopCounter) & "\b"     	      	 'Search the file for the search words     	 Set objMatches = objRegExp.Execute(strFileContents)                      'Check to see if any of the words have been found          If objMatches.Count > 0 Then                    	 'Get the number of times the search word is matched        intNumMatches = intNumMatches + objMatches.Count       	          	 'If the search word is found and the search is for any words then set the search found variable to true         	 If Request.QueryString("mode") = "anywords" then blnSearchFound = True         	           Else         	 'If the search word is not found and the search is for all words then set the search found variable back to false as one of the words has not been found         	 If Request.QueryString("mode") = "allwords" then blnSearchFound = False         	           End If       	 Next        End If                                'Calculate the total files searched        intTotalFilesSearched = intTotalFilesSearched + 1 	  	                 'If the page contains no title then Page Title variable the appropriate message to display        If strPageTitle = "" Then strPageTitle = "Sem título"                'If the page contains no title then Page Description variable the appropriate message to display        If strPageDescription = "" Then strPageDescription = "Nenhuma descrição foi dada a esta página."                                   	                 'If the search found variable is true then display the results        If blnSearchFound = True Then             	                      	    	 'Calculate the total files found    	 intTotalFilesFound = intTotalFilesFound + 1                             	 'Check that the file shown is between the the files shown so far and the maximum files to show per page   	 If  intNumFilesShown < (intRecordsPerPage + intFileNum) and intTotalFilesFound > intNumFilesShown Then	      'Calculate the number of results shown      intNumFilesShown = intNumFilesShown + 1         	 End If	                           	             'Place the search results into the saerch results array            'Calculate the array position of the results array            intResultsArrayPosition = intResultsArrayPosition + 1                       	             'Set the search results found boolean to true            blnSearchResultsFound = True                       	    	 'If the file is in the root directory then   	 If blnIsRoot = True Then                  'Place the search results into the search results array      sarySearchResults(intResultsArrayPosition,1) = "<a href=""./" &  filObject.Name & """ target=""_blank""><font color=003366><b>" & strPageTitle & "</b></font></a>"            	                          	             'Else it is not in the root directiory            Else           	 'Place the search results into the search results array           	 sarySearchResults(intResultsArrayPosition,1) = "<a href=""./" & strFileURL  & fldObject.Name & "/" & filObject.Name & """ target=""_blank""><font color=003366><b>" & strPageTitle & "</b></font></a>"                             	 End If         	    	 'Place the rest of the search results in the search results array   	 sarySearchResults(intResultsArrayPosition,1) = sarySearchResults(intResultsArrayPosition,1) & vbCrLf & "        <br>" & strPageDescription   	 sarySearchResults(intResultsArrayPosition,1) = sarySearchResults(intResultsArrayPosition,1) & vbCrLf & "        <font face=""verdana"" size=""1"" color=""#CCCCCC""><br><i>Última Atualização " & FormatDateTime(filObject.DateLastModified, VbLongDate) & "  -  Tamanho " & CInt(filObject.Size / 1024) & "kb</i></font>"   	    	    	    	 'Read in the number of search word matches into the second part of the two dimensional array   	 sarySearchResults(intResultsArrayPosition,2) = intNumMatches       	           End If     	     'Close the text stream object        tsObject.Close 	 End If  End If	Next		'Reset the Regular Expression object	Set objRegExp = Nothing  		'Loop to search through the sub folders within the site	For Each subFldObject In FldObject.SubFolders            'Check to make sure the folder about to be searched is not a barred folder if it is then don't search  If NOT InStr(1, strBarredFolders, subFldObject.Name, vbTextCompare) > 0 Then 	  	 'Set to false as we are searching sub directories 	 blnIsRoot = False         	  	 'Get the server path to the file 	 strFileURL = fldObject.Path & "\" 	  	 'Turn the server path to the file into a URL path to the file 	 strFileURL = Replace(strFileURL, strServerPath, "") 	  	 'Replace the NT backslash with the internet forward slash in the URL to the file 	 strFileURL = Replace(strFileURL, "\", "/") 	  	 'Encode the file name and path into the URL code method 	 strFileURL = Server.URLEncode(strFileURL) 	  	 'Just incase it's encoded any backslashes 	 strFileURL = Replace(strFileURL, "%2F", "/")       	 'Call the search sub prcedure to search the web site 	 Call SearchFile(subFldObject)  End If	Next	'Reset server variables	Set filObject = Nothing	Set tsObject = Nothing	Set subFldObject = NothingEnd Sub'Sub procedure to sort the array using a Bubble Sort to place highest matches firstPrivate Sub SortResultsByNumMatches(ByRef sarySearchResults, ByRef intTotalFilesFound)	'Dimension variables	Dim intArrayGap 	 'Holds the part of the array being sorted	Dim intIndexPosition  'Holds the Array index position being sorted	Dim intTempResultsHold  'Temperary hold for the results if they need swapping array positions  	Dim intTempNumMatchesHold	'Temperary hold for the number of matches for the result if they need swapping array positions	Dim intPassNumber  'Holds the pass number for the sort			'Loop round to sort each result found	For intPassNumber = 1 To intTotalFilesFound	  'Shortens the number of passes  For intIndexPosition = 1 To (intTotalFilesFound - intPassNumber)   	 'If the Result being sorted hass less matches than the next result in the array then swap them 	 If sarySearchResults(intIndexPosition,2) < sarySearchResults((intIndexPosition+1),2) Then 	         'Place the Result being sorted in a temporary variable    intTempResultsHold = sarySearchResults(intIndexPosition,1)        'Place the Number of Matches for the result being sorted in a temporary variable    intTempNumMatchesHold = sarySearchResults(intIndexPosition,2)            'Do the array position swap        'Move the next Result with a higher match rate into the present array location    sarySearchResults(intIndexPosition,1) = sarySearchResults((intIndexPosition+1),1)       	     'Move the next Number of Matches for the result with a higher match rate into the present array location    sarySearchResults(intIndexPosition,2) = sarySearchResults((intIndexPosition+1),2)        'Move the Result from the teporary holding variable into the next array position    sarySearchResults((intIndexPosition+1),1) = intTempResultsHold        'Move the Number of Matches for the result from the teporary holding variable into the next array position    sarySearchResults((intIndexPosition+1),2) = intTempNumMatchesHold 	  	 End If  Next 	 	Next   	 End Sub'Function to read in the files meta tagsPrivate Function GetFileMetaTag(ByRef strStartValue, ByRef strEndValue, ByVal strFileContents)	'Dimension Variables	Dim intStartPositionInFile	'Holds the start position in the file	Dim intEndPositionInFile	'Holds the end position in the file			'Get the start position in the file of the meta tag	intStartPositionInFile = InStr(1, LCase(strFileContents), strStartValue, 1)			'If no description or keywords are found then you may be using http-equiv= instead of name= in your meta tags	If intStartPositionInFile = 0 And InStr(strStartValue, "name=") Then    'Swap name= for http-equiv=   strStartValue = Replace(strStartValue, "name=", "http-equiv=")    'Check again for keywords or description  intStartPositionInFile = InStr(1, LCase(strFileContents), strStartValue, 1)  	End If	       	 	'If there is a description then the position in file will be over 0	If NOT intStartPositionInFile = 0 Then   	   'Get the end position of the HTML meta tag  intStartPositionInFile = intStartPositionInFile + Len(strStartValue)        'Get the position in file of the closing tag for the meta tag  intEndPositionInFile = InStr(intStartPositionInFile, LCase(strFileContents), strEndValue, 1)	  'Read in the meta tag from the file for the function to return  GetFileMetaTag = Trim(Mid(strFileContents, intStartPositionInFile, (intEndPositionInFile - intStartPositionInFile)))   	 	'If the is no meta tag then the GetFileMetaTag function returns a null value	Else  GetFileMetaTag = ""         	 	End IfEnd Function%>

Compartilhar este post

Link para o post
Compartilhar em outros sites

tr374    0

tr374
Postado

Esse script funciona, o problema é para sites grandes o tempo de processamento é muito grande e Server.ScriptTimeout é exedido, para mudar isso no servidor ou pelo global.asa acho deve dar.Agora se seu site não suporta FSO peça para seu provedor mudar isso ou você muda provedor, afinal um site com 6000 páginas deve ser um site bem grandinho.PS outra dica é com strFilesTypesToSearch, strBarredFolders e strBarredFiles diminua a busca ao máximo para evitar processamento a toa.

Compartilhar este post

Link para o post
Compartilhar em outros sites

PhoEniXFirE    0

PhoEniXFirE
Postado

Desculpe nem deu pra postar antes.

 

Meu global.asa tem isso:

<script language=VBScript RUNAT=Server>Sub Application_OnStart	Application.Lock	Application("usu_corrente") = 0	Application.UnLockEnd SubSub Session_OnStart	Application.Lock	Application("usu_corrente") = Application("usu_corrente") + 1	Application.UnLock   Application.Lock    Application("Contador") = Application("Contador") + 1   Application.UnLock    Session.Timeout = 1End SubSub Session_OnEnd	Application.Lock	Application("usu_corrente") = Application("usu_corrente") - 1	Application.UnLockEnd Sub</script>

Tem uns comandos pra contagem de usuários online.

 

Será q tenho q mudar neste Session.Timeout = 1 ?

 

Valew

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito