Hej
Jag skulle vilja skapa en "Memory Cookie"
Alltså... Typ att den bara finns medans användaren är inloggad. Sen skulle jag även vilja att en del värden från databasen följer med den cookien. Så här långt har jag kommit än så länge:
Inloggningschecken:
<%
option explicit
Dim username, password, SQL, db, rs, fltuserkat, fltname, fltusername, fltcountrycode
username = Request.Form("admin")
password = Request.Form("adminpassword")
SQL = "SELECT * FROM tblusers Where fltusername = '" &username &"' And fltpassword = '" &password &"'"
if (len(username))>0 And (len(password)>0) Then
Set db = Server.CreateObject("ADODB.Connection")
db.Open "int_hardoxDSN"
Set rs = db.Execute (SQL)
fltuserkat = rs("fltuserkat")
fltname = rs("fltname")
fltusername = rs("fltusername")
fltcountrycode = rs("fltcountrycode")
fltbusinessarea = rs("fltbusinessarea")
if not Rs.EOF Then
' Sätter en cookie med användarens: userkategori (Roll i applikationen)
' name (användaren namn) username (användaren användarnamn)
' countrycode (användarens landskodsrättigheter) businesarea (användarens affärsområde)
%>
<%
Response*cookies("User")("uid")= rs("fltuserkat")
Response*cookies("User")("name")= rs("fltname")
Response*cookies("User")("uname")= rs("fltusername")
Response*cookies("User")("ccode")= rs("fltcountrycode")
Response*cookies("User").path="/admin"'______________________________gäller endast till admin_edit_sidorna
Response*cookies("User").Expires=date()+365
Response.Redirect "admin/inloggad.asp"
%>
<% else
Response.Redirect "invalid.asp"
End if
End if
%>
Misstänker att felet är har någonstans. För i nästa fil får jag ingen presentation av cookien. Filen är inloggad.asp. Den ser ut så här:
\<%
Dim cookie, Key
For each Cookie in Request\*cookies
Response.Write "\<P\>"
If Request\*cookies(cookie).Haskeys Then
Response.Write cookie &"\<br\>"
For each Key in Request\*cookies(cookie)
Response.Write Key &"="
'Response.Write
Request\*cookies(cookie)(Key)
Response.Write"\<br\>"
Next
Else
Response.Write User &"="
Request\*cookies(cookie)&"\<br\>"
End if
Response.Write"\<p\>"
Next
%\>
Ser ni vad det är som inte är som det ska?
Sorry om det är lite kufiska stavfel etc. Klockan´mycke jag trött...
Tack för uppmärksamheten
mvh / TT
[Redigerat av T_Codez den 18 jul 2001]
[Redigerat av T_Codez den 18 jul 2001]