18 ottobre 2004 alle 08:43:43 Salve Staff, scrivo perchè dopo aver cambiato le connessioni al db mettendo quelle pool, che sono piu veloci un mod non mi funziona piu!!!
è un mod che da la lista dei pm letti e risposti, chiamato messagelist-inc.asp fatto per 1.2 ed io ho adattato alle prime versioni della 2.0 ma con la candidate non va più...
dando uno sguardo al CODE sapete dirmi il perche???
<% ' ************************************************************************ ' * ASP-Nuke: Free web portal in ASP * ' ************************************************************************ ' * Copyright (c) 2002-2003 by Gaetan Bouveret (webmaster@asp-nuke.com) * ' * http://www.asp-nuke.com * ' * * ' * This program is free software. You can redistribute it and/or modify * ' * it under the terms of the GNU General Public License as published by * ' * the Free Software Foundation; either version 2 of the License, or * ' * (at your option) any later version. * ' * * ' * Modifiche eseguite da Andrea & Cristiano * ' * Support: http://www.cristiano.risorse.com * ' ************************************************************************ ' ' ************************************************************************ ' Autore: Francesco Iafulli ' Data: 17 Febbraio 2003 ' Sito: http://www.iafulli.net ' EMail: webmaster@iafulli.net ' ___________________________________________________ ' Rivisto e adattato per la versione Asp-Nuke 1.2 da: ' Andrea e Cristiano http://www.cristiano.risorse.com
' Rivisto e adattato per Asp-Nuke 2.0 da Federico Luzi (Acar) acar@sebbeccamo.it www.sebbeccamo.it ' ************************************************************************ %> <% Dim oCnMain Set oCnMain = DBConnexion(DB_MAIN)
CONST MAX_PMSG_ROWS_PER_PAGE = 20
' DisplayPMsgListPage ' Mostra la pagina ' input: ' nessuno ' output: ' nessuno sub DisplayPMsgListPage() dim OB, Dir, Page
OB = Request("OB") if OB <> "" then OB = CInt(OB) else OB = -1 end if
Page = Request("Page") if Page <> "" then Page = CInt(Page) else Page = 1 end if
Dir = (Request("Dir") = "") DisplayPMsgListPrePage
DisplayPMessagesListPage OB, Dir, Page
end sub
' DisplayPMessagesListPage ' Mostra l'elenco dei messaggi ' input: ' sortBy -> ordinamento ' Direction -> ordinamento crescente/decrescente ' Page -> pagina da mostrare ' output: ' nessuno Sub DisplayPMessagesListPage(sortBy, Direction, Page) Dim oRs, rSQL, iLine, OB, plus, iNbTotalPosts, X, I
if not Direction then plus = " DESC" Select case sortBy case 0: OB = " ORDER BY mlDate" & plus ' x data case 1: OB = " ORDER BY mlFrom" & plus & ", mlTo" & plus ' x Da/A case 2: OB = " ORDER BY mlSubject" & plus ' x Oggetto case 3: OB = " ORDER BY mlRead" & plus ' x letto case 4: OB = " ORDER BY mlReply" & plus ' x risposto case 5: OB = " ORDER BY mlRead" & plus & ", mlReply" & plus ' x letto/risposto case else OB = "" end select
rSQL = "SELECT * FROM MessagesList WHERE mlFrom=" & SQLStr(spseudo) & " OR mlTo=" & SQLStr(spseudo) & OB
iLine = 1 if not oRS is nothing then if not oRs.eof and not oRS.bof then If Not oRs.EOF Then iLine = 1 For I = 1 to MAX_PMSG_ROWS_PER_PAGE if not oRS.eof then DrawPMsgListRecord oRS, iLine
oRs.MoveNext iLine = ((iLine - 1) XOr 1) + 1 end if Next
DisplayPMsgListPageRules oRS.RecordCount, MAX_PMSG_ROWS_PER_PAGE, Page, 7, SortBy, Direction end if end if end if
' PMsgListSiNo ' Ritorna Si o No al posto di true/false ' input: ' B -> valore da testare ' output: ' -> Stringa contenente Si o No function PMsgListSiNo(B) if B then PMsgListSiNo = GetTranslation ("LANG_PMSGLIST_SI") else PMsgListSiNo = GetTranslation ("LANG_PMSGLIST_NO") end function
' PMsgListFormattaData ' Formatta la data ' input: ' S -> stringa contenente la data ' output: ' -> stringa contenente la data formattata function PMsgListFormattaData (S) dim X X = mid(S,7,2) & "/" X = X & mid (S,5,2) & "/" X = X & left(s,4) & " - " X = X & mid(S,10,2) & ":" X = X & mid(S,13,2) & ":" X = X & Right(S, 2) PMsgListFormattaData = X end function
' DisplayPMsgListPrePage ' Mostra il menu di ordinamento ' input: ' nessuno ' output: ' nessuno sub DisplayPMsgListPrePage()
' DisplayPMsgListPageRules ' disegna il righello in basso alla pagina per la paginazione delle righe della tabella ' input: ' Totalepc -> numero totale dei record presenti nella lista ' PageLen -> lunghezza della pagina ' Pagina -> Numero della pagina visualizzata ' ColsPan -> Quale colspanning usare per la riga del righello ' ob -> ordinamento ' dir -> ordinamento crescente/decrescente ' output: ' nessuno sub DisplayPMsgListPageRules(Totalepc, PageLen, Pagina, ColsPan, ob, dir) Dim PagineTotali, X if Totalepc < 0 then Totalepc = 0 PagineTotali = 0 if Totalepc > 0 then PagineTotali = TotalepcPageLen If Totalepc Mod PageLen Then PagineTotali = PagineTotali + 1 end if If PagineTotali > 1 Then Response.Write " <tr class=""tablelinemain"">" & vbCRLF Response.Write " <td align=""center"" colspan=""" & Colspan & """>" & vbCRLF If Pagina <> 1 Then Response.Write " <a href=""" & GLOBAL_SITE_PATH & "pmsglist.asp?ob=" & ob & "&dir=" & dir & "&page=" & Pagina-1 & """><<</a>" & vbCRLF For X = 1 To PagineTotali If X <> CInt(Pagina) Then Response.Write " <a href=""" & GLOBAL_SITE_PATH & "pmsglist.asp?ob=" & ob & "&dir=" & dir & "&page=" & X & """>" & X & "</a>" & vbCRLF Else Response.Write " <b>" & X & "</b>" & vbCRLF End If Next If Pagina <> PagineTotali Then Response.Write " <a href=""" & GLOBAL_SITE_PATH & "pmsglist.asp?ob=" & ob & "&dir=" & dir & "&page=" & Pagina+1 & """>>></a>" & vbCRLF Response.Write " </td>" & vbCRLF Response.Write " </tr>" & vbCRLF
End If
end sub
%>
e questo è l'errore che da explorer:
ADODB.Recordset error '800a0bb9'
Arguments are of the wrong type, are out of acceptable range, or are in conflict with one another.
18 ottobre 2004 alle 09:05:36 Nel file modifiche_it.txt del pacchetto Aspnuke 2.0.3 c'e' la spiegazione:
Introdotto uso pool di connessioni al DB Modificata funzione DBConnexion per utilizzare sempre la stessa connessione, utilizzabile come parametro solo nelle funzioni standard di Aspnuke 2.0 relative ai DB Introdotta funzione DBTrueConnexion che restituisce una connessione standard, non appartenente al pool
Quindi, visto che nel tuo codice usi la connesione come parametro per aprire un recordset SENZA usare le funzioni di aspnuke, devi creare la connessione oCnMain usando la funzione DBTrueConnexion.
Ciao
--------------- development@aspnuke.it
acar Esperto
267 Discussioni
18 ottobre 2004 alle 09:29:31 hemmm come si fa???
Ora vedo un pò da solo e se è il caso vi scoccio ancora!
18 ottobre 2004 alle 09:51:02 Nella funzione DisplayPMessagesListPage ripristini la riga in cui crei la oCn cambiando la funzione usata da DBConnexion a DBTrueConnexion, dopodiche' usi sempre oCn e ripristini in fondo alla funzione le chiamate di chiusura della connessione oCn. La oCnMain allora non serve piu' e la puoi eliminare. Ciao
--------------- development@aspnuke.it
19 ottobre 2004 alle 10:01:37 Modificato il 19 ottobre 2004 alle 10:27:46Rimanendo nelle connessioni, io come gia ti ho detto tempo fa ho un aspnuke 2.0 portato alla 2.0.3 su alcuni aspetti
in tutti i file devo rinominare il DBConnexion in DBTrueConnexion????
22 ottobre 2004 alle 06:36:03 No, solo se utilizzi la connessione creata come parametro in una funzione non di aspnuke (che quindi non usa il pool). Nello script che avevi postato, dovevi sostituirla solo in un caso, altrimenti perdi i vantaggi del pool. Se vuoi sostituirla nei mod aggiuntivi per evitare di dover controllare tutto il codice, puoi farlo, non ci sono controindicazioni oltre al mancato miglioramento delle prestazioni.
--------------- development@aspnuke.it
acar Esperto
267 Discussioni
22 ottobre 2004 alle 09:08:46 Scusa se ti rompo ancora, ma vorrei capire bene il funzionamento di queste connessioni pool e come si implementano!
non mi serve a nulla avere un aspnuke molto veloce con dei mod lenti!
vorrei capire come far diventare veloci anche i mod e su ARUBA questa cosa mi serve come il Pane! prima che me staccano il sito!
non c'è un tutorial? che spiega come creare o trasformare?
Anna
Versione stampabile | Questa pagina è stata eseguita in 0,1992188 secondi.
MODULI AGGIUNTIVI
Problemi con un mod solo sulla candidate - Help
18 ottobre 2004 alle 08:43:43 
