Undgå login
Hvordan slipper jeg for at skulle indtaste brugernavn og gå direkte i admin.Se eksempel på: www.domind.dk/admin/kundedatabase/admin.asp
Den skal ikke genere admin.asp?mode=login, men bare admin.asp, uden brugernavn
Kildekode*************************'
<% response.buffer = true %>
<html>
<head>
<title>Domind >> Kundedatabase</title>
<link rel="stylesheet" type="text/css" href="../../css/generelt.css">
</head>
<body>
<%
strMode = request("mode")
select case strMode
case "godkend"
if session("password") = "test" then
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("database.mdb")
Set rs = Conn.Execute("UPDATE kunder SET godkendt = 'ja' WHERE id = " & request("id"))
Conn.Close
Set Conn = Nothing
response.redirect("admin.asp")
else
response.redirect("admin.asp?mode=login")
end if
case "slet"
if session("password") = "test" then
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("database.mdb")
Set rs = Conn.Execute("DELETE FROM kunder WHERE id = " & request("id"))
Conn.Close
Set Conn = Nothing
response.redirect("admin.asp")
else
response.redirect("admin.asp?mode=login")
end if
Case "login"
if request.form("password") = "test" then
session("password") = "test"
response.redirect("admin.asp")
else
%>
<form action="admin.asp?mode=login" method="post">
<table><tr><td>Brugernavn: <br>
<br>
<br>
</td><td><input type="password" name="password"><br><input type="submit" value="login"></td></tr></table>
</form>
<%
end if
case "logout"
session.abandon
response.redirect("admin.asp?mode=login")
case else
if session("password") = "test" then
Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT * FROM kunder WHERE godkendt='nej' ORDER BY firma"
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("database.mdb")
rs.Open strSQL, strDSN, 1
If Not (rs.BOF Or rs.EOF) Then
Response.Write "<table width='100%' cellspacing='2' cellpadding='0'>"
Response.Write "<tr><td valign=top width='100%' colspan=3 bgcolor=#e5e5e5><font size=2><b>Nye links</b></font></td></tr>"
Do While Not rs.EOF
Response.Write "<tr><td bgcolor=#e5e5e5><font size=2><b><a href='" & rs("URL") & "'>" & rs("firma") & "</a></b></font></td><td bgcolor=#e5e5e5><font size=2> <b><a href=admin.asp?mode=godkend&id=" & rs("ID") & ">Godkend</a></b></font></td><td bgcolor=#e5e5e5><font size=2><b><a href=admin.asp?mode=slet&id=" & rs("ID") & ">Slet</a></b></font></td></tr>"
rs.MoveNext
Loop
else
response.write "<tr><td>Ingen nye links!</td></tr>"
End If
Response.Write "</table>"
rs.Close
Set rs = Nothing
else
response.redirect("admin.asp?mode=login")
end if
end select
%>
</body>
</html>
