Girilmesini İstemediğiniz Sayfayı Şifreleme
Girilmesini istemediğiniz sayfayı bu uygulama sayesinde şifreleyebilirsiniz. Tek yapmanız gereken, guvenlik.asp dosyasını şifrelemek istediğiniz dosyaya include metodu ile eklemektir.
[HTML]
<% Response.Buffer = True
'Sifre = Burada bulunan admin yazısı yerine kendi şifrenizi yazınız.
sifre = "zone"
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 UYAR</a></font></b></i></td>
</tr>
</table>
<%
Response.End
End Sub
%>
[/HTML]