toysoyun.com adresinde kullandığım etiketleme sistemi

Arama Kayıt Kodu
<%
'Flood Koruması
If Session("x") = "" Then
Session("x") = 0
Else
Session("x") = Session("x") + 1
End If
If CInt(Session("x")) > 5 Then
Session.TimeOut = 1
Response.Redirect "hata.asp"
Response.End
End If

'Arama Filtresi
Function Filtre(duzelt)
aranan=replace(duzelt,"%3C","&lt;")
aranan=replace(duzelt,"%3E","&gt;")
aranan=replace(duzelt,"'","'")
aranan=replace(duzelt,"%22","&quot;")
aranan=replace(duzelt,"""",""")
Filtre=duzelt
End Function

'Arama Kayıt Ekranı (Buraya bir döngü kodlayıp aynı aranan kelimelerin kayıt olmasını da engelleyebilirsin)
Dim Aranan
Aranan = Trim(Filtre(Left(Request.Querystring("Aranan"),15) ))
If Aranan = "" Then
Response.Redirect "/anasayfa"
Else
Set Arama = Server.Createobject("Adodb.Recordset")
Arama.Open "Select * From Sitedeara",Conn,1,3

Arama.Addnew
Arama("Aranan") = Aranan
Arama.Update
Arama.Close : Set Arama = Nothing
End If
%>


Etiket Gösterim Alanı
Distinct ile aynı olan kelimelerin gösterilmesini engelliyoruz..
Aslında aranan kelimelere bir hit koyulup aynı kelimeler aranıyorsa bu kelimenin hitini yükseltip burada
hiti yüksek olan 20 kelimeyi sorgulamak daha mantıklı neden öyle yapmadım ki Ama buda işini görür.

<%
Set Aranan = Conn.ExeCute("Select Distinct Top 20 Aranan From Sitedeara Order BY Aranan Desc")

Do while Not Aranan.EOF
If Aranan.Eof Then Exit Do
%>
<a class="etiketler" title="<%=Aranan("Aranan")%>" href="/ara.asp?aranan=<%=Server.URLEncode(Aranan("Aranan" ))%>"><em><%=Aranan("Aranan")%>,</em></a>
<%
Aranan.MoveNext : loop
Aranan.Close : Set Aranan = Nothing
%>