Html kod,Html,Asp,Php,Java,Kod,Html kod,Hazır Htm kod,Kodlar,Hazır Kod, YouCalendar.sitene ekle,kod,sitene kod ekle ,sit - Girilmesini istemediginiz sayfalari sifreleyin

Girilmesini istemediginiz sayfalari sifreleyin

' 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 %>">
( Güvenlik Girişi
)</td>
</tr>
<tr>
<td width="100%">
</td>
</tr>
<tr>
<td width="100%">
Sifre : <input type="password" name="sifrem" size="20" style="font-family: Verdana; font-size: 10px; color: #A7ACBA; border: 1 solid #C2C6CF" value="123456"></td>
</tr>
<tr>
<td width="100%">
<input type="submit" value="Giriş" name="B1" style="font-family: Verdana; font-size: 10px">

<a href="mailto:mustafa_uyar@msn.com" style="text-decoration: none">m U S
T A f a&nbsp; UYAR</a></td>
</tr>
</table>
<%
Response.End
End Sub
%>

Bugün 2 ziyaretçi (3 klik) kişi burdaydı!