reften arama kaydı alma - Sayfa 2

13-06-2007, 22:28:35

#10

yokmu bu koda yardım edebilecek birisi

arkadaşlar acil lazım index arttıracaz daha konumuz googlede aranan kelimeleri db ye kayıt

örnek maxialem aradım diyelim googlede out sayfanısnı buldu siteye tıkladım diyelim bana verdigi sonuç aynen şu

q=maxialem&me

me tetanın kısaltması sanırım

kodumuz hatalıdır bunu düzeltmemiz lazım

Alıntı

<%
page = Request.ServerVariables("URL")
ref = Request.ServerVariables("HTTP_REFERER")
refURL = Request.ServerVariables("HTTP_REFERER")

If refURL <> "" Then
silinecek = Instr(refURL,"q=")
yeni = mid(refURL,silinecek,len(refURL)-silinecek)
silinecek = Instr(yeni,"&")
kelime = mid(yeni,1,silinecek)

Kontrol="SELECT *FROM arama WHERE kelime='"&kelime&"'"
Set Kont=bag.Execute (Kontrol)

If Kont.EOF Then

Set Rs=Server.CreateObject("ADODB.RecordSet")
Rs.Open "SELECT *FROM arama ", bag, 1, 3

Rs.addnew
Rs("kelime")=kelime
Rs("page")=page
Rs.Update
else
end if
end if
%>

14-06-2007, 00:43:35

#11

Sting

kelime = mid(yeni,1,silinecek-3)

yap

14-06-2007, 19:17:53

#12

sincap

Sting adlı üyeden alıntı: mesajı görüntüle

kelime = mid(yeni,1,silinecek-3)

yap

eyvallah saol ben bir türlü eksiltemedim bu eksiyi yanlış yerde denemişim

bu arada kodda yine degişiklikle düzeldi ancak belki lazım olur birilerine kodun tamamı

Alıntı

<%
page = Request.ServerVariables("URL")
ref = Request.ServerVariables("HTTP_REFERER")
refURL = Request.ServerVariables("HTTP_REFERER")

If len(refURL) > 0 Then

silinecek = Instr(refURL,"q=")
yeni = mid(refURL,silinecek,len(refURL)-silinecek)

silinecek = Instr(yeni,"&")

kelime = mid(yeni,3,silinecek-3)

Kontrol="SELECT *FROM arama WHERE kelime='"&kelime&"'"
Set Kont=bag.Execute (Kontrol)

If Kont.EOF Then

Set Rs=Server.CreateObject("ADODB.RecordSet")
Rs.Open "SELECT *FROM arama ", bag, 1, 3

Rs.addnew
Rs("kelime")=kelime
Rs("page")=page
Rs.Update
else
end if
end if
%>