ASP ile Öğrenci Bilgi Sisteminde Transkript Sorgulama Nasıl Yapılır?

Mantık Olarak Programın Çalışma Yapısı;

Veritabanımızda öğrenci ve dönemlere ait tablolarımız var. Giriş sayfamızdan kullanıcıya ait numara ve şifre bilgilerini giriyoruz. Önce girilen bilgilerden eksik olan var mı diye bakılıyor, eğer bilgilerden en az birisi eksik girilmiş ise hata.asp adlı hata bilgi sayfasına yönlendiriliyor. Bu işlem islem.asp sayfası içerisinde bir if döngüsü ile kontrol ediliyor.

Bilgilerde eksiklik yok ise gelen bilgiler ile sql cümlelerini kullanarak ogrenci tablosu sorgulanıyor ve sorgulama sonucu kayıt bulunur ise programda islem.asp sayfasında kullanıcıya ait bilgiler tablodan alınarak listeleniyor. Eğer kayıt yok ise bir if (ogrenci.eof) then satırı ile tabloda bilgi yok ise yani bu kayıt bulunamadığı anlamına gelmektedir ve hata.asp sayfasına yine yönlendirilirsiniz.

Kayıt bulunduktan sonra öğrenci bilgileri listeleniyor fakat ilk giriş olduğundan dönemlere ait ders bilgilerinden listeleme yapmıyoruz ve dönem butonlarından birisine bastıktan sonra dönem bilgisi form üzerinden gönderilir ve bir select case sorgulanmasında hangi dönem istenmiş ise o donem tablosunu sorgulayacak sql cümlesi çalışır ve bilgiler tablolar içerisinde listenir.

Bu programda en önemli kullanılan komut ise application komutudur. Çünkü; eğer bu komuttan faydalanmaz isek programdan giriş sayfamızdan bilgi girişi yaparız ve bilgileri karşılama sayfasından karşılarız, bu kısma kadar sorun yok gibidir fakat dönem bilgisi istediğimizden tekrar sayfa işlenecek ve bu kez değişkenlere atamış olduğumuz formdan gelen bilgiler değişkenler tekrar tanımlandığından silinecektir ve numara ve şifre bilgisi elimizde olmayacak ve program çalışmayacaktır. Yani bizim bu sayfa her yenilendiğinde değişkenlerimizin yenilenmemesi gerekiyor. Bunu çözmek için ise application komutlarını kullanıyoruz. Aslında bu işlem session komutu ile de yapılabilir. Bu sistemde application kullanılmıştır. Application içerisinde tanımladığımız bir değişkeni istediğimiz kadar saklayabiliriz. Yani formdan gelen bilgiyi application(“değişken”)=”11” şeklinde bir değişkende saklıyoruz daha sonra bilginin değişmemesi için ve application.lock komutu ile bunu kilitliyoruz. Ne zamanki tekrar bilgiyi almak istersek değişken=application(“değişken”) bilgisi yardımı ile bilgiye değişmeden ulaşabiliyoruz.

Tekrar giriş sayfasına geldiğimizde ise yeni kullanıcı giriş yapacağından bu kez application.unlock ile kilidi kaldırıp değişkeni sıfırlıyoruz.

Programlamaya Başlamadan Önce Sayfaların Tasarlanması:

Öncelikle sayfa tasarımlarını hazırlıyoruz, bunu bir html editörü ile yapabiliriz. FrontPage, Dreamweaver gibi. Sayfada grafik yada düşündüğümüz herhangi bir şekilde tasarım yapabiliriz. Sayfa tasarımlarını bitirdikten sonra sayfa üzerine kullanacağımız nesneleri yerleştirmemiz gerekmektedir. Bunlar; text kutusu, şifreli text kutusu butonlar gibi elemanlardır. Bunları sayfa üzerine yerleşti,rip tasarım kısmında yapacaklarımızı tamamlıyoruz.

Sayfa tasarımı yaptıktan sonra nesnelerimizden gidin bilgilerin yani oluşturmuş olduğumuz formdan giden bilgilerin neler olacağını veya ne isimle gideceğini ve karşıda onları nasıl karşılayacağımızı belirlememiz gerekmektedir.

TextField, nesnelerinin özelliklerini ayarlama; (numara alanı)

TextField, nesnelerinin özelliklerini ayarlama; (şifre alanı)

Form Özelliklerini Ayarlamak;

Form özelliklerini ayarlarken dikkat etmemiz gerekenler ise; “medhod” kısmını belirlemekdir. Burada eğer formdan gizlilik özelliği taşıyan bilgiler gidecek ise medhod kısmını “post” olarak seçmemiz gerekecekdir. Buradaki diğer method ise “get” metodudur. Get ile bilgi gönderildiğinde bilgiler adres satırı üzerinden gönderilir ve adres satırı üzerinden okunur. Post ile giden bilgi şifrelenmiş olarak gider ve adres satırında bilgiler gözükmez. Şifreli bir giriş uygulaması yaptığımızdan burada post methodunu kullanıyoruz.

Bu işlemden sonra temel işlemlerin yani gönderilen bilgilerin işleneceği sayfayı bildirmemiz gerekecektir. Bunu “action” kısmından ayarlıyoruz. Bu form ile bilgiler yazıp gönder butonuna bastığımızda action kısmında belirttiğimiz sayfaya bizi yönlendirecektir.

Bilgilerin işleneceği “islem.asp” sayfasının tasarlanması;

Bu sayfayı önceki sayfamız gibi istediğimiz şekilde tasarımı hazırlıyoruz. Burada tablolar kullanarak hazırlanmasını yaptık.

Bu tasarımları yaptıktan sonra son olarak “hata.asp” olarak bir sayfa daha tasarlıyoruz. Bu sayfa ise bize hatalı girişler yaptığımızda bilgilendirmek için karşımıza çıkacaktır. Bu sayfanın tasarımını da aşağıdaki gibi tasarlayalım. Bu hata.asp sayfası içerisinde asp kodu bulunmamaktadır.

“hata.asp” sayfasında sadece dikkat etmemiz gereken, bir buton ekliyoruz. Dolayısı ile form alanı eklemiş oluyoruz. Bu butonun özelliklerini istediğimiz gibi ayarlayabiliriz. Sadece fom alanının “action” kısmına “default.asp” yazmamız gerekmektedir.

Tasarımları bitirdikten kullanacak olduğumuz veritabanını hazırlamamız gerekmektedir. Bunun için Microsoft Access programını açıp veritabanımızı oluşturmaya başlıyoruz.

Veritabanımızda bulunan tablolar bu şekildedir.

Tasarım görünümünde tablolarımızı tasarlıyoruz.

Öğrenci bilgilerinin tutulduğu veri tabanın tasarım görünümü bu şekildedir. İçerisinde bulunan bilgiler ise aşağıdaki resimdeki gibidir.

Öğrenci bilgileri tablosundaki bilgiler aşağıdaki gibidir. Bu tabloda not bilgilerinin bulunduğu dönem tablolarıyla öğrenci tablosu arasında ilişki vardır bu yüzden tablo içerisinde tablo görünmektedir. (Bu ilişkilendirmeye bilgileri ilerleyen sayfalarda bulabilirsiniz.)

Bu veritabanın çalışma mantığı; öğrenci tablosu bulunmaktadır, bu tabloda öğrenciye ait kimlik bilgileri tutulmaktadır. Bu tabloda numara alanı daha doğrusu veritabanında numara alanı anahtar alan özelliği taşımaktadır.

Bu anahtar alan ile 4 dönem bulunduğundan dört dönem için dört farklı tablo oluşturup anahtar alan bilgisini bu dönem tablolarında da bulunduruyoruz.

Bu tabloları ilişkilendirdiğimizde ise öğrenci tablosunu açtığımızda diğer tabloda bulunan bilgi öğrenci tablosunda bulunan numara alanı ile eşleşecek ve o öğrenciye ait dönem bilgisi de karşımıza gelecektir.

Yani her öğrenci bilgisi numara alanı yardımı ile dört adet bulunan dönem bilgisi ile ilişki içerisindedir.

Aşağıda Access veritabanının ilişkilendirmesi soncunu görebilirsiniz.

Veritabanının ilişkilendirilmesi;

Burada görüldüğü gibi numara alanı tüm tabloların numara alanları ile ilişkilidir.

ASP kodlarını sayfa içerisine yerleştirmek;

Giriş sayfamız olan “default.asp” sayfasında bulunan asp kodları ve işlevleri;

Response.Expires = 0 “ Giriş sayfasında bulunan kodlar bu kısımdır.

Application.UnLock() burada Application komutu ile ilsem.asp de

Application(“numara”)=”” kullandığımız numara değişkenini sıfırlıyoruz. “

Response.Expires = 0 > ile; bu sayfada bulunan bilgilerin CACHE bellekde saklanmasını egelliyoruz.Daha sonra giriş sayfasında olduğumuzdan yeni kullanıcı girişi yapılacağı için eski kullanıcılara ait bilgiler var ise yani önceden girmiş olanların bilgilerinin silinmesi için değişkenlerdeki bilgiler temizleniyor.

Application ile değişkenlere sabit değerler atama;
Belirtilen uygulamadaki tanımlı bütün kullanıcıların bilgiyi paylaşmaları için Application nesnesini kullanabiliriz. Bir ASP-uzantılı uygulama, sanal dizin ve onların altdizinlerindeki tüm .asp dosyaları gibi tanımlanır.

Application nesnesi birden fazla kullanıcı tarafından paylaşılabildiği için, kullanıcıların bir özelliği aynı anda değiştirme girişimlerini önlemek için Lock ve Unlock yöntemleri kullanılır.

Temel olarak kullanmamızın sebebi; sayfadan giriş yaptık ilsem sayfasına da girişimiz gerçekleşti. Bilgilerimiz görünecektir. Fakat buradaki projede olduğu gibi dönem butonlarından birine basıp tekrar ilsem sayfasına veri yani burada aynı sayfaya tekrardan bilgi göndermekten bahsediyoruz. Bunu normalde yaparsak yani application kullanmadan yaparsak butona bastıkdan sonra sayfa yeniden işlenecek bu sebepden dolayı değişkenler yeniden sıfırlanacaktır. Bu yüzden bilgiler gözükmeyecek ve ya hata sayfasına bizi yönlendirecek asp kodları yada hata verecek.

Bu sorunu gidermek için kullanıcı mantığı ile çalışmamız gerekecektir. Yani bir kullanıcı login olduktan sonra uygulama penceresini kapatana kadar o kullanıcıya ait bilgilerin bazılarını yani bu örnekte şifresini ve numarasını saklamamız gerekecekdir.

Bu işlemi application ile gerçekleştiriyoruz. Application ile değişken tanımlayıp onu lock komutu ile kilitliyoruz. O değişken biz isteyene kadar ve değişmeyecektir.

Unlock ile ise değişkeni güvenlik kilidini kaldırıp içerisini temizleyebiliyoruz.

Giriş sayfasında da bu işlemi yaptık. Çünkü girişe gelinmiş ise farklı bir kullanıcı login olacak demektir ve eski kullanıcıya ait bilgilerin silinmesi gerekecektir.

</div> giris sayfasında en alt kısında ise bu satırlar <input type=”hidden” value=”yok” name=”secim”> bulunmakda. Bunlar ilk girişte not bilgisi

</form> görmemek için “yok” bilgisi göndermek için

Yapılmıştır.

Burada gönderilen yok bilgisi ile veri tabanında yok adlı bir boş tablo bulunduruyoruz bu tabloyu sorgulamak için kullanıyoruz. Bunu ilk programımız çalıştığında ekrana dönem bilgilerini gelmemesi için yapıyoruz.

“islem.asp” sayfasında bulunan kodlar ve işlevleri;

<p>

secim = Trim(Request.Form(“secim”))

if (secim=”Çıkış”) then response.Redirect(“default.asp”)

Dim vt_yol,ogrenci

Set vt_yol= Server.CreateObject(“ADODB.Connection”)

vt_yol.Open(“DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=” & Server.MapPath(“veritabani/obs.mdb”))

Set ogrenci = Server.CreateObject(“ADODB.Recordset”)

Set dersler = Server.CreateObject(“ADODB.Recordset”)

d1 = Trim(Request.Form(“numara”))

s1 = Trim(Request.Form(“sifre”))

Response.Expires = 0

if (Application(“numara”)=””) then

Application(“numara”)=d1

Application(“sifre”)=s1

Application.Lock

end if

ogrenci.Open “SELECT * From ogrenci where numara='”+Application(“numara”)+”‘ and sifre='”+Application(“sifre”)+”‘”, vt_yol, aOpenStatic

select case (secim)

case (“yok”) dersler.Open “SELECT * From yok”, vt_yol, aOpenStatic

case (“1.Donem”) dersler.Open “SELECT * From donem1 where numara='”+Application(“numara”)+”‘”, vt_yol, aOpenStatic

case (“2.Donem”) dersler.Open “SELECT * From donem2 where numara='”+Application(“numara”)+”‘”, vt_yol, aOpenStatic

case (“3.Donem”) dersler.Open “SELECT * From donem3 where numara='”+Application(“numara”)+”‘”, vt_yol, aOpenStatic

case (“4.Donem”) dersler.Open “SELECT * From donem4 where numara='”+Application(“numara”)+”‘”, vt_yol, aOpenStatic

end select

if ((Application(“numara”)=””) or (Application(“sifre”)=””)) then response.Redirect(“hata.asp”)

if (ogrenci.eof) then response.Redirect(“hata.asp”)

if (secim<>”yok”) then kimlik=”Öğrenci No: “&(ogrenci(“numara”)+”,”+space(2)+”Dönemi: “&Left(secim,1))

</font></p>

“

secim = Trim(Request.Form(“secim”))

if (secim=”Çıkış”) then response.Redirect(“default.asp”)

Dim vt_yol,ogrenci

Set vt_yol= Server.CreateObject(“ADODB.Connection”)

vt_yol.Open(“DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=” & Server.MapPath(“veritabani/ray_obs.mdb”))

Set ogrenci = Server.CreateObject(“ADODB.Recordset”)

Set dersler = Server.CreateObject(“ADODB.Recordset”)

“

Bu kısım veri tabanına bağlanmamızı sağlamaktadır. Önce veritabanına bağlanmayı ve daha sonrada tablolara bağlanıyor.

“

Set ogrenci = Server.CreateObject(“ADODB.Recordset”)

Set dersler = Server.CreateObject(“ADODB.Recordset”)

“

Bu komutlar ile tablolara bağlanılıp tablolardaki bilgileri dizi şeklinde değişkene atamaya yapıyoruz.

Bu kısımlar tablolara bilgi göndermek için kullanılıyor. Bu kısımlara SQL cümlelerini gönderiyoruz ve SQL cümleleri işlendikten sonra sonuçları set kelimesi sonrasında bulunan değişkene aktarıyor daha sonra bu değişkeleri kullanarak sorgulanmış bilgiler üzerinde işlemler yapıyoruz.(listeleme gibi.)

“

d1 = Trim(Request.Form(“numara”))

s1 = Trim(Request.Form(“sifre”))

Response.Expires = 0

if (Application(“numara”)=””) then

Application(“numara”)=d1

Application(“sifre”)=s1

Application.Lock

end if

“

Bu kısımda ise; formdan gelen bilgileri karşılıyoruz ve bunları d1, s1 değişkenlerine aktarıyoruz.

Response.Expires = 0, bu satır ile (Expires) sayesinde sayfanın içeriğindeki bilgilerinin cache bellekte
saklanmasını engelleriz.

“

if (Application(“numara”)=””) then

Application(“numara”)=d1

Application(“sifre”)=s1

Application.Lock

end if

“

Bu satırlarda ise eğer sayfaya ilk kez girilmiş ise yani biz giriş sayfasında yaptığımız application bilgilerini sıfırlamıştık işte bu şekilde bilgi sıfırlanmış olarak gelmişmi, gelmemişmi yani ilk girişmi bu yoksa giriş yapılmış dı fakat döenm bilgilerini değiştirmeye çalışıyor bu bilginin kontrolü bi if döngüsünde yapılıyor.

Eğer ilk kez girilmemiş ise numara ve şifre bilgilerini application komutu içerisinde tanımlı olan değişkenlere ata işlemi yapıyor ve sonrada bu bilgileri kilitle.

“

ogrenci.Open “SELECT * From ogrenci where numara='”+Application(“numara”)+”‘ and sifre='”+Application(“sifre”)+”‘”, vt_yol, aOpenStatic

“

Gelen bilgiler ile (numara ve şifre bilgisi) öğrenci veri tabanı sorgulanıyor. Sorgu sonucu elde edilen bilgiler ogrenci değişkenine aktarılıyor.

“

select case (secim)

case (“yok”) dersler.Open “SELECT * From yok”, vt_yol, aOpenStatic

case (“1.Donem”) dersler.Open “SELECT * From donem1 where numara='”+Application(“numara”)+”‘”, vt_yol, aOpenStatic

case (“2.Donem”) dersler.Open “SELECT * From donem2 where numara='”+Application(“numara”)+”‘”, vt_yol, aOpenStatic

case (“3.Donem”) dersler.Open “SELECT * From donem3 where numara='”+Application(“numara”)+”‘”, vt_yol, aOpenStatic

case (“4.Donem”) dersler.Open “SELECT * From donem4 where numara='”+Application(“numara”)+”‘”, vt_yol, aOpenStatic

end select

“

Bu kısımda ise; ilk kez girilmiş ise case(“yok”) kısmı işletiliyor bunun sebebi ilk girişte dönem bilgilerinin hiç birisinin görünmesini istemiyoruz. Bu nedenle giriş formundan secim=”yok” bilgisi alıp yok adlı tabloyu sorguluyoruz bu tabloda hiç bilgi yok dolayısı ile ilk girişte sayfada hiç dönem bilgisi görünmez dönem butonlarına bastıktan sonra bilgiler görünür.

Daha sonra diğer “case” ifadelerinde ise dönem butonlarına bastığımızda secim değişkenine gelen bilgiler kontrol edilip ilgili tablo sorgulanıyor ve sorgu sonucu elde edilen bilgiler dersler değişkeninde saklanıyor.

“

if ((Application(“numara”)=””) or (Application(“sifre”)=””)) then response.Redirect(“hata.asp”)

if (ogrenci.eof) then response.Redirect(“hata.asp”)

if (secim<>”yok”) then kimlik=”Öğrenci No: “&(ogrenci(“numara”)+”,”+space(2)+”Dönemi: “&Left(secim,1))

“

Bu satırlar ise; eğer numara bilgisi veya şifre bilgilerinde boş gelen var ise yani hatalı giriş yapılmış ise “hata.asp” yönlendirmeyi sağlıyor.

if (ogrenci.eof) then response.Redirect(“hata.asp”) , bu if ise girilen bilgiler ile sorgulama yapıldıktan sonra eğer veritabanında kayıt yok ise işlem yapmaması için hata.asp sayfasına yönlendirmeyi sağlıyor.

if (secim<>”yok”) then kimlik=”Öğrenci No: “&(ogrenci(“numara”)+”,”+space(2)+”Dönemi: “&Left(secim,1)) , bu satır ise kimlik değişkenine öğrenci numarasını ve döenm bilgisini aktarıyor bunu tablonun üstünde gösteriyoruz.

Bilgilerin listelenmesi için gerekli olan asp kodları;

<%While Not (ogrenci.eof) %>

<%=ogrenci(“adi”)%>

<%=ogrenci(“soyadi”)%>

<%=ogrenci(“bolumu”)%>

<% ogrenci.MoveNext

wend %>

Sorguladığımız bilgiler ogrenci değişkeninde tutuldu ve bu bilgileri bir döngü kullanarak ekrana yazdırıyoruz. Sayfa içerisinde bu kodlar tabla satırları arasında yer alıyor. Bu şekilde de ekrana bilgiler çıkacaktır. Biz bu satırları tablo içerisine yerleştirip tasarım olarak daha hoş bilr görünüm elde edebiliriz.

Sayfa içerisinde bulunan dönem butonlarının kod ile görünümü aşağıdaki gibidir;

<tr>

</td>

</tr>

</table>

</form>

Burada yapılan işlemler ise bir form daha tasarlanıyor. Bu forma butonlarınızı ekliyorsunuz butonlarınıza isimlerinizi veriyorsunuz. Bütün butonların “name” özelliklerini aynı yapıyoruz çünkü bütün butonlardan gelen bilgiler tek bir değişken ile yakalanacak. Butonların name özellikleri aynı fakat isimlerini kendimize göre tasarlıyoruz. Daha sonra o name ile gelen bilgiyi kontrol ediyoruz. Gelen bilgi buton üzerinde yazılı olan bilgi olacaktır.

Ders bilgilerinin gösterilmesi;

<%While Not (dersler.eof) %>

<tr>

<%=dersler(“ders_kodu”)%>

<%=dersler(“ders_adi”)%>

<%=dersler(“final”)%>

<%=dersler(“butunleme”)%>

</tr>

<% dersler.MoveNext

wend %>

Program Çalıştırılması ve Ekran Görüntüleri

obs12

“default.asp” sayfasına ait kodun tamamı;

<html>

<head>

<meta http-equiv=”Content-Language” content=”tr”>

<%@LANGUAGE=”VBSCRIPT” CODEPAGE=”1254″%>

<!DOCTYPE HTML PUBLIC “-//W3C//DTD HTML 4.01 Transitional//EN” “http://www.w3.org/TR/html4/loose.dtd”>

<meta http-equiv=”Content-Type” content=”text/html; charset=windows-1254″>

<title>.::..~OBS~..::.</title>

</head>

<style type=”text/css”>

<!–

.style1 {

font-family: Verdana, Arial, Helvetica, sans-serif;

font-weight: bold;

font-style: italic;

color: #CC0000;

}

body {

background-color: #99CCCC;

}

.style2 {font-weight: bold; color: #CC0000; font-family: Verdana, Arial, Helvetica, sans-serif;}

–>

</style>

<body style=”background-color: #FFFFFF”>

Response.Expires = 0

Application.UnLock()

Application(“numara”)=””

<form method=”POST” action=”islem.asp” name=”Form”>

<div align=”center”>

<center>

<table border=”0″ cellpadding=”0″ cellspacing=”0″ style=”border-collapse: collapse” bordercolor=”#111111″ width=”794″ height=”99″>

<tr>

<td width=”18″ height=”25″> </td>

<td width=”778″ height=”25″> </td>

<td width=”12″ height=”25″> </td>

</tr>

<tr>

<td width=”18″ height=”50″> </td>

<td background=”images/obs_ana.gif” height=”378″ width=”778″ valign=”top”>

<div align=”center”>

<center>

<table border=”0″ cellpadding=”0″ cellspacing=”0″ style=”border-collapse: collapse” bordercolor=”#111111″ width=”97%” height=”311″>

<tr>

<td width=”57%” height=”250″> </td>

<td width=”12%” height=”250″ valign=”bottom” align=”center”> </td>

<td width=”31%” height=”250″ align=”center” valign=”bottom”> </td>

</tr>

<tr>

<td width=”57%” height=”42″> </td>

<td width=”43%” height=”42″ align=”center” colspan=”2″>

<table border=”1″ cellpadding=”0″ cellspacing=”0″ style=”border-collapse: collapse” bordercolor=”#111111″ width=”79%” height=”23″>

<tr>

<td width=”100%” height=”24″ colspan=”2″>

<font face=”Tahoma” size=”2″ color=”#FFFFFF”></font>

<p align=”right”><b><font face=”Tahoma” size=”2″ color=”#FFFFFF”><%response.write(date)%>  </font></b></td>

</tr>

<tr>

<td width=”40%” height=”25″ align=”right”>

<p><font face=”Tahoma” size=”2″ color=”#FFFFFF”><b>Numaranız :</b></font></td>

<td width=”60%” height=”25″>

<font color=”#008000″> <input name=”numara” type=”text” id=”numara” size=”19″ value=”157051″>

</font></td>

</tr>

<tr>

<td width=”40%” height=”26″ align=”right”>

<p><b><font face=”Tahoma” size=”2″ color=”#FFFFFF”>Şifreniz :</font></b></td>

<td width=”60%” height=”26″>

<b><font face=”Tahoma” size=”2″ color=”#FFFFFF”> <input type=”password” name=”sifre” size=”15″ value=”1234″></font></b></td>

</tr>

<tr>

<td width=”40%” height=”26″ align=”right”>

<p align=”center”>                         </td>

<td width=”60%” height=”26″>

 <input type=”submit” value=”Sorgula” name=”Ray_OBS”><input type=”reset” value=”Temizle” name=”OBS1″></td>

</tr>

</table>

</td>

</tr>

<tr>

<td width=”57%” height=”19″> </td>

<td width=”43%” height=”19″ align=”center” colspan=”2″> 

</td>

</tr>

<tr>

<td width=”57%” height=”1″></td>

<td width=”12%” height=”1″ align=”center”></td>

<td width=”31%” height=”1″ align=”center”></td>

</tr>

</table>

</center>

</div>

</td>

<td width=”12″ height=”50″> </td>

</tr>

<tr>

<td width=”18″ height=”24″> </td>

<td width=”778″ height=”24″> 

</td>

<td width=”12″ height=”24″> </td>

</tr>

</table>

</center>

</div>

<input type=”hidden” value=”yok” name=”secim”>

</form>

</body>

</html>

“İlsem.asp” sayfasına ait kodun tamamı;

<html>

<head>

<meta http-equiv=”Content-Language” content=”tr”>

<%@LANGUAGE=”VBSCRIPT” CODEPAGE=”1254″%>

<!DOCTYPE HTML PUBLIC “-//W3C//DTD HTML 4.01 Transitional//EN” “http://www.w3.org/TR/html4/loose.dtd”>

<meta http-equiv=”Content-Type” content=”text/html; charset=windows-1254″>

<title>.::..~OBS~..::.</title>

</head>

<body style=”background-color: #FFFFFF”>

<table border=”0″ cellpadding=”0″ cellspacing=”0″ style=”border-collapse: collapse” bordercolor=”#111111″ width=”100%”>

<tr>

<td width=”100%”><b><font color=”#800000″><font face=”Tahoma” size=”2″><%=date()%></font></font></font></b></td>

</tr>

<tr>

<td width=”100%”>

<hr>

</td>

</tr>

</table>

<p>

<font face=”Tahoma” size=”2″>

secim = Trim(Request.Form(“secim”))

if (secim=”Çıkış”) then response.Redirect(“default.asp”)

Dim vt_yol,ogrenci

Set vt_yol= Server.CreateObject(“ADODB.Connection”)

vt_yol.Open(“DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=” & Server.MapPath(“veritabani/obs.mdb”))

Set ogrenci = Server.CreateObject(“ADODB.Recordset”)

Set dersler = Server.CreateObject(“ADODB.Recordset”)

d1 = Trim(Request.Form(“numara”))

s1 = Trim(Request.Form(“sifre”))

Response.Expires = 0

if (Application(“numara”)=””) then

Application(“numara”)=d1

Application(“sifre”)=s1

Application.Lock

end if

ogrenci.Open “SELECT * From ogrenci where numara='”+Application(“numara”)+”‘ and sifre='”+Application(“sifre”)+”‘”, vt_yol, aOpenStatic

select case (secim)

case (“yok”) dersler.Open “SELECT * From yok”, vt_yol, aOpenStatic

case (“1.Donem”) dersler.Open “SELECT * From donem1 where numara='”+Application(“numara”)+”‘”, vt_yol, aOpenStatic

case (“2.Donem”) dersler.Open “SELECT * From donem2 where numara='”+Application(“numara”)+”‘”, vt_yol, aOpenStatic

case (“3.Donem”) dersler.Open “SELECT * From donem3 where numara='”+Application(“numara”)+”‘”, vt_yol, aOpenStatic

case (“4.Donem”) dersler.Open “SELECT * From donem4 where numara='”+Application(“numara”)+”‘”, vt_yol, aOpenStatic

end select

if ((Application(“numara”)=””) or (Application(“sifre”)=””)) then response.Redirect(“hata.asp”)

if (ogrenci.eof) then response.Redirect(“hata.asp”)

if (secim<>”yok”) then kimlik=”Öğrenci No: “&(ogrenci(“numara”)+”,”+space(2)+”Dönemi: “&Left(secim,1))

</font></p>

<p class=”style3 style7″><font face=”Tahoma” size=”4″ color=”#0000FF”>~ Öğrenci Kimlik Bilgileri

</font> </p>

<%While Not (ogrenci.eof) %>

<table border=”1″ cellpadding=”0″ cellspacing=”0″ style=”border-collapse: collapse” bordercolor=”#111111″ width=”43%” height=”93″>

<tr>

<td width=”31%” height=”23″><b><font face=”Tahoma” size=”2″> Numarası</font></b></td>

<td width=”69%” height=”23″><font face=”Tahoma” size=”2″> <%=ogrenci(“numara”)%></font></td>

</tr>

<tr>

<td width=”31%” height=”23″><b><font face=”Tahoma” size=”2″> Adı</font></b></td>

<td width=”69%” height=”23″><font face=”Tahoma” size=”2″> <%=ogrenci(“adi”)%></font></td>

</tr>

<tr>

<td width=”31%” height=”23″><b><font face=”Tahoma” size=”2″> Soyadı</font></b></td>

<td width=”69%” height=”23″><font face=”Tahoma” size=”2″> <%=ogrenci(“soyadi”)%></font></td>

</tr>

<tr>

<td width=”31%” height=”24″><b><font face=”Tahoma” size=”2″> Bölümü</font></b></td>

<td width=”69%” height=”24″><font face=”Tahoma” size=”2″> <%=ogrenci(“bolumu”)%></font></td>

</tr>

</table>

<table border=”1″ cellpadding=”0″ cellspacing=”0″ style=”border-collapse: collapse” bordercolor=”#111111″ width=”70%”>

</tr>

<% ogrenci.MoveNext

wend %><font face=”Tahoma” size=”2″> </font></table>

<p class=”style3 style7″><font face=”Tahoma” size=”4″ color=”#0000FF”>~ Not Bilgileri

</font> </p>

<form action=”islem.asp” method=”POST” name=”donemler” id=”donemler”>

<table border=”1″ cellpadding=”0″ cellspacing=”0″ style=”border-collapse: collapse” bordercolor=”#111111″ width=”79%”>

<tr>

<td width=”100%”>

<input name=”secim” type=”submit” id=”secim” value=”1.Donem”>

<input name=”secim” type=”submit” id=”secim” value=”2.Donem”>

<input name=”secim” type=”submit” id=”secim” value=”3.Donem”>

<input name=”secim” type=”submit” id=”secim” value=”4.Donem”>

    <input name=”secim” type=”submit” id=”secim” value=”Çıkış”></td>

</tr>

</table>

</form>

<table border=”0″ cellpadding=”0″ cellspacing=”0″ style=”border-collapse: collapse” bordercolor=”#111111″ width=”79%”>

<tr>

<td width=”100%”><span style=”font-size: 8pt”>  </span><br>

<font face=”Tahoma” size=”2″ color=”#0000FF”><%response.Write(kimlik)%></font></td>

</tr>

</table>

<table border=”1″ cellpadding=”0″ cellspacing=”0″ style=”border-collapse: collapse” bordercolor=”#111111″ width=”79%”>

<tr>

<td width=”18%” height=”21″><b><font face=”Tahoma” size=”2″ color=”#FF0000″>

 Ders Kodu</font></b></td>

<td width=”41%”><b><font face=”Tahoma” size=”2″ color=”#FF0000″> Ders Adı</font></b></td>

<td width=”19%”><b><font face=”Tahoma” size=”2″ color=”#FF0000″> Final</font></b></td>

<td width=”22%”><b><font face=”Tahoma” size=”2″ color=”#FF0000″> Bütünleme</font></b></td>

</tr>

<%While Not (dersler.eof) %>

<tr>

<td width=”18%” height=”16″><font face=”Tahoma” size=”2″> <%=dersler(“ders_kodu”)%></font></td>

<td width=”41%” height=”16″><font face=”Tahoma” size=”2″> <%=dersler(“ders_adi”)%></font></td>

<td width=”19%” height=”16″><font face=”Tahoma” size=”2″> <%=dersler(“final”)%></font></td>

<td width=”22%” height=”16″><font face=”Tahoma” size=”2″> <%=dersler(“butunleme”)%></font></td>

</tr>

<% dersler.MoveNext

wend %>

</table>

<hr color=”#FFFFFF”>

<table border=”0″ cellpadding=”0″ cellspacing=”0″ style=”border-collapse: collapse” bordercolor=”#111111″ width=”100%”>

<tr>

<td width=”100%”> 

</td>

</tr>

<tr>

<td width=”100%”>

<hr>

</td>

</tr>

<tr>

<td width=”100%”>

<p align=”right”><font face=”Tahoma” size=”1″>OBS</font></td>

</tr>

</table>

</body>

</html>

“hata.asp” sayfasına ait kodun tamamı;

<html>

<head>

<meta http-equiv=”Content-Language” content=”tr”>

<meta http-equiv=”Content-Type” content=”text/html; charset=windows-1254″>

<title>.::..~OBS~..::.</title>

<meta name=”GENERATOR” content=”Microsoft FrontPage 5.0″>

<meta name=”ProgId” content=”FrontPage.Editor.Document”>

<meta name=”Microsoft Theme” content=”none, default”>

<meta name=”Microsoft Border” content=”none, default”>

</head>

<body>

<table border=”1″ cellpadding=”0″ cellspacing=”0″ style=”border-collapse: collapse” bordercolor=”#111111″ width=”56%” height=”109″>

<tr>

<td width=”11%” height=”109″>

<img border=”0″ src=”images/stop.jpg”></td>

<td width=”89%” height=”109″><font face=”Tahoma” size=”2″><br>

 Lütfen Dikkat..!<br>

 Girmiş Olduğunuz Kullanıcı Bilgisi Hatalıdır..!<br>

 Tekrar Deneyiniz.<br>

</font><font face=”Tahoma” size=”1″>    </font><form method=”get” action=”default.asp”>

<font face=”Tahoma”><font size=”2″> </font><input type=”submit” value=”Tamam” name=”OBS”></font></p>

</form>

</td>

</tr>

</table>

</body>

</html>

Dosyayı <a href=”https://www.afguven.com/depo/dersnot/paylas/transkript_ornek.rar” target=”_blank”><span><span>İndir</span></span></a><!–more–>

Bir yanıt yazın Yanıtı iptal et

Kategoriler

Son Yorumlar

Son Yazılar