og sæt alt dette ind i en fil du kalder admin.asp ! -den skulle gerne tilpasse sig selv, det eneste du skal gøre er at lave databasenavnet op i filen (dette gøres øverst)
<%
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open "Driver={MySQL ODBC 3.51 Driver}; Server=localhost; Database=DinDataBase;"
%>
<html>
<head>
<title>AdminSystem</title>
<style type="text/css">
.frame {
border-left: #000000 1px solid; border-bottom: #000000 1px solid; border-top: #000000 1px solid; border-right: #000000 1px solid; font-size: 10;
}
.frame_bottom {
border-bottom: #000000 1px solid;
}
.font {
font-family: verdana; font-size: 10px;
}
</style>
<script language="JavaScript">
function showOptions(id) {
for (n = 1; n < 8; n++) {
if (n != id) {
document.getElementById("showEdit" + n).style.display = "None"
}
else {
document.getElementById("showEdit" + id).style.display = "inline"
}
}
}
function showHelp() {
window.open('help.htm', 'Error', 'width=300,height=300');
}
</script>
</head>
<body rightmargin="0" leftmargin="0" bottommargin="0" topmargin="0">
<!-- /Top -->
<table bgcolor="#9a0e23" width="100%" height="10%" cellspacing="0">
<tr>
<td valign="bottom" class="frame_bottom"><font face="verdana" size="5" color="#ffffff">Adminsystem</font></td>
</tr>
</table>
<!-- //Top -->
<!-- /Middle -->
<%
If Not Session("login") = "ok" Then
%>
<table bgcolor="#ebe7de" width="100%" height="90%">
<tr>
<td>
<%
If Request.QueryString("sektion") = "" Then
%>
<table align="center" class="font">
<form action="<%= Request.ServerVariables("SCRIPT_NAME") %>?sektion=login" method="post" id=form1 name=form1>
<tr>
<td>Brugernavn: </td>
<td><input type="text" name="brugernavn" class="frame"></td>
</tr>
<tr>
<td>Adgangskode: </td>
<td><input type="password" name="adgangskode" class="frame"></td>
</tr>
<tr>
<td></td>
<td><input type="submit" value="Login" class="frame" id=submit1 name=submit1></td>
</tr>
</form>
</table>
<%
End If
%>
<%
If Request.QueryString("sektion") = "login" Then
SQL = "SELECT * FROM adminlogin"
Set rs = objConn.Execute(SQL)
If Request.Form("brugernavn") = rs("brugernavn") And Request.Form("adgangskode") = rs("adgangskode") Then
Session("login") = "ok"
Else
%>
<table align="center" class="font">
<tr>
<td>
<%
If Not Request.Form("brugernavn") = rs("brugernavn") Then
Response.Write("Dit brugernavn var ikke korrekt!" & "<br>")
End If
If Not Request.Form("adgangskode") = rs("adgangskode") Then
Response.Write("Din adgangskode var ikke korrekt!" & "<br>")
End If
%>
</td>
</tr>
</table>
</td>
</tr>
</table>
<%
Set rs = Nothing
End If
End If
End If
%>
<%
If Session("login") = "ok" Then
SQL = "SELECT * FROM tekster"
Set rs = objConn.Execute(SQL)
%>
<table bgcolor="#ebe7de" width="100%" height="90%">
<tr>
<td valign="top">
<table class="font">
<tr>
<td style="Cursor:Hand;" width="500" align="right" OnClick="showHelp();"><img src="img/help.gif"></td>
<td style="Cursor:Hand;" OnClick="showHelp();">Hjælp</td>
</tr>
</table>
<p>
<table class="font" width="100%">
<%
While Not rs.EOF
strConverted = Replace(rs("tekst"), vbCrLf, "<br>")
%>
<tr>
<td width="20" valign="top" OnClick="showOptions(<% Response.Write(rs("ID"))%>);">
<strong><font size="2"><% Response.Write(rs("ID"))%>.</font></strong></a></td>
<td width="400">
<div align="center" style="Cursor:Hand;" OnClick="showOptions(<% Response.Write(rs("ID"))%>);"><strong>Rediger</strong></div>
<div style="display: inline;" id="showText<% Response.Write(rs("ID"))%>"><% Response.Write(strConverted) %></div>
<div style="display: none;" id="showEdit<% Response.Write(rs("ID"))%>">
<form action="<%= Request.ServerVariables("SCRIPT_NAME") %>?sektion=save&ID=<%= rs("ID")%>" method="post" id=form2 name=form2>
<p><textarea name="editor" cols="46" rows="15"><% Response.Write(Replace(strConverted, "<br>", vbCrLf)) %></textarea><br>
<input type="submit" value=" Gem " Class="frame" id=submit2 name=submit2>
</form>
</div>
</td>
</tr>
<tr>
<td> </td>
</tr>
<%
rs.MoveNext
Wend
Set rs = Nothing
%>
</table>
<%
If Request.QueryString("sektion") = "save" Then
Set rs = Server.CreateObject("ADODB.Recordset")
SQL = "SELECT * FROM tekster WHERE ID =" & Request.QueryString("ID")
objConn.Execute("INSERT INTO tekst (tekst) VALUES ('" & Request.Form("editor") & "') WHERE ID =" & Request.QueryString("ID") & ")
Response.Redirect(Request.ServerVariables("SCRIPT_NAME") & "?sektion=login")
rs.Close
Set rs = Nothing
End If
%>
</td>
</tr>
</table>
<%
End If
%>
</td>
</tr>
</table>
<!-- //Middle -->
</body>
</html>
//>Rune
Ny bruger
Nybegynder
Opret
Preview
