איך בונים פורום?

העיקרון בפורום הוא שיש הודעת אב ולה יש הודעות ילדים. הודעות האב מסודרות בסדר כרונולוגי הפוך והודעות הילדים מסודרות ביניהן לפי סדר יורד. אבל בואו נתחיל מהתחלה.
בד"כ אני נוהג לצייר לי סכמה של התהליך ושל הטפסים על מנת שיהיה לי יותר קל אח"כ להבין מה עשיתי.

בניית בסיס הנתונים

קודם כל אני נבנה את טבלת המשתמשיםץ הדברים החשובים ביותר הם:

שם משתמש [כינוי], סיסמא , אמייל , ורצוי גם תאריך. אני הוספתי עוד כמה שדות לשימושי האישי. לטבלה נקרא לה members.

שם שדה	סוג DATATYPE	תפקיד	ערך ראשוני
Id	מספור אוטומטי	מפתח ראשי
UserID	מספר	המספר של המשתמש
Nick	מחרוזת	הכינוי
Pass	מחרוזת	הסיסמא
Email	מחרוזת	אימייל
DateAdd	Date	תאריך הוספה	Date()
Fname	מחרוזת	שם פרטי
Lname	מחרוזת	שם משפחה
Address	מחרוזת	כתובת
Sex	כן/לא	זכר/נקבה
Qut	מחרוזת	ציטוט
WordDes	תזכיר	תיאור עצמי
Homepage	מחרוזת	הטקסט שיופיע כדף בית
Link	מחרוזת	הקישור לדף הבית
Age	מספר	הגיל

השלב הבא הוא לבנות את הטבלה של ההודעות. אצלי היא בפורמט הבא:

שם שדה	סוג DATATYPE	תפקיד	ערך ראשוני
MessageID	מספור אוטומטי	מפתח ראשי	/td>
ForumID	מספר	מספר הפורום
Parented	מספר	המספר של הודעת האב
levelID	מספר	מה הסדר של ההודעות
MsgSubject	מחרוזת	הנושא
MessageBody	מחרוזת	גוף ההודעה
Uname	מחרוזת	הכינוי
Uid	מספר	המספר של המשתמש
link1	מחרוזת	קישורים
Link1des	מחרוזת	הטקסט שיוציע
IsFile	כן/לא	האם יש קבצים מצורפים
Filename	מחרוזת
fileDES	מחרוזת
DateAdd	תאריך	תאריך הוספה	Date()

ניתן כמובן להוסיף עוד קישורים ותאורי קישורים [ורצוי גם לחלק את הטבלה לשתי טבלאות של קבצים ושאר הודעות ולחבר בעזרת ה-MessageID] אבל בינתיים זה מספיק. נקרא לטבלה Messages.

איך יודעים מהי הודעת האב ?

מכיון שלכל הודעה חדשה אנו צריכים מספור כלשהו, עומדות לפנינו כמה אפשרויות:

האפשרות הראשונה היא להכניס איזה שהוא מספור שאנחנו יוצרים לתוך ה parentID. החיסרון בשיטה הזו היא שאם יש לנו כמה משתמשים בו זמנית אנו עלולים להרוס את הסדר.

הפתרון הפשוט ביותר הוא להשתמש במשתנה Session.SessionID ולהכניס אותו לתוך הודעת האב. לכל הבנים שיבואו מתחתיו אנו ניתן כבר את ה parentID הקיים, וניתן levelID שגדל באחד כל פעם. [רצוי להתחיל ב-1 ולא ב-0].

לאחר שנוסיף את ההודעה נסגור את ה Session ונחליף אותה בחדשה בעזרת Session.Abandon().
ככה אנו פותרים שתי בעיות – בעיית מספור ההודעות, ובעיית הכנסה. כי הרי לכל משתמש יש מספר מזהה משלו, ואין שום סיכוי שבעולם ששני אנשים שונים יכניסו שתי הודעות עם אותו parentID . אם היינו ממספרים את ההודעות בזמן ההכנסה היה סיכוי גדול יותר שתקלה כזו תתרחש‎.

אם ישנן שתי הודעות בן לאותו אב – מי תבוא קודם?

זאת שנכתבה קודם כמובן ואת זה נדע לפי השדה של התאריך.

איך עושים את ההזחה של ההודעות?

בעזרת הlevelID. כל הודעה תהיה טבלה בפני עצמה שהרוחב שלה הוא 100% מינוס ה-levelID. כל זה יהיה באחוזים ומיושר לשמאל ככה שתהיה לנו הזחה לכל הודעה.

טוב, אז איך עושים את זה?

ישנן כל מני דרכים לשלוף את הנתונים מתוך הDB. מכיוון שזהו בעצם עץ, ניתן לשלוף את הנתונים בכמה דרכים:

• בעזרת DataShape
• בעזרת שני RecordSet
• בעזרת עמודת מונה שתסדר לנו את ההודעות.

הקוד הבא מדגים את הצגת הפורום באמצעות recordSet כפול:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

<% DSN="Provider=Microsoft.Jet.OLEDB.4.0;     Data Source="+Server.MapPath ("theBD.mdb") +";     User Id=admin; Password=" SQL1="select parentID from Messages where levelID=1 order by dateAdd DESC" SQL2="select * from Messages where parentID="&     oRss(0).value & "order by levelID;" Set oConnection=Server.CreateObject("ADODB.connection") OConnection.open (DSb) Set oRecordset==Server.CreateObject("ADODB. Recordset") ORecordset.open (SQL1, oConnection,3,1) While not oRecordset.eof     ORecordsetMasege=oConection.execute (SQL2)     While not OrecordsetMasege.eof     'כאן תיכנס הטבלה של כל הודעה והודעה     OrecordsetMasege.movenext() Wend %>

איך זה עובד?

בהתחלה אנו שולפים את כל הרשומות שה-parentID שלהם הוא 1 , כלומר הן הודעות אב. אח"כ בלולאה השנייה אנו שולפים לכל הודעת אב את הבנים שלה, מסודרים לפי ה-levelID.

אבל השיטה הזאת לא יעילה וממש לא נוחה. אם היינו יכולים להכניס איזה ממספר שהיה עוזר לי למיין את כולם מצבנו היה יותר טוב. השיטה הטובה ביותר לממספר שחשבתי עליה היא מן מחרוזת שהחלק השמאלי שלה מורכב מה-ParentID ,והחלק הימני ה-levelID.

אבל למה לעבוד קשה? למה אנחנו צריכים להתאמץ לסדר את ההודעות כאשר אנו יכולים להשתמש ב-DB למיון וסידור ההודעות?

לא רק זה, אפילו יש לנו Wizard שעושה את כל העבודה השחורה. אם נסתכל על הטבלה שלנו [וגם כל הקוד שרשמנו מקודם ] נוכל לראות שבעצם יש לנו המון כפילויות בעמודה של ה-parentID. ופה קבור הכלב!

נפתח את האקסס [או כל DB אחר אבל זה יהיה בלי ה-Wizard …] נלך לשאילתות ונבחר את השאילתא הבאה – שאילתת חיפוש כפילויות.





נלחץ על אישור ובחלון הבא נבחר את הטבלה שלנו Messages .






לחיצה על הבא כמובן תוביל אותנו לשאלה – איזה עמודה אנו רוצים לסנן?

parentID , כמובן, תהיה התשובה. לא לשכוח ללחוץ "הבא" אחר כך.






עכשיו בא הקטע המגניב – איזה עוד שדות אנו רוצים בשאילתה? את כל השאר.






ניתן שם לשאילתה, ונלחץ על "סיום".





עכשו כשנפתח את הטבלה/שאילתה חדשה, נקבל טובלה ממש דומה ל-MessageS אולם זה עדיין לא הסוף. אנו עדיין צריכים למיין את הכל. תצוגת העיצוב תיתן לנו את התמונה הבאה. השתמשו בגרירות השונות על מנת להביא את הטבלה למצב הקיים ושנו את הסדר לפי התמונה.

כאשר נפעיל את השאילתה נקבל את הטבלה ממויינת. כל מה שאנחנו צריכים לעשות עכשיו הוא לשלוף את הנתונים. היתרון בשיטה זו היא שאנו שולפים את הנתונים מתוך שאילתה אך מכניסים אותה לתוך הטבלה. הנתונים תמיד יהיו ממוינים, ללא צורך באיז שהיא טרנספורמציה על העמודה המסדרת [שבעצם לא קיימת]. למעשה אם היינו צריכים ליצור את השאילת הזו ביד זה היה נראה בערך כך:

1 2 3 4 5 6 7 8 9 10 11

SELECT Message.parentID, Message.dateAdd,    Message.levelID, Message.messageID,    Message.forumID, Message.Uname, Message.Uid,    Message.msgSubject, Message.link1, Message.Link1des,    Message.link2, Message.Link2des, Message.link3,    Message.Link3des, Message.isFile, Message.IP,    Message.fileName, Message.fileDES FROM Message WHERE (((Message.parentID) In (SELECT [parentID] FROM [Message] As Tmp GROUP BY [parentID] HAVING Count(*)>1 ))) ORDER BY Message.parentID DESC , Message.dateAdd, Message.levelID;

לא סימפטי אה? בדיוק בשביל זה יש לנו את ה- Query Analyser. עכשו הכל כבר מסודר וכל מה שנשאר זה לשלוף את הכל בעזרת:

Select * from ForumMSG

ואם ישנם כמה פורומים, פשוט לשים WHERE… איפה שצריך.
עכשו ה-ASP שלנו ניראה כך:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

<%DSN="Provider=Microsoft.Jet.OLEDB.4.0;     Data Source="+Server.MapPath ("theBD.mdb") +";     User Id=admin; Password=" SQL1=" Select * from ForumMSG" Set oConnection=Server.CreateObject("ADODB.connection") OConnection.open (DSN) Set oRecordset==Server.CreateObject("ADODB. Recordset") ORecordset.open (SQL1, oConnection,3,1) While not oRecordset.eof        ' כאן תיכנס הטבלה של כל הודעה והודעה          oRecordset.movenext() Wend %>

ופה בעצם אנו מקבלים את כל הפורום מסודר ומאורגן. על זה כמובן אפשר לעשות חלוקה לדפים, וכמובן לעשות את החלקים שמראים ומסתירים את ההודעה.


תכנות נעים ובהצלחה!