03. april 2001 - 01:21
Der er
7 kommentarer og
1 løsning
Ustabilt bruger login
Jeg er ved at lave en site hvor jeg har et bruger login script som består af en verify fil og min global.asa
Jeg har mit webhotel hos Worlddownline som har haft store ASP problemer (de kan simpelthen ikke finde ud af at få det til at fungere ordentligt). Mit problem er, at hver anden gang når man logger ind eller skifter side, logges brugeren ud! Stort problem...
Jeg vedlægger lige min global.asa og verify, hvis nogen af Jer eksperter skulle kunne se problemet. Eller konstatere om problemet er hos WorldOnline
03. april 2001 - 01:30
#2
Sorry - her kommer global.asa
<SCRIPT LANGUAGE=VBScript RUNAT=Server>
SUB Application_OnStart
Application(\"database\") = \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=t:..........\"
Application(\"fildb\") = \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=t:............\"
Application(\"Data\") = \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=t:................\"
Application(\"Kalender\") = \"DSN=ASP\"
Dim Stats(100,2)
Application(\"Stats\") = Stats
END SUB
</SCRIPT>
<SCRIPT LANGUAGE=VBScript RUNAT=Server>
SUB Application_OnEnd
END SUB
</SCRIPT>
<SCRIPT LANGUAGE=VBScript RUNAT=Server>
SUB Session_OnStart
Application.Lock
Application(\"AntalBrugere\") = Application(\"AntalBrugere\") + 1
Application.Unlock
Session.Timeout=20
Session(\"Authenticated\") = 0
Session(\"brugernavn\") = \"\"
Session(\"fagomraade\") = 0
Session(\"BrugerType\") = 0
Session(\"BrugerID\") = 0
END SUB
</SCRIPT>
<SCRIPT LANGUAGE=VBScript RUNAT=Server>
SUB Session_OnEnd
Application.Lock
Application(\"AntalBrugere\") = Application(\"AntalBrugere\") - 1
Application.Unlock
Application.Lock
localStats = Application(\"Stats\")
FOR i = 0 TO UBOUND(localStats, 2)
IF localStats(0,i) = Session.SessionID THEN
localStats(0,i) = \"\"
EXIT FOR
END IF
NEXT
Application(\"Stats\") = localStats
Application.Unlock
END SUB
</SCRIPT>
<OBJECT RUNAT=Server
SCOPE=Application
ID=conquerChatUsers
PROGID=\"Scripting.Dictionary\">
</OBJECT>
<OBJECT RUNAT=Server
SCOPE=Application
ID=conquerChatRooms
PROGID=\"Scripting.Dictionary\">
</OBJECT>
03. april 2001 - 01:32
#3
...og her min verify.asp fil
<%@ LANGUAGE=\"VBSCRIPT\" %>
<% Option Explicit %>
<!-- #INCLUDE VIRTUAL=\"/adovbs.inc\" -->
<%
Dim status, SQL, fejltype, fejlbesked, Conn, RS, Sprog
status = False
Session(\"brugernavn\") = Request(\"brugernavn\")
Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open Application(\"database\")
Set RS = Server.CreateObject(\"ADODB.Recordset\")
SQL = \"SELECT Brugernavn, Adgangskode, Tsprog.sprog, BrugerType FROM TBruger INNER JOIN Tsprog ON TBruger.Sprog = Tsprog.ID WHERE ((Brugernavn=\'\"& Session(\"brugernavn\")&\"\') AND (Adgangskode=\'\"& Request(\"password\") &\"\'))\"
RS.Open(SQL), Conn
While NOT RS.EOF
Session(\"Authenticated\") = \"1\"
sprog = RS(\"sprog\")
Session(\"BrugerType\") = RS(\"BrugerType\")
status = True
RS.Movenext
Wend
RS.Close
Set RS = NOTHING
Conn.Close
Set Conn = NOTHING
select case status
case True call put_i_hvemeronline()
Response.redirect(\"/forside.asp\")
case False Session(\"Authenticated\") = \"0\"
fejlbesked = Server.URLEncode(\"Forkert brugernavn eller adgangskode.\")
Response.Redirect(\"/forside.asp?fejlbesked=\"& fejlbesked &\"\")
end select
\' sub status()
\' Dim Conn, RS, brugernavn
\' brugernavn = Request(\"brugernavn\")
\' Set Conn = Server.CreateObject(\"ADODB.Connection\")
\' Conn.Open Application(\"Database\")
\' Set RS = Conn.Execute(\"SELECT brugernavn, sprog FROM TBruger WHERE Brugernavn=\'\"& brugernavn &\"\'\")
\' While NOT RS.eof
\' RS.Movenext
\' Wend
\'
\' RS.Close
\' Set RS = NOTHING
\' Conn.Close
\' Set Conn = NOTHING
\' end sub
sub put_i_hvemeronline()
Dim foundUser, localStats,k
foundUser = FALSE
Application.Lock
localStats = Application( \"Stats\" )
FOR k = 0 TO UBOUND( localStats, 2 )
IF localStats( 0, k ) = Session.sessionID THEN
foundUser = TRUE
EXIT FOR
END IF
NEXT
IF foundUser = FALSE THEN
FOR k = 0 TO UBOUND( localStats, 2 )
IF localStats( 0, k ) = \"\" THEN
localStats( 0, k ) = Session.sessionID
localStats( 1, k ) = Session(\"brugernavn\")
localStats( 2, k ) = sprog
EXIT FOR
END IF
NEXT
END IF
Application(\"Stats\") = localStats
Application.UnLock
end sub
%>
15. april 2001 - 19:36
#8
Kan også på det kraftigste anbefale web-sale.dk. Kanon support, oppetider helt i top, og yderst venligt personale! ;o)
