11. september 2003 - 15:06Der er
17 kommentarer og 1 løsning
Kommentar system til nyhedssystem
Jeg har lavet mig selv et nyhedssystem, hvilket tog ret lang tid. Problemet er om det har været besværet værd. For jeg føler ikke at folk læser mine nyheder, da de næsten aldrig bliver kommenteret i min tagwall / gæstebog.
Derfor vil jeg gerne have lavet et kommentar system der gør, at der ved HVER nyhed bliver et link hvor man kan vælge "Kommenter / diskuter", og når man trykker, så kommer man ind på en side hvor man så kan kommentere eller diskutere min nyhed.
Hvis det er nødvendigt, så kan jeg komme nyhedssystemet i en .zip fil, så man evt. kan downloade den, og derefter udarbejde noget derfra.
her er lidt koder fra mit forum hvor jeg først henter original indlæg og herefter mine svar ved hjælp af hvert sit record set 'original indlæg recordset hvor man har hentet det ved hjælp af beskedid fra en fil der viser alle indlæg
Set Forum = Server.CreateObject ("ADODB.Recordset") Forum.Open "SELECT * FROM Beskeder WHERE beskedid=" & Request.QueryString ("Beskedid") session("Beskedid") = Request("Beskedid")
' her henter jeg svar til mit emne Set svar = Server.CreateObject ("ADODB.Recordset") svar.Open "SELECT * FROM Beskeder WHERE SvarID = " & Request.QueryString ("Beskedid")
så skal du have lavet et link til at svare bare feks <a href="nytsvar.asp">kommenter nyhed</a> deri laver du en form med dine felter navn besked osv også skal du have hentet hvilken nyhed du svare på gør det med et skjult input felt sådan her med den session der blev lavet med beskedid
Ahh... jeg gider ikke sidde og lave et komplet system til dig. Jeg troede, du havde nogle konkrete spørgsmål til det. Dem ville jeg gerne have svaret på.
så du skal have oprette nogle extra feltre i din database Svarid og evt til bruger navn osv du kan selvfølgelig vælge at ligge svarene i en seperat tabel
Er det muligt, at du vil lave det for mig? For jeg sidder ved en computer de næste 8 dage, hvor jeg ikke har mulighed for at bruge hverken NotesBlok, FrontPage eller andre editore's.
Beskedid i databasen er autonumering svarid er tal her er Visnyhed.asp
<%
Set database = Server.CreateObject ("ADODB.Connection") forbindelse = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("dindatabase.mdb") database.Open forbindelse
'her åbnes databasen i forbindelse med Id feltet Beskedid Set Forum = Server.CreateObject ("ADODB.Recordset") Forum.Open "SELECT * FROM Beskeder WHERE beskedid=" & Request.QueryString ("Beskedid") , forbindelse
'her laves en session til identificering af besked til besvarelse session("Beskedid") = Request("Beskedid") %>
<html> <head> <title>Nyheder</title> </head> <body bgcolor="white"> <center> <% ' her vises det originale Indlæg %> <% = forum.Fields("dato")%><br> skrevet af <% = forum.Fields("navn")%> <% = forum.Fields("Beskedemne") %> <br>
<% = forum.Fields("Beskedtekst") %> <br>
</td> </tr> </table>
<% forum.close set forum = Nothing %>
<% ' Svar til det original Set svar = Server.CreateObject ("ADODB.Recordset") svar.Open "SELECT * FROM Beskeder WHERE SvarID = " & Request.QueryString ("Beskedid") , forbindelse While NOT svar.EOF %>
<% = svar.Fields("dato")%><br> Skrevet af <% = svar.Fields("navn")%> <% = svar.Fields("Beskedtekst") %> <br>
<% svar.Movenext wend %>
<% ' her lukkes database forbindelsen forum.close set forum = Nothing %>
du får lige nybesvarelse.asp med til din form aligevel hvis du selv skulle have lyst til at springe ud i det <% Set opret = Server.CreateObject ("ADODB.Recordset") opret.Open "Beskeder", forbindelse, 3, 3
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.
