Udspecificering af HTTP_REFERER

Hvad nu hvis du har en REFERER der ikke kommer fra google (f.eks jubii). Hvad så??

Nu har jeg ikke prøvet det af på andre søgninger end i google, men generelt skal første punkt omhandle den side, hvor brugeren kommer fra. Håber, at det giver mening

Vi kan sagtens lave et script som deler den op når vi ved det er googlekode, men det er undtagelsen, der er problemet. Men noget i denne stil (ikke testet):

referer = "http://www.google.dk/search?q=kroophold&hl=da&lr=&start=30&sa=N"
if instr(referer,"http://www.google.dk")=1 then
  www = "http://www.google.dk"
  temp = mid(instr(referer,"q=")+2)
  q = left(temp,inStr(temp,"&"))
  temp = mid(instr(referer,"start=")+6)
  start = left(temp,inStr(temp,"&"))
else
  'Anden url end google.dk
end if

Jeg har ikke lige prøvet koden af, men generelt gør det ikke så meget, hvor brugeren kommer fra. Det vigtigste er søgeordet! Hvis jeg laver søgningen på msn.dk bliver koden:

http://search.msn.dk/results.aspx?q=kroophold&FORM=QBRE

Kan du lave en kode, som udskiller indholdet af q=, som umiddelbart er ens for både google og msn?

if instr(referer,"http://www.google.dk")=1 then
  www = "http://www.google.dk"
  temp = mid(instr(referer,"q=")+2)
  q = left(temp,inStr(temp,"&"))
  temp = mid(instr(referer,"start=")+6)
  start = left(temp,inStr(temp,"&"))
elseif instr(referer,"http://search.msn.dk")=1 then
  www = "http://search.msn.dk"
  temp = mid(instr(referer,"q=")+2)
  q = left(temp,inStr(temp,"&"))
else
  'Anden url end google.dk eller msn
end if

Det ser rigtig godt ud. Jeg har lagt koden ind, og der kommer umiddelbart ingen fejl. Jeg ville, inden jeg arbejder videre med at få disse data ned i min database lige på skærmen have skrevet værdierne ud, men kan umiddelbart ikke gøre dette. Kan jeg ikke bare i linien under start = ... blot f.eks. skrive response.write www?

Jo, men det var nok smartere at gøre det efter if-blokken:

...
else
  'Anden url end google.dk eller msn
end if
response.write "www: "& www &"<br>"
response.write "q: "& q &"<br>"
response.write "start: "& start &"<br>"

Det lyder meget fornuftigt, hvorfor jeg har indsat følgende:

<%
if instr(referer,"http://www.google.dk")=1 then
  www = "http://www.google.dk"
  temp = mid(instr(referer,"q=")+2)
  q = left(temp,inStr(temp,"&"))
  temp = mid(instr(referer,"start=")+6)
  start = left(temp,inStr(temp,"&"))
elseif instr(referer,"http://search.msn.dk")=1 then
  www = "http://search.msn.dk"
  temp = mid(instr(referer,"q=")+2)
  q = left(temp,inStr(temp,"&"))
else
  'Anden
end if
response.write "www: "& www &"<br>"
response.write "q: "& q &"<br>"
response.write "start: "& start &"<br>"
%>

men den udskriver ikke noget resultat??

www:
q:
start:

Ser ud til du mangler:
referer = Request.ServerVariables("HTTP_REFERER")

så referer bliver smidt i variablen.

Hvis koden bliver:

referer = Request.ServerVariables("HTTP_REFERER")

if instr(referer,"http://www.google.dk")=1 then
  www = "http://www.google.dk"
  temp = mid(instr(referer,"q=")+2)
  q = left(temp,inStr(temp,"&"))
  temp = mid(instr(referer,"start=")+6)
  start = left(temp,inStr(temp,"&"))
elseif instr(referer,"http://search.msn.dk")=1 then
  www = "http://search.msn.dk"
  temp = mid(instr(referer,"q=")+2)
  q = left(temp,inStr(temp,"&"))
else
  'Anden
end if
response.write "www: "& www &"<br>"
response.write "q: "& q &"<br>"
response.write "start: "& start &"<br>"
%>

kommer der desværre kun: HTTP 500 - Intern serverfejl

Jeg har nu fundet en acceptabel løsning, som er (hvis andre kan bruge det til noget):

<%

If InStr(Request.ServerVariables("HTTP_REFERER"),"http://www.google.dk") = 1 OR InStr(Request.ServerVariables("HTTP_REFERER"),"http://www.google.com") = 1 OR InStr(Request.ServerVariables("HTTP_REFERER"),"http://search.msn.dk") = 1 OR InStr(Request.ServerVariables("HTTP_REFERER"),"http://search.msn.com") = 1 OR InStr(Request.ServerVariables("HTTP_REFERER"),"http://search.jubii.dk") = 1 Then

Streng = Request.ServerVariables("HTTP_REFERER")
Strenghost = Request.ServerVariables("HTTP_HOST")
Strengurl = Request.ServerVariables("URL")

StrSQL = "INSERT INTO 1emneord(Streng, Strenghost, Strengurl)"
StrSQL = StrSQL & "Values("
StrSQL = StrSQL & "'" & Streng & "',"
StrSQL = StrSQL & "'" & Strenghost & "',"
StrSQL = StrSQL & "'" & Strengurl & "'"
StrSQL = StrSQL & ")"

Set StrSQL = conn.execute(StrSQL)

else
' ikke fra en søgemaskine

End If
%>

Det eneste der mangler er faktisk bare, at værdien af q= (altså søgeordet / søgesætningen) blev udskilt og indsat særskilt. Jeg gik lidt kold i koderne, så nu accepterer jeg min løsning, men hvis det er nemt at udskille q=, så vil jeg da rigtig gerne have det med.

Smid et svar, så du kan få dine fortjente point. Tak for hjælpen!

.o) <-- One Eyed Jack

Tak for hjælpen :-)