redirecting URL efter login
Jeg fandt en mulig løsning til mit spørgsmål (se: http://www.eksperten.dk/spm/433329), scriptet husker fint hvorfra brugeren kom, da linket blev klikket, men efter login eller registrering som bruger, bliver vedkommende ikke redirected til den side vedkommende ønskede:Scriptet til loginsiden ser sådan ud;
<%
Dim HTTP_REFERRER
Response.ExpiresAbsolute = Now() - 1
Response.AddHeader "Cache-Control", "no-cache"
If Not(IsObject(Session("UID"))) Then
If Session("UID") = "" Then
HTTP_REFERRER = Request.ServerVariables("URL")
If Request.QueryString <> "" Then HTTP_REFERRER = HTTP_REFERRER & "?" & Request.QueryString
Response.Redirect "HTTP_REFERRER=" & Server.URLEncode(HTTP_REFERRER)
End If
End If
%>
Og siden til validering af brugeren;
<%
Dim adocon,rstest,sqltest,clear
clear=0
if request.querystring("login")="true" then
if request.form("username")="" then
response.write("<b>Brugernavn mangler</b><br><b>Du skal angive et brugernavn</b><br>")
response.write("<a href=""java script:history.go(-1)""><font color=""000000"">Klik her for at skrive et brugernavn</font></a>")
elseif request.form("password")="" then
response.write("<b>Password mangler</b><br><b>Du skal angive et password</b><br>")
response.write("<a href=""java script:history.go(-1)""><font color=""000000"">Klik her for at skrive et password</font></a>")
else
Set adoCon = Server.CreateObject("ADODB.Connection")
adoCon.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("../../fpdb/userlist.mdb")
set rstest = Server.CreateObject("ADODB.Recordset")
sqltest="Select * from users where username='" & request.form("username") & "' and parked=false"
rstest.open sqltest,adocon,2,3
if not rstest.eof then
if request.form("password")=rstest("pass") then
session("login")="true"
session("username")=rstest("username")
session("lastlogin")=rstest("lastlogin")
session("logctr")=rstest("logctr")
session("level")=rstest("level")
if request.form("username")="admin" then
session("admin")="true"
end if
rstest("logctr")=rstest("logctr")+1
rstest("lastlogin")=now()
rstest("ipadd")=request.servervariables("remote_addr")
rstest.update
clear =1
rstest.close
set rstest=nothing
adocon.close
set adocon=nothing
else
response.write("<b>Ugyldig password!</b><br><b>Prøv igen</b><br>")
response.write("<a href=""java script:history.go(-1)""><font color=""000000"">Klik her for at skrive password igen</font></a>")
end if
else
response.write("Brugernavn eksisterer ikke!<br>Prøv igen eller kontakt webmaster.<br>")
response.write("<a href=""java script:history.go(-1)"">Klik her for at skrive dit brugernavn igen</a>")
end if
end if
end if
if session("admin")="true" then
response.redirect("admin.asp")
end if
if clear=1 then
%>
Du er nu logget på anmeldelsesbasen!<br>
<a href="anyprotectedpage.asp">Klik her for at fortsætte</a>
<%
end if
%>
Hvad skal der indsættes/ændres på valideringssiden for at videresende vedkommende tilbage til den ønskede side?
