Hej!
Jeg har nu været igennem i diverse scripts og tutorials uden
held, derfor må jeg nu bede om hjælp..
Jeg har siden "testlogin.asp" (som åbner i en popup) hvor
brugeren skal angive brugernavn og password...scriptet fungerer
fint...men nu vil jeg ha' en checkbox "gem login" hvor brugeren
kan afkrydse, hvis brugeren ønsker brugernavn og password gemt(
jeg går udfra der skal bruges en cookie?)! *kan dertil angive
hvornår cookien skal udløbe?
Da jeg ikke er den store asp-ekspert har endnu ikke kunne få det
til at virker....se koden nedenunder, her er en checkboxen sat
ind samt det login-script jeg bruger...HVAD skal tilføjes før det
virker??
Deruover skal jeg høre om det er muligt at registrere brugeren
der logger på...dvs. bruger x logger på ....derefter bliver der
skrevet til en tabel i min database(access), hvor er der angivet
brugernavn, tidspunkt, hvor brugeren har logget på og dato....er
dette muligt? hvis ja? hvad skal der så tilføjes mit login-script
nedenuder?? hvordan skal min tabel i access se ud?
Med venlig hilsen
Jimmy Snedker
testlogin.asp:
<%
' Hvis der er blevet trykket på knappen "Login"
If Request.Form("Action") = "Login" Then
' Her forberedes de indtastede værdier til validering
strUID = Trim(Replace(Request.Form("Brugernavn"),"'",""))
strPWD = Trim(Replace(Request.Form("Adgangskode"),"'",""))
' Hvis der er skrevet noget i både brugernavn og adgangskode
If Len(strUID) > 0 And Len(strPWD) > 0 Then
' DSN forbindelse til databasen
Set myConn = Server.CreateObject("ADODB.Connection")
myConn.Open "DSN=mindsn"
' Opbygning af SQL streng
strSQL = "SELECT UserID FROM Logins"&_
" WHERE (Username = '" & strUID & "')"&_
" AND (Password = '" & strPWD & "')"
Set rs = myConn.Execute(strSQL)
If Not (rs.BOF Or rs.EOF) Then
' Hvis brugeren fandtes i databasen
intUID = rs("UserID")
Else
' Hvis brugeren ikke fandtes i databasen
strERR = "Du blev ikke godkendt af systemet"
End If
' Rydder op i vores connection objekt
myConn.Close
Set myConn = Nothing
If Len(intUID) Then
' Hvis variablen intUID indeholder en værdi sættes
Session("UserID") = intUID
End If
Else
' Hvis der ikke var angivet brugernavn og adgangskode
strErr = "Du skal skrive både brugernavn og adgangskode"
End If
If Len(strErr) > 0 Then
' Her laves fejlmeddelsen om til rød skrift
strErr = "<p><font color=red>" & strErr & "</font></p>"
End If
End If
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<title>Kunde Login</title>
<meta http-equiv="Content-Type" content="text/html;
charset=iso-8859-1">
<link rel="stylesheet" href="../css/txt_css.css" type="text/css">
<%
If IsNumeric( intUID ) AND intUID <> "" Then
%>
<script type="text/javascript">
// Det vindue som har åbnet popupvinduet skal
// Navigeres til loginOK.asp
window.opener.location.href = '../minmappe/';
// Popupvinduet skal lukkes.
window.close();
</script>
<%
End if
%>
<body>
<form name="Action" " method="post" action="default.asp">
<table width="227" border="0" cellspacing="5" cellpadding="0"
align="left">
<tr>
<td colspan="2"><img src="../images/gif/klogin.gif"
width="91" height="12" alt="Kunde Login"></td>
<td rowspan="10" valign="bottom" width="20"
class="bpx"><img src="../images/gif/box.gif" alt=""></td>
</tr>
<tr>
<td colspan="2" class="boldtxt">Angiv Brugernavn og
Password</td>
</tr>
<tr>
<td colspan="2" class="brdtxt" height="25"><%=strErr%></td>
</tr>
<tr>
<td class="boldtxt">Brugernavn</td>
<td align="right">
<input type="text" name="Brugernavn" size="18"
class="brdtxt">
</td>
</tr>
<tr>
<td class="boldtxt">Password</td>
<td align="right">
<input type="password" name="Adgangskode" size="18"
class="brdtxt">
</td>
</tr>
<tr>
<td> </td>
<td align="right">
<input type="submit" value="Login" name="Action"
class="boldtxt">
</td>
</tr>
<tr>
<td colspan="2" class="brdtxt">Gem Login
<input name="gem" type="checkbox" id="gem" value="checkbox">
</td>
</tr>
</table>
</form>
</body>
</html>
--
Vil du lære at kode HTML, XHTML, CSS, SSI eller ASP ???
- Pædagogiske tutorials på dansk
- Kom godt i gang med koderne
KLIK HER! =>
http://www.html.dk/tutorials