18 giugno 2010 alle 07:31:53 Salve ragazzi, il mio server ha cambiato IP e subito dopo il sito non funziona più. L'errore descritto è il seguente:
Microsoft VB Script runtime error '800a01a8' Object required: 'DBRecordSet(...)' /includes/sessions-inc.asp, line 64
Nonostante abbia verificato che tutti i privilegi siano attivi, non riesco a risolvere .. mi aiutate please ? Il portale ha una versione vecchia e non posso modificarla con la nuova a seguito variazioni di programmazione. Grazie
digitalgfx
Avanzato
118 Discussioni
24 giugno 2010 alle 18:28:15 hai provato a vedere nel db alla voce session se è rimasta attiva qualche sessione che crea problemi? verifica bene.
ciao
calvizzanonline
Eliminato
0 Discussione
24 luglio 2012 alle 12:00:16 Salve ragazzi, nel cercare una soluzione identica a quella citata dal primo postatore vorrei avere maggiori informazioni in merito alla soluzione, dal momento che non sono un gran smanettone di asp. L'errore che mi esce è il seguente:
ErroreSQL ErroreSQL Microsoft VB Script runtime error '800a01a8'
Object required: 'DBRecordSet(...)'
/includes/manager-inc.asp, line 342
mi potreste spiegare passo passo dove posso andare a mettere mano per risolvere tale problema? Grazie anticipatamente.
25 luglio 2012 alle 19:25:18 In linea di principio, l'errore evidenziato deriva da un problema di sessioni aperte nel database, solitamente dopo un reset del server sparisce ma, se proprio hai urgenza, prova a scaricare il db MAIN.MDB, se usi Access, e controlla nella tabella Sessions che non vi siano sessioni appese, se vi è una sessione aperta, cancella la riga, esegui l'upload del db sul server, e controlla. Altrimenti puoi anche andare in amministrazione, dal menù scegliere database ed eseguire la compattazione del DB MAIN, lo trovi nella casella di testo che compare nella pagina.
--------------- A lavare la testa ai somari, ci si rimette l'acqua e il sapone!
09 agosto 2012 alle 11:16:50 Essendo un neofita per quanto riguarda i database e dal momento che non riesco ad accedere al pannello di controllo del forum, mi potreste consigliare un altra soluzione, possibilmente descritta passo passo? Grazie anticipatamente
calvizzanonline
Eliminato
0 Discussione
09 agosto 2012 alle 11:40:49 Ho aperto il file "session".....ma come faccio a capire se c'è qualche sessione aperta? di seguito vi trascrivo lo script che si trova all'interno del file:
<% ' ************************************************************************ ' * ASPNUKE: Free web portal in ASP * ' ************************************************************************ ' * ASP-Nuke 2.0 Copyright (c) 2004 by Aspnuke.it Staff * ' * (staff@aspnuke.it) http://www.aspnuke.it * ' * * ' * Re-design by Enrico Musante (c) 2004 (emu@libero.it) * ' * Re-design by Frank Zalabard (c) 2004 (fsarzana@hotmail.com) * ' * * ' * ASP-Nuke 1.0, 1.1, 1.2 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. * ' * * ' ************************************************************************ %> <!-- #include file="md5-inc.asp" --> <% ' Log off from members section ' IN : - ' OUT : - Sub Logoff() Dim oCn, rSQL
Response.Cookies("pseudo") = "" Response.Cookies("pseudoid") = "" Response.Cookies("email") = "" Response.Cookies("pseudo").Expires = Date - 7 Response.Cookies("pseudoid").Expires = Date - 7 Response.Cookies("email").Expires = Date - 7
If iSessionID <> "" Then rSQL = "UPDATE sessions SET sLogin='' WHERE sID=" & iSessionID Set oCn = DBConnexion(DB_MAIN) DBExecute oCn, rSQL
oCn.Close Set oCn = Nothing End If ' On Error resume next Session.Contents.remove("UploadFolder") If Err <> 0 Then Err.Clear Session("UploadFolder") = "" End If On Error Goto 0 ' ReleaseObjects Response.Redirect GLOBAL_SITE_PATH & "Default.asp?do=out" Response.End End Sub
Function UpdateSession(iUserSessionID, sUserLogin, sUserIP) Const SESSION_DURATION = 10 ' in minutes Dim oCn, oRs, fUpdate, rSQL, sDateNow, sDateOld, UpdSession
If Not IsNumeric(iUserSessionID) Then If sUserLogin <> "" Then rSQL = "DELETE FROM sessions WHERE sLogin='" & SQLEncrypt(sUserLogin) & "'" Else rSQL = "DELETE FROM sessions WHERE sIP='" & sUserIP & "' AND sLogin=''" End If DBExecute oCn, rSQL rSQL = "INSERT INTO sessions (sLogin, sIP, sDateFirst, sDateLast, sReferer) VALUES ('" & SQLEncrypt(sUserLogin) & "', '" & SQLEncrypt(sUserIP) & "', '" & sDateNow & "','" & sDateNow & "', '" & Request.ServerVariables("HTTP_REFERER") & "')" DBExecute oCn, rSQL Else rSQL = "SELECT sID FROM sessions WHERE sID=" & iUserSessionID Set oRs = DBRecordSet(oCn, rSQL) If Not oRs.EOF Then rSQL = "UPDATE sessions SET sLogin='" & SQLEncrypt(sUserLogin) & "', sDateLast='" & sDateNow & "' WHERE sID = " & iUserSessionID DBExecute oCn, rSQL UpdSession = iUserSessionID fUpdate = true Else rSQL = "DELETE FROM sessions WHERE sID=" & iUserSessionID If sUserLogin <> "" Then rSQL = rSQL & " OR sLogin='" & SQLEncrypt(sUserLogin) & "'" end if DBExecute oCn, rSQL rSQL = "INSERT INTO sessions (sLogin, sIP, sDateFirst, sDateLast, sReferer) VALUES ('" & SQLEncrypt(sUserLogin) & "', '" & SQLEncrypt(sUserIP) & "', '" & sDateNow & "','" & sDateNow & "', '" & Request.ServerVariables("HTTP_REFERER") & "')" DBExecute oCn, rSQL End If oRs.Close Set oRs = Nothing End If
if not fUpdate then rSQL = "SELECT sID FROM sessions WHERE sLogin = '" & SQLEncrypt(sUserLogin) & "' AND sIP = '" & SQLEncrypt(sIP) & "' AND sDateFirst = '" & sDateNow & "' AND sDateLast=sDateFirst" Set oRs = DBRecordSet(oCn, rSQL) If Not oRs.EOF Then UpdSession = oRs("sID") else 'it should never happen UpdSession = iUserSessionID end if oRs.Close Set oRs = Nothing end if ' Delete old sessions rSQL = "DELETE FROM sessions WHERE sDateLast<='" & sDateOld & "'" DBExecute oCn, rSQL
oCn.Close Set oCn = Nothing
UpdateSession = UpdSession End Function
' Verify that user's id and login are ok, and get role ' IN : sUserLogin (string) user's login (table users, field uLogin) ' : iUserID (int) user's id (table users, field uID) ' OUT : (int) user's role (redirection to /Default.asp if user not found) Function VerifyUserIntegrityAndGetRole(sUserLogin, iUserID) Dim oCn, oRs, rSQL, bOk, iTempRole, iTempID, strPassword
bOk = False
If sUserLogin <> "" and iUserID <> "" Then If bSecuredPassword Then rSQL = "SELECT uRole, uID, uPasswordSecure FROM users WHERE uLogin='" & SQLEncrypt(sUserLogin) & "'" else rSQL = "SELECT uRole, uID, uPassword FROM users WHERE uLogin='" & SQLEncrypt(sUserLogin) & "'" end if Set oCn = DBConnexion(DB_MAIN) Set oRs = DBRecordSet(oCn, rSQL) If Not oRs.EOF Then If bSecuredPassword Then 'calcolo id come md5 di md5 di passwordsecure strPassword = "" & oRs("uPasswordSecure") else 'calcolo id come md5 di md5 di password strPassword = "" & oRs("uPassword") End if iTempID = hex_md5(hex_md5(strPassword)) If iUserID = iTempID Then bOk = True iUserID = oRs("uID") iTempRole = oRs("uRole") End If
oRs.Close Set oRs = Nothing oCn.Close Set oCn = Nothing End If End If
If bOk Then VerifyUserIntegrityAndGetRole = iTempRole Else VerifyUserIntegrityAndGetRole = -1 End If End Function %>
09 agosto 2012 alle 18:18:43 Non devi aprire il file SESSIONS-INC.ASP, ma, il database MAIN.MDB e, se hai problemi con il forum anche il database FORUM.MDB che devi scaricare dallo spazio web in cui hai caricato Aspnuke, ad esempio, se hai uno spazio con Aruba, troverai i files db nella cartella MDB-DATABASE, oppure, dal menù, scegli Amministrazione, Database, quindi, Compatta database, vedrai una scritta DbCompact 1.1 e sotto una casella a discesa con cui scegliere il db da compattare, evidenzia con click il nome e quindi premi CONFERMA, nella finestra superiore, potrai invece controllare che non vi siano sessioni aperte facendo così: scrivi SELECT * FROM SESSIONS scegli dalla casella sottostante il db MAIN.MDB, e premi CONFERMA, ti apparirà la sessione aperta in quel momento, se vi sono più sessioni, allora devi provare la compattazione, oppure lo scaricamento in locale e quindi la cancellazione delle sessioni a mano.
--------------- A lavare la testa ai somari, ci si rimette l'acqua e il sapone!