admin.asp i vores linksystem ser sådan ud:
<% response.buffer = true %>
<html>
<head>
<title>Linksystem - Admin</title>
<META NAME="Generator" CONTENT="Stone's WebWriter 3.5">
<style type="text/css">
<!--
body {margin: 5;font-family:verdana}
a.menu {text-decoration:none;color:#000000}
a.menu:hover {text-decoration:none;color:#FF5500}
a {text-decoration:none;color:#3366FF}
a:hover {text-decoration:underline;color:#333333}
INPUT
{
BACKGROUND-COLOR: #FFFFFF;
COLOR: #000000;
FONT-FAMILY: verdana, helvetica, sans-serif;
FONT-SIZE: 12px;
FONT-STYLE: normal;
border: 1 solid #000000;
}
Textarea
{
BACKGROUND-COLOR: #FFFFFF;
COLOR: #000000;
FONT-FAMILY: verdana, helvetica, sans-serif;
FONT-SIZE: 12px;
FONT-STYLE: normal;
border: 1 solid #000000;
}
-->
</style>
</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("links.mdb")
Set rs = Conn.Execute("UPDATE links SET godkend = 'ja' WHERE id = " & request("ID1"))
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("links.mdb")
Set rs = Conn.Execute("DELETE FROM links WHERE id = " & request("ID1"))
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><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")
Set Conn = Server.CreateObject("ADODB.Connection")
strSQL = "SELECT * FROM links"
strConnect = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\home\peterogdeandredk\db\links.mdb;"
Conn.Open strConnect
rs.Open strSQL, Conn, 1, 3
Response.Write "<table width='500' cellspacing='1' cellpadding='3'>"
Response.Write "<tr><td valign=top width='100%' colspan=3 bgcolor=#e5e5e5><font size=""1""><b>Links</b> » <b>Admin</b></font></td></tr>"
Response.Write "<tr><td valign=top width='100%' colspan=3 bgcolor=#CCCCCC><font size=""1""><b>Nye links</b></font></td></tr>"
Do While Not rs.EOF
If farve=1 Then
bg="#FCFCFC"
Farve= Farve + 1
Else
bg="#E5E5E5"
farve=1
End If
Response.Write "<tr><td bgcolor=""" & bg & """><font size=2><b><a href='" & rs("url") & "'>" & rs("Navn") & "</a></b></font></td><td bgcolor=""" & bg & """><font size=2> <b><a href=admin.asp?mode=godkend&id=" & rs("ID1") & ">Godkend</a></b></font></td><td bgcolor=""" & bg & """><font size=2><b><a href=admin.asp?mode=slet&id=" & rs("ID1") & ">Slet</a></b></font></td></tr>"
rs.MoveNext
Loop
response.write "<tr><td align=""right"" colspan=""3"" bgcolor=""#CCCCCC""><font size=""1""><b><a href='links.asp' class=""menu"">» Oversigt</a> <a href='links.asp?mode=søg' class=""menu"">» Søg i links</a> <a href='links.asp?mode=add' class=""menu"">» Tilføj links</a></b> </font></td></tr></table></td></tr>"
else
response.write "<tr><td bgcoloe=""#E5E5E5""><font size=""2""><b>Ingen nye links!</b></font></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>
