ja, nu har jag satt ihop ett VÄLDIGT enkelt nyhetsskript som jag ska använda, men tänkte bara för er som inte vet hur man gör, så är det ju en grund iaf :e
oki, först, skapa en databas te x news.mdb med tabell vid namn nyheter med fälten
id | räknare
rubrik | text
nyhet | pm
datum | datum/tid
sidan som lägger till nyheter:
nyhet.asp:
<font size="1" face="Verdana, Arial, Helvetica, sans-serif">Kod:<font size="1" face="Verdana, Arial, Helvetica, sans-serif" color="#006666">
<html>
<head>
<meta http-equiv="content-type" content="text/html; charset=iso-8859-1">
<title>Untitled</title>
<meta name="generator" content="Namo WebEditor v3.0">
</head>
<body bgcolor="white" text="white" link="white" vlink="purple" alink="red">
<form name="news" method="post" action="nyheter.asp">
<p><font face="Verdana" size="2" color="black">Rubrik</font></p>
<p><font face="Verdana" size="2" color="black"><input type="text" name="rubrik"></font></p>
<p><font face="Verdana" size="2" color="black"><input type="hidden" size="30" name="datum" value="<% =Date %>"></font></p>
<p><font face="Verdana" size="2" color="black">Nyheten:</font></p>
<p><textarea name="nyhet" rows="8" cols="30"></textarea></p>
<p><input type="submit" name="skicka" value="Lägg till"></p></form>
</body>
</html>
sedan nyheter.asp:
<font size="1" face="Verdana, Arial, Helvetica, sans-serif">Kod:<font size="1" face="Verdana, Arial, Helvetica, sans-serif" color="#006666">
<%
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=C:\inetpub\wwwroot\grodanews.mdb"
Set RecSet = Server.CreateObject("ADODB.Recordset")
Addera = "SELECT * FROM nyheter"
RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic
RecSet.AddNew
RecSet("rubrik") = Request.Form("rubrik")
RecSet("nyhet") = Request.Form("nyhet")
RecSet("datum") = Request.Form("datum")
RecSet.Update
RecSet.Close
Connect.Close %>
<b>Här ser man lite vad man skrev som nyhet mm...:</b><p>
Rubrik:<br><b><% =Request.Form("rubrik") %></b><p>
Nyheten:<br><b><% =Request.Form("nyhet") %></b><p>
Datum:<br><b><% =Request.Form("datum") %></b><p>
och sedan den kod som visar den nyhet med nyast datum, shownews.asp:
<font size="1" face="Verdana, Arial, Helvetica, sans-serif">Kod:<font size="1" face="Verdana, Arial, Helvetica, sans-serif" color="#006666">
<%
Set Databas = Server.CreateObject("ADODB.Connection")
Set rsNews = Server.CreateObject("ADODB.Recordset")
MdbFilePath = Server.MapPath("news.mdb")
Databas.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ= " & MdbFilePath & ";"
SQL = "SELECT * FROM nyheter WHERE rubrik ORDER BY datum DESC"
rsNews.Open SQL, Databas, 1, 2
If rsNews.EOF then
%>
Ingen nyhet!
%>
<% End If %>
Rubrik:<br>
<%=rsNews("rubrik")%>
<br>
Datum:<br>
<%=rsNews("datum")%>
<br>
Nyheten:<br>
<%=rsNews("nyhet")%>
klart :e
aja, du får kolla noga så allt stämmer i sökvägar, tabeller oså.... lycka till :)
psst.... tack för att ni ger skriptet sådanna toppbetyg :) kolla gärna på överskriften samt vad jag skrivit om det, känner ni kanske igen:
ja, nu har jag satt ihop ett VÄLDIGT enkelt nyhetsskript som jag ska använda, men tänkte bara för er som inte vet hur man gör, så är det ju en grund iaf :e
[Redigerat av crisse6 den 01 mar 2001]