Request.ServerVariables

[orcim]

Perchè non funziona e non stampa nulla?

provenienza = Request.ServerVariables("HTTP_REFERER")
response.write (provenienza)

[Roby_72]

Potresti non provenire da un link e quindi il referer è vuoto...

Roby

[orcim]

Originariamente inviato da Roby_72
Potresti non provenire da un link e quindi il referer è vuoto...

Roby

Grazie.

Vorrei reindirizzare sulla pagina richiesta dopo il login.

Nella barra degli indirizzi scrivo:

http://localhost/asp/pag_protetta.asp

Nella pag_protetta ho scritto:

<%
If request.cookies("MyCookie")("valido")<>"ok" Then 
Response.Redirect ("login.asp")
End If
%>

Nella login.asp:

<% 

provenienza = Request.ServerVariables("HTTP_REFERER")

If Request.Form("login") = "xxx" AND Request.Form("password") = "xxx" Then
    Response.Cookies("MyCookie")("valido") = "ok"
    Response.Cookies("MyCookie").Expires = DateAdd("n", 120, Now())
    Response.Redirect provenienza
Else
    Response.Write ""
End If
%>

Ma provenienza non si valorizza... :master:

[Roby_72]

Passa provenienza in querystring o in un campo hidden del form.

Roby

[orcim]

<FORM ACTION="login.asp" METHOD="post" onSubmit="return validate(this);">
<input type="hidden" name="provenienza" value="<%=provenienza%>">

finisco sempre in login.asp....

[Roby_72]

No... nel response.redirect login.asp devi aggiungere la pagina di provenienza...

Roby

[orcim]

Risolto!

A beneficio di tutti:

login.asp

<%

FUNCTION filtraSQL(stringa)	
   strFiltrata = Replace(stringa,"'", "´")	
   strFiltrata = Replace(stringa,"%", "")	
   filtraSQL = strFiltrata
END FUNCTION

IF Request.QueryString("referer") = "" THEN  
   strReferer = Request.ServerVariables("HTTP_REFERER")
ELSE  
   strReferer = Request.Querystring("referer")
END IF

<% 
strReferer = Request("referer")

If filtraSQL(Request.Form("login")) = "xxx" AND filtraSQL(Request.Form("password")) = "xxx" Then
    Response.Cookies("MyCookie")("valido") = "ok"
    Response.Cookies("MyCookie").Expires = DateAdd("n", 120, Now())
    Response.Redirect strReferer
Else
    Response.write "Accesso negato"
End If
%>

<FORM ACTION="login.asp" METHOD="post">
<input type="hidden" name="referer" value="<%=strReferer%>">
</FORM>

pag_protetta

<%
If request.cookies("MyCookie")("valido")<>"ok" Then 
Response.redirect "login.asp?referer=" & Request.ServerVariables("URL")
End If
%>

[Roby_72]

Questa?

strReferer = Request.Form("referer")


Roby

[orcim]

Originariamente inviato da Roby_72
Questa?

strReferer = Request.Form("referer")


Roby

così non funziona più... :master:

[Roby_72]

No ti domandavo... a cosa serve?
O la recuperi da qs oppure da servervariables...

Roby