[ASP] Waarschijnlijk simpel...maar ik weet het niet..

[MarcelG]

Ik ben een complete ASP newbie, dat vooropgesteld...
Anyway, ik ben dus bezig met het ombouwen van het Snitz forum, (3.3.05 met Access database) naar een soort van simpel cms systeempje.

De Topics gebruik ik als document, en de forums heb ik zgn containers genoemd.
Op zich heb ik op die manier al een simpel CMS systeempje, behalve dat ik nog geen enkele vorm van versiebeheer heb.

In de originele versie worden de T_LAST_POST (datum/tijd) en de T_LAST_POST_AUTHOR (memberid) waarde in de database alleen geupdate als er een reply op het topic is.
Hoe precies, dat weet ik niet, maar ik zie het gebeuren in de database.
Als de originele initiele topicpost dus ge-edit wordt, wordt T_LAST_POST dus niet geupdate.

Nu wil ik dus dat deze waardes geupdate worden als er iets ge-edit is in het topic.

In het Snitz forum gaat het editen van een origineel topic via de methode MethodType = "EditTopic".
Dit gebeurt in het bestand post_info.asp.
Als ik in dit bestand kijk, zie ik nu het volgende:

code:

if MethodType = "EditTopic" then
    member = cint(ChkUser2(STRdbntUserName, Request.Form("Password"), strTopicAuthor))
    select case Member 
        case 0 '## Invalid Pword
            Go_Result "Invalid Password or UserName", 0
            Response.End
        case 1 '## Author of Post so OK
            '## Do Nothing
        case 2 '## Normal User - Not Authorised
            Go_Result "Only Admins, Moderators and the Author can change this document", 0
            Response.End
        case 3 '## Moderator so 
            if chkForumModerator(Forum_ID, STRdbntUserName) = "0" then
                Go_Result "Only Admins, Moderators and the Author can change this document", 0
            end if
        case 4 '## Admin so OK
            '## Do Nothing
        case else 
            Go_Result cstr(Member), 0
            Response.End
    end select

    if Request.Form("isRTE")="true" then '############ RTE MOD CODE : VS 1.3 : 5 LINES
       txtMessage = chkString(Replace(Request.Form("Message"), CHR(10), ""),"message")
    else
       txtMessage = chkString(Request.Form("Message"),"message")
    end if '############ END RTE CODE
    txtSubject = chkString(Request.Form("Subject"),"SQLString")
    Err_Msg = ""

    if txtSubject = " " then 
        Err_Msg = Err_Msg & "<li>You must enter a title for the document</li>"
    end if
    if txtMessage = " " then 
        Err_Msg = Err_Msg & "<li>You must enter a message for the document</li>"
    end if
    if Err_Msg = "" then
        'unquote next line to disable edited by display for adminstrators
        'if strEditedByDate = "1" and mlev < 4 then
        'if strEditedByDate = "1" then
        '   txtMessage = txtMessage & vbNewline & vbNewline 
 "<small><br>This message is edited by "
        '   txtMessage = txtMessage & chkstring
(strDBNTUserName, "display") & " on " & chkDate(DateToStr(strForumTimeAdjust))
& " " & chkTime(DateToStr(strForumTimeAdjust)) & "</small>"
        'end if

        '## Set array to pull out CAT_ID and FORUM_ID from dropdown values in post.asp
        aryForum = split(Request.Form("Forum"), "|")

        '## if the forum we are moving to doesn't have MODERATION, and this topic did have that
        '## we are going to have to auto-approve the topic !

        AutoApprove = "No"
        Moderation = "No"

        if Forum_ID <> aryForum(1) then
            blnTopicMoved = true
            strSql = "Select " & strTablePrefix & "FORUM.F_MODERATION "
            strSql = strsql & " FROM " & strTablePrefix & "FORUM "
            strSql = strSql & " WHERE " & strTablePrefix & "FORUM.FORUM_ID = " & Forum_ID

            set rsForumCheck = my_Conn.Execute (strSql)

            ForumModeration   = rsForumCheck("F_MODERATION")

            rsForumCheck.Close
            set rsForumCheck = nothing
        
            '## Is Moderation allowed on the topic in the old forum ?
            if (ForumModeration = 1 or ForumModeration = 2) then
                Moderation = "Yes"
            end if

            if Moderation = "Yes" then
    
                strSql = "Select " & strTablePrefix & "FORUM.F_MODERATION "
                strSql = Strsql & " FROM " & strTablePrefix & "FORUM "
                strSql = strSql & " WHERE " & strTablePrefix & "FORUM.FORUM_ID = " & aryForum(1)

                set rsNewForumCheck = my_Conn.Execute (strSql)

                NewForumModeration   = rsNewForumCheck("F_MODERATION")

                rsNewForumCheck.Close
                set rsNewForumCheck = nothing

                '## Is Moderation allowed on the topic in the new forum ?
                if not(NewForumModeration = 1 or NewForumModeration = 2) then
                    AutoApprove = "Yes"
                end if
            end if
        end if

        '## Forum_SQL
        strSql = "UPDATE " & strActivePrefix & "TOPICS "
        strSql = strSql & " SET T_MESSAGE = '" & txtMessage & "'"
        
        if blnTopicMoved then
            strSql = strSql & ", CAT_ID = " & aryForum(0)
            strSql = strSql & ", FORUM_ID = " & aryForum(1)
            if AutoApprove = "Yes" then
                strSql = strSql & ", T_STATUS = 1 "
            end if
        end if
        strSql = strSql & " WHERE TOPIC_ID = " & Topic_ID

        my_Conn.Execute(strSql)
        if blnTopicMoved then       
            if strEmail = "1" and strMoveNotify = "1" then DoAutoMoveEmail(Topic_ID)    
            strSQL = "SELECT F_SUBSCRIPTION FROM " & strTablePrefix & "FORUM WHERE FORUM_ID=" & aryForum(1)
            set rs = my_conn.execute (strSQL)
            if rs("F_SUBSCRIPTION") < 3 then
                strSQL = "DELETE FROM " & strTablePrefix & "SUBSCRIPTIONS WHERE TOPIC_ID=" & Topic_ID
                my_conn.execute(strSQL)
            end if
            rs.close
        end if
        if Forum_ID <> aryForum(1) then
            '## Forum_SQL
            strSql = "UPDATE " & strActivePrefix & "REPLY "
            strSql = strSql & " SET CAT_ID = " & aryForum(0)
            strSql = strSql & ", FORUM_ID = " & aryForum(1)
            strSql = strSql & " WHERE TOPIC_ID = " & Topic_ID

            my_Conn.Execute(strSql)
            
            set rs = Server.CreateObject("ADODB.Recordset")
            
            '## if the topic hasn't been approved yet, it isn't counted either
            '## so then the topic count doesn't need to be updated

                if Moderation = "No" or AutoApprove = "Yes" then

                '## Forum_SQL - count total number of replies in Topics table
                strSql = "SELECT T_REPLIES, T_LAST_POST, T_LAST_POST_AUTHOR "
                strSql = strSql & " FROM " & strActivePrefix & "TOPICS "
                strSql = strSql & " WHERE TOPIC_ID = " & Topic_ID

                set rs = my_Conn.Execute (strSql)
            
                intResetCount = rs("T_REPLIES") + 1
                strT_Last_Post = rs("T_LAST_POST")
                strT_Last_Post_Author = rs("T_LAST_POST_AUTHOR")
            
                rs.Close
                set rs = nothing

                '## Forum_SQL - Get last_post and last_post_author for MoveFrom-Forum
                strSql = "SELECT T_LAST_POST, T_LAST_POST_AUTHOR "
                strSql = strSql & " FROM " & strActivePrefix & "TOPICS "
                strSql = strSql & " WHERE FORUM_ID = " & Forum_ID & " "
                strSql = strSql & " ORDER BY T_LAST_POST DESC;"

                set rs = my_Conn.Execute (strSql)
            
                if not rs.eof then
                    strLast_Post = rs("T_LAST_POST")
                    strLast_Post_Author = rs("T_LAST_POST_AUTHOR")
                else
                    strLast_Post = ""
                    strLast_Post_Author = ""
                end if
            
                rs.Close
                set rs = nothing

                    if Moderation = "No" then
                    '## Forum_SQL - Update count of replies to a topic in Forum table

                    strSql = "UPDATE " & strTablePrefix & "FORUM SET "
                    strSql = strSql & " F_COUNT = F_COUNT - " & intResetCount
                    if strLast_Post <> "" then 
                        strSql = strSql & ", F_LAST_POST = '" & strLast_Post & "'"
                        if strLast_Post_Author <> "" then 
                            strSql = strSql & ", F_LAST_POST_AUTHOR = " & strLast_Post_Author
                        end if
                    end if
                    strSql = strSql & " WHERE FORUM_ID = " & Forum_ID
                    my_Conn.Execute(strSql)

                    '## Forum_SQL
                    strSql =  "UPDATE " & strTablePrefix & "FORUM SET "
                    strSql = strSql & " F_TOPICS = F_TOPICS - 1 "
                    strSql = strSql & " WHERE FORUM_ID = " & Forum_ID
                    my_Conn.Execute(strSql)

                end if 

                '## Forum_SQL - Get last_post and last_post_author for Forum
                strSql = "SELECT T_LAST_POST, T_LAST_POST_AUTHOR, T_AUTHOR "
                strSql = strSql & " FROM " & strActivePrefix & "TOPICS "
                strSql = strSql & " WHERE FORUM_ID = " & aryForum(1) & " "
                strSql = strSql & " ORDER BY T_LAST_POST DESC;"

                set rs = my_Conn.Execute (strSql)
            
                if not rs.eof then
                    strAuthor = getMemberName(strT_Last_Post_Author)
                    strLast_Post = rs("T_LAST_POST")
                    strLast_Post_Author = rs("T_LAST_POST_AUTHOR")
                else
                    strAuthor = ""
                    strLast_Post = ""
                    strLast_Post_Author = ""
                end if
            
                rs.Close
                set rs = nothing
                'Huw -- Update member count
                if (AutoApprove = "Yes") and blnTStatus = 2 and blnTopicMoved then
                    doUCount(strAuthor)
                    doULastPost(strAuthor)
                end if
                '## Forum_SQL - Update count of replies to a topic in Forum table
                strSql = "UPDATE " & strTablePrefix & "FORUM SET "
                strSql = strSql & " F_COUNT = (F_COUNT + " & intResetCount & ")"
                if strLast_Post <> "" then 
                    strSql = strSql & ", F_LAST_POST = '" & strLast_Post & "'"
                    if strLast_Post_Author <> "" then 
                        strSql = strSql & ", F_LAST_POST_AUTHOR = " & strLast_Post_Author
                    end if
                end if
                strSql = strSql & " WHERE FORUM_ID = " & aryForum(1)
                my_Conn.Execute(strSql)

                '## Forum_SQL
                strSql =  "UPDATE " & strTablePrefix & "FORUM SET "
                strSql = strSql & " F_TOPICS = F_TOPICS + 1 "
                strSql = strSql & " WHERE FORUM_ID = " & aryForum(1)
                my_Conn.Execute(strSql)
            end if
            
            'EXTRA CODE!!!!
            
            'if mLev <> 4 and Moderation = "No" then
            '## Forum_SQL - Update Last Post
            strSql = " UPDATE " & strTablePrefix & "FORUM"
            strSql = strSql & " SET F_LAST_POST = '" & DateToStr(strForumTimeAdjust) & "'"
            strSql = strSql & ",    F_LAST_POST_AUTHOR = " & getMemberID(STRdbntUserName)
            strSql = strSql & " WHERE FORUM_ID = " & Forum_ID

            my_Conn.Execute (strSql)
            
            '## Forum_SQL - Update Last Post
            strSql = " UPDATE " & strActivePrefix & "TOPICS"
            strSql = strSql & " SET T_LAST_POST = '" & DateToStr(strForumTimeAdjust) & "'"
            strSql = strSql & ",    T_LAST_POST_AUTHOR = " & getMemberID(STRdbntUserName)
            strSql = strSql & " WHERE TOPIC_ID = " & Topic_ID

            my_Conn.Execute (strSql)
        
        'end if

        err_Msg = ""
        if Err.description <> "" then 
            Go_Result "There was an error = " & Err.description, 0
            Response.End
        else
            Go_Result "Updated OK", 1
        end if

        '## Forum_SQL
        strSql = "UPDATE " & strActivePrefix & "TOPICS "
        strSql = strSql & " SET T_LAST_POST = '" & DateToStr(strForumTimeAdjust) & "'"
        strSql = strSql & ",    T_LAST_POST_AUTHOR = " & getMemberID(STRdbntUserName)
        strSql = strSql & " WHERE TOPIC_ID = " & Topic_ID

        my_Conn.Execute (strSql)

        err_Msg = ""
        if Err.description <> "" then 
            Go_Result "There was an error = " & Err.description, 0
            Response.End
        else
            Go_Result  "Updated OK", 1
            Response.End
        end if
        'EXTRA CODE
        end if
        err_Msg = ""
        aryForum = ""
        if Err.description <> "" then 
            Go_Result "There was an error = " & Err.description, 0
            Response.End
        else
            Go_Result  "Updated OK", 1
        end if
    else 
%>
    <p align=center><font face="<% =strDefaultFontFace %>" size="
<% =strHeaderFontSize %>">There Was A Problem With Your Details</font></p>


    <table align=center border=0>
      <tr>
        <td><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">
        <ul>
        <% =Err_Msg %>
        </ul>
        </font></td>
      </tr>
    </table>

    <p align=center><font face="<% =strDefaultFontFace %>" size=
<% =strDefaultFontSize %>><a href="JavaScript:history.go(-1)">Go Back To Enter 
Data</a></font></p>
<%
    end if
end if

Sorry, het is een hele lap tekst, en de layout wordt ook nog eens vernaggeld...

Maar, ik denk dus (ik ben een newbie...sorry) dat deze code de update zou moeten verzorgen:

code:

        '## Forum_SQL
        strSql = "UPDATE " & strActivePrefix & "TOPICS "
        strSql = strSql & " SET T_LAST_POST = '" & DateToStr(strForumTimeAdjust) & "'"
        strSql = strSql & ",    T_LAST_POST_AUTHOR = " & getMemberID(STRdbntUserName)
        strSql = strSql & " WHERE TOPIC_ID = " & Topic_ID

        my_Conn.Execute (strSql)

        err_Msg = ""

Maar, ik weet dus niet waar ik dit zou moeten doen....
Iemand suggesties ?

[ Voor 15% gewijzigd door MarcelG op 19-12-2002 13:01 . Reden: Layout was vernaggeld ]

[whoami]

Waar je wat zou moeten doen?

[MarcelG]

oh, sorry, ik snap dat het een beetje onduidelijk is...

De vraag is dus:
Waar zou ik welke code moeten aanpassen/invoegen om ervoor te zorgen dat bij iedere edit actie de waarde T_LAST_POST en T_LAST_POST_AUTHOR geupdate wordt.

[Verwijderd]

Er moet een punt zijn waar alle variabelen zijn ingelezen. Na dat punt moet die update komen......Lijkt mij.

OOOHHHH......bedoel je dat. Vergeet maar wat ik zei. Ben vandaag een beetje traag

[ Voor 30% gewijzigd door Verwijderd op 19-12-2002 13:26 ]

[MarcelG]

ik ben ook traag , want ik kom er nog steeds niet uit

[Verwijderd]

Snitz gebruiken om een CMS te maken... Hmmm, grappig idee, maar beetje vreemd uitgangspunt. Ik denk niet dat wij jou kunnen helpen om duizenden regels code te ontcijferen en om te schrijven.

Dat wordt zelf uitzoeken lijkt me...

[ZjieB]

waar haalt ie dat strForumTimeAdjust vandaan?

[ZjieB]

MarcelG schreef op 19 december 2002 @ 12:57:

code:

if not rs.eof then
                    strAuthor = getMemberName(strT_Last_Post_Author)
                    strLast_Post = rs("T_LAST_POST")
                    strLast_Post_Author = rs("T_LAST_POST_AUTHOR")
end if

Hij zoekt naar de datum/tijd en naam van de laatste post in je database en ziet 'edits' an sich niet als posts, dus je zult een stukje moeten toevoegen waarin de T_LAST_POST de tijd van de edit krijgt. Met een beetje puzzelen kom je er wel. (in de trant van if post = edit then T_LAST_POST = ...)

[Verwijderd]

Als je nu gewoon opt het einde van je pagina je database heropent en die 2 gegevens invoert, dan moet je niet heel de snitz code ontcijferen!

[MarcelG]

ok, bedankt voor de info...ik ga weer eens verder.
Oh ja, trouwens:

Snitz gebruiken om een CMS te maken... Hmmm, grappig idee, maar beetje vreemd uitgangspunt.

Dit zit zo : ik heb praktisch geen ASP, PHP, Java, html whatever kennis. Een tijdje geleden kwam ik in aanraking met het Snitz forum, en bedacht me op een gegeven moment : als we die topics nu eens niet als topic laten zien, maar gewoon als document.
Die documenten kunnen geedit worden door de authors, en door de moderators.
Die authors en moderators zijn mensen bij ons op de afdeling die nog minder ervanaf weten, maar die kunnen wel met Snitz en de RTE Editor die daarin zit werken.
Ok, ik geef toe : het is de andere kant opwerken, maar dit leek me een snelle methode.
Om vanaf scratch af aan een CMS te bouwen weet ik veels te weinig van ASP, SQL en dergelijke, en bij Snitz was het begin er al...vandaar dus.

Ik hoor en lees altijd dat een simpel CMSje zo enorm makkelijk te maken is, maar ik heb geen ASP/SQL mensen in mijn buurt die mij hands on kunnen helpen....

Ik wil dus veel meer hiervan leren, en ik heb dus al het boek ASP.NET voor Dummies gekocht.
Daarnaast heb ik diverse andere manuals gedownload, maar ik weet niet goed waar ik moet beginnen....Iemand tips ?

[whoami]

MarcelG schreef op 19 december 2002 @ 21:52:
Ik wil dus veel meer hiervan leren, en ik heb dus al het boek ASP.NET voor Dummies gekocht.

offtopic:
Nou, als die cms in ASP geprogged wordt, zul je eigenlijk niet veel hebben aan dat ASP.NET boek....
Maar goed, eigenlijk kan je beter direct ASP.NET leren ipv ASP.

[MarcelG]

ZjieB schreef op 19 December 2002 @ 18:42:
waar haalt ie dat strForumTimeAdjust vandaan?

die haalt ie uit config.asp, daar staat die gedefineerd.

code:

[b]config.asp, line 298[/b]
strForumTimeAdjust = DateAdd("h", strTimeAdjust , Now())

in post_info.asp worden de volgende files geinclude:
config.asp, voor de dim's, de database connectie e.d.
inc_functions.asp, voor de functies.
inc_subscription.asp, voor een stukje subscription (niet gebruikt overigens).
inc_top.asp, voor een stukje authorisatie.

[ Voor 3% gewijzigd door MarcelG op 19-12-2002 21:57 ]

[MarcelG]

whoami schreef op 19 December 2002 @ 21:55:

[...]

offtopic:
Nou, als die cms in ASP geprogged wordt, zul je eigenlijk niet veel hebben aan dat ASP.NET boek....
Maar goed, eigenlijk kan je beter direct ASP.NET leren ipv ASP.

klopt, was niet echt snugger van me....maar ik vond het zo zonde om een ASP boek te kopen, als ASP.NET (volgens wat men zegt en schrijft) stukken beter is.
Wist ik veel dat dat zo veel van elkaar verschilde....

Het intranet waar het om gaat draait nu nog op een Windows NT 4.0 IIS server, die binnen nu en 2 a 3 maanden vervangen wordt door een W2K server.
De huidige server draait geen .NET framework, en draait ook geen XML engine pf SQL server bijvoorbeeld.
De nieuwe server krijgt wel MSSQL server, de .NET framework en de XML engine.
Dus daar kan ik er mee gaan hobbyen...
Vooral omdat Snitz al zover af was, dacht ik dat dit een simpele wijziging zou zijn.
De database waarin alle content opgeslagen is hoeft niet of nauwelijks gewijzigd te worden als we er met ASP.NET tegen aan gaan babbelen (toch ?!?)

[ Voor 5% gewijzigd door MarcelG op 19-12-2002 22:01 ]

[whoami]

MarcelG schreef op 19 december 2002 @ 22:01:
[...]


De database waarin alle content opgeslagen is hoeft niet of nauwelijks gewijzigd te worden als we er met ASP.NET tegen aan gaan babbelen (toch ?!?)

Neen.

[MarcelG]

whoami schreef op 19 december 2002 @ 22:06:

[...]


Neen.

Neen als in "Neen, de database hoeft niet aangepast te worden", of als in "Neen, jouw stelling is onjuist: De Database moet wel aangepast worden"

[whoami]

MarcelG schreef op 19 december 2002 @ 22:22:
[...]


Neen als in "Neen, de database hoeft niet aangepast te worden", of als in "Neen, jouw stelling is onjuist: De Database moet wel aangepast worden"

Neen, as in "Neen, de database moet niet aangepast worden".

Dat zou pas jammer zijn zeg....

Dat is net het voordeel aan databases, totaal onafhankelijk van de code/applicatie die ze benaderd. Je praat met de DB via SQL.

[MarcelG]

pfieuw...ok thanks...
het is trouwens gelukt!

In post_info.asp gezocht naar de code over T_LAST_POST_AUTHOR, en dit geprobeerd:

code:

    'ADDED THIS CODE
        '## Forum_SQL - Update Last Post
            strSql = " UPDATE " & strActivePrefix & "TOPICS"
            strSql = strSql & " SET T_LAST_POST = '" & DateToStr(strForumTimeAdjust) & "'"
            strSql = strSql & ",    T_LAST_POST_AUTHOR = " & getMemberID(STRdbntUserName)
            strSql = strSql & " WHERE TOPIC_ID = " & Topic_ID

            my_Conn.Execute (strSql)
    'END OF ADDED CODE

Bovenstaande ingevoerd vlak na de volgende code in post_info.asp, in de sectie voor "EditTopic".

code:

        '## Forum_SQL
        strSql = "UPDATE " & strActivePrefix & "TOPICS "
        strSql = strSql & " SET T_MESSAGE = '" & txtMessage & "'"
        '
        if blnTopicMoved then
            strSql = strSql & ", CAT_ID = " & aryForum(0)
            strSql = strSql & ", FORUM_ID = " & aryForum(1)
            if AutoApprove = "Yes" then
                strSql = strSql & ", T_STATUS = 1 "
            end if
        end if
        strSql = strSql & " WHERE TOPIC_ID = " & Topic_ID

Now the best part: IT WORKS!!!!

Allen, bedankt voor de hints...misschien leer ik dit nog eens.!