"Daniel" <mouse123@sol.dk> wrote in message news:9e0ggm$d2o$1@sunsite.dk...
> Hvordan laver man et nyhedssystem sådan at man kan skrive nyheden
> på hjemmeside ved hjælp af en adgangskode ???
Det laves typisk ved at du har en passwordbeskyttet side med et <textarea>
som så indholdet af indsættes i en database.
Et simpelt eksempel kunne være dette:
<html>
<head>
<title> opret nyhed</title>
</head>
<body>
<%
Option Explicit
Dim Nyhed, objConn
If Request.Form.Count > 0 Then ' Hvis der er send formdata til siden..
Set objConn = Server.Createobject("ADODB.Connection")
objConn.Connectionstring = "Din connectionstreng"
objConn.open
'Her tilpasses nyheden så vi ikke får
database/visningsfejl...
Nyhed = Replace(Request.Form.Item("Nyhed"), "'", "''");
Nyhed = Server.HTMLEncode(Nyhed)
' Her indsættes nyheden så sammn med tidspunktet
objConn.Execute("INSERT INTO tblNyheder(Nyhed, Dato)
VALUES('" & Nyhed & "', " & Now())
Response.write("Nyheden er nu indsat i tabellen")
'Oprydning
objConn.Close
Set objConn = Nothing
Else' Hvis der ikke er postet formdata til siden
%>
<form action="<%=
Request.ServerVariables.Item("SCRIPT_NAME")%>" method="post">
<textarea name="Nyhed" cols="15"
rows="15"></textarea><br>
<input type="submit" name="submit"
value="opret nyhed">
</form>
<% End if%>
</body>
</html>
Når du så skal vise nyhederne bruger du denne kodestump:
Set objConn = Server.Createobject("ADODB.Connection")
objConn.Connectionstring = "Din connectionstreng"
objConn.open
Set objRS = objConn.Execute("SELECT Nyhed FROM tblNyheder ORDER
by Dato")
Do while not objRS.EOF
Response.write objRS("Nyhed")
Response.write "<br><hr><br>"
objRS.Movenext()
Loop
objRS.Close
Set objRS = Nothing
objConn.Close
Set objConn = Nothing
Læs evt. mere i <
http://www.html.dk/tutorials/asp/lektion19.asp> og
<
http://www.html.dk/tutorials/asp/lektion20.asp>
--
Jakob Andersen
FAQ for webdesign gruppen på
<
http://www.usenet.dk/oss/dk.edb.internet.webdesign>
"Det er rart at være vigtig, men det er vigtigere at være rar
"