Programalama > ASP

ASP / Tekil Parola Koruma......

Tekil Parola Koruma.....

Etiketler: tekil, parola, koruma......

Ort. 0

Puan ver:

hazirkod 27 June 19:34 0

0 kişiden 0 puan aldı

5065

* Bu kod ile sitenizin (mesala) admin sayfasini korumak icin kullanabilirsiniz... Bu kodlari inc_sifre.asp olarak kaydedin ve korumak istediginiz dosyanin basina <!-- #include file="inc_sifre.asp" --> ile dosyayi include edin.. 

<% 
DIM Gerekli_Sifre 
Gerekli_Sifre = "SIFREMIZ" 

If Session("Kullanici_Sifresi" ) <> Gerekli_Sifre Then 
If Request.Form("Kullanici_Sifresi" ) <> Gerekli_Sifre Then 
Call frmParola_Form 
Else 
Session("Kullanici_Sifresi" ) = Gerekli_Sifre 
End If 
End If 
%> 
<% 
Sub frmParola_Form 
Sayfa = "http://" 
Sayfa = Sayfa & Request.ServerVariables("HTTP_HOST" ) 
Sayfa = Sayfa & Request.ServerVariables("URL" ) 
%> 
<html> 

<head> 
<title></title> 
</head> 

<body> 

<form method="post" action="<% =Sayfa %>"> 
  <p>SIFRE : <input type="PASSWORD" name="Kullanici_Sifresi" value size="20"> <br> 
  <br> 
  <input type="SUBMIT" value="Gir">  Alperen Tozluca © 2002</p> 
</form> 

<p><br> 
<% 
Response.End 
End Sub 
%></p> 
</body> 
</html>