webForumDet fria alternativet

relativ redirect

ASP

3 svar · 299 visningar · startad av Rob Tjotj

Medlem sedan okt. 200591 inlägg
Frågan#1

Hej igen!

Jag har en huvuddomän men med flera "underdomäner" i mappstrukturen.
Jag vill att när besökaren går in på ex. adressen www.domän2.se så ska sidan öppnas som www.huvuddomän.se/domän2. I förlängningen skall alla sidor öppnas i en framesida med en menyrad överst.
Orsaken till att jag vill att de öppnas under huvuddomänen är att jag har ett "tipsa om denna sida" skript i huvudmenyn och det fungerar inte om sidan som visas i framen tillhör en annan domän.

Jag skulle vilja ha typ följande:

IF Request.ServerVariables("server_name") <> "www.huvuddomän.se" Then
Response.Redirect("http://www.huvuddomän.se/?s=" & Request.servervaribles("PATH_TRANSLATED")
End IF

och tar emot den med något som följande
frame 2 = request.QueryString("s")

Men jag vill helst inte att jag skall behöva skriva ut sökvägen på servern i QueryString.
Kan man skicka den dold i asp eller måste jag submitta ett form?

Kan man använda global.asa?

Tack på förhand och hoppas att jag var tydlig nog.

Medlem sedan okt. 200591 inlägg
#2

Ja, jag får väl svara själv då?
På sidan som ska redirectas skrev jag:

<%
IF Request.Querystring("framenamn")<>"OK" then
sokvag = Request.ServerVariables("PATH_TRANSLATED")
sokvagkort = right(sokvag,len(sokvag)-len("önskad rot"))
httpsokvag = "http://www.huddomän.se/?s=" & replace(sokvagkort,"\","/")
Response.Redirect(httpsokvag)
End IF
%>

På framesidan skrev jag

<%
IF ISNULL(request.QueryString("s")) or request.QueryString("s") = "" Then
Undersida = "http://www.huvuddomän.se/"
Else
Undersida = Request.QueryString("S")
End IF
%>

Resp.

<frame src="<%= Undersida %>?framenamn=OK" name="framenamn" frameborder="0" scrolling="auto" marginwidth="0" marginheight="0">

Tyck gärna till om ovanstående och går detta lika bra i global.asa

Medlem sedan okt. 200591 inlägg
#3

Det funkade utmärkt även i global.asa enligt nedan:

<script language="vbscript" runat="server">
sub Session_OnStart
IF Request.Querystring("lmkframe")<>"OK" then
sokvag = Request.ServerVariables("PATH_TRANSLATED")
sokvagkort = right(sokvag,len(sokvag)-len("D:\Inetpub\wwwroot\massan"))
httpsokvag = "http://www.lmk.lulea.se/nymeny/?s=" & replace(sokvagkort,"\","/")
Response.Redirect(httpsokvag)
End IF
end sub
</script>

Men vissa sidor som popuper kanske inte ska ha menyn. men det går säkert att lösa.

Ge mig gärna lite response så att jag inte är ute och cyklar.

Medlem sedan okt. 200591 inlägg
#4

Löste det också.
Jag lägger alla filer som inte ska öppnas i huvudframen i egna mappar utan global.asa

254 ms totalt · 4 externa anrop · v20260731065814-full.86ec41c2
122 ms — deklarationer (db)
0 ms — hämta statistik (cache)
129 ms — hämta tråd, inlägg och bilagor (db)
115 ms — ändringar (db)