Problemer med adgang til flere brugere
Er der nogen som kan fortælle mig hvordan jeg kan tillade flere brugere ad gangen at logge på med følgende scripts. (Efter at jeg har logget ind bruger på, prøver jeg med en anden bruger, som efter at have indtastet de korrekte oplysninger bliver sendt videre til check_login.asp, som tager sig ud som en blank side når der er flere end en bruger logget på):---------------
check_login.asp
---------------
<%
If Not(Session("Checked")) then
Username = Request.Cookies("LoginInfo")("Username")
Password = Request.Cookies("LoginInfo")("Password")
Set DataConn = Server.CreateObject("ADODB.Connection")
DataConn.Open Session("DataConn_ConnectionString"), Session("DataConn_RuntimeUserName"), Session("DataConn_RuntimePassword")
SQL = "SELECT * FROM TblPasswords WHERE Username='" & Username & "'"
Set rs = DataConn.Execute(SQL)
if rs.BOF AND rs.EOF then
ErrorMessage = "<font face=Verdana size=2><i>Something went wrong. Error # 01</i></font>"
Rejected = True
Elseif not rs("Password") = password then
ErrorMessage = "<font face=Verdana size=2><i>Something went wrong. Error # 02</i></font>"
Rejected = True
else
RealName = rs("RealName")
Username = rs("Username")
Password = rs("Password")
Rejected = False
Session("Checked") = True
end if
If Rejected Then
%>
<head>
<title>Login page</title>
</head>
<body bgcolor="#FFFFFF">
<p align="right"><img border="0" src="islogo.jpg" width="150" height="53"></p>
<form method="POST" action="login_script.asp">
<div align="justify">
<table border="2" width="26%" cellspacing="0" cellpadding="0" bordercolor="#000000">
<tr>
<td width="123%" colspan="2" bgcolor="#CC3300" bordercolor="#CC3300"><font size="2" color="#FFFFFF" face="Verdana"><b> Please
login</b></font></td>
</tr>
<tr>
<td width="56%"><font size="2" face="Verdana"> User name : </font></td>
<td width="67%"> <font size="2" face="Verdana"> <input type="text" name="username">
</font>
</td>
</tr>
<tr>
<td width="56%">
<font size="2" face="Verdana">
Password :</font> </td>
<td width="67%"> <font size="2" face="Verdana"> <input type="password" name="password" size="20">
</font>
</td>
</tr>
</table>
</div>
<p> <font face="Verdana" size="1"> <input type="submit" value="Validate"><input type="reset" name="Reset" value="Reset">
</font>
</p></form>
<p><% = ErrorMessage %></p>
</body>
</html>
<%
Response.End
end if
end if
%>
-----------------
login_script.asp:
-----------------
<% response.buffer=true
Response.Cookies("LoginInfo").Expires = Date + 1
Response.Cookies("LoginInfo")("Username") = Request("username")
Response.Cookies("LoginInfo")("Password") = Request("password")
if not session("Checked") then
Response.Redirect "index2.asp"
else
response.redirect "check_login.asp"
end if
%>
-----------
index2.asp:
-----------
<!-- #include virtual="check_login.asp" -->
<html><head><title>overskrift</title></head>
<body>
<a href="logout_script.asp">log af</a>
</body>
</html>
-----------------
logout_script.asp
-----------------
<% response.buffer=true
Response.Cookies("LoginInfo").Expires = date + 1
Response.Cookies("LoginInfo")("Username") = ""
Response.Cookies("LoginInfo")("Password") = ""
Session("Checked") = False
Response.Redirect "http://www.minserver.dk/index.htm"
%>
Er det noget i kan hjælpe med. Bruger ligger selvfølgelig i en database fil.
Et andet spørgsmål:
Det er muligt at bryde sikkerheden ved at downloade databasefilen, hvordan slipper jeg af med at folk kan downloade den?
