vidrestilling efter login
Hej eksperter,Jeg har et lille problem på mi side.
pt, logger man på via. a_log_in.asp som henter .
a_admin1.asp kontroller login, som kan ses i nedenstående kode, det er også ok.
Men det jeg ikke kan få den til er, når den har kontrolleteret brugeren, at den så går direkte til indhold af sitet, og ikke skal "stoppe op" på en "videre" side.
Når jeg istedet for "videre" siden laver en <% response.redirect ("index2.asp") %> i nedenstående kode , altså så det sættes ind her
'* her bliver brugeren godkendt
session("godkendt") = TRUE
________________
<% response.redirect ("index2.asp") %>
_______________
' husk hvad level brugeren er så længe browser kører
session("level") = rs("Flevel")
Laver den fejl ved min session login (Enten er din sessiontid udløbet, ellers har du ikke adgang til sektionen
>> Gå til Log in ).
Som den jo rigtig nok skal sig enten når session tid er udløbet, eller når man ikke har adgang til sektionen.. Men den skal altså ikke sige det allerede, når man logger ind, så noget på jeg gøre galt.
Det er sikkert bare mig der lige laver en lille fejl, men hvor? Sætter jeg <% response.redirect ("index2.asp") %> forkert?
Jeg har sat nogler XXXX'er hist og pist i koden, da det ikke burde kunne forstyrre din/Jeres opmærksomhed at de mangler.
Håber i forstår det, her kommer koden, håber point er nok ellers sig til. Spørg hvis jeg har forvirret jer. Jeg er oppe til kl.0300 i nat.
Kildekode for a_admin1.asp:
<%
Response.Expires = 0
fuser = request.Form("XXXXXXXXXXXXXr")
fpassword = request.Form("XXXXXXXXXXx")
session("godkendt") = ""
ip = Request.ServerVariables("REMOTE_ADDR")
%>
<!--#include file="XXXXXXXXXXXXX" -->
<html>
<head>
<title>main</title>
<style type="text/css"><!--
a:hover { color: #000; font-style: normal; font-size: 9pt; font-family: Geneva, Verdana, Arial; text-decoration: underline }
a:link { color: #000; font-style: normal; font-size: 9pt; font-family: Geneva, Verdana, Arial; text-decoration: none }
a:visited { color: #000; font-style: normal; font-size: 9pt; font-family: Geneva, Verdana, Arial; text-decoration: none }
body { color: #000; font-style: normal; font-size: 9pt; font-family: Geneva, Verdana, Arial }
td { color: #000; font-style: normal; font-weight: normal; font-size: 9pt; font-family: Geneva, Verdana, Arial }-->
</style>
</head>
<body topmargin="0" leftmargin="0" bgcolor="#EDFBF1">
<%
'hvis forsøg 3 ikke er nået sker der ikke noget siden bliver vist (husk vi tæller 0,1,2)
IF session("forsøg") >= 2 then
end if
'* se om der er noget i db som passer på "password" fra side 1 ***************
set rs = Server.CreateObject("ADODB.Recordset")
rs.Open "SELECT * FROM XXXXXX where XXXXXXXXXX='"& XXXXXXXXXX &"' AND XXXXXX='" & XXXXXXX & "' AND XXXXXXXX=TRUE" , Conn, 1, 3
'* HVIS DER IKKE ER NOGLE DER KAN BUGES, giver vi dem 1 ekstra login fejl, og skriver HTTP "Fejl....." *
If rs.EOF And rs.BOF Then
session("godkendt") = FALSE
session("forsøg") = session("forsøg") +1
end if
If session("godkendt") = FALSE then
IF session("forsøg") >= 3 then
a=0
else
%>
<br>
<table width="100%" border="0" cellspacing="0" cellpadding="0" height="266">
<tr>
<td height="235">
<table width="271" border="0" cellspacing="0" cellpadding="0" align="center" height="274">
<tr>
<td background="grafik/login_back.gif" height="256"> <br>
<div align="center">
<table border="0" cellpadding="0" cellspacing="0" bordercolorlight="#008080" bordercolor="#FFFFFF" bordercolordark="#000000" width="172">
<center>
</center>
<tr>
<td colspan="2" height="24">
<p align="center"> <a href="a_log_in.asp"><b><font color="#FF0000" size="3">ADGANG
NÆGTET! - prøv igen...</font></b></a> </p>
</td>
</tr>
</table>
</div>
</td>
</tr>
</table>
</td>
</tr>
</table>
<p>
<%
end if
else
session("forsøg") = 0
%>
<br>
</p>
<table width="100%" border="0" cellspacing="0" cellpadding="0" height="266">
<tr>
<td height="235">
<table width="271" border="0" cellspacing="0" cellpadding="0" align="center" height="274">
<tr>
<td background="grafik/login_back.gif" height="256"> <br>
<div align="center">
<table border="0" cellpadding="0" cellspacing="0" bordercolorlight="#008080" bordercolor="#FFFFFF" bordercolordark="#000000" width="172">
<center>
</center>
<tr>
<td colspan="2" height="24">
<p align="center"> <strong><a href="index2.asp"><strong><font size="3" color="#009900">>>
Videre</font></strong></a></strong> </p>
</td>
</tr>
</table>
</div>
</td>
</tr>
</table>
</td>
</tr>
</table>
<div align="left">
<p>
</div>
<%
'* her bliver brugeren godkendt
session("godkendt") = TRUE
' husk hvad level brugeren er så længe browser kører
session("level") = rs("XXXX")
End if
'hvis bruger har brugt 3 forkerte login forsøg, bliver han deaktiv og vi fanger hans IP adresse
IF session("forsøg") >= 3 then
response.write "<br><br>ADGANG NÆGTET! " & " <br><br><i>Kontakt webmaster</i> <br><br>"
'*** er updater den DB HVIS der er brugt et USERname Og skrive USER dato ud (IP samt USERNAME)
If XXXXX <> "" then
response.write "Dine data : <br>IP: " & XXX & " <br>Brugernavn : " & XXXX
set rs2 = Server.CreateObject("ADODB.Recordset")
rs2.Open "SELECT * FROM XXXXX where XXXX='"& XXXXX & "'" , Conn, 1, 3
IF Not rs2.eof then
RS2("XXX")= FALSE
rs2("XXX") = ip
rs2.update
END IF
END IF
END IF
RS.close
Set RS = nothing
conn.close
set conn = nothing
%>
</body>
</html>
