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

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 & "<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)/lngTotalN
umberOfPostsAll), 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)/lngTotalN
umberOfPostsAll), 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>")