Domæne referer...

erikjacobsen har jo lavet det til dig i http://www.eksperten.dk/spm/180132

det virker ikke...

Det gør det da ihvertfald, jeg har lige testet det.

http://www.cnhweb.dk/test.asp

se din e-mail.

Den går ikke den der! Alle løsninger skal være tilgængelige for alle på eksperten! Smid løsningen her eller i bliver meldt til Admin.

Her er den løsning jeg har modtaget via mail:

varReferer = Request.ServerVariables("HTTP_REFERER")
  pos1 = instr(1,varReferer,"/")
  if pos1>0 then
    pos1 = instr(pos1+1,varReferer,"/")
    pos2 = instr(pos1+1,varReferer,"/")
    strDomain = mid(varReferer,pos1+1,pos2-pos1-1)
  else
    strDomain = "Direkte forespørgsel"
  end if
  Set RS = Server.CreateObject("ADODB.Recordset")
  RS.Open SQL, DB, 3, 3
  RS.Find "Referer='" & strDomain & "'"
  If Not RS.EOF Then
    rs("Trafik") = rs("Trafik") + 1
        RS.Update
  Else
        RS.movefirst

        RS.AddNew
        rs("Referer") = strDomain
        rs("Trafik") = 1
        RS.Update
  End If

Fuck hvor råddent, det er jo nøjagtig det samme som erikjacobsen lavede!

Det her er meget mere enkelt:
HTTP_REFERER = Request.ServerVariables("HTTP_REFERER")
MyPos = InstrRev(HTTP_REFERER, "/", -1, 1)
Domaene = Left(MyPos, MyPos)

mvh
Søren Peter Fynboe

Rettelse:
HTTP_REFERER = Request.ServerVariables("HTTP_REFERER")
MyPos = InstrRev(HTTP_REFERER, "/", -1, 1)
Domaene = Left(HTTP_REFERER, MyPos)

sp >> Ikke for noget med hvis du har en adresse der f.eks. hedder:

http://www.eksperten.dk/spm/180201/test.asp

Vil dit script retunere:

http://www.eksperten.dk/spm/180201

og ikke http://www.eksperten.dk som var planen.

OK, men jeg har lavet den før så den virkede.
<%
HTTP_REFERER = Request.ServerVariables("HTTP_REFERER")
MyPos = Instr(8, HTTP_REFERER, "/")
Domaene = Left(HTTP_REFERER, MyPos)
Response.Write Domaene
%>

Ja se, den sidste kode er jo noget helt andet, den ser mere fornuftig ud.

Eller splitte det hele op og sætte det sammen igen:
<%
HTTP_REFERER = "http://www.eksperten.dk/spm/180201/test.asp"
MyString = Split(HTTP_REFERER, "/", -1, 1)
Response.Write Mystring(0) & "/" & Mystring(1) & "/" & Mystring(2) & "/"
%>

<%
HTTP_REFERER = Request.ServerVariables("HTTP_REFERER")
MyString = Split(HTTP_REFERER, "/", -1, 1)
Response.Write Mystring(0) & "/" & Mystring(1) & "/" & Mystring(2) & "/"
%>