Gönderen: 29-Mayıs-2012 Saat 09:55 | Kayıtlı IP

<% 'Bu kodlar EvcilASP'den Mucit'e aittir... http://www.evcil.net
DIM pwdGerekli_Sifre,sayfa
pwdGerekli_Sifre = "admin"

IF Session("pwdKullanici_Sifresi") <> pwdGerekli_Sifre THEN
  IF request.form("pwdKullanici_Sifresi") <> pwdGerekli_Sifre THEN
    CALL frmParola_Form
  ELSE
    Session("pwdKullanici_Sifresi") = pwdGerekli_Sifre
  END IF
END IF
%>

<%
SUB frmParola_Form
  Sayfa = "http://"
  Sayfa = Sayfa & Request.ServerVariables("HTTP_HOST")
  Sayfa = Sayfa & Request.ServerVariables("URL")
%>
<br>
<form method=post action="<% =Sayfa %>">
  Bu bölümü sadece yöneticiler tarafından görülebilir,<br><br>
  Şifre?
  <input type="PASSWORD" name="pwdKullanici_Sifresi" value="">
  <br><br>
  <input type="SUBMIT" value="Yönetici Bağlantısı">
</form>
<br>
<%
  Response.End
END SUB
%>