Xem mẫu
- 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%]
nguon tai.lieu . vn