beni hatırla cookie

02-09-2008, 18:30:26

#1

~~sou1985~~

Üyeliği durduruldu

silindi

03-09-2008, 12:00:28

#2

shiko

Kimlik doğrulama veya yönetimden onay bekliyor.

ücretli yardım istiyorsan pm at!

03-09-2008, 12:08:37

#3

~~benikaydet~~

arkadaşım burayı oku, ayrıca bu konuda makale çok, araştırmanı tavsiye ederim..

remember me cookie

03-09-2008, 12:24:51

#4

shiko

sou1985 adlı üyeden alıntı: mesajı görüntüle

ehuehu yok abicim yok ücret fln

bir sürü makale buldumda bi turlu yapamadım yolladıgın link için çok teşekkürler benikaydet

tmm abi kızma yha
ücretsiz de yardım ederiz insanlık öldü mü?
ama şuan yoğunum

03-09-2008, 13:25:59

#5

apridev

arkadaşım bunun için makale okuyup kafanı şişirmene hiç gerek yok. Asp script dağıtan sitelerden üyelik scriptlerini indir ve kodlarını incele çok rahatlıkla sorununu çözersin. Makale okuyarak çözeyim dersen emin ol ki ömrün yetmeyebilir...

03-09-2008, 16:29:52

#6

shiko

hazır buldum onu paylaşayım bari dedim

işe yaramazsa biriki gün sonra senin kodları da elden geçirebilrim
login.asp

<% Response.Buffer = True 'Buffers the content so Response.Redirect will work
Session("BlnAdministrator")=false 'Set our session object to false
'set the username and password
sUsername="codefixer" 
sPassword="codefixer"
%>
<html>
<head>
<title>Cookie Login Script</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body>
<%
'if form has not been filled in then display it otherwise check the details submitted
If Request.Form<>"" Then
If Request.form("checkbox") ="1" Then
Response.Cookies("UsernameCookie") = Request.Form("txtUsername")
Response.Cookies("PasswordCookie") = Request.Form("txtPassword")
Response.Cookies("RememberMeCookie") = "1"
Response.Cookies("UsernameCookie").expires = Now() + 60
Response.Cookies("PasswordCookie").expires = Now() + 60
Response.Cookies("RememberMeCookie").expires = Now() + 60
Else
Response.Cookies("RememberMeCookie") = "" 
Response.Cookies("UsernameCookie") = "" 
Response.Cookies("PasswordCookie") = "" 
End If
'=== call checklogin subroutine
CheckLoginForm
Else
'=== call showlogin subroutine 
ShowLoginForm
End If
'=== begin subroutine showlogin
Sub ShowLoginForm
%>
<div align="center"> <br>
<form name="form1" action="<%=Request.ServerVariables("SCRIPT_NAME")%>" method="post">
<table width="50%" border="1" align="center" cellpadding="4" cellspacing="0" bordercolor="#6185C1" bgcolor="EEF3FB">
<tr> 
<td height="112" valign="top">
<table width='100%' border="0" cellpadding="3"> 
<tr> 
<td colspan="2">&nbsp;</td>
</tr>
<tr> 
<td width="45%">Username : </td>
<td width="54%"> <input value="<%= Request.Cookies("UsernameCookie") %>" name="txtUsername" type="text"> 
</td>
</tr>
<tr> 
<td width="45%">Password : </td>
<td width="54%"> <input value="<%= Request.Cookies("PasswordCookie") %>" name="txtPassword" type="password"> 
</td>
</tr>
<tr> 
<td width="45%">&nbsp;</td>
<td width="54%"> <input type="submit" value="Login" name="submit"> 
</td>
</tr>
<tr> 
<td>Remember me</td>
<td><input value="1" type="checkbox" name="checkbox"
<% If Request.Cookies("RememberMeCookie") = "1" Then
Response.Write "CHECKED"
Else
Response.Write ""
End If %>>
</td>
</tr>
</table>
</td>
</tr>
</table>
</form>
</div>
<%
'=== end showloginform subroutine
End Sub
'===begin subroutine checkloginform
Sub CheckLoginForm
txtUsername=Request.Form("txtUsername")
txtPassword=Request.Form("txtPassword")
'simple/basic protection against SQL injection use of the apostrophe
If InStr(1,txtUsername,"'",1) > 0 and InStr(1,txtPassword,"'",1) > 0 then
response.redirect "Login.asp"
Else
'check to see if the form details filled in match 'username' and 'password' above
If txtUsername = sUsername AND txtPassword = sPassword Then
'if the correct login details are filled in then set up a Session Object and redirect 
'visitor to admin page
Session("BlnAdministrator") = True 
Response.Redirect "admin.asp" 'set page you want to direct to on successful login
Else
'if the correct details aren't filled in then show the subroutine showloginform again
'and the statement below
ShowLoginForm
response.write "<div align='center'>Your login failed.</div>" 
End If
End If
End Sub
'=== end subroutine checkloginform
%>
</body>
</html>

admin.asp

<% If Session("BlnAdministrator") <> True Then 
Response.Redirect("login.asp") 
End If 
%> 
<html>
<head>
<title>Cookie Login Script</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body>
<div align='center'>Successful login and your username & password will be remembered if you clicked 'remember me' on login.</div>
</body>
</html>

04-09-2008, 00:29:48

#7

irhz

arkadaşım senin hatan büyük ihtimalle formu gönderildiği sayfada işlemiyorsun. formun gönderildiği sayfaya başında response.buffer=true almalısın daha sonra hiçbir html tagına girmeden direkt olarak cookie gönder. çünki cookie HTTP headerlarında web server tarafından yazdırılır. "Set-Cookie" ile. (js ve meta ile de yazdırılır ancak bizim işimiz onlarla değil) yapamazsan yaz.

08-09-2008, 13:02:02

#8

Ron

Hatırla input'unun eğeri "on" değil 1, if değerini yeniden düzelt:

 
<% hatirla=Request.Form("hatirla" )
If hatirla = "1" Then 
'ya da 
'If hatirla = 1 Then
Response.Cookies("uyelik" )("kadi" )=kadi
Response.Cookies("uyelik" )("sifre" )=sifre
Response.Cookies("uyelik" ).Expires = Now() + 10
End If
%>

<%
isim=Request.Cookies("uyelik" )("kadi" )
sifre=Request.Cookies("uyelik" )("sifre" )
%>

Bir de beni hatırla'nın zamanaşımı (expire) değeri daha yüksek olmalı.