Hakan Şen

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.

<%

For Each veri In Request.ServerVariables() 



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



Next

%>

<%

formdangelenbilgiler = ""

For Each x In Request.Form()

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

Next



Response.Write formdangelenbilgiler

%>

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

xmlHTTP ile ilgili uzun süredir yazılar yazmaktayım ve bu konularla ilgili bir çok mail aldım, sanırım yazılar bazı arkadaşlarımız için iyi oluyor

Neyse şimdi de XMLDOM ile RSS dosyalarını nasıl kendi web sitemize alıp kullanacağımızı gösteren bir kod yığını yayınlayacağım inşAllah işinize yarar.

Bu örnekte haber7.com adresindeki haberleri nasıl alacağımızı anlatarak size sistemin nasıl oluşturulması gerektiğini anlatacağım.

rssfile = "http://sondakika.haber7.com/sondakika.rss"

Dim objXML, objRoot, objItems



Set objXML = Server.CreateObject("Microsoft.XMLDOM")

objXML.Async = False

objXML.SetProperty "ServerHTTPRequest", True

objXML.ResolveExternals = True

objXML.ValiDateOnParse = True

objXML.Load(rssFile)

Set objItems = objRoot.getElementsByTagName("item")

If IsObject(objItems) = True Then

Dim objItem

For Each objItem In objItems

strTitle = objItem.SelectSingleNode("title").Text

strDesc = objItem.SelectSingleNode("description").Text

strLink = objItem.SelectSingleNode("link").Text

strDate = objItem.SelectSingleNode("pubDate").Text

<a target="_blank" href="<%= strLink %>"><b><%= strTitle %></b></a> - <%=strDate%><br />

<%=strDesc%><br /><br />

Next

Else

Response.Write  "<b>Bilgiler Getirilemiyor</b>"

End If

Set objRoot = Nothing

Set objItems = Nothing

End If

Set objXML = Nothing