Biyoloji Gemisi

	<% Dim Account_ID, User_Name, Password, Login_Attempts Dim cn, rs, Query, msg, msgclr msgclr = "black" msg = "Enter your user name and password below!" if request.Form("Sayac.mdb")="Submit" then if request.form("User_Name") = "admin" or request.form("Password") = "admin" then msgclr = "#FF0000" msg = "User Name or Password entered is incorrect!" else User_Name = request.form("Admin") set cn = server.CreateObject("Adodb.Connection") Query ="select User_Name,Account_Status,Login_Attempts,Allowed_Login_Attempts from Users where User_Name='" & User_Name & "'" cn.Open Connection set rs = cn.execute(Query) User_Name = rs("user_Name") if err.number <> 0 then msgclr = "#FF0000" msg = "User Name or Password entered is incorrect!" Call Close_All() else if lcase(rs("Account_Status")) = "disabled" then Call Close_All() msgclr = "#FF0000" msg = "Your account has been locked! Please contact your Administrator!" else if rs("Login_Attempts") >= rs("Allowed_Login_Attempts") then rs.close set rs = server.CreateObject("Adodb.Recordset") rs.open "Select Account_Status,Login_Attempts From Users Where User_Name='" & User_Name & "'",cn,2,3 rs("Account_Status") = "disabled" rs("Login_Attempts") = 0 rs.update Call Close_All() msgclr = "#FF0000" msg = "Your account has been locked! Please contact your Administrator!" else Query ="select Account_ID,User_Name,Password,Account_Level,Login_Attempts from Users where User_Name='" & User_Name & "'" set rs = cn.execute(Query) Account_ID = rs("Account_ID") if err.number <> 0 then Call Close_All() msgclr = "#FF0000" msg = "User Name or Password entered is incorrect!" else Password=MD5(Request.Form("Password") & Account_ID) if Password = rs("Password") then session("Account_Level") = rs("Account_Level") session("User_Name") = User_Name rs.close set rs = server.CreateObject("Adodb.Recordset") rs.open "Select Login_Attempts,Last_Login_Date,Last_Login_Time From Users Where User_Name='" & User_Name & "'",cn,2,3 rs("Login_Attempts") = 0 rs("Last_Login_Date") = Date rs("Last_Login_Time") = Time rs.update Call Close_All() response.Redirect Session("URL") else Login_Attempts = rs("Login_Attempts") + 1 rs.close set rs = server.CreateObject("Adodb.Recordset") rs.open "Select Login_Attempts From Users Where User_Name='" & User_Name & "'",cn,2,3 rs("Login_Attempts") = Login_Attempts rs.update Call Close_All() msgclr = "#FF0000" msg = "User Name or Password entered is incorrect!" end if end if end if end if end if end if end if Sub Close_All() rs.close cn.close rs = nothing cn = nothing End Sub %>

Download bölümünde yer alan bilgileri istediğiniz şekilde kullanabilirsiniz. Umarım bu bölümde yer alan çalışmalar işinize yarar. Bu bölümle ilgili kaynaklar buldukça devam edeceğiz. Sizin de yararlı olacağını düşündüğünüz dökümanlar varsa bizimle paylaşabilirsiniz Unutmayın arkadaşlar bilgi paylaştıkça çoğalacaktır..

Merhaba, Biyoloji Gemisi sizlere daha iyi hizmet sunabilmek için, değerli ziyaretçilerimizin de isteği üzerine yeniden yapılanmaya giderek yep yeni bir tasarım ve içerikle yeniden yayında...!

Bu Sayfamız Yapım Aşamasındadır...!

SİTEMİZ YENİLENME AŞAMASINDADIR. OLABİLECEK AKSAKLIKLARDAN DOLAYI TÜM ZİYARETÇİLERİMİZDEN ŞİMDİDEN ÖZÜRDİLERİZ.

Biyoloji Gemisi'nde Sınav Heyecanı

Üniversite sınavlarına hazırlanan arkadaşlar ve biyolojiye meraklı ziyaretçilerimiz, Biyoloji bilgilerinizi sınamak istiyor ve anında durumunuzu öğrenmek istiyorsanız sol tarafta bulunan menüden "Kendini Dene" butonunu tıklamanız ya da burayı tıklamanız yeterli Not: 27 Nisan 2006 tarihi itibari ile yeni sorular eklenmiştir.