Arama yapılan kelimeyi kayıt etme - R10.net
  • 14-10-2012, 03:50:41
    #1
    Arama yapılan kelimeyi kayıt etme ve bu kayıt edilen kelimeleri bir tablonun içende göstermek istiyorum bunun için yardım edecek biri var mı
  • 16-11-2012, 17:35:41
    #2
    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
    %>
  • 15-05-2015, 18:20:58
    #3
    aradinmi adlı üyeden alıntı: mesajı görüntüle
    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
    %>
    eyw güzel kod eline sağlık
R10.net sizlere daha iyi hizmet sunmak için çerezleri kullanıyor.R10.net'i kullanarak çerezleri kullanmamızı kabul etmiş olacaksınız.
Detaylı bilgi almak için Gizlilik ve Çerez Politikası metnimizi inceleyebilirsiniz.