login kode + pass ?
Hej.Jeg er lidt ny til asp og jeg sidder med et login system hvor jeg i koden skal skrive hvad bruger og pass skal være til admin systemet , men problemet er at jeg ikke ved hvor det skal skrives ? :| her er koden :
<%
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath ("../database.mdb")
Conn.Open DSN
strSQL = "Select * from jwnews"
set rscount = conn.execute("select count(id) as antal from jwnews")
antal = rscount("antal")
set rscount = nothing
%>
<%
mode = Request("mode")
Response.Buffer = True
%>
<html>
<head>
<title>Nymfo´s Nyheder</title>
</head>
<body bgcolor="#CDB79E" text="#000000" link="#000000" vlink="#000000" alink="#000000">
<p> </p>
<table border="0" width="700" bgcolor="#000000" cellspacing="1" cellpadding="0"
align="center">
<tr>
<td width="100%" bgcolor="#CDB79E" valign="top"><table width="100%" border="0"
cellspacing="0" cellpadding="3">
<tr bgcolor="#CDB79E">
<td width="50%"><font face="Verdana, Arial, Helvetica, sans-serif" size="5"><b>Nymfo´s
Nyheder</b></font></td>
<td align="right" valign="bottom" nowrap width="50%"><div align="right"></div></td>
</tr>
</table>
</td>
</tr>
</table>
<table border="0" cellspacing="0" cellpadding="0" width="700" align="center" height="19">
<tr>
<td width="1" valign="top" bgcolor="#000000"><img src="images/intet.gif" width="1"></td>
<td width="698" valign="top" bgcolor="#CDB79E"><table width="100%" border="0"
cellspacing="4" cellpadding="0">
<tr>
<td width="50%"><font face="Verdana, Arial, Helvetica, sans-serif" size="2"><b><a
href="../index.asp">[ Hjem</a> <b><b>| </b></b><a href="../news.asp">Vis Nyheder</a><b><b><b>
| <a href="login.asp" target="_self">Admin </a><b><b>| <a href="logoff.asp" target="_self">Log
af</a></b></b> ]</b></b></b></b></font></td>
<td width="50%"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="2"><p
align="right">Skrevet Nyheder: <b><%=antal%></b></font> </b></td>
</tr>
</table>
</td>
<td width="1" valign="top" bgcolor="#000000"><img src="intet.gif" width="1"></td>
</tr>
</table>
<table border="0" width="700" bgcolor="#000000" cellspacing="1" cellpadding="0"
align="center">
<tr>
<td bgcolor="#CDB79E" valign="top"><dl>
<dd align="center"><br>
<table border="0" width="488" bgcolor="#000000" cellspacing="1" cellpadding="0"
align="center">
<tr>
<td bgcolor="#CDB79E" valign="top" class="menuoverskrift"><table width="100%" border="0"
cellspacing="4" cellpadding="0">
<tr>
<td><% if mode = "" then %>
<p><font size="3" face="Verdana, Arial, Helvetica, sans-serif"><b>Login</b></font><br>
<font size="2" color="#000000"><%=Request.Querystring("error")%></font><br>
</p>
<form method="post" action="login.asp?mode=login">
<p>Brugernavn: <input type="text" name="brugernavn" size="20"><br>
Password: <input type="text" name="password" size="20"> <input type="submit" value="Login">
</p>
</form>
<% end if %>
<% if mode = "login" then
Set myConn = Server.CreateObject("ADODB.Connection")
myConn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("../database.mdb")
strSQL = "SELECT * FROM admin where brugernavn = '" & Request.form("brugernavn") & "'"
Set rs = myConn.Execute(strSQL)
If rs.BOF Or rs.EOF Then
Response.Redirect("login.asp?error=Ingen bruger med det navn!")
end if
if rs("password") = Request.form("password") then
session("brugernavn") = rs("brugernavn")
session("id") = rs("id")
session("login") = yes
Response.Redirect("oversigt.asp")
else
Response.Redirect("login.asp?error=Du har indtastet forkert password!")
end if
myConn.Close
Set myConn = Nothing
end if %>
<p><font face="Verdana, Arial, Helvetica, sans-serif" size="2"><br>
<br>
</font></td>
</tr>
</table>
</td>
</tr>
</table>
<p><br>
</p>
</dd>
</dl>
</td>
</tr>
</table>
</body>
</html>
