ASP ile etiket linkleri oluşturmak

Ertan — Sun, 28 Mar 2010 16:34:55 +0000

Şimdi Asp ile etiket linkleri oluşturmayı anlatıcaz sizlere. Bunun için split fonksiyonunu kullanacaz, aralarına virgül koyarak kaydedilmiş kelimeleri ayıracaz. Ayırma işlemi bittikten sonra her ayırdığımız kelimeden link yapacaz….
<%if myset1.fields(“Keywords”)<>”” then
xcut = Split(myset1.fields(“Keywords”),”,”)
for k=0 to Ubound(xcut)
if xcut(k)<>”” then
xtags2 = xtags2 & “” & kucukharfyap(trim(xcut(k))) &” ”
end If
next
temp = temp & “

Etiketler : “& xtags2 & “

”
end if %>
<%
function kucukharfyap(byval kelime)
dim sonuc
sonuc = replace(kelime, “A”, “a”)
sonuc = replace(sonuc, “B”, “b”)
sonuc = replace(sonuc, “C”, “c”)
sonuc = replace(sonuc, “Ç”, “ç”)
sonuc = replace(sonuc, “D”, “d”)
sonuc = replace(sonuc, “E”, “e”)
sonuc = replace(sonuc, “F”, “f”)
sonuc = replace(sonuc, “G”, “g”)
sonuc = replace(sonuc, “Ğ”, “ğ”)
sonuc = replace(sonuc, “H”, “h”)
sonuc = replace(sonuc, “I”, “i”)
sonuc = replace(sonuc, “İ”, “i”)
sonuc = replace(sonuc, “J”, “j”)
sonuc = replace(sonuc, “K”, “k”)
sonuc = replace(sonuc, “L”, “l”)
sonuc = replace(sonuc, “M”, “m”)
sonuc = replace(sonuc, “N”, “n”)
sonuc = replace(sonuc, “O”, “o”)
sonuc = replace(sonuc, “Ö”, “ö”)
sonuc = replace(sonuc, “P”, “p”)
sonuc = replace(sonuc, “R”, “r”)
sonuc = replace(sonuc, “S”, “s”)
sonuc = replace(sonuc, “Ş”, “ş”)
sonuc = replace(sonuc, “T”, “t”)
sonuc = replace(sonuc, “U”, “u”)
sonuc = replace(sonuc, “Ü”, “ü”)
sonuc = replace(sonuc, “V”, “v”)
sonuc = replace(sonuc, “Y”, “y”)
sonuc = replace(sonuc, “Z”, “z”)
sonuc = replace(sonuc, “Q”, “q”)
sonuc = replace(sonuc, “W”, “w”)
sonuc = replace(sonuc, “X”, “x”)
sonuc = replace(sonuc, “Î”, “î”)
sonuc = replace(sonuc, “Û”, “û”)
sonuc = replace(sonuc, “Ê”, “ê”)
kucukharfyap = sonuc
end function
%>
Burada dikkat ederseniz Lcase yerine kucukharf yap adlı kendi yazdığımız fonksiyonu kullandık. Bunun nedeni Türkçe’ye özgü (Ç,Ş,İ,Ö,Ü,Ğ) harflerini Lcase ile küçültemiyoruz.
İsterseniz xcut() dizisi içerisindeki kelimelerin sayısına göre sıralama da yapabilirsiniz.

ASP ile etiket linkleri oluşturmak yazısı ilk önce Ertan Dönmez üzerinde ortaya çıktı.

asp ile etiket linkleri oluşturmak arşivleri - Ertan Dönmez

ASP ile etiket linkleri oluşturmak