<% 'Asp de Neler Yapabiliriz ?? %>

17 yıl

Çavuş

Konu Sahibi

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 
<%end sub%>
<%Sub Iletisim%>
Iletisim Sayfasına Ait Bilgiler veya 
<%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 >

T

tlp41

17 yıl

Çavuş

Konu Sahibi

<% '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...

Bu mesaja 1 cevap geldi.

T

tlp41

17 yıl

Çavuş

Konu Sahibi

<% '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 >
Bu mesaja 1 cevap geldi.

T

tlp41

17 yıl

Çavuş

Konu Sahibi

<% '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 >
Bu mesaja 1 cevap geldi.

T

tlp41

17 yıl

Çavuş

Konu Sahibi

<% '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

Bu mesaja 1 cevap geldi.

R

Response.Write

17 yıl

Yüzbaşı

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ş.

Bu mesaja 1 cevap geldi.

E

Emre!

17 yıl

Yüzbaşı

gerçekten güzel bir kaynak....keşke devamı gelseydi

Bu mesaja 1 cevap geldi.

T

tlp41

17 yıl

Çavuş

Konu Sahibi

devamı gelicektir
internete kısa bir ara verdim de :):)