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
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
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
[Redigerat av crisse6 den 01 mar 2001]
