Hejsan! Jag har läst det som Johan Djupmarker skrivigt "Aktiva användare på din site" Valideringen ligger i filen validate.asp vad jag kan se, det är innehållet där som är intressant... Posta även de försök du har gjort samt beskriv vad som inte fungerar. Okej här är mer filer jag använder vid inloggningen.User online
vill kunna se vilka som är online på typ en adminsida.
jag har inlogning med lösen, användarnamnet är användarens namn vill kunna få fram vilka som är on line från fälter men användarnamnet. jag använder asp & en access databas där användarnamnet finns i fältet usernamn.
någon som kan lösa mitt problen lätt? :-)
/TommySv: User online
men får det inte att funka med min inlogning :-(
någon som kan hjälpa mig med att få det att funka med koden jag har här?
skulle va skit bra om någon hjälpa mig med detta.
//Tommy
------------------------------------------------------------
<%@Language=VBSCript%>
<%Response.Buffer=True%>
<style type="text/css">
<!--
a:link {
font: normal 11px Verdana, Arial, Helvetica, sans-serif;
color: #003399;
text-decoration: none;
}
a:visited {
font: normal 11px Verdana, Arial, Helvetica, sans-serif;
color: #003399;
text-decoration: none;
}
a:hover {
font: normal 11px Verdana, Arial, Helvetica, sans-serif;
color: #000066;
text-decoration: underline;
}
a:active {
font: normal 11px Verdana, Arial, Helvetica, sans-serif;
color: #003399;
text-decoration: none;
}
td {
font: bold 12px Verdana, Arial, Helvetica, sans-serif;
color: #333333;
text-decoration: none;
}
.pic {
background: url(img/startlogin.jpg) no-repeat fixed left top;
}
input {
font: normal 12px Verdana, Arial, Helvetica, sans-serif;
color: #000066;
text-decoration: none;
background: url(img/input_bg.jpg) repeat-x left center;
height: 20px;
width: 130px;
border: 1px solid #797979;
text-align: left;
vertical-align: middle;
text-indent: 5pt;
}
.knapp {
font: bold normal 12px Verdana, Arial, Helvetica, sans-serif;
color: #333333;
text-decoration: none;
background: #eeeeee;
text-align: center;
vertical-align: middle;
border: 1px solid #000000;
}
-->
</style>
<!--#include file="start_head.asp" -->
<html>
<body>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="60"> </td>
</tr>
</table>
<form action="validate.asp" method="Post">
<div align="center">
<table width="429" height="396" border="0" cellpadding="0" cellspacing="0" class="pic">
<tr>
<td height="69" colspan="2" align="left" valign="top"> </td>
</tr>
<tr>
<td height="150" colspan="2" align="left" valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="11%" height="40"> </td>
<td width="29%"> </td>
<td width="32%"> </td>
<td width="22%"> </td>
<td width="6%"> </td>
</tr>
<tr>
<td> </td>
<td>UserName</td>
<td><input name="username" type="text" id="username" size="20"></td>
<td> </td>
<td> </td>
</tr>
<tr>
<td> </td>
<td>Password</td>
<td><input name="password" type="password" id="password" size="20"></td>
<td> </td>
<td> </td>
</tr>
<tr>
<td> </td>
<td> </td>
<td> </td>
<td> </td>
<td> </td>
</tr>
<tr>
<td> </td>
<td> </td>
<td> </td>
<td> </td>
<td> </td>
</tr>
</table></td>
</tr>
<tr>
<td width="37" height="24" align="left" valign="top"> </td>
<td width="392" align="left" valign="top">
<%
If Session("allow") = False Then
Response.Write "You are not logged in."
Else
Response.Write "You are currently logged in."
Response.Write " Log off"
End If
%>
</td>
</tr>
<tr align="center" valign="middle">
<td height="50" colspan="2"><input name="submit" type="submit" class="knapp" value="Log In"></td>
</tr>
<tr>
<td colspan="2" align="left" valign="top"> </td>
</tr>
<tr>
<td colspan="2" align="left" valign="top"> </td>
</tr>
</table>
<br>
<br>
</div>
</form>
</body>
</html>Sv: User online
/JohanSv: User online
jag har ändrat så att min databas jag använder vid inlogningen så att det funkar, har alltså inte 2 st utan bara 1 access databas. min idé va att man skriver in namnet och lösen och så funkade det, tränkte att då man skriver in namnet så funka det på samma sätt som i filen default.asp
"klicka på den användare du vill logga in som"
funktionen där man klickar på namnet skulle bli samma sak fast man skriver in sitt namn i inloggningen
jag får inget att hända då jag testar, bara om jag klickar på ett namn i default.asp filen då funkar det ju.
---------------------------------------------------------------------------------
*** validate.asp ***
|
V
<%@Language=VBScript%>
<%Response.Buffer = True%>
<!--#include file="config.inc" -->
<html>
<body>
<%
UserName = Replace(Trim(Request.Form("username")), "'", "''")
PassWord = Replace(Trim(Request.Form("password")), "'", "''")
If UserName = "" OR PassWord = "" Then Response.Redirect "default.asp"
SQL = "Select ID, UserName, [PassWord], Clearance, ExpireDate From Login"
Set RS = MyConn.Execute(SQL)
While Not RS.EOF
If UserName = RS("UserName") And PassWord = RS("Password") Then
If RS("ExpireDate") > Now() Then
Session("allow") = True
Session("clearance") = RS("Clearance")
Level = RS("Clearance")
Else
Response.Redirect "utility.asp?method=expired"
End If
End If
RS.MoveNext
Wend
CleanUp(RS)
If Session("allow") = True Then
If Level = 3 Then Response.Redirect "admin.asp"
If Level = 2 Then Response.Redirect "head.asp"
If Level = 1 Then Response.Redirect "user.asp"
Else
Response.Redirect "admin.asp"
End If
%>
</body>
</html>
*******************************************************
*** config.inc ***
|
V
<%
'///////////////////////////////////////////////////////////////////////////////////
'connection string
Set MyConn=Server.CreateObject("ADODB.Connection")
MyConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("login.mdb")
'///////////////////////////////////////////////////////////////////////////////////
'///////////////////////////////////////////////////////////////////////////////////
'cleanup routines
Sub CleanUp(RS)
RS.Close
MyConn.Close
Set RS = Nothing
Set MyConn = Nothing
End Sub
Sub CleanUp2()
MyConn.Close
Set MyConn = Nothing
End Sub
'////////////////////////////////////////////////////////////////////////////////////
%>
*******************************************************