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 phucorcl@yahoo.com 1.. Mở file ha_language_file_inc.asp a.1.. Mở file default.asp a.1.. Tìm dòng code Dim strSubject a.2.. T

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

Tác giả: Phan Hồng Phúc (phucorcl@yahoo.com)

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

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>" & " (" &

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

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

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

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

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

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