Girilmesini istemediginiz sayfalari sifreleyin

[LincolnSamet]

Tek yapmaniz gereken girilmesini istemediginiz sayfaya include etmek

' Bu sayfayı guvenlik.asp olarak kaydet

<% Response.Buffer = True %>
<%
'Sifre = Burada bulunan admin yazısı yerine kendi şifrenizi yazınız.
sifre = "8282"
if Session("sifreniz") <> sifre then
if Request.Form("sifrem") <> sifre then
	Call giris
Else
	Session("sifreniz") = sifre
End if
End if
Sub giris
gelen_sayfa = "http://"&Request.ServerVariables ("HTTP_HOST")&Request.ServerVariables("URL")
%>
<table border="0" cellpadding="2" cellspacing="0" width="100%">
  <tr>
    <td width="100%"><form method="POST" action="<% = gelen_sayfa %>">
      <p align="center"><i><b><font color="#FF6600" size="1">( Güvenlik Girişi
      )</font></b></i></td>
  </tr>
    <tr>
    <td width="100%">
      <p align="center"><i><b><font color="#6F778C"><font size="1"></font></font></b></i></td>
    </tr>
  <tr>
    <td width="100%">
      <p align="center"><i><font color="#FF6600">Sifre : <input type="password" name="sifrem" size="20" style="font-family: Verdana; font-size: 10px; color: #A7ACBA; border: 1 solid #C2C6CF" value="123456"></font></i></td>
  </tr>
  <tr>
    <td width="100%">
      <p align="center"><input type="submit" value="Giriş" name="B1" style="font-family: Verdana; font-size: 10px"><p align="center">
      <i><b><font color="#FF6600">
      <a href="mailto:mustafa_uyar@msn.com" style="text-decoration: none">m U S 
      T A f a&nbsp; UYAR</a></font></b></i></td>
  </tr>
</table>
<%
Response.End
End Sub
%>