Hakan Şen

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.

<%



For b = 65 To 90 Step 1

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

Next



%>

Xmlhttp ile ilgili yazılarım mevcuttu, bunu sitemi takip edenler biliyor. Bugün bir mail aldım ve bir arkadaşımız localhost`ta xmlhttp`yi nasıl çalıştıracağını sormuş.

XmlHttp bir componenttir, çalışması için sisteme register edilmesi gerekir, register etmek içinse Regsvr32 komutu kullanılır, bu komutun kullanımı ile ilgili bilgi için burayı okuyabilirsiniz.

Ama bu işlemi xmlhttp için yapmanıza gerek kalmıyor çünkü Microsoft web sitesinden paket olarak indiriyorsunuz ve setup dosyası sizin yerinize bunu yapıyor

XmlHTTP kurulum dosyasını Microsoft web sitesinden indirebilirsiniz.

Download Et
http://www.microsoft.com/downloads/details.aspx?FamilyID=28494391-052B-42FF-9674-F752BDCA9582&displaylang=en

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

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

<script type="text/javascript">

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

</script>

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

<%

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

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.

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

strURL = "http://www.tcmb.gov.tr/kurlar/toDay.html" 

strVeri = GETHTTP(strAdres)

iDolar=InStr(strVeri,"USD" ) 

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

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

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

iEuro=InStr(strVeri,"EUR" ) 

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

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

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

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

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

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

ASP de en çok kullanılan fonksiyonlardan bir diğeri de Mid fonksiyonudur.

Mid (Metin, Başlangıç, [Uzunluk])

Mid (string_ifade, başlangıç_noktası,[alınacak karakter sayısı])

Mid ("HAKAN ŞEN", 4, 2)