Haz
23şifreli sayfaların oluşturulmasını göreceğiz.
<form action="kontrol.asp" method="post" />
<input type="password" name="sifre" />
<input type="submit" value="Giriş" />
</form>
Basit bir form oluşturduk şimdide kontrol.asp sayfasını oluşturalım:
<% sifre = Request.Form("sifre") ' formumuzun değerini sifre değişkenine atadık
if sifre = "" then ' formun doldurulup doldurulmadığını kontrol ediyoruz
Response.Write "Sifre Girmediniz!"
End if
gsifre = "123456" 'giriş sifresini burdan değiştirebilirsiniz
if sifre = gsifre then 'eğer girilen şifre giriş şifresine eşitse
Session("giris") = "evet" 'giriş oturumunun değeri evet olcak
Response.Redirect "/" 'ana sayfaya yönlendirdik
else 'değilse
Response.Redirect "/" 'giriş oturumuna değer vermeden ana sayfaya yönlendirdik
End if
%>
şimdide Ana Sayfamızı oluşturalım:
if Sesssion("giris") = "evet" then 'eğer giriş oturumunun değeri evetse
Response.Write "şifreli sistemdesiniz." 'şifreli Sistemdesiniz yazısı yazdırdık siz burayı değiştirebilirsiniz.
Else ' değilse
Response.Write "<a href=""giris.asp"">Giriş Yapmalısınız</a>" 'giris.asp dosyasına link verdik.
End if
%>
şifreli sayfa oluşturma işlemi bu kadar kendinize iyi bakın.
5 yorum var
#293.-serdar-21 Temmuz 2007 Cumartesi
ana sayfa dediğiniz yer çalışmıyor hatası yanlış yazılma var duzgunu şöyle olacak Session
tüm kod ise ana sayfa için
Ana Sayfa <br/>
<%
if Session("giris") = "evet" then 'eğer giriş oturumunun değeri evetse
Response.Write "şifreli sistemdesiniz." 'şifreli Sistemdesiniz yazısı yazdırdık siz burayı değiştirebilirsiniz.
Else ' değilse
Response.Write "<a href=""giris.asp"">Giriş Yapmalısınız</a>" 'giris.asp dosyasına link verdik.
End if
%>
#299.-Magic Keyboard-27 Temmuz 2007 Cuma
mrb. ben access database e bağlı bir password control sistemi istiyorum. bunu nasıl senkronize edebiliriz. ben bir kaç deneme yaptım hata verdi.
mesela: password.asp ye form koydum. ve password_control.asp ye post ettim. aşağıda password_control.asp var. bundaki sorun nedir
<% Session.Timeout = 30 %>
<% id = request.querystring("id") %>
<%
set bag=server.createobject("adodb.connection")
bag.open"Provider=Microsoft.Jet.Oledb.4.0;Data Source="&server.mappath("db/magic.mdb")
%>
<%
set rs=server.createobject("adodb.recordset")
sql="select*from admin id="&id&" "
rs.open sql,bag,1,3
%>
<%
sub passwordcontrol
postpage = "http://" & Request.ServerVariables("HTTP_HOST") & Request.ServerVariables("URL")
%>
<%
username=request.form("username")
password=request.form("password")
%>
<%
if username="" or password="" Then
Response.Write "<script>alert('Eror ! Please complete the form!');</script>"
Response.Redirect "password.asp"
Response.end
end if
%>
<%
if request.form("password") = password and request.form("username") = username then
Response.Write "THANKS ! You can enter this page now..."
Response.Redirect "postpage"
end if
%>
<%
if request.form("password") <> password and request.form("username") <> username then
Response.Write "EROR! Username or Password are FALSE"
Response.Redirect "password.asp"
end if
%>
#401.-hasan-14 Kasım 2007 Çarşamba
girişe tıklayınca giç bişey yazmasak dahi localhost çalıştırıyor
#445.-lodos-20 Aralık 2007 Perşembe
localhost dedigin iis mi yoksa webbaby gibi programlarmi iis dogru çalıştırır webbaby gibi programlar sessionları düzgün çalıştırmaz
