<% If NOT session("login") = "ok" THEN %>
det här eller
------------------
ASP är bäst fuck the rest!!!
Simple Chat
48 svar · 580 visningar · startad av jboy_87 · sida 2 av 3
Var lagras namnen på de inloggade?
Och om de inte lagras så är det väl lämpligt att lagra de när användaren loggar in...
------------------
/Erik
www.juhlin.nu /sk8files/ /mp2d/
session("den_måste_väl_heta_någe") = användaren_som_just_loggade_in
------------------
Don't panic!
@nders är ute efter variabelnamnet, dvs den heter nåt i stil med session("user") eller nåt.
Oj. Det blev lite sent ser jag :)
------------------
The computer is mightier than the pen, the sword, and usually, the programmer.
[Redigerat av Jon den 29 nov 2001]
[Redigerat av Jon den 29 nov 2001]
går och ta fram användarnamenet med det här
<%=session("username")%>
------------------
ASP är bäst fuck the rest!!!
En person kan inte komma åt andras sessions. Du får lagra namnen på de inloggade i en databas eller i Application.
------------------
/Erik
www.juhlin.nu /sk8files/ /mp2d/
jboy, vet inte om du gör det lite för svårt för dig, eller om det är jag / vi som missuppfattar vad du försöker göra.
Kan det inte vara så pass enkelt som att byta ut
strUser = "<b>" & Request.ServerVariables("REMOTE_ADDR") & "</b>: "
mot
strUser = "<b>" & Session("UserName") & "</b>: "
:q
------------------
Don't panic!
provade så här också funkade inte
<!-- #include file="../adovbs.inc" -->
<%
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("../Database/members.mdb")&";pwd=losen"
Set RecSet = Server.CreateObject("ADODB.Recordset")
Addera = "Select * From members Where id = " &Session("id")
RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic
%>
<html>
<head>
<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<meta http-equiv="REFRESH" content="3; URL=main.asp">
<title>Ny sida 1</title>
<base target="_self">
</head>
<body bgcolor="#FFF8E8">
<% strUser = "<b>" & recset("username") & "</b>: "
strMessage = Server.HTMLEncode(TRIM(Request.Form("message")))
' // Her rydes Chat loggen, hvis den overstiger 10000 karakter
If Len(Application("ChatLog")) > 10000 Then
Application.Lock
Application("ChatLog") = ""
Application.UnLock
End If
If Request.Form("Action") = "Skicka" Then
If Len(strMessage) > 0 Then
strChatContent = strUser & strMessage & "<br>" & Application("ChatLog")
Application.Lock
Application("ChatLog") = strChatContent
Application.UnLock
End If
End If
Response.Write Application("ChatLog")%>
</body>
</html>
------------------
ASP är bäst fuck the rest!!!
och så här länken:
[kod]
chat/default.asp?id=<%=Request.QueryString("id")%><%=Session("id")%>
[kod]
------------------
ASP är bäst fuck the rest!!!
Querystringen skulle inte va med skrev fel länk men får endå
får följande felmess:
Microsoft OLE DB Provider for ODBC Drivers (0x80040E14)
[Microsoft][Drivrutin för ODBC Microsoft Access] Syntaxfel (operator saknas) i frågeuttrycket 'id ='.
/chat/main.asp, line 11
------------------
ASP är bäst fuck the rest!!!
<!-- #include file="adovbs.inc" -->
<%
Set connection = server.createObject("adodb.connection")
connection.open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("Database/members.mdb") & ";"
sql = "select count(*) as members from members"
%>
<% IF Request.Querystring("loggaut") ="ja" THEN
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("Database/members.mdb")&";pwd=losen"
On Error Resume Next
Set RecSet = Server.CreateObject("ADODB.Recordset")
Addera = "Select * From members where id="&Session("id")
RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic
RecSet("status") = "offline"
RecSet.Update
RecSet.Close
Connect.close
Set RecSet = nothing
Set Connect = nothing
Session.Abandon
Response.Redirect "default.asp"
END IF
%>
<%
IF Request.Querystring("loggain") ="ja" THEN
If Request.Form("username") = "" Then
Session("meddelande") = "Du glömde fylla i användarnamet eller lösenordet."
end if
If Request.Form("losen") = "" Then
Session("meddelande") = "Du glömde fylla i användarnamet eller lösenordet."
end if
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("Database/members.mdb")&";pwd=losen"
Set RecSet = Server.CreateObject("ADODB.Recordset")
Addera = "Select * From members"
RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic
'----- Rensar bort sånna som inte loggat ut korrekt.. -------
Do Until RecSet.EOF
If RecSet("status") = "online" AND DateDiff("n", RecSet("datum"), Now) > 40 Then
RecSet("status") = "offline"
RecSet.Update
End If
RecSet.MoveNext
Loop
RecSet.Close
'---------------- SLUT PÅ UTRENSNINGEN ------------------
RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic
Do Until RecSet.EOF
if lcase(recset("username")) = lcase(request.form("username")) and lcase(recset("losen")) = lcase(request.form("losen")) then
RecSet("datum") = Now
RecSet("status") = "online"
RecSet.Update
Session("namn") = RecSet("fnamn") & " " & RecSet("enamn")
Session("fnamn") = RecSet("fnamn")
Session("enamn") = RecSet("enamn")
Session("Username") = RecSet("Username")
Session("login") = "ok"
Session("id") = RecSet("id")
Session("status") = "online"
Session("epost") = RecSet("epost")
Session.TimeOut = 40
RecSet.Close
Connect.Close
Set RecSet = nothing
Set Connect = nothing
Response.Redirect "index.asp"
End If
RecSet.MoveNext
Loop
RecSet.Close
Connect.Close
Set RecSet = nothing
Set Connect = nothing
Session("meddelande") = "Tyvärr! Fel användarnamn eller lösenord. Försök igen!"
Response.Redirect "default.asp"
END IF
%>
------------------
ASP är bäst fuck the rest!!!
Väldans mycket kod, jag får se om jag tar mig genom den när jag kommer hem.
Har du kontrollerat så sessionsvariablerna får ett värde överhuvudtaget?
Kan du vid något tillfälle få ut användarnamnet genom <%=Session("username")%>?
------------------
Don't panic!
jag använder mig utav en popup det är kanske darför??????????
------------------
ASP är bäst fuck the rest!!!
Det kan det mycket väl vara!
Det händer ofta att popup-fönster skapar en ny session på servern.
Prova att köra det i samma fönster och rapportera sedan.
Mvh,
------------------
Don't panic!