Hakan ŞEN Kişisel Günce - Etiket : asp / http://www.hakansen.com

(asp) For each kullanımı

30 Ocak 2008

Asp de For Each benim cok sık kullandığım bir döngü biçimidir, her bir veri için kullanılabilir. örnek uygulamalarla daha kolay ve güzel anlatabilirim sanırım.

Kod:


<%

For Each veri In Request.ServerVariables() 



Response.Write veri &" : " & Request.ServerVariables(""& veri &"") &"<br>"



Next

%>

şeklinde kullanıldığında tüm request.servervariables() değerlerinin listesini ve içeriğini verecektir.

Örnegin bir formdan veri post ettiniz ve bu verilerin listesini görmek istiyorsunuz, ben genellikle mail gönderme işlemlerinde bu seçeneği kullanırım, nedeni ise sürekli request.form şeklinde verileri alıp yazmak zor oluyor.

Kod:
<%

formdangelenbilgiler = ""

For Each x In Request.Form()

formdangelenbilgiler = formdangelenbilgiler & x &" : "& Request.Form(""&x&"") &"<br>"

Next



Response.Write formdangelenbilgiler

%>

şeklinde kullanırım genellikle hele hele uzun bir form oluşturmuşsam her input değerinin adını unutup da request oluşturmak için kesin ve kesin kullanırım bunu

umarım size bi yardımı dokunur.

Devamı
Yorumlar (5)
Tarih : 30 Ocak 2008 Çarşamba Saat: 11:50:22
Kategoriler : Programlama
Etiketler : asp, for each, next

A dan Z ye sıralama (ASP)

24 Ocak 2008

Bugün çok yazı yazdım herhalde ama olsun uzun süreler siteye bakmak pek aklıma gelmiyor, hazır gazı almışken yazıyım.

Bir kaç gündür Cosmo Mutfak sitesinin kodlarıyla uğraşıyorum, ve bir fihrist bölümü oluşturmam istendi.

Şimdi oturacak A B C D E ... diye tüm karakterleri yazmak uzun iş bunu kısa yapmanın bir yolu vardır herhalde diye düşündüm ve char list listesinden alıp kullanmaya karar verdim işte kodlar.


Kod:


<%



For b = 65 To 90 Step 1

Response.Write "<a href='?Harf="& Chr(b) &"'>"& Chr(b) &"</a> "

Next



%>

Devamı
Yorumlar (5)
Tarih : 24 Ocak 2008 Perşembe Saat: 18:39:04
Kategoriler : Makale, Programlama
Etiketler : chr, a dan z ye , a, z, asp, for next

(ASP) Ajax Instant Edit - Ajax ile yerinde düzenleme yapma

24 Ocak 2008

Wikilerle gündeme gelen hali hazırdaki bir metin tıklandığında düzenleme yapılmasını sağlayan bir zavazingo çıkmış, her yerde php ile yapılan sürümünü bulabilirsiniz. YvoSchaap bunlardan birisidir.

Bende bu sistemin asp ile çalışanını hazırladım, birlikte inceleyelim.

Öncelikle ihtiyacımız olan Instantedit.Js dosyasını bu adresten temin edelim.


Kullanıcağımız sayfaya include edelim

Kod:


<script type="text/javascript" src="instantedit.js"></script>


Eğer editlenecek veri ile ilgili işlem yapılacak sayfaya farklı verilerde gönderecekseniz onlarıda Setvars ile ekleyeceğiz.

Kod:


<script type="text/javascript">

setVarsForm("islem=duzenle&id=1");

</script>


Şimdi yapacağımız işlem çok basit, Class="EditText" klasını eklediğimiz span alanlar düzenlenebilir hale gelecektir.

Kod:


<span id="veri" class="editText">

Geçti istemem gelmeni<br />

Yokluğunda buldum seni<br />

Bırak vehmimde gölgeni<br />

Gelme artık neye yarar<br />

<br />

<br />

<br />

Hakan Şen

<a href="http://www.hakansen.com">www.hakansen.com</a></span>



bu örnek span kodumuzdu, buradaki id="veri" hangi formun alındığını gösterir.

şimdi Js dosyasinda belirttigimiz ASP dosyasını oluşturalım.

anindaeditle.asp

Kod:


<%

Session.CodePage=1254

Response.Buffer = True

Response.ContentType = "text/html; charset=windows-1254"



YaziYazilanAlan      = Request("fieldname")

islem           = Request("islem")

id          = Request("id")

icerik          = Request("content")





%>

<%=icerik%>


bu asp dosyasi kisaca anlatmak gerekirse size o formdan gelen bilgileri alıyor, ve duzenlenen içeriği aynı span içerisine yazıyor.
Ama biz burda veritabanında güncelleme felan yapmadık isterseniz siz ID ye göre sql i açar update ile icerik verisini veritabanınıza yazabilirsiniz.

Çalışan örnek http://www.hakansen.com/kod/instant-edit/ adresinde bulunabilir.
indirmek isteyenler de buradan indirebilirler.

Devamı
Yorumlar (18)
Tarih : 24 Ocak 2008 Perşembe Saat: 18:07:39
Kategoriler : Referanslar, Makale, Programlama
Etiketler : asp, instant edit, yerinde editleme, js

Blograzzi Api ve VBscript kod örnekleri

2 Ocak 2008

Eburhan`ın web sitesinde "Blograzzi’den API hizmeti" adlı konuyu gördüm ve Blograzzi`yi tebrik ettim böyle bir hizmeti başlattıkları için.

Devamında da Bloglardan.com ve Sitebilgi.net sitelerinde de kullanıldığını öğrendim.

Blograzzi API hakkında daha detaylı bilgi için Blograzzi Api sayfasını ziyaret ediniz.

Api dökümanlarında PHP ve Asp.Net örnekleri bulunuyordu.

Bende kısa bir vakit ayırıp Asp Vbscript örneklerini hazırlayıp gönderdim, sağolsunlar yayınlamışlar.

Kod örnekleri konunun devamında, kullanımları ile ilgili detaylı açıklamaları da kısa bir süre sonra hazırlayacağım.

Devamı Var ...

Devamı
Yorumlar (3)
Tarih : 2 Ocak 2008 Çarşamba Saat: 17:37:04
Kategoriler : Referanslar, Programlar
Etiketler : blograzzi, api, asp, vbscript, kod

xmlHTTP ile Merkez Bankası Döviz Kurları (Ayrıntılı Açıklama)

7 Ağustos 2007

Bilindiği gibi xmlHTTP`yi başka sitelerden veri çekmek için kullanıyoruz. xmlHTTP ile ilgili diğer yazılarım için http://www.hakansen.com/etiket/xmlhttp/ adresinden diğer konulara göz gezdirebilirsiniz.

Bu yazıda http://www.tcmb.gov.tr/kurlar/today.html adresinden Merkez Bankası döviz kurlarını anlık olarak nasıl alınır mantığı nedir ne değildir onu göstermeye çalışacağım.

Öncelikle Fonksiyonumuzu kurarak başlayalım.

Kod:
Public Function GETHTTP(strGelen) 

Set objVeriAl = Server.CreateObject("Microsoft.XMLHTTP" ) 

objVeriAl.Open "GET" , strGelen, False

objVeriAl.sEnd 

GETHTTP= objVeriAl.Responsetext 

Set objVeriAl = Nothing

End Function


Bu her zaman kullandığımız xmlhttp ile get metodu ile veri çekmek için kullanacağımız koddur.

şimdi devam edelim ve http://www.tcmb.gov.tr/kurlar/today.html adresine bağlanalım.
Kod:
strURL = "http://www.tcmb.gov.tr/kurlar/toDay.html" 

strVeri = GETHTTP(strAdres)

Siteye bağlandık ve responsetext olarak kaynağını aldık.

Şimdi sıra geldi USD yani dolar kurunu bu kodların içerisinden nasıl alırız onu öğrenmeye. Bu işlemi yapabilmek için inStr() ve Mid() fonksiyonlarını kullanacağız.

Kod:
iDolar=InStr(strVeri,"USD" ) 

strDolarAlis=Mid(strVeri,iDolar+39,10)

strDolarSatis=Mid(strVeri,iDolar+52,10)


InStr() fonksiyonu ile aldığımız kaynak kodunda USD yazan yerin karakter sırasını alıyoruz ve Mid() fonksiyonuyla koddaki karakterler arasında kurların yazdığı bölümü alıyoruz.

Kod:
strDolarAlis=Mid(strVeri,iDolar+39,10)

kodunda kaynak kodunun USD geçen yerinden 39 karakter sonrasindan başlayarak 10 karakter sonrasina kadar geçen bölümü alıyoruz, bu bölüm Merkez Bankası Dolar Alış kurunu almış oluyoruz.

Aynı şekilde EUR değerlerini de almak için

Kod:
iEuro=InStr(strVeri,"EUR" ) 

strEuroAlis=Mid(strVeri,iEuro+39,11)

strEuroSatis=Mid(strVeri,iEuro+52,11)



Böylelikle tüm verileri almış oluyoruz, bunları sitede kullanmak istediğimiz yerlerde

Kod:
Response.Write "Dolar Satış : "& strdolarsatis &"<br>"

Response.Write "Dolar Alış : "& strDolarAlis &"<br>"

Response.Write "Euro Satış : "& strEuroSatis &"<br>"

Response.Write "Euro Alış : "& strEuroAlis &"<br>"


şeklinde istediğiniz yerde kullanabilirsiniz.

Kodun komple çalışan versiyonuna http://www.hakansen.com/Kod/doviz.kurlari.txt adresinden ulaşabilirsiniz.

Devamı
Yorumlar (1)
Tarih : 7 Ağustos 2007 Salı Saat: 20:52:07
Kategoriler : Makale, Programlama
Etiketler : asp, xmlhttp, merkez bankası, kurları, instr, mid, fonksiyon


eXTReMe Tracker