Şimdi Ara

<% 'Asp de Neler Yapabiliriz ?? %>

Daha Fazla
Bu Konudaki Kullanıcılar: Daha Az
1 Misafir - 1 Masaüstü
5 sn
8
Cevap
0
Favori
1.147
Tıklama
Daha Fazla
İstatistik
  • Konu İstatistikleri Yükleniyor
0 oy
Öne Çıkar
Sayfa: 1
Giriş
Mesaj
  • Asp nin Ne Olduğunu Ne İşe Yaradığını "rtsngz" Arkadaşımızhttp://forum.donanimhaber.com/m_2846321/tm.htm Sayfasında Anlatıp Bir Kaç Örnek Vermiştir...

    Bende Asp de Neler Kullanırız ? Kullanarak Neler Yaparız Kendimce Açıklaya Çalışıcam...

    <% 'Ucase %>

    Ne İşe Yarar = Kullanılan Değerin Tümünü Büyük Harfe Çevrilir
    Kullanımı = <%=ucase("deger")%>
    Nerde Kullanılır = diyelimki sitenize bir duyuru ekledınız ve baslıgı tamamıyle buyuk yapmak ıstıyorsunuz
    bu kodlamayla bunu yapabılırsınız...
    Örnek =
    <%=ucase("haberbaslik")%>
    ...

    Birde Lcase var buda Ucase in Tam Tersini Yapar ve tamamı kucuk harfe cevırır


    <% 'Trim %>

    Ne İşe Yarar = Kullanılan değerin Sağ ve Solundaki Boşlukları Siler
    Kullanımı = <%=trim("deger")%>
    Nerede Kullanılır = bir üye kayıt formu yaptınız gelen kullanıcı adı ve sıfre alanlarında kayıt yaptırırken kullanabılırsınız..boylelıkle bosluk olmadan kayıt yaptırabılırsınız..
    Örnek =
    <%kulad=trim(request.form("kulad"))%>
    <%sifre=trim(request.form("sifre"))%>
    ....


    <% 'Len %>

    Ne İşe Yarar = Kullanılan Değerin Uzunlugunu Alır
    Kullanımı = <%=len("deger")%>
    Nerede Kullanılır = yine bır uyelık formunuz var ve sıfre gırdırıyosunuz,sıfrenızın uzunlugunu bu kod ile ayarlayabılırsınız ve ona gore işlem yaptırabılırsınız...
    Örnek =
    <%sifreuzunluk=len(request.form("sifre"))%>
    <%if sifreuzunluk<4 then%>
    <%response.write "Şifre 4 karakterden küçük olamaz"%>
    <%elseif sifreuzunluk>16 then%>
    <%response.write "Şifre 16 karakterden büyük olamaz"%>
    <%end if%>


    <% 'Function %>

    Ne İşe Yarar = Kodlamayı Bir Kere Yazıp Bir Çok Yerde Kullandırmaya Yarar
    Kullanımı = <%function tlp()%> işlemler <%end function%>
    Nerede Kullanılır = Aklınıza Gelebilecek Her Yerde Kullanılır :)
    Örnek =
    <%function yaziyazdir()%>
    <%response.write "Merhaba"%>
    <%end function%>
    <%=yaziyazdir()%>


    <% 'Replace %>

    Ne İşe Yarar = Kullanılan Değerde Ayarlanan Değeri Alır Yerine Yenisini Ekler
    Nerede Kullanılır = Bir Çok Yerde Kullanabilirsiniz,En Çok Kullanılan Yer İse Kayıt İşleminde Karakter Temizleme ve Smiley Olayıdır...
    Örnek =
    <%function degistir(tlp)%>
    <%tlp=replace(tlp,":)","<img src=""gulucuk.gif"">"),1,-1%>
    <%tlp=replace(tlp,":D","<img src=""siritma.gif"">",1,-1)%>
    <%degistir=tlp%>
    <%end function%>

    <%=degistir(deger)%>
    İster Yazdırırken İster Kayıt Ettirirken Kullanın Hiç Fark Etmez

    Bu İşlemde eğer ":)" veya ":D" yazılmıssa, karsılık gelen smileyi gosterir...
    gormus oldugunuz smiley sistemleri bu sekilde yapılmaktadır


    <% 'Sub %>

    Ne İşe Yarar = Function Gibidir..
    Nerede Kullanılır = Sayfa İçerisinde Sayfa Çağırmada Kullanılabilir.. (ben cogunlukla orda kullanırım)
    Örnek =
    sitem.asp diye sayfamız olsun
    ve biz bu sitem.asp sayfası içerisinde baska sayfalar cagıralım
    bunun ıcın yapmamız gereken asagıdakı gıbı kodlama olacaktır

    <%if request("Sayfa")="Anasayfa" then%>
    <%Call Anasayfa%>
    <%elseif request("Sayfa")="Iletisim" then%>
    <%Call Iletisim%>
    <%end if%>

    <%Sub Anasayfa%>
    Ana Sayfaya Ait Bilgiler veya <!--#include file="anasayfa.asp"-->
    <%end sub%>
    <%Sub Iletisim%>
    Iletisim Sayfasına Ait Bilgiler veya <!--#include file="iletisim.asp"-->
    <%end sub%>

    peki bunları yaptık nasıl işleve koyacagız ; oda bu sekilde :
    sitem.asp?sayfa=Anasayfa veya sitem.asp?sayfa=Iletisim

    Küçük bir not = include sistemiyle yaparsanız karısıklıgı onlemiş olursunuz ve herhangı bır degısıklık & hamle yapmak ıstedıgnız zaman sadece o sayfaya ıhtıyacınız olur...


    Kullanıdıgım if-then dongusunu , include sistemini v.b. kodlamarıhttp://forum.donanimhaber.com/m_2846321/mpage_2/key_/tm.htm#25362773 bu lınkte anlattım , oradan yararlanabılırsınız



    < Bu mesaj bu kişi tarafından değiştirildi tlp41 -- 6 Ağustos 2008; 2:34:33 >







  • <% 'SQL Kullanımı %>
    Sql Kodlamaları Tabiki Veri Tabanı İşlemlerinde Kullanıyoruz...
    Kullanımına Dair Bir Kaç Örnek

    SELECET ....

    <%
    Set db= Server.CreateObject("ADODB.Connection")
    db.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("personel.mdb"))
    %>

    personel.mdb adında veritabanımızın oldugunu varsayarak işlemlerimizi yapalım

    Veri Tabanından Her Hangi Bir Koşul Olmaksızın Tüm Alanları Seçelim..
    <%set hepsinisec=db.execute ("SELECT * FROM PERSONEL") %>

    Veri Tabanından Tüm Alanları Seçelim ve Personelin Maaşına Göre Azalan Sıralatalım
    <%set azalaraksec=db.execute (" SELECT * FROM PERSONEL ORDER BY MAAS DESC ")%>

    Veri Tabanından Tüm Alanları Seçelim ve Personelin Yaşına Göre Artarak Sıralatalım
    <%set azalaraksec=db.execute (" SELECT * FROM PERSONEL ORDER BY YAS ASC ")%>

    Veri Tabanından Tüm Alanları Seçelim ve Personelin Yaşı "30" Olanları ID Numarasına Göre Azalan Sıralatalım
    <%set ahmetolanlarisec=db.execute (" SELECT * FROM PERSONEL WHERE='30' ORDER BY ID DESC")%>

    Veri Tabanından Tüm Alanları Seçelim ve Maaşları 500 ile 600 YTL Olanları ID Numarasına Göre Artarak Sıralatalım
    İlk Önce Maaşları Bir Değişkene Atayalım
    maas1="500"
    maas2="600"
    <%set maas=db.execute(" SELECT * FROM PERSONEL WHERE MAAS BETWEEN # " & MAAS1 & " # AND # " & MAAS2 & " # ORDER BY ID ASC ")%>

    Veri Tabanından Personel Adını Seçelim ve Son Eklenen 10 Kayıdı Sıralatalım
    <%set pers=db.execute(" SELECT TOP 10 PERSAD FROM PERSONEL ORDER BY ID DESC")%>

    Yetkili Tarafından Seçilen Personelin Tüm Bilgisini Gösterelim Birde..
    <%set pers=db.execute(" SELECT * FROM PERSONEL WHERE ID="&REQUEST.QUERYSTRING("PERSID"))%>

    ve Linki personelgor.asp?PERSID=5 (Personele Ait ID Değeri)


    Hep Seçtirdik ; Birazda Farklı İşemler Yaptıralım Dimi :)

    DELETE ....

    Veri Tabanından Tüm Alanları Silelim
    <%set sil=db.execute(" DELETE * FROM PERSONEL ")%>

    Yukarıda Seçtirerek Yaptığımız Tüm Koşulları Silmek İçinde Yaptırabilirsiniz

    INSERT INTO....

    Veri Tabanına Yeni Personel Ekleyelim
    <%set yeniekle=db.execute(" INSERT INTO PERSONEL(PERSAD,MAAS) VALUES('"&REQUEST.FORM("PERSAD")&"','"&REQUEST.FORM("MAAS")&"') ")%>

    UPDATE....

    Veri Tabanındaki Personellerin Maaşı 500 Ytl Olanlara Biraz Zam Yapalım :)
    <%set zamyap=db.execute(" UPDATE PERSONEL SET MAAS='"&REQUEST.FORM("ZAMLIMAAS")&"' WHERE MAAS='500'")%>

    Farklı Şartlar ve Koşullarla DELETE,INSERT INTO ve UPDATE Komutlarınıda Kullanabilirsiniz...




  • <% 'Array %>

    Nedir ? =Birçok veriyi Bir Değişkene Tanımlamada Kullanılır...
    Kullanımı = <%degisken=Array("veri1","veri2")%>
    Örnek =

    Arraya Biraz Değişik Bir Örnek Verelim,
    Yapacagımız Örneğin Daha Kolayıda Var Ama Bazı Kodlamaları Kavrayabilmemiz İçin Ben Uzun Yoldan Yapıcam

    1-- <%tarih=mid(date(),4,5)%>
    2-- <%aylar= array ("bos","ocak","şubat","mart","nisan","mayıs","haziran","temmuz","agustos","eylul","ekim","kasım","aralık")%>
    3-- <%ay=tarih%>
    4-- <%response.write "Aylardan " & aylar(ay)%>

    Açıklama...
    1-- tarih değişkenine gunun tarihini atadık ve mid kullanarak tarihin 4. ve 5. karakterlerını aldık...4. ve 5. karakter GG.AA.YYYY olarak yazıldıgı ıcın Ayın oldugu degerler olmakta
    2-- aylar degıskenıne 12 ayı yazdırdık...en bastada bos degerını yazdık , cunku array saymaya 0 dan baslıyo halıyle 0 degerınde herhangı bır ay olmadıgından oraya bos verısını kayıt ettırdık
    3-- ay degiskenine daha once mid ile ay degerıne esıt gelen tarih degiskenini atadık
    4-- ve ayları yazdırdık

    cıktı olarak ornek vermek gerekırse
    06.08.2008 tarihinde oldugunu varsayalım mid ile 08 kısmını sectık aldık ve tarih değişkenine atadık
    sonra sectıgımız rakamı arrayda belırttıgımız ay verılerıne esıt olanını bulduk ve 8 ıncı ay olan AGUSTOS u yazdırdık =)

    bu yontemle tamamıyle turkce tarıh yazdırabılırız
    onemli olan calısma mantıgını cozmek
    ama tabı bunun cok daha kısa yolları var




    < Bu mesaj bu kişi tarafından değiştirildi tlp41 -- 6 Ağustos 2008; 2:56:55 >




  • <% 'bir Kaç Kodlama ve Donguyle Karıştırılmış Örnek : Verileri Yanyana Sıralama %>
    <%
    Set db= Server.CreateObject("ADODB.Connection")
    db.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("resimler.mdb"))
    %>

    resimler.mdb adında bır verıtabanımız olsun ve resımlerımızı galerı seklınde gosterelım
    ve buna bırazda html kodları katalım

    <%set resimler=db.execute("select * from manzararesimleri order by resimid desc")%>
    <table width="100%" border="0">
    <%if resimler.eof then%>
    <tr><td>
    Resim Bulunmamakta !
    </td></tr>
    <%else%>
    <tr><td>
    <table width="100%" border="0">
    <tr><td>
    <%i=1%>
    <%do while not resimler.eof%>
    <%=resimler("resim")%>

    </td>
    <%if i mod 4=0 then%> '4 yerıne ne kadar sıralama yaptırmak ıstıyorsanız onu yazabılırsınız
    <tr></tr>
    <%end if%>
    <%i=i+1%>

    </tr>
    <%resimler.movenext : loop%>
    </table>
    </td></tr>
    <%end if%>
    </table>

    Açıklamasını yapayım :
    en basta db mıze baglantı kodunu olusturduk (daha oncede bahsetmıstım)
    sonra db mızden manzararesimleri adlı tablodan tum resımlerı secıp azalan degere gore sıralattık
    sonrasında if - then ile tablo eger bossa dıyerekten mesaj yazdırdık
    else ile degılse dıyerekten i degskenıne 1 degerını atadık ve dongumuzu baslatıp tum kayıtları sıralatmaya basladık
    kayıtları yazıdırdık
    sonra yine if ile i degerının ortalamasını alıp kosullandırdık , eger i 4 e bolundugu zaman sonucu 0 ıse yeni bir satır eklemesını ıstedık ve if dongusunu kapattık
    akabınde i degerını 1 artırdık , nedenı toplam kayıt kadar deger alsın...
    sonrasında resimler.movenext diyerek sonrakı kayıda gıtmesını sagladık ve loop ile donguyu devam ettırdık
    ve en basta actıgımız verı varmı yokmu kosulunu kapattık ...

    html table kodlamalarını kaldırıp kosuldakı <tr></tr> yerıne <br> yazarsanızda aynı sey olur ama
    boylesı gorsel acıdan daha hos olur

    ufak bır ornekle tablolu yanyana 4 erlı sıralama yaptık


    Saat Epey Geç Oldu (03.24) ... sımdılık bu kadar



    < Bu mesaj bu kişi tarafından değiştirildi tlp41 -- 6 Ağustos 2008; 13:00:21 >




  • <% 'with - end with%>
    Nedir = Birden Fazla Methodu Yazılımını Kısaltmaya Yarar
    Örnek =

    Veritabanımızdaki Alanları Yazdıracagımızı Dusunursek

    <%with response%>
    <%.write db("alan1")%>
    <%.write db("alan2")%>
    <%.write db("alan3")%>
    <%end with%>

    response komudumuzu with ile bağlayıp herdafasından yazmadan db deki alanları yazdırdık
    bu işlemi bir çok yerdede kullanabiliriz
  • yeni başlayanlar bu kodları copy yapıp bi txt dosyasına paste yapsın ve görebilecekleri bir yere kaydetsin.elbet birgün işlerine yarayacak.
    güzel kaynak olmuş.
  • gerçekten güzel bir kaynak....keşke devamı gelseydi
  • devamı gelicektir
    internete kısa bir ara verdim de :):)
  • 
Sayfa: 1
- x
Bildirim
mesajınız kopyalandı (ctrl+v) yapıştırmak istediğiniz yere yapıştırabilirsiniz.