tailieunhanh - Hướng dẫn thiết kế : Thiết kế Forum nhanh chóng và đơn giản phần 7

Bài 15: Tỷ lệ hoạt động của từng Box 1. Mở file . Tìm dòng code Const strTxtResult = "Kết quả" . Thêm xuống dưới Const strTxtActivity = "Hoạt động" | Bài 15 Tỷ lệ hoạt động của từng Box 1. Mở file . Tìm dòng code Const strTxtResult K 7871 t qu 7843 . Thêm xuống dưới Const strTxtActivity Ho 7841 t 273 7897 ng 2. Mở file . Tìm dòng code Dim strSubject a. 2. Thêm xuống dưới Dim rsNoofPostAll Dim IngTotalNumberOfPostsAll Dim lngNumberOfPostsAll Dim lngTmp Dim intNumOfForums b. 1. Tìm dòng code lngLastEntryUserlD lngLastSubEntryUserlD dtmLastEntryDateAllForums dtmLastSubEntryDate End If_ . 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 ASC Set rsNoofPostAll strSQL adoCon lngTotalNumberOfPostsAll 0 lngNumberOfPostsAll 0 Do While NOT lngNumberOfPostsAll CLng rsN o ofPo stAll N o_of_posts lngTotalNumberOfPostsAll lngTotalNumberOfPostsAll lngNumberOfPostsAll Loop rsN o Set rsNoofPostAll Nothing c. 1 Tìm dòng code strSubForums strSubForums br img src . strImagePath mod border 0 align absmiddle nbsp a href FID intSubForumID strQsSID2 .class smLink strSubForumName a . Thay thế bằng strSubForums strSubForums br img src . strImagePath mod border 0 align absmiddle nbsp a href FID intSubForumID strQsSID2 .class smLink strSubForumName a Round intNumOfForums lngTotalNumberOfPostsAll 100 2 Tìm dòng code br strForumDiscription strSubForums td _ vbCrLf td class smText align right nowrap . Thay thế bằng br strForumDiscription strSubForums strSQL SELECT strDbTable Forum. FROM strDbTable Forum ORDER BY strDbTable ASC Set rsNoofPostAll strSQL adoCon lngTotalNumberOfPostsAll 0 lngNumberOfPostsAll 0 Do While