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

Chia sẻ: Szfasf Fadsfs | Ngày: | Loại File: PDF | Số trang:5

Thêm vào BST

Báo xấu

74
lượt xem 11
download

Download Vui lòng tải xuống để xem tài liệu đầy đủ

Bài 15: Tỷ lệ hoạt động của từng Box 1. Mở file ha_language_file_inc.asp a.1. Tìm dòng code Const strTxtResult = "Kết quả" a.2. Thêm xuống dưới Const strTxtActivity = "Hoạt động"

Chủ đề:

Bình luận(0) Đăng nhập để gửi bình luận!

Lưu

Nội dung Text: 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 ha_language_file_inc.asp a.1. Tìm dòng code Const strTxtResult = "Kết quả" a.2. Thêm xuống d ưới Const strTxtActivity = "Hoạt độ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 lngLastEntryUserID = lngLastSubEntryUserID 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 & " " & strSubForumName & "" c.2. Thay thế bằng strSubForums = strSubForums & " " & strSubForumName & "" & " (" & Round((intNumOfForums/lngTotalNumberOfPostsAll)*100,2) & "%)" d.1 Tìm dòng code Response.Write("" & strForumDiscription & strSubForums & "" & _ vbCrLf & " ")
d.2. Thay thế bằng Response.Write("" & 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 rsNoofPostAll.EOF lngNumberOfPostsAll = CLng(rsNoofPostAll("No_of_posts")) lngTotalNumberOfPostsAll = lngTotalNumberOfPostsAll + lngNumberOfPostsAll rsNoofPostAll.MoveNext Loop rsNoofPostAll.Close Set rsNoofPostAll = Nothing strSQL = "SELECT " & strDbTable & "Forum.* FROM " & strDbTable & "Forum WHERE " & strDbTable & "Forum.Sub_ID = " & intForumID & " ORDER BY " & strDbTable & "Forum.Forum_Order ASC;" Dim rsNoofPostSubForum Set rsNoofPostSubForum = Server.CreateObject("ADODB.Recordset")
rsNoofPostSubForum.CursorType = 1 'Query the database rsNoofPostSubForum.Open strSQL, adoCon lngTmp = 0 intNumOfForums = 0 Do While NOT rsNoofPostSubForum.EOF lngTmp = CLng(rsNoofPostSubForum("No_of_posts")) intNumOfForums = intNumOfForums + lngTmp rsNoofPostSubForum.MoveNext Loop Response.Write(vbCrLf & "") Response.Write( strTxtActivity & ": " & "") If lngNumberOfPosts 0 Then If intNumOfForums 0 Then Dim dblPollVotePercentageSub dblPollVotePercentageSub = FormatPercent(((lngNumberOfPosts+intNumOfForums)/lngTotalN umberOfPostsAll), 2) %> []
[] [] [0%]