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

Mở file ha_language_file_inc.asp a.1.. 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

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>")