ASP ile etiket linkleri oluşturmak

Ş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 & “<a class=’tag’ href=’arama.asp?arama=” & kucukharfyap(trim(xcut(k))) &”‘ title=’”& kucukharfyap(trim(xcut(k))) &”‘>” & kucukharfyap(trim(xcut(k))) &”</a> ”
end If
next
temp = temp &  “<p><b>Etiketler :</b> “& xtags2 & “</p>”
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.