Annonceindlæg fra Computerworld
15. april 2000 - 16:16
#4
Desværre den går ikke, hvis der skal handles med point skal koden på bordet så alle kan have glæde af det. Jeg kigger forbi igen den 17.04.2000 kl. 16:30 ca., hvis koden ikke ligger her eller et link til den, sletter jeg denne entry og tilbagefører de 60point.
16. april 2000 - 10:32
#6
her er koden admin.asp <html> <head> <title>Admin siden..</title> </head> <SCRIPT LANGUAGE="javascript"> function sikkerhed(){ if (window.confirm('Er du sikker på at du vil slette denne person? \nHUSK: Du kan IKKE fortryde!')) {return true} else {return false} } </SCRIPT> <body bgcolor="#000066" text="#FFFFFF" link="#FFFFFF" vlink="#FFFFFF" alink="#FFFFFF"> <% Set Conn = Server.CreateObject("ADODB.Connection") Conn.open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("test.mdb") Sql = "SELECT * FROM navn ORDER BY id DESC" Set rs = Conn.execute( Sql ) %> <div align="center"> <center> <table border="0" height="21"> <tr> <td width="779" height="21"> <p align="center"> <b> <font face="Arial" color="#FFFFFF"> <!-- #include file="menu.asp" --></font></b></td> </tr> </table> </center> </div> <p align="center"><b><font face="Arial" color="#FFFFFF" size="4">Adminsiden..</font></b></p> <p align="center"><b><font face="Arial" color="#FFFFFF" size="2">Her kan du slette venner..</font></b></p> <div align="center"> <center> <div align="center"> <table border="1" width="623" height="50"> <tr> <td width="21" height="22" bgcolor="#000000"><b><font size="2" face="Arial" color="#FFFFFF">Id:</font></b></td> <td width="133" height="22" bgcolor="#000000"><b><font size="2" face="Arial" color="#FFFFFF">Navn:</font></b></td> <td width="160" height="22" bgcolor="#000000"><b><font size="2" face="Arial" color="#FFFFFF">Email:</font></b></td> <td width="41" height="22" bgcolor="#000000"><b><font size="2" face="Arial" color="#FFFFFF">Alder:</font></b></td> <td width="92" height="22" bgcolor="#000000"><b><font size="2" face="Arial" color="#FFFFFF">Hjemmeside:</font></b></td> <td width="57" height="22" bgcolor="#000000"><b><font size="2" face="Arial" color="#FFFFFF">ICQ:</font></b></td> <td width="36" height="22" bgcolor="#000000"><b><font size="2" face="Arial" color="#FFFFFF">Slet:</font></b></td> <td width="31" height="22" bgcolor="#000000"><b><font size="2" face="Arial" color="#FFFFFF">Ret:</font></b></td> </tr> <tr> <%do until rs.eof %> <td width="21" height="16"><b><font size="2" face="Arial" color="#FFFFFF"><%=rs("id") %></font></b></td> <td width="133" height="16"><b><font size="2" face="Arial" color="#FFFFFF"><%=rs("navn") %></font></b></td> <td width="160" height="16"><b><font size="2" face="Arial" color="#FFFFFF"><%=rs("email") %></font></b></td> <td width="41" height="16"><b><font size="2" face="Arial" color="#FFFFFF"><%=rs("alder") %></font></b></td> <td width="92" height="16"><a href="<%=rs("adresse") %>"><b><font size="2" face="Arial" color="#FFFFFF"><%=rs("side") %></font></b></a></td> <td width="57" height="16"><b><font size="2" face="Arial" color="#FFFFFF"><%=rs("icq") %></font></b></td> <td width="36" height="16"><a onClick="return sikkerhed();" href="slet.asp?id=<%=rs("id") %>"><b><font size="2" face="Arial" color="#FFFFFF">Slet</font></b></a></td> <td width="31" height="16"><a href="ret.asp?id=<%=rs("id") %>"><font face="Arial" color="#FFFFFF" size="2"><b>Ret</b></font></a></td> </tr> <% rs.MoveNext loop %> </table> </div> </div> </center> <p> </p> <p> </p> <p> </p> <p> </p> <p> </p> <p> </p> <p> </p> <p align="center"> </p> <p align="center"> </p> <p align="center"><CENTER><b><font size="1" face="Arial">Copyright © Morten Terp 2000.<BR>E-mail: <a href="mailto:morten@funstuff.dk">morten@funstuff.dk<BR></a></font></b><FONT face=arial,helvetica size=-2>All Rights Reserved. </FONT></CENTER></p> </body> </html> Fil Default <html> <head> <meta http-equiv="Content-Language" content="da"> <meta http-equiv="Content-Type" content="text/html; charset=windows-1252"> <meta name="GENERATOR" content="Microsoft FrontPage 4.0"> <meta name="ProgId" content="FrontPage.Editor.Document"> <title>Mine venner</title> </head> <body bgcolor="#000066" text="#FFFFFF" link="#FFFFFF" vlink="#FFFFFF" alink="#FFFFFF"> <% Set Conn = Server.CreateObject("ADODB.Connection") Conn.open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("test.mdb") Sql = "SELECT * FROM navn ORDER BY id DESC" Set rs = Conn.execute( Sql ) %> <div align="center"> <center> <table border="0" height="18"> <tr> <td width="882" height="18"> <p align="center"><!-- #include file="menu.asp" --></td> </tr> </table> </center> </div> <p align="center"><b><font color="#FFFFFF" face="Arial" size="3">Fin din ICQ ven her..</font></b></p> <p align="center"><b><font color="#FFFFFF" face="Arial" size="2">Klik på navnet for mere info.</font></b></p> <div align="center"> <center> <table border="1" width="364" height="23"> <tr> <td width="128" height="8" bgcolor="#000000"><font face="Arial" color="#FFFFFF" size="2"><b>Navn:</b></font></td> <td width="108" height="8" bgcolor="#000000"><font face="Arial" color="#FFFFFF" size="2"><b>ICQ Nummer:</b></font></td> </tr> <tr> <%do until rs.eof %> <td width="128" height="4" bgcolor="#000066"><font color="#FFFFFF" face="Arial" size="2"><b><a href="visven.asp?ven=<%= rs("id") %>"><%=rs("navn") %></b></font></td> <td width="108" height="4" bgcolor="#000066"><font color="#FFFFFF" face="Arial" size="2"><b><%=rs("icq") %></b></font></td> </tr> <% rs.MoveNext loop %> </table> </center> </div> <p align="center"> </p> <p align="center"> </p> <p align="center"> </p> <p align="center"> </p> <p align="center"> </p> <p align="center"> </p> <p align="center"><CENTER><b><font size="1" face="Arial">Copyright © Morten Terp 2000.<BR>E-mail: <a href="mailto:morten@funstuff.dk">morten@funstuff.dk<BR></a></font></b><FONT face=arial,helvetica size=-2>All Rights Reserved. </FONT></CENTER></p> </body> </html> Default1.asp <html> <head> <meta http-equiv="Content-Language" content="da"> <meta http-equiv="Content-Type" content="text/html; charset=windows-1252"> <meta name="GENERATOR" content="Microsoft FrontPage 4.0"> <meta name="ProgId" content="FrontPage.Editor.Document"> <title>Mine venner</title> </head> <body bgcolor="#000066" text="#FFFFFF" link="#FFFFFF" vlink="#FFFFFF" alink="#FFFFFF"> <% Set Conn = Server.CreateObject("ADODB.Connection") Conn.open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("test.mdb") Sql = "SELECT * FROM navn ORDER BY id DESC" Set rs = Conn.execute( Sql ) %> <div align="center"> <center> <table border="0" height="18"> <tr> <td width="882" height="18"> <p align="center"><!-- #include file="menu.asp" --></td> </tr> </table> </center> </div> <p align="center"><b><font color="#FFFFFF" face="Arial" size="3">Fin din ICQ ven her..</font></b></p> <p align="center"><b><font color="#FFFFFF" face="Arial" size="2">Klik på navnet for mere info.</font></b></p> <div align="center"> <center> <table border="1" width="364" height="23"> <tr> <td width="128" height="8" bgcolor="#000000"><font face="Arial" color="#FFFFFF" size="2"><b>Navn:</b></font></td> <td width="108" height="8" bgcolor="#000000"><font face="Arial" color="#FFFFFF" size="2"><b>ICQ Nummer:</b></font></td> <%do until rs.eof %> </tr> <tr> <td width="128" height="4" bgcolor="#000066"><font color="#FFFFFF" face="Arial" size="2"><b><a href="visven.asp?ven=<%= rs("id") %>"><%=rs("navn") %></b></font></td> <td width="108" height="4" bgcolor="#000066"><font color="#FFFFFF" face="Arial" size="2"><b><%=rs("icq") %></b></font></td> </tr> <% rs.MoveNext loop %> </table> </center> </div> <p align="center"> </p> <p align="center"> </p> <p align="center"> </p> <p align="center"> </p> <p align="center"> </p> <p align="center"> </p> <p align="center"><CENTER><b><font size="1" face="Arial">Copyright © Morten Terp 2000.<BR>E-mail: <a href="mailto:morten@funstuff.dk">morten@funstuff.dk<BR></a></font></b><FONT face=arial,helvetica size=-2>All Rights Reserved. </FONT></CENTER></p> </body> </html> menu.asp <html> <head> <meta http-equiv="Content-Type" content="text/html; charset=windows-1252"> <meta name="GENERATOR" content="Microsoft FrontPage 4.0"> <meta name="ProgId" content="FrontPage.Editor.Document"> <title>Ny side 1</title> </head> <body bgcolor="#000000" text="#FFFFFF" link="#FFFFFF" vlink="#FFFFFF" alink="#FFFFFF"> <p align="center"><font color="#FFFFFF" face="Arial" size="2"><b>| <a href="opretven.asp">Tilføj dig på listen</a> | <a href="default.asp">Se listen</a> | <a href="admin.asp">Admin Login</a> |</b></font></p> </body> </html> fil opret.asp <% Set Conn = Server.CreateObject("ADODB.Connection") Conn.open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("test.mdb") Sql = "INSERT INTO navn (navn, email, icq, alder, side, adresse, dato, bor, lidtom) VALUES('" & request.form("navn") & "', '" & request.form("email") & "', '" & request.form("icq") & "', '" & request.form("alder") & "', '" & request.form("side") & "', '" & request.form("adresse") & "', '" & request.form("dato") & "','" & request.form("bor") & "', '" & request("lidtom") & "')" Conn.execute( Sql ) Conn.close Set Conn = Nothing %> <head> <title>Du er nu på listen..</title> </head> <body bgcolor="#000066" link="#FFFFFF" vlink="#FFFFFF" alink="#FFFFFF" text="#FFFFFF"> <table border="0" height="18" align="center"> <tr> <td width="882" height="18"> <p align="center"><font face="Arial" color="#FFFFFF"><b><!-- #include file="menu.asp" --></b></font></td> </tr> </table> <p align="center"><font face="Arial" size="5" color="#FFFFFF"><b>Du er nu på listen...</b></font></p> <p align="center"><a href="default.asp"><font face="Arial" size="2" color="#FFFFFF"><b>Se listen.</b></font></a></p> <p align="center"> </p> <p align="center"> </p> <p align="center"> </p> <p align="center"> </p> <p align="center"> </p> <p align="center"> </p> <p align="center"> </p> <p align="center"> </p> <p align="center"> </p> <p align="center"> </p> <p align="center"> </p> <p align="center"><CENTER><b><font size="1" face="Arial">Copyright © Morten Terp 2000.<BR>E-mail: <a href="mailto:morten@funstuff.dk">morten@funstuff.dk<BR></a></font></b><FONT face=arial,helvetica size=-2>All Rights Reserved. </FONT></CENTER></p> fil opretven.asp <% Set Conn = Server.CreateObject("ADODB.Connection") Conn.open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("test.mdb") Sql = "INSERT INTO navn (navn, email, icq, alder, side, adresse, dato, bor, lidtom) VALUES('" & request.form("navn") & "', '" & request.form("email") & "', '" & request.form("icq") & "', '" & request.form("alder") & "', '" & request.form("side") & "', '" & request.form("adresse") & "', '" & request.form("dato") & "','" & request.form("bor") & "', '" & request("lidtom") & "')" Conn.execute( Sql ) Conn.close Set Conn = Nothing %> <head> <title>Du er nu på listen..</title> </head> <body bgcolor="#000066" link="#FFFFFF" vlink="#FFFFFF" alink="#FFFFFF" text="#FFFFFF"> <table border="0" height="18" align="center"> <tr> <td width="882" height="18"> <p align="center"><font face="Arial" color="#FFFFFF"><b><!-- #include file="menu.asp" --></b></font></td> </tr> </table> <p align="center"><font face="Arial" size="5" color="#FFFFFF"><b>Du er nu på listen...</b></font></p> <p align="center"><a href="default.asp"><font face="Arial" size="2" color="#FFFFFF"><b>Se listen.</b></font></a></p> <p align="center"> </p> <p align="center"> </p> <p align="center"> </p> <p align="center"> </p> <p align="center"> </p> <p align="center"> </p> <p align="center"> </p> <p align="center"> </p> <p align="center"> </p> <p align="center"> </p> <p align="center"> </p> <p align="center"><CENTER><b><font size="1" face="Arial">Copyright © Morten Terp 2000.<BR>E-mail: <a href="mailto:morten@funstuff.dk">morten@funstuff.dk<BR></a></font></b><FONT face=arial,helvetica size=-2>All Rights Reserved. </FONT></CENTER></p> fil ret.asp <html> <head> <title></title> <title>Ret Bruger</title> </head> <body bgcolor="#000066" text="#FFFFFF" link="#FFFFFF" vlink="#FFFFFF" alink="#FFFFFF"> <table border="0" height="18" align="center"> <tr> <td width="882" height="18"> <p align="center"><b><font face="Arial" color="#FFFFFF" size="2"><!-- #include file="menu.asp" --></font></b></td> </tr> </table> <p align="center"> <% myDSN="PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("test.mdb") & ";UID=admin;PWD=;" set conntemp=server.createobject("adodb.connection") conntemp.open myDSN form_IDwhich=request.querystring("id") sqltemp="SELECT * FROM navn " sqltemp=sqltemp & " WHERE ID=" & form_IDwhich set rstemp=conntemp.execute(sqltemp) form_ID=rstemp("ID") form_navn=rstemp("navn") form_email=rstemp("email") form_icq=rstemp("icq") form_alder=rstemp("alder") form_side=rstemp("side") form_adresse=rstemp("adresse") form_dato=rstemp("dato") form_bor=rstemp("bor") form_lidtom=rstemp("lidtom") form_navn = Replace(form_navn, "<br>", vbCrLf) %> <% editresponder="admin.asp" respondlink=editresponder & "?ID=" & form_ID %> <b><font face="Arial" color="#FFFFFF" size="4">Ret din profil.</font><font face="Arial" size="2" color="#FFFFFF"> <br> </font></b> <form action="retven.asp" method="POST" name=""> <table border="0" width="353" cellspacing="0" cellpadding="2" align="center" height="252"> <tr align="left" valign="top"> <td width="108" height="25"> </td> <td width="288" height="25"> <font color="#FFFFFF"> <input type="hidden" name="id" value="<%=form_ID%>"> <input type="hidden" name="dato" value="<%=form_dato%>"> </font> </td> </tr> <tr> <td width="108" height="25"> <b> <font color="#FFFFFF" face="Arial" size="2"> Navn:</font> </b> </td> <td width="288" height="25"> <b> <font color="#FFFFFF" face="Arial" size="2"> <input type="text" name="navn" value="<%=form_navn%>" size="40"> </font> </b> </td> </tr> <tr align="left" valign="top"> <td width="108" height="25"> <div align="right"> <p align="left"><b><font color="#FFFFFF" face="Arial" size="2">email:</font> </b> </div> </td> <td width="288" height="25"> <b> <font color="#FFFFFF" face="Arial" size="2"> <input type="TEXT" name="email" value="<%=form_email%>" size="40"> </font> </b></td> </tr> <tr> <td width="108" height="25"> <b> <font color="#FFFFFF" face="Arial" size="2"> Icq:</font> </b> </td> <td width="288" height="25"> <b><font face="Arial" size="2" color="#FFFFFF"> <input type="text" name="icq" value="<%=form_icq %>" size="40"> </font> </b> </td> </tr> <tr> <td width="108" height="25"> <b> <font color="#FFFFFF" face="Arial" size="2"> Alder:</font> </b> </td> <td width="288" height="25"> <b><font face="Arial" size="2" color="#FFFFFF"> <input type="text" name="alder" size="40" value="<%=form_alder %>"> </font> </b> </td> </tr> <tr> <td width="108" height="25"> <b><font face="Arial" size="2" color="#FFFFFF">Hjemmeside:</font></b> </td> <td width="288" height="25"> <b><font face="Arial" size="2" color="#FFFFFF"> <input type="text" name="side" size="40" value="<%=form_side %>"> </font> </b> </td> </tr> <tr> <td width="108" height="16"> <b> <font color="#FFFFFF" face="Arial" size="2"> Adresse:</font> </b> </td> <td width="288" height="16"> <b><font face="Arial" size="2" color="#FFFFFF"> <input type="text" name="adresse" size="40" value="<%=form_adresse %>"> </font> </b> </td> </tr> <tr> <td width="108" height="10"> <b><font face="Arial" size="2" color="#FFFFFF">Kommer fra:</font></b> </td> <td width="288" height="10"><font face="Arial" size="2" color="#FFFFFF"><b><input type="text" size="40" name="bor" value="<%=form_bor %>" </td> </b></font> </tr> <tr> <td width="108" height="7" valign="top"> <b><font face="Arial" size="2" color="#FFFFFF">Ligt om mig:</font></b> </td> <td width="288" height="7"><font face="Arial" size="2" color="#FFFFFF"><b><TEXTAREA COLS="34" ROWS="6" NAME="lidtom"><%=form_lidtom %></textarea> </b></font> </td> </tr> <tr> <td valign="middle" align="left" colspan="2" width="388" height="46"> <div align="center"><b><font color="#FFFFFF" face="Arial" size="2"><br> <input type="SUBMIT" name="SUBMIT" value="Gem"> </font> </b> </div> </td> </tr> </table> </form> <% rstemp.close set rstemp=nothing conntemp.close set conntemp=nothing %> <p> </p> <p> </p> <p> </p> <p align="center"><CENTER><b><font size="1" face="Arial">Copyright © Morten Terp 2000.<BR>E-mail: <a href="mailto:morten@funstuff.dk">morten@funstuff.dk<BR></a></font></b><FONT face=arial,helvetica size=-2>All Rights Reserved. </FONT></CENTER></p> <p> </p> </body> </html> fil retven.asp <% Response.Buffer = True redirect_to = "admin.asp" form_ID = Request.Form("ID") form_navn = Request.Form("navn") form_email = Request.Form("email") form_icq = Request.Form("icq") form_alder = Request.Form("alder") form_side = Request.Form("side") form_adresse = Request.Form("adresse") form_dato = Request.Form("dato") form_bor = Request.Form("bor") form_lidtom = Request.Form("lidtom") form_navn = Replace(form_navn, vbCrLf, "<br>") ' declaring variables ' not neccesary but a good habit Dim DataConn Dim CmdUpdateRecord Dim MYSQL Set DataConn = Server.CreateObject("ADODB.Connection") Set CmdUpdateRecord = Server.CreateObject("ADODB.Recordset") ' The line below shows how to use a system DSN instead of a DNS-LESS connection ' DataConn.Open "DSN=System_DSN_Name" DataConn.Open "DBQ=" & Server.Mappath("test.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};" MYSQL = "SELECT * FROM navn WHERE (ID = " & form_ID & ")" CmdUpdateRecord.Open MYSQL, DataConn, 1, 3 CmdUpdateRecord.Fields("navn") = form_navn CmdUpdateRecord.Fields("email") = form_email CmdUpdateRecord.Fields("icq") = form_icq CmdUpdateRecord.Fields("alder") = form_alder CmdUpdateRecord.Fields("side") = form_side CmdUpdateRecord.Fields("adresse") = form_adresse CmdUpdateRecord.Fields("dato") = form_dato CmdUpdateRecord.Fields("bor") = form_bor CmdUpdateRecord.Fields("lidtom") = form_lidtom CmdUpdateRecord.Update ' closing objects and setting them to nothing ' not neccesary but a good habit CmdUpdateRecord.Close Set CmdUpdateRecord = Nothing DataConn.Close Set DataConn = Nothing Response.Redirect redirect_to %> Slet .asp <% Response.Buffer = True redirect_to = "admin.asp" myDNS = "PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("test.mdb") & ";UID=admin;PWD=;" form_id = request.querystring("id") Set cn = Server.CreateObject("ADODB.Connection") Set rs = Server.CreateObject("ADODB.Recordset") sql = "delete FROM navn where id = " & form_id cn.Open myDNS rs.Open sql, cn Response.Redirect redirect_to %>