Gönderen: 15-Mayıs-2010 Saat 00:45 | Kayıtlı IP

<script runat="server">

Dim universiteler() As String = {"ESKİŞEHİR OSMANGAZİ","İSTANBUL TEKNİK","ODTÜ","AKDENİZ","EGE","AFYON KOCATEPE"}

Dim osm_fakulte() As String = {"ZİRAAT","MÜHENDİSLİK MİMARLIK","EĞİTİM","FENEDEBİYAT","İLAHİYAT"}

Dim ist_fakulte() As String = {"MADEN","DENİZCİLİK","İNŞAAT","MİMARLIK","MAKİNA"}

Dim odt_fakulte() As String = {"MÜHENDİSLİK","İKTİSADİ VE İDARİ BİLİMLER","MİMARLIK","EĞİTİM","FEN EDEBİYAT"}

Dim akd_fakulte() As String = {"TIP","FEN EDEBİYAT","İLETİŞİM","GÜZEL SANATLAR","EĞİTİM"}

Dim ege_fakulte() As String = {"FEN","MÜHENDİSLİK","İLETİŞİM","EDEBİYAT","SU ÜRÜNLERİ"}

Dim af_fakulte() As String = {"TEKNİK EĞİTİM","FEN EDEBİYAT","VETERİNER","GÜZEL SANATLAR","EĞİTİM"}

Dim osm_ziraat_bolum() As String = {"BAHÇE BİTKİLERİ","TARLA BİTKİLERİ"}

Dim osm_muhendislikmimarlik_bolum() As String ={"BİLGİSAYAR MÜHENDİSLİĞİ","ELEKTRİK ELEKTRONİK MÜHENDİSLİĞİ","METALURJİ VE MALZEME","ENDÜSTRİ MÜHENDİSLİĞİ","MADEN MÜHENDİSLİĞİ"}

Dim osm_egitim_bolum() As String ={"BİLGİSAYAR ÖĞRETİM TEKNOLOJİLERİ EĞİTİMİ","DİN KÜLTÜRÜ VE AHLAK BİLGİSİ EĞİTİMİ","ORTA ÖĞRETİM SOSYAL ALANLAR EĞİTİMİ","İLKÖĞRETİM"}

Dim osm_fenedebiyat_bolum() As String ={"KARŞILAŞTIRMALI EDEBİYAT","İSTATİSTİK","BİYOLOJİ","KİMYA","TARİH","FİZİK"}

Dim osm_ilahiyat_bolum() As String ={"TEMEL İSLAM BİLİMLERİ","FELSEFE VE DİN BİLİMLERİ","İSLAM TARİHİ VE SANATLARI","İLAHİYAT LİSANS"}

Dim ist_maden_bolum() As String = {"JEOLOJİ","PETROL VE DOĞAL GAZ","JEOFİZİK MÜHENDİSLİĞİ","MADEN MÜHENDİSLİĞİ","CEVHER HAZIRLAMA MÜHENDİSLİĞİ"}

Dim ist_denizcilik_bolum() As String = {"GEMİ MAKİNALARI İŞLETME","DENİZ ULAŞTIRMA VE İŞLETME"}

Dim ist_insaat_bolum() As String = {"İNŞAAT MÜHENDİSLİĞİ","GEOMATİK MÜHENDİSLİĞİ","ÇEVRE MÜHENDİSLİĞİ"}

Dim ist_mimarlik_bolum() As String = {"MİMARLIK","ŞEHİR VE BÖLGE PLANLAMA","ENDÜSTRİ ÜRÜNLERİ PAZARLAMA","İÇ MİMARLIK","PEYZAJ MİMARLIĞI"}

Dim ist_makina_bolum() As String = {"MAKİNA MÜHENDİSLİĞİ","İMALAT MÜHENDİSLİĞİ"}

Dim odt_muhendislik_bolum() As String = {" KİMYA MÜHENDİSLİĞİ "," ÇEVRE MÜHENDİSLİĞİ ","GIDA MÜHENDİSLİĞİ","PETROL VE DOĞALGAZ MÜHENDİSLİĞİ","BİLGİSAYAR MÜHENDİSLİĞİ "}

Dim odt_mimarlik_bolum() As String = {"MİMARLIK","ŞEHİR VE BÖLGE PLANLAMA","ENDÜSTRİ ÜRÜNLERİ TASARIMI"}

Dim odt_egitim_bolum() As String = {"EĞİTİM BİLİMLERİ","İLKÖĞRETİM","YABANCI DİLLER EĞİTİMİ","BEDEN EĞİTİMİ VE SPOR"}

Dim odt_fenedebiyat_bolum() As String = {"BİYOLOJİ","KİMYA","TARİH","MATEMATİK","FELSEFE"}

Dim odt_iktisadiveidaribilimler_bolum() As String = {"İŞLETME","İKTİSAT","ULUSLARASI İLİŞKİLER","SİYASET BİLİMİ VE KAMU YÖNETİMİ"}

Dim akd_tip_bolum() As String = {"TEMEL TIP BİLİMLERİ","DAHİLİ TIP BİLİMLERİ","CERRAHİ TIP BİLİMLERİ"}

Dim akd_fenedebiyat_bolum() As String = {"ARKEOLOJİ","BİYOLOJİ","FİZİK","KİMYA","TARİH"}

Dim akd_iletisim_bolum() As String = {"HALKLA İLİŞKİLER TANITIM","RADYO,TELEVİZYON VE SİNEMA","GAZETECİLİK"}

Dim akd_guzelsanatlar_bolum() As String = {"RESİM","HEYKEL","GRAFİK","FOTOĞRAF","MÜZİK"}

Dim akd_egitim_bolum() As String = {"EĞİTİM BİLİMLERİ","İLKÖĞRETİM","YABANCI DİLLER EĞİTİM","GÜZEL SANATLAR EĞİTİMİ","TÜRKÇE EĞİTİMİ"}

Dim ege_fen_bolum() As String = {"ASTRONOMİ VE UZAY BİLİMLERİ","BİYOKİMYA","BİYOLOJİ","FİZİK","MATEMATİK"}

Dim ege_suurunleri_bolum() As String = {"TEMEL BİLİMLER","SU ÜRÜNLERİ AVLAMA VE İŞLEME TEKNOLOJİSİ","SU ÜRÜNLERİ YETİŞTİRİCİLİĞİ"}

Dim ege_muhendislik_bolum() As String = {"BİLGİSAYAR MÜHENDİSLİĞİ","BİYOMÜHENDİSLİK","İNŞAAT MÜHENDİSLİĞİ","KİMYA MÜHENDİSLİĞİ","TEKSTİL MÜHENDİSLİĞİ"}

Dim ege_iletisim_bolum() As String = {"GAZETECİLİK","HALKLA İLİŞKİLER VE TANITIM","REKLAMCILIK","GÖRSEL İLETİŞİM TASARIMI","RADYO,TELEVİZYON VE SİNEMA"}

Dim ege_edebiyat_bolum() As String = {"ARKEOLOJİ","COĞRAFYA","TÜRK DİLİ VE EDEBİYATI","İNGİLİZ DİLİ VE EDEBİYATI","ALMAN DİLİ VE EDEBİYATI"}

Dim af_teknikegitim_bolum() As String = {"YAPI EĞİTİMİ","METAL EĞİTİMİ","ELEKTİRİK EĞİTİMİ","MAKİNA EĞİTİMİ","ELEKTRONİL-BİLGİSAYAR"}

Dim af_fenedebiyat_bolum() As String = {"FİZİK","KİMYA","BİYOLOJİ","MATEMATİK","COĞRAFYA"}

Dim af_veteriner_bolum() As String = {"VETERİNER HEKİMLİĞİ TEMEL BİLİMLERİ","KLİNİK ÖNCESİ BİLİMLERİ","KLİNİK BİLİMLERİ","ZOOTEKNİ VE HAYVAN BESLEME","BESİN-GIDA HİJYENİ VE TEKNOLOJİSİ"}

Dim af_guzelsanatlar_bolum() As String = {"SERAMİK","RESİM","SİNEMA TV"}

Dim af_egitim_bolum() As String = {"EĞİTİM BİLİMLERİ","İLKÖĞRETİM","TÜRKÇE EĞİTİMİ","LİSANS ÜSTÜ EĞİTİM","ORTA ÖĞRETİM SOSYAL ALANLAR EĞİTİMİ"}

Dim i As string

Sub Page_load(Src As Object, E As Eventargs)

If Not IsPostBack Then

For Each i in universiteler

ListBox1.Items.Add(i)

Next

End If

End sub

sub ListBox1_SelectedIndexChanged(src As object,e As EventArgs)

Label1.Text=ListBox1.SelectedValue &" ÜNİVERSİTESİ" & "<br/>"

If ListBox1.SelectedValue = "ESKİŞEHİR OSMANGAZİ"

ListBox2.Items.Clear()

ListBox3.Items.Clear()

For Each i in osm_fakulte

ListBox2.Items.Add(i)

Next

End If

If ListBox1.SelectedValue = "İSTANBUL TEKNİK"

ListBox2.Items.Clear()

ListBox3.Items.Clear()

For Each i in ist_fakulte

ListBox2.Items.Add(i)

Next

End If

If ListBox1.SelectedValue = "ODTÜ"

ListBox2.Items.Clear()

ListBox3.Items.Clear()

For Each i in odt_fakulte

ListBox2.Items.Add(i)

Next

End If

If ListBox1.SelectedValue = "AKDENİZ"

ListBox2.Items.Clear()

ListBox3.Items.Clear()

For Each i in akd_fakulte

ListBox2.Items.Add(i)

Next

End If

If ListBox1.SelectedValue = "EGE"

ListBox2.Items.Clear()

ListBox3.Items.Clear()

For Each i in ege_fakulte

ListBox2.Items.Add(i)

Next

End If

If ListBox1.SelectedValue = "AFYON KOCATEPE"

ListBox2.Items.Clear()

ListBox3.Items.Clear()

For Each i in af_fakulte

ListBox2.Items.Add(i)

Next

End If

End sub

Sub ListBox2_SelectedIndexChanged(Src As Object,e As EventArgs)

Label2.Text=ListBox2.SelectedValue &" FAKÜLTESİ" & "<br/>"

If (ListBox1.SelectedValue = "ESKİŞEHİR OSMANGAZİ") AND (ListBox2.SelectedValue = "ZİRAAT")

  ListBox3.Items.Clear()

For Each i in osm_ziraat_bolum

ListBox3.Items.Add(i)

Next

End If

If (ListBox1.SelectedValue = "ESKİŞEHİR OSMANGAZİ") AND (ListBox2.SelectedValue = "MÜHENDİSLİK MİMARLIK")

    ListBox3.Items.Clear()

For Each i in osm_muhendislikmimarlik_bolum

    ListBox3.Items.Add(i) 

Next

End If

If (ListBox1.SelectedValue = "ESKİŞEHİR OSMANGAZİ") AND (ListBox2.SelectedValue = "EĞİTİM")

  ListBox3.Items.Clear()

For Each i in osm_egitim_bolum

ListBox3.Items.Add(i)

Next

End If

If (ListBox1.SelectedValue = "ESKİŞEHİR OSMANGAZİ") AND (ListBox2.SelectedValue = "FEN EDEBİYAT")

  ListBox3.Items.Clear()

For Each i in osm_fenedebiyat_bolum

ListBox3.Items.Add(i)

Next

End If

If (ListBox1.SelectedValue = "ESKİŞEHİR OSMANGAZİ") AND (ListBox2.SelectedValue = "İLAHİYAT")

  ListBox3.Items.Clear()

For Each i in osm_ilahiyat_bolum

ListBox3.Items.Add(i)

Next

End If

If (ListBox1.SelectedValue = "İSTANBUL TEKNİK") AND (ListBox2.SelectedValue = "MADEN")

  ListBox3.Items.Clear()

For Each i in ist_maden_bolum

  ListBox3.Items.Add(i)

Next

End If

If (ListBox1.SelectedValue = "İSTANBUL TEKNİK") AND (ListBox2.SelectedValue = "DENİZCİLİK")

  ListBox3.Items.Clear()

For Each i in ist_denizcilik_bolum

  ListBox3.Items.Add(i)

Next

End If

If (ListBox1.SelectedValue = "İSTANBUL TEKNİK") AND (ListBox2.SelectedValue = "İNŞAAT")

  ListBox3.Items.Clear()

For Each i in ist_insaat_bolum

  ListBox3.Items.Add(i)

Next

End If

If (ListBox1.SelectedValue = "İSTANBUL TEKNİK") AND (ListBox2.SelectedValue = "MİMARLIK")

  ListBox3.Items.Clear()

For Each i in ist_mimarlik_bolum

  ListBox3.Items.Add(i)

Next

End If

If (ListBox1.SelectedValue = "İSTANBUL TEKNİK") AND (ListBox2.SelectedValue = "MAKİNA")

  ListBox3.Items.Clear()

For Each i in ist_makina_bolum

  ListBox3.Items.Add(i)

Next

End If

If (ListBox1.SelectedValue = "ODTÜ") AND (ListBox2.SelectedValue = "MÜHENDİSLİK")

  ListBox3.Items.Clear()

For Each i in odt_muhendislik_bolum

ListBox3.Items.Add(i)

Next

End If

If (ListBox1.SelectedValue = "ODTÜ") AND (ListBox2.SelectedValue = "İKTİSADİ VE İDARİ BİLİMLER")

  ListBox3.Items.Clear()

For Each i in odt_iktisadiveidaribilimler_bolum

ListBox3.Items.Add(i)

Next

End If

If (ListBox1.SelectedValue = "ODTÜ") AND (ListBox2.SelectedValue = "MİMARLIK")

  ListBox3.Items.Clear()

For Each i in odt_mimarlik_bolum

ListBox3.Items.Add(i)

Next

End If

If (ListBox1.SelectedValue = "ODTÜ") AND (ListBox2.SelectedValue = "EĞİTİM")

  ListBox3.Items.Clear()

For Each i in odt_egitim_bolum

ListBox3.Items.Add(i)

Next

End If

If (ListBox1.SelectedValue = "ODTÜ") AND (ListBox2.SelectedValue = "FEN EDEBİYAT")

  ListBox3.Items.Clear()

For Each i in odt_fenedebiyat_bolum

ListBox3.Items.Add(i)

Next

End If

If (ListBox1.SelectedValue = "AKDENİZ") AND (ListBox2.SelectedValue = "TIP")

  ListBox3.Items.Clear()

For Each i in akd_tip_bolum

ListBox3.Items.Add(i)

Next

End If

If (ListBox1.SelectedValue = "AKDENİZ") AND (ListBox2.SelectedValue = "FEN EDEBİYAT")

  ListBox3.Items.Clear()

For Each i in akd_fenedebiyat_bolum

ListBox3.Items.Add(i)

Next

End If

If (ListBox1.SelectedValue = "AKDENİZ") AND (ListBox2.SelectedValue = "İLETİŞİM")

  ListBox3.Items.Clear()

For Each i in akd_iletisim_bolum

ListBox3.Items.Add(i)

Next

End If

If (ListBox1.SelectedValue = "AKDENİZ") AND (ListBox2.SelectedValue = "GÜZEL SANATLAR")

  ListBox3.Items.Clear()

For Each i in akd_guzelsanatlar_bolum

ListBox3.Items.Add(i)

Next

End If

If (ListBox1.SelectedValue = "AKDENİZ") AND (ListBox2.SelectedValue = "EĞİTİM")

  ListBox3.Items.Clear()

For Each i in akd_egitim_bolum

ListBox3.Items.Add(i)

Next

End If

If (ListBox1.SelectedValue = "EGE") AND (ListBox2.SelectedValue = "FEN")

  ListBox3.Items.Clear()

For Each i in ege_fen_bolum

ListBox3.Items.Add(i)

Next

End If

If (ListBox1.SelectedValue = "EGE") AND (ListBox2.SelectedValue = "MÜHENDİSLİK")

  ListBox3.Items.Clear()

For Each i in ege_muhendislik_bolum

ListBox3.Items.Add(i)

Next

End If

If (ListBox1.SelectedValue = "EGE") AND (ListBox2.SelectedValue = "İLETİŞİM")

  ListBox3.Items.Clear()

For Each i in ege_iletisim_bolum

ListBox3.Items.Add(i)

Next

End If

If (ListBox1.SelectedValue = "EGE") AND (ListBox2.SelectedValue = "EDEBİYAT")

  ListBox3.Items.Clear()

For Each i in ege_edebiyat_bolum

ListBox3.Items.Add(i)

Next

End If

If (ListBox1.SelectedValue = "EGE") AND (ListBox2.SelectedValue = "SU ÜRÜNLERİ")

  ListBox3.Items.Clear()

For Each i in ege_suurunleri_bolum

ListBox3.Items.Add(i)

Next

End If

If (ListBox1.SelectedValue = "AFYON KOCATEPE") AND (ListBox2.SelectedValue = "TEKNİK EĞİTİM")

  ListBox3.Items.Clear()

For Each i in af_teknikegitim_bolum

ListBox3.Items.Add(i)

Next

End If

If (ListBox1.SelectedValue = "AFYON KOCATEPE") AND (ListBox2.SelectedValue = "FEN EDEBİYAT")

  ListBox3.Items.Clear()

For Each i in af_fenedebiyat_bolum

ListBox3.Items.Add(i)

Next

End If

If (ListBox1.SelectedValue = "AFYON KOCATEPE") AND (ListBox2.SelectedValue = "VETERİNER")

  ListBox3.Items.Clear()

For Each i in af_veteriner_bolum

ListBox3.Items.Add(i)

Next

End If

If (ListBox1.SelectedValue = "AFYON KOCATEPE") AND (ListBox2.SelectedValue = "GÜZEL SANATLAR")

  ListBox3.Items.Clear()

For Each i in af_guzelsanatlar_bolum

ListBox3.Items.Add(i)

Next

End If

If (ListBox1.SelectedValue = "AFYON KOCATEPE") AND (ListBox2.SelectedValue = "EĞİTİM")

  ListBox3.Items.Clear()

For Each i in af_egitim_bolum

ListBox3.Items.Add(i)

Next

End If

End Sub

Sub ListBox3_SelectedIndexChanged(Src As Object,E As EventArgs)

Label3.Text=ListBox3.SelectedValue &" BÖLÜMÜNDEN MEZUNSUNUZ. " & "<br/>"

End Sub

</script>

</head>

<body>

<form runat="server" name="form1" method="post" action="">

MEZUN OLDUĞUNUZ BÖLÜMÜ SEÇİNİZ:<br/>

<asp:ListBox ID="ListBox1" runat="server" AutoPostBack="true"

OnSelectedIndexChanged="ListBox1_SelectedIndexChanged"/>

<asp:ListBox ID="ListBox2" runat="server" AutoPostBack="true"

OnSelectedIndexChanged="ListBox2_SelectedIndexChanged"/>

<asp:ListBox ID="ListBox3" runat="server" AutoPostBack="true"

OnSelectedIndexChanged="ListBox3_SelectedIndexChanged"/>& amp; amp; lt;br/>

<asp:Label ID="label1" runat="server"></asp:Label>

<asp:Label ID="label2" runat="server"></asp:Label>

<asp:Label ID="label3" runat="server"></asp:Label>

</form>

arkadaşlar bu kodları yazdığımda listboxda secilen üniversiteyi alta yazmaktadır.Aynı şekilde fakülte ve bölüm seçilince de alta yazmaktadır.Ancak alta yazdığında ben seçilen her üniversiteye link vermek istiyorum.Yani alta yazdığında linkli yazmasını istiyorum.Yardımcı olacağınız için çok teşekkür ederim.