Forum med mulighed for at svare på meddelelser

For at du kan tage højde for X dybte i dit forum bliver du nok nød til at lave en rekrusiv function som kalder sig selv eller skal du jo lavde X-antal loop inde i hinanden for at være sikker på at alle svar kommer med:


Eks på hvordan du kan lave det med en function

<HTML>
<HEAD><TITLE>Forum</TITLE></HEAD>
<BODY>
<%
'Åbner connection til databasen
Set conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("db7.mdb")

'Kald function med ForumID, startID, Level.. Sæt startID=0 for ny tråd og Level=0
UdskrivForum 1,0,1

'Luk forbinelsen til Databasen
Conn.Close
Set Conn = Nothing
%>
</BODY>
</HTML>

<%
function UdskrivForum(forumID, entryID,level)
  Set rs = Server.CreateObject("ADODB.Recordset")
  strSQL = "SELECT * FROM forumBeskeder WHERE forumID = " & forumID & " AND parentID="&entryID&" ORDER BY DATO DESC"
  set rs = Conn.Execute (strSQL)
 
  do while not rs.EOF
    for i = 1 to Level
      Response.Write ":  :"
    next
    Response.Write rs("indhold") & "<br>"
    'Kald sig selv for at finde svar på dette indlæg
    UdskrivForum forumID, rs("ID"),level+1
    rs.MoveNext
  loop
end function
%>

Jeg kan ikke få det til at virke den skriver bare:

Der opstod en Microsoft VBScript-kørselsfejl fejl '800a01fb'

Der er opstået en undtagelse: 'conn.Execute'

/forum/test.asp, line 27

hmm har du ændre connection til at passe med din database?

ja, det har jeg...

jeg må indrømme at jeg kan ikke lige se hvordan du med kode vil få udskrevet alle de forskellige beskeder.

Det forstå jeg ikke den fejl.... Har du før haft problemmer med Databaser?

Alternativ prøv denne connection:

conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& server.mappath("db7.mdb")

Jeg har nedenståene kode, men jeg ville gerne høre om der evt. var nogen der havde en smartere kode, fordi de klager på mit webhotel over at der er fejl i min asp-kode (at det giver problemer) og jeg formoder at det er der fejlen ligger, selvom det ser ud til at fungere fint og det hele bliver vist, som det skal.

    Set adoConn=Server.CreateObject("ADODB.Connection")               
    adoConn.ConnectionString = strConnForum       
    adoConn.Open   

    level = 0

    Function ListItems(parentId)
        Dim strSql
        Dim adoRs
       
        strSql="SELECT * FROM msgDetail WHERE parentId = " & parentId & " ORDER BY msgTime DESC"

        Set adoRs=Server.CreateObject("ADODB.Recordset")
        adoRS.Open strSql, adoConn, 1

        Do Until adoRS.EOF

                msgtime = adoRs.Fields("msgTime").Value
                parentid = adoRs.Fields("parentid").Value
                if parentid = 0 then
                    response.write "<br>"
                end if

                response.write "<div style=""text-indent: -5; margin-left: " & 10+10*level & """>"

                textlen = 25
                if len(adoRS.Fields("headerStr").Value) > textlen then
                    aftertext = "..."
                else
                    aftertext = ""
                end if

                Response.Write "<a href=""" & thisfolder & "aspBoardDetail.asp?Id=" & adoRS.Fields("msgId").Value & """ class=forum title=""" & adoRS.Fields("author_nameStr").Value & ": " & adoRS.Fields("headerStr").Value & """><FONT FACE=""" & abFont & """>" & left(adoRS.Fields("headerStr").Value,textlen) & aftertext & "</a>&nbsp;<nobr><small><i>(" & FormatDateTime(adoRs.Fields("msgTime").Value,2) & "&nbsp;" & FormatDateTime(msgtime,3) & ")</i></small>"

                if DateDiff("d",msgtime,Now) <= 7 then
                    response.write " <span style=""background-color: #FF0000""><b><font size=1 face=""Verdana"" color=""#FFFF00"">Ny</font></b></span>"
                end if

                response.write "</nobr></div>" & VbCrLf

                level = level+1
                ListItems(adoRs.Fields("msgId").Value)
                level = level-1
                adoRS.MoveNext
        Loop
       
        adoRS.Close
        Set adoRs = Nothing

    End Function

    Listitems(0)

    adoConn.Close
    Set adoConn = Nothing

Den udksriver en besked af gang med functionen:


<%
function UdskrivForum(forumID, entryID,level)
  Set rs = Server.CreateObject("ADODB.Recordset")
  strSQL = "SELECT * FROM forumBeskeder WHERE forumID = " & forumID & " AND parentID="&entryID&" ORDER BY DATO DESC"
  set rs = Conn.Execute (strSQL)
 
  do while not rs.EOF
    for i = 1 to Level
      Response.Write ":  :"
    next
    Response.Write rs("indhold") & "<br>"
    'Kald sig selv for at finde svar på dette indlæg
    UdskrivForum forumID, rs("ID"),level+1
    rs.MoveNext
  loop
end function
%>


Først udskrives en tråd med parenID=0 så kalder functionen sig selv med ID på den som er udskrevet for at finde meddelser som har parentID = ID..

Indlæg 1
  Svar på 1
    Saver på 1-1
  Svar på 1

Indlæg 2
  Svar på 2
  Svar på 2
    Svar på 2-1
      Svar på 2-1-1

Ja de to script ligner hinanden meget, mit er dog strippet for alt formatering af teksten.. Så det den kun lige rykker Svar på indlæg ind med ":  :"

Jeg har prøvet dit script på min maskine... Det virker fint den melder ikke nogle fejl. Er det et kæmpe forum du har med flere 100 indlæg så kan det godt tage lidt tid at loade siden..

Det virker altså ikke hos mig!

Du kan se resultatet på denne side: http://80.63.95.180/forum/test.asp

Ja, der er en hel del indlæg på nuværende tidspunkt er der 360 indlæg.

Du finder det nuværende, som det gerne skulle se ud på denne side: http://80.63.95.180/forum/

Her er den kode jeg har prøvet med:

<HTML>
<HEAD><TITLE>Forum</TITLE></HEAD>
<BODY>
<%
'Åbner connection til databasen
Set conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("../../database/forum.mdb")

'Kald function med ForumID, startID, Level.. Sæt startID=0 for ny tråd og Level=0
UdskrivForum 59,0,1

'Luk forbinelsen til Databasen
Conn.Close
Set Conn = Nothing
%>
</BODY>
</HTML>

<%
function UdskrivForum(forumID, entryID,level)
  Set rs = Server.CreateObject("ADODB.Recordset")
  strSQL = "SELECT * FROM msgdetail WHERE msgID = " & forumID & " AND parentID="&entryID&" ORDER BY msgtime DESC"
  set rs = Conn.Execute (strSQL)
 
  do while not rs.EOF
    for i = 1 to Level
      Response.Write ":  :"
    next
    Response.Write rs("headerstr") & "<br>"
    'Kald sig selv for at finde svar på dette indlæg
    UdskrivForum forumID, rs("msgID"),level+1
    rs.MoveNext
  loop
end function
%>

Den udskriver kun første meddelelse, ingen svar eller nogen af de andre meddelelser...

jeg er temmelig sikker på at du bliver nødt at lave en masse while løkker inden i hinanden ... sådan har jeg også selv lavet det forum jeg bruger på de fleste af mine sider ... se f.eks. http://www.robenogknud.dk

>> davidfossil

ok, det er meget fint at jeg kan se at det virker på din side, men jeg vil være meget taknemlig hvis du kan komme med noget kode til hvordan det kan gøres

Jeg har både mit og dit script til at virke lokalt på min PC.. så det forstår jeg ikke helt, får du stadig fejl i connection..?

nej, der kommer ikke fejl i connection, men den udskriver kun første besked, igen svar eller nogen af de andre beskeder :(

Kan du vise koden i test.asp ?

sorry, du behøver ikke en masse loops .. se her:

http://www.html.dk/scripts/asp/00015/

-