Tạo Forum ASP - Bài 15 doc

Bài 15: Tỷ lệ hoạt động của từng Box

Tác giả: Phan Hồng Phúc ()

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 & "<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 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 & "<br /><span class=""tiText"">")
Response.Write( strTxtActivity & ": " & "</span>")
If lngNumberOfPosts <> 0 Then
If intNumOfForums <> 0 Then
Dim dblPollVotePercentageSub
dblPollVotePercentageSub =
FormatPercent(((lngNumberOfPosts+intNumOfForums)/lngTotalNumberOfPostsAll), 2)
%>
<img src="<% = strImagePath %>bar_graph_image.gif" width="<% =
CInt(Replace(CStr(dblPollVotePercentageSub), "%", "", 1, -1, 1)) * 2 %>" height="11"
align="middle"> [<% = dblPollVotePercentageSub %>]
<%
Else
Dim dblPollVotePercentage
dblPollVotePercentage =
FormatPercent((lngNumberOfPosts/lngTotalNumberOfPostsAll), 2)
%>
<img src="<% = strImagePath %>bar_graph_image.gif" width="<% =
CInt(Replace(CStr(dblPollVotePercentage), "%", "", 1, -1, 1)) * 2 %>" height="11"

align="middle"> [<% = dblPollVotePercentage %>]
<%
End If
Else
If intNumOfForums <> 0 Then
dblPollVotePercentageSub =
FormatPercent(((lngNumberOfPosts+intNumOfForums)/lngTotalNumberOfPostsAll), 2)
%>
<img src="<% = strImagePath %>bar_graph_image.gif" width="<% =
CInt(Replace(CStr(dblPollVotePercentageSub), "%", "", 1, -1, 1)) * 2 %>" height="11"
align="middle"> [<% = dblPollVotePercentageSub %>]
<%
Else
%>
<img src="<% = strImagePath %>bar_graph_image.gif" width="<% =
CInt(Replace(CStr(0), "%", "", 1, -1, 1)) * 2 %>" height="11" align="middle"> [0%]
<%
End If

End If
rsNoofPostSubForum.Close()
Set rsNoofPostSubForum = Nothing

Response.Write("</td>" & vbCrLf & " <td class=""smText"" align=""right"" nowrap>")


