Get url ligesom numsefisk.dk

Kan du ikke bruge Request.Servervariables("HTTP_HOST") til at hendte strengen, så kan du søge og tjekke om den indeholder www og gør den ikke tager man føste ord imellem http:// og .

<%
str = Request.Servervariables("HTTP_HOST")
if inStr(1,str,"http://www") = 0 then
  i = instr(1,str,".")
  navn = Mid(str, 8, i-8)
end if
Response.Write navn
%>


eller har jeg misforstået det?

Invalid procedure call or argument: 'Mid'

:o(

PRøv lige sådan her der er gaktisk ikke http:// med i den streng man får:

<%
str = Request.Servervariables("HTTP_HOST")
if inStr(1,str,"www") = 0 then
  i = instr(1,str,".")
  navn = Mid(str, 1, i)
end if
Response.Write navn
%>

Hehe ok, nu spørger jeg meget dumt men på www.xazer.dk/kiks skriver den "asp."
Hvorfor?

Og det er ligemeget hvad jeg skriver

hmm
Prøv at udskrive Request.Servervariables("HTTP_HOST")
Så indeholder den nok ikke det hele.


. kommer med fordi der skal lige -1 på denne:
navn = Mid(str, 1, i-1)

Ok, jeg tror ikke lige det er HTTP_HOST jeg skal bruge, tror mere det er URL eller hvad?

Tjek lige siden igen. Der står det!

Server_Name?

Nej det går ikke med den så..
URl giver så vidt jeg hukser kun filnavnet og querysting.

Prøv med SERVER_NAME:
Request.Servervariables("SERVER_NAME")

Prøv at se inde på siden nu, sætter et par op

Arj SKOD FAIRHOST! Jeg prøver lige på en anden server!

hmm du kan lige prøve at ligge dette kode ind og de om det passer et sted.

<%
For Each item in Request.ServerVariables
  Response.Write Item  & ": " & Request.ServerVariables(item) & "<br>"
Next
%>

Ok, prøver.

Har prøvet at lægge det op på en anden server www.sitecreators.dk/test3.

Men der ser det ikke ud som om det vil virke!

Yeah:

HTTP_X_FORWARDED_HOST: www.hej.xazer.dk
HTTP_X_FORWARDED_SERVER: xazer.dk

så må det blvie:


<%
str = Request.Servervariables("HTTP_X_FORWARDED_HOST")
if inStr(1,str,"www") = 0 then
  i = instr(1,str,".")
  navn = Mid(str, 1, i)
end if
Response.Write navn
%>

hov og stadig -1 :

navn = Mid(str, 1, i-1)

http://hej.xazer.dk/kiks/ : "hej."
http://www.hej.xazer.dk/kiks/: (Ingenting)

Ja der skulle lige -1 på som vist.

http://www.hej.xazer.dk/kiks/: (Ingenting)  det fordi den starter med www så skal den ikke vise noget det var måske ikke rigtigt?

Well, undskyld koden inderholder også -1 nu! :D

Nej, hvis man skriver www skal den også skrive det alligevel. Altså "hej".

Og egentlig søgte jeg det også sådan så hvis man skrev mere (hej.med.dig.xazer.dk/kiks.dk) så skrev den: "Hej med dig".

Ved bare ikke hvordan man fanger de tro ord. Den skal først slutte ved xazer.dk. Skal jeg så der hvor den stopper ved punktum skrive "xazer.dk"?

Og så lave en replace der erstatter "." med mellemrum ?

arh ok så har jeg misforstået noget to sekuner..

Jesjes ;)

Takker eye, det virker nu:

<%
str = Request.Servervariables("HTTP_X_FORWARDED_HOST")
if inStr(1,str,"www") = 0 then
  i = instr(1,str,"xazer.dk")
  navn = Mid(str, 1, i-3)
end if
Response.Write navn
%>

Ok ;) elller sådan her:

str = "www.hej.med.dig.xazer.dk/kiks.dk"

iStart = inStr(1,str,"www",1)
if iStart = 1 then iStart=4
iSlut = inStr(1,str,".xazer.dk",1)
if iStart < iSlut then
  str = Mid(str,iStart+1,iSlut-iStart-1)
  str = replace(str,"."," ")
  Response.Write str
end if

lige str skal så være denne:

str = Request.Servervariables("HTTP_X_FORWARDED_HOST")

Helt prævist sådan her =)

<%
str = Request.Servervariables("HTTP_X_FORWARDED_HOST")
if inStr(1,str,"www") = 0 then
  i = instr(1,str,"xazer.dk")
  navn = Mid(str, 1, i-2)
end if

navn = replace(navn,".","&nbsp;")

Response.Write navn
%>

Med replace

hvis denne også skal virke: http://www.hej.xazer.dk/kiks/
Så prøv med den sidste kode jeg har vist:
<%
str = Request.Servervariables("HTTP_X_FORWARDED_HOST")
iStart = inStr(1,str,"www",1)
if iStart = 1 then iStart=4
iSlut = inStr(1,str,".xazer.dk",1)
if iStart < iSlut then
  str = Mid(str,iStart+1,iSlut-iStart-1)
  str = replace(str,"."," ")
  Response.Write str
end if
%>

Ja, det virker ikke sidder og leger med det.

Nogle gange når jeg åbner fx www.hej.xazer.dk/kiks så redirecter den videre til "http://xazer.dk/kiks" HVORFOR?!

Det er vist når der ikke er / til sidst i linket
www.hej.xazer.dk/kiks/  www.hej.xazer.dk/kiks

Måske serveren så kigger efter en fil når der ikke er / på??

Yeah, men det problem kommer ikke når det kommer til at ligge i rodmappen.. se selv www.eagleeye.xazer.dk :D

Nej det måske fordi der ikke er tvivl om det er en fil eller folder den skal vise?

Well, det virker i hvertfald og det er jeg meget taknemmlig for Du får dine MEGET velfortjente point + det løse! :D

Arj er max 200 ? Ok, overlever du ? :D

Ja max er 200.
Ja jeg overlever ;) mange tak.

Hehe selv tak. :D

Jeg bryder lige ind, håber der er ok :o)

Jeg prøvede koden

<%
str = Request.Servervariables("HTTP_X_FORWARDED_HOST")
if inStr(1,str,"www") = 0 then
  i = instr(1,str,"xazer.dk")
  navn = Mid(str, 1, i-3)
end if
Response.Write navn
%>

fra 07/01-2004 22:37:06, men får denne fejl:

Microsoft VBScript runtime error '800a0005'

Invalid procedure call or argument: 'Mid'

/test4.asp, line 5

Hvorfor kan jeg ikke få den rigtig?

Hvis  xazer.dk  ikke er i den streng ved inStr give 0 og i-3 = -3 og mid fejler.

Så du skal nok ændre xazer.dk til dit domæne navn eller tilføjer:
if i > 0 then navn = Mid(str, 1, i-3)

Ja, jeg så det, det virker nu, sorry :o)

Du skulle vel ikke have tid til at kigge på http://www.eksperten.dk/spm/457851