Đang chuẩn bị liên kết để tải về tài liệu:
Tạo Forum ASP - Bài 15

Tài liệu tham khảo chuyên đề Tạo Forum ASP về Tỷ lệ hoạt động của từng Box | Bài 15 Tỷ lệ hoạt động của từng Box Tác giả Phan Hồng Phúc phucorcl@yahoo.com 1. Mở file ha_language_file_inc.asp a.1. Tìm dòng code Const strTxtResult K 7871 t qu 7843 a.2. Thêm xuống dưới Const strTxtActivity Ho 7841 t 273 7897 ng 2. Mở file default.asp a.1. Tìm dòng code Dim strSubject a. 2. Thêm xuống dưới Dim rsNoofPostAll Dim lngTotalNumberOfPostsAll Dim lngNumberOfPostsAll Dim lngTmp Dim intNumOfForums b. 1. Tìm dòng code lngLastEntryUserlD lngLastSubEntryUserlD dtmLastEntryDateAllForums dtmLastSubEntryDate End If b.2. Thêm xuống dưới lngTmp 0 intNumOfForums 0 lngTmp lngSubForumNumberOfPosts intNumOfForums intNumOfForums lngTmp strSQL SELECT strDbTable Forum. FROM strDbTable Forum ORDER BY strDbTable Forum.Forum_Order ASC Set rsNoofPostAll Server.CreateObject ADODB.Recordset rsNoofPostAll.Open strSQL adoCon lngTotalNumberOfPostsAll 0 lngNumberOfPostsAll 0 Do While NOT rsNoofPostAll.EOF lngNumberOfPostsAll CLng rsNoofPostAll No_of_posts lngTotalNumberOfPostsAll lngTotalNumberOfPostsAll lngNumberOfPostsAll rsNoofPostAll.MoveNext Loop rsNoofPostAll.Close Set rsNoofPostAll Nothing c.1 Tìm dòng code strSubForums strSubForums br img src . strImagePath mod folder_line.gif border 0 align absmiddle nbsp a href forum_topics.asp FID intSubForumID strQsSID2 . class smLink strSubForumName a c. 2. Thay thế bằng strSubForums strSubForums br img src . strImagePath mod folder_line.gif border 0 align absmiddle nbsp a href forum_topics.asp FID intSubForumID strQsSID2 . class smLink strSubForumName a Round intNumOfForums lngTotalNumberOfPostsAll 100 2 d. 1 Tìm dòng code Response.Write br strForumDiscription strSubForums td vbCrLf td class smText align right nowrap d.2. Thay thế bằng Response.Write br strForumDiscription strSubForums strSQL SELECT strDbTable Forum. FROM strDbTable Forum ORDER BY strDbTable Forum.Forum_Order ASC Set rsNoofPostAll Server.CreateObject ADODB.Recordset rsNoofPostAll.Open strSQL adoCon lngTotalNumberOfPostsAll 0 lngNumberOfPostsAll 0 Do While NOT .