Donanım Haber Forum
Ana Sayfa | Kayıt ol | Profilim | Gelen Kutusu | DH Hız Aşırtma VT | Adres Defteri | Email'le üyeliklerim | Benim forumlarım | Fotoğraf Albümleri
Favorileriniz | Üyeler | Arama | SSS | Şikayet listesi | Uyarı listesi | Nick işlemleri
<% 'Asp de Neler Yapabiliriz ?? %>

İlgili konuları bak: (bu forumda | tüm forumlarda)

Bu isimle girdiniz: Guest
Bu konudaki kullanıcılar: hiç
  Basılabilir versiyon
Tüm forumlar >> [Web Tasarım - Programlama] >> Yazılım Geliştirme >> Asp / Asp.NET >> <% 'Asp de Neler Yapabiliriz ?? %> Sayfa: [1]
Giriş
Mesaj << Daha eski konu   Daha yeni konu >>
tlp41

Mesaj: 47


 6 Ağustos 2008; 2:04:39 
Bu mesajla ilgili şikayetinizi bu icon a tıklayarak yapabilirsiniz.

Asp nin Ne Olduğunu Ne İşe Yaradığını "rtsngz" Arkadaşımız http://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 >


_____________________________

Tlp
-----
info@e-turkdizayn.net

tlp41

Mesaj: 47


 6 Ağustos 2008; 2:34:43 
Bu mesajla ilgili şikayetinizi bu icon a tıklayarak yapabilirsiniz.

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


_____________________________

Tlp
-----
info@e-turkdizayn.net

tlp41

Mesaj: 47


 6 Ağustos 2008; 2:57:20 
Bu mesajla ilgili şikayetinizi bu icon a tıklayarak yapabilirsiniz.

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


_____________________________

Tlp
-----
info@e-turkdizayn.net

tlp41

Mesaj: 47


 6 Ağustos 2008; 3:27:33 
Bu mesajla ilgili şikayetinizi bu icon a tıklayarak yapabilirsiniz.

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


_____________________________

Tlp
-----
info@e-turkdizayn.net

tlp41

Mesaj: 47


 6 Ağustos 2008; 13:12:57 
Bu mesajla ilgili şikayetinizi bu icon a tıklayarak yapabilirsiniz.

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


_____________________________

Tlp
-----
info@e-turkdizayn.net

Galathil

Mesaj: 354


 6 Ağustos 2008; 21:38:08 
Bu mesajla ilgili şikayetinizi bu icon a tıklayarak yapabilirsiniz.

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

_____________________________

Emre!

Mesaj: 394


 2 Eylül 2008; 17:11:16 
Bu mesajla ilgili şikayetinizi bu icon a tıklayarak yapabilirsiniz.

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

_____________________________

MSI VR330X / Amd Sempron 3600 , Ge Force Go 6100 128 Mb , 1500 Gb DDR2 //// Intel D930 , ATI X550 Radeon 256 - 512 MB , 1 GB DDR2 , 160 GB HDD , /// Intel P4 Celeron ( 478 Pinli ) , 256 Mb Ram , 64 Mb Ge Force Ekran Kartı , ..... İşletim Sistemlerim : Ubuntu , Pardus , Win Xp SP2
tlp41

Mesaj: 47


 3 Eylül 2008; 11:34:32 
Bu mesajla ilgili şikayetinizi bu icon a tıklayarak yapabilirsiniz.

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

_____________________________

Tlp
-----
info@e-turkdizayn.net

Sayfa:   [1]
Tüm forumlar >> [Web Tasarım - Programlama] >> Yazılım Geliştirme >> Asp / Asp.NET >> <% 'Asp de Neler Yapabiliriz ?? %> Sayfa: [1]
Buraya git:



Donanım Haber Video İnceleme
Cebit 2008: ArtWin.Net Yazılım Standı
ArtWin.Net yazlımdan Sedat Bey bizleri ürünleri hakkında bilgilendiriyor.
Cebit 2008: TTN Mobile Standı
3 sim kartlı cep telefonu! Projeksiyon fonksiyonlu cep telefonu! Kullan at cep telefonu! bu standda görülmesi gereken bir çok şey var!
 


Yeni mesajlar Yeni mesajlar yok
Popüler konu, yeni mesajlar ile Popüler konu, yeni mesajlarsız
Kilitli yeni mesajlar ile Yeni mesajlar olmadan kilitli
 Yeni mesaj at
 Mesaja cevap at
 Yeni anket aç
 Oy kullan
 Kendi mesajımı sil
 Kendi konumu sil
 Mesaja değerlendir
 Mesajımı DH blog sayfama ekle
 
Reklamlar