reften arama kaydı alma

10-06-2007, 14:22:01

arkadaşlar acil yardım lazım referans kodundan aranan kelimeyi almam lazım bulumadım bir türlü aslında kolaydı ama nasıl yapıcagımı bilemedim bilen yazarsa sevinirim
http://www.maxialem.net/arama.asp?q=sohbet örnek buradaki sohbet kelimesini nasıl alıcagız

10-06-2007, 15:08:04

#2

Ron

Bu şekilde alabilirsin:

<%=request.querystring("q")%>

10-06-2007, 17:06:16

#3

sincap

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

Bu şekilde alabilirsin:

<%=request.querystring("q")%>

malesef konuyu tam açıyım benim amacım googlede aranılşan kelimelerle toplistimin out sayfasına geliyo yani googlede aranılan kelime

abiye gece elbiseleri
http://www.google.com.tr/search?hl=t...biseleri&meta=

olsun gelen link
http://www.maxialem.net/out.asp?id=1512
işte benim istedigim buradaki goolenin yolladıgı kelimeleri almak

şöyle birşey yaptım ama bir türlü olmuyo

<%
ara = Request.ServerVariables("q")
page = Request.ServerVariables("URL")
ref = Request.ServerVariables("HTTP_REFERER")
If strref <> "" Then '
strSite = Split(strref,"q") '
Site = strSite(,1)
end if%>

10-06-2007, 20:15:51

#4

Ron

hmmm, bunu denedim biraz ama sonuç alamadım henüz.

11-06-2007, 00:16:33

#5

Sting

fonksiyonları yanlış hatırlıyor olabilirim. kodları denemedim. ama mantıken doğru. aralara notlar düşerek anlatmaya çalıştım. deneyip sonucunu banada söylersin.

<%
//referansı okuyoruz
refURL = Request.ServerVariables("HTTP_REFERER")
//referans dolu mu kontrolü
If refURL <> "" Then
//ilk önce referansda "q=" olan yere kadar kesip atmamız lazım. bunun içinde "q=" kaçıncı karakter olduğunu bulmamız gerekir
silinecek = Instr(refURL,"q=")
//daha sonra bulduğumuz karakter sayısından sonrasını alıyoruz
yeni = mid(refURL,silinecek,len(refURL)-silinecek)
//arama kelimesinden sonraki gereksizleri temizlemek içinde "&" karakterini bulmamız gerekir
silinecek = Instr(yeni,"&")
//bu sefer bulduğumuz karakter noktasından öncesini alıyoruz ve aranan kelimeyi bulmuş oluyoruz
aranan_kelime = mid(yeni,1,silinecek)
response.write(aranan_kelime)
end if
%>

11-06-2007, 00:19:47

#6

tabirleri

<% aranan = Request.QueryString("q")%>

12-06-2007, 00:31:58

#7

sincap

iyi kötü çalışıyo saol ama refsiz gelindiginde şu hatayı aldım
Microsoft VBScript runtime error '800a0005'
Invalid procedure call or argument: 'mid'
/out.asp, line 331

kod

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,3,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
%>

bu arada sonuçlarda burada bakabilirsin
en son bu hale geldi sonda 3 fazla karekter var silemedim

kuranyolunda&me

http://www.maxialem.net/aranan.asp

12-06-2007, 02:05:26

#8

Sting

arama kutusunda arama yapınca hata veriyor. url ile Sting arattım sorunsuz bir şekilde alıyor. 3 karakter fazla var demişsin göremedim ben fazlalık ?

boş ref hatası içinde

If refURL <> "" Then

yerine

If len(refURL) > 0 Then

yaz

12-06-2007, 19:59:34

#9

sincap

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

arama kutusunda arama yapınca hata veriyor. url ile Sting arattım sorunsuz bir şekilde alıyor. 3 karakter fazla var demişsin göremedim ben fazlalık ?

boş ref hatası içinde

If refURL <> "" Then

yerine

If len(refURL) > 0 Then

yaz

çünkü kaldırdım günlük 1000 1500 google ziyaretçisi var yoksa tümü hatalı çıkacak ve bunu sitemapa yollucak yazık o kelimelere ve sitemapa yorulmasın diye kaldırmöıştım işin aslı baştaki

ö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