Jag vill ha en cockie som sparar ett namn som man skriver in då man ska logga in på en kommunity. Så den som loggade in sist på en dator får sitt användarnamn i formuläret redan då han går in på sidan den som loggade i senast på en annan dator har sit användarnamn i formuläret <code> På din login sida sätter du cookien för username: Får felet Opps...stavfel av migCockies[LÖST]
<!-- #include file="adovbs.inc" -->
<head>
<LINK REL=stylesheet HREF="style1.css" TYPE="text/css">
<title>Inloggning</title>
</head>
<body>
<table>
<tr>
<td>
<B>
<%
If Session("meddelande") <> "" Then
Response.Write Session("meddelande")
Session("meddelande") = ""
End If
%>
</B>
</tr>
</table>
<table align="center" width="160" cellpadding="2" cellspacing="0">
<tr>
<td background="images/loggin.gif" valign="center" align="center"><b>LOGIN</b>
</tr>
<tr>
<td class="boxlook">
<table width="160" >
<tr>
<td width="84" valign="top">
<form name="" method="post" action="login_chek.asp" target="_top">
Username:<br>Password:<br>
<td align="center" width="160">
<p align="left">
<br>
<input type="text" name="Username" size="15">
<br>
<input type="password" name="Password1" size="15"><br>
</tr>
<tr>
<td colspan="2" width="160" align="center" valign="center">
<input type="submit" name="login" src="images/login.gif" value="login">
</form>
</tr>
</table>
</tr>
</table>
</body>Sv: Cockies
Dim sUsr 'as String
sUsr = Requset.Form("username")
'** Kolla så att det blir ett korrekt login.
'** Sätt kakan
'** Hur länge skall den gälla
Response.Cookies("ettnamn").Expires = Now() + 7
Response.Cookies("ett_cookie_namn") = sUsr
'** Vid nästa login
<%
If Request.Cookies("ett_cookie_namn") <> "" Then
'** Cookien finns så skriv ut användarnamnet
Dim sValue 'as String
sValue = Request.Cookies("ett_cookie_namn")
End If
%>
<input type="text" name="username" value="<%=sValue%>">
</code>
Läs mer om Cookies i denna artikel http://www.pellesoft.nu/login/articles/asp/cookies.asp
//PutteSv: Cockies
<code>
' Sätt cookie för username
Response.Cookies("UserName") = Request.Form("Username")
Response.Cookies("KC_PID").Expires=DateAdd("d",90,Date)
</code>
För att få in värdet i Cookien i formulärfältet:
<code>
' Läscookie för username
<input type="text" name="Username" size="15" value=">% = Response.Cookies("UserName") %>">
</code>Sv: Cockies
Microsoft VBScript runtime error '800a01a8'
Object required: 'Requset'
/muffinman/db/Acomunity/login_chek.asp, line 3
KODEN
<%
Dim sUsr 'as String
sUsr = Requset.Form("Username") 'line 3
Response.Cookies("ettnamn").Expires = Now() + 7
Response.Cookies("Username") = sUsr
%>
<%
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "Driver={Microsoft Access driver (*.mdb)};dbq=" & Server.MapPath("db/db.mdb")
btn = LCase(request.Form("login"))
Username = request.Form("Username")
Password1 = request.Form("Password1")
If btn = "login" Then
If Username > "" and Password1 > "" Then
Set rst = Connect.execute("select ID, Username, Password1, Email, Password2, Fname, Ename, Alder, Land, Ort, Sex, Bild, Hemsida, Annat, poang, Status from tblUsers where Username='" & replace(Username,"'","''") & "' AND Password1='" & replace(Password1,"'","''") & "'")
If Not rst.EOF Then
Session("ID") = rst("ID")
Session("Username") = rst("Username")
Session("Email") = rst("Email")
Session("Fname") = rst("Fname")
Session("Ename") = rst("Ename")
Session("Alder") = rst("Alder")
Session("Land") = rst("Land")
Session("Ort") = rst("Ort")
Session("Hemsida") = rst("Hemsida")
Session("login") = "ok"
Session("Bild") = rst("Bild")
Session("Password2") = rst("Password2")
Session("Sex") = rst("Sex")
Session("Annat") = rst("Annat")
Session("poang") = rst("poang") +1
Session("Status") = "online"
SQL = "UPDATE tblUsers Set poang = poang +1, Status = 'online' where ID = " & rst("ID")
Connect.Execute(SQL)
response.redirect "index.asp"
Else
Session("meddelande") = "Wrong username or password."
response.redirect "login.asp"
End If
Else
Session("meddelande") = "You forgot to fill in your username or password."
Response.redirect "login.asp"
End If
Else
Response.redirect "login.asp"
End If
Set rst = Nothing
Set Connect = Nothing
%>Sv: Cockies
<code>
Dim sUsr 'as String
sUsr = Requset.Form("Username") 'line 3
sUsr = Request.Form("username") skall det vara
Ett tips bara. Sätt inte cookien innan användaren har lyckats logga in ordentlig. Jag skulle sätta den som nedan
Connect.Execute(SQL)
'** här har användaren lyckats logga in så sätt cookien
Response.Cookies("ettnamn").Expires = Now() + 7
Response.Cookies("Username") = sUsr
response.redirect "index.asp"
Byt gärna ut namnet på cookien till något som passar din app. ettnamn är vara taget ur luften.
Tex. Response.Cookies("myCommunity")
//Putte
</code>