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

Bài 12: Bài viết cuối theo từng Diễn đàn


1. Mở file default.asp
a.1. Tìm dòng code
Dim intTotalViewingForum 'Holds the number of people
viewing the forum, including sub forums
a.2. Thêm xuống dưới
Dim strSubject
b.1. Tìm dòng code
If lngNumberOfPosts <> 0 Then 'Don't disply last post details if
there are none
b.2. Thêm xuống dưới
strSQL = "SELECT TOP 1 " & strDbTable & "Topic.Subject, " &
strDbTable & "Topic.Topic_ID, "& strDbTable &
"Topic.Last_Thread_ID, "& strDbTable & "Topic.Icon FROM " &
strDbTable & "Topic WHERE " & strDbTable &
"Topic.Forum_ID=" & intForumID & " ORDER BY " &
strDbTable & "Topic.Last_Thread_ID DESC;"
rsCommon.Open strSQL, adoCon
If NOT rsCommon.EOF Then
strSubject = "<a href=""forum_posts.asp?TID=" &
rsCommon("Topic_ID") & strQsSID2 & """>" &
rsCommon("Subject") & "</a>"
else
strSubject = ""
End If
rsCommon.Close
Response.Write(strSubject & "<br />")

Bài 13: Bạn có gửi bài/không gửi bài theo từng Chủ đề

1. Tạo file participated_inc.asp trong thư mục inlcudes có nội dung
<%
Dim rsParticipated
if(lngLoggedInUserID <> 2) then 'checks to see if it's a
guest i'm not sure exactly how to check if no user is logged in :(

set rsParticipated = server.createobject("ADODB.recordset")

rsParticipated.CursorType = 1
rsParticipated.Open "select top 1 tblThread.Thread_ID from
tblThread where tblThread.Topic_Id = " & lngTopicID & " AND
tblThread.Author_ID = " & lngLoggedInUserID, adoCon


if(NOT rsParticipated.EOF)then 'a thread was found
authored by them and they are not a guest
Response.Write("<img src=""" &
"./forum_images/mod/topic_read.gif"" border=""0"" alt=""" &
strTxtYouHavePost & """>")'Whatever u need to indicate to the
user that he/she has participated in the forum
else
Response.Write("<img src=""" &
"./forum_images/mod/topic_not_read.gif"" border=""0"" alt=""" &
strTxtYouHaveNot & """>")'Whatever u need to indicate to the
user that he/she has participated in the forum
end if

rsParticipated.close

set rsParticipated = Nothing

end if
%>
2. Mở file active_topics.asp
a.1. Tìm dòng code
If blnAdmin OR blnModerator Then Response.Write("<a
href=""javascript:winOpener('pop_up_topic_admin.asp?TID=" &
lngTopicID & strQsSID2 & "','admin',1,1,480,265)""><img
src=""" & strImagePath & "small_admin_icon.gif""
align=""absmiddle"" border=""0"" alt=""" & strTxtTopicAdmin &
"""></a>")
a.2. Thêm xuống dưới
Response.Write(vbCrLf)
%><! #include file="includes/participated_inc.asp" ><%
Response.Write(vbCrLf)
3. Mở file forum_topics.asp
a.1. Tìm dòng code
If blnAdmin OR blnModerator Then Response.Write("<a
href=""javascript:winOpener('pop_up_topic_admin.asp?TID=" &
lngTopicID & strQsSID2 & "','admin',1,1,480,265)""><img
src=""" & strImagePath & "small_admin_icon.gif""
align=""absmiddle"" border=""0"" alt=""" & strTxtTopicAdmin &
"""></a>")
a.2. Thêm xuống dưới
Response.Write(vbCrLf)
%><! #include file="includes/participated_inc.asp" ><%
Response.Write(vbCrLf)
4. Mở file _language_file_inc.asp
a.1. Tìm dòng code

Const strTxtAddMedia = "Nh&#7841;c Media"
a.2. Thêm xuống dưới
Const strTxtYouHavePost = "B&#7841;n c&#243; g&#7917;i
b&#224;i"
Const strTxtYouHaveNot = "B&#7841;n kh&#244;ng c&#243;
g&#7917;i b&#224;i"
5. Copy file post vào thư mục forum_images/mod


Bài 14: Sắp xếp bài viết trong từng Box cho việc hiển thị


1. Hình vẽ

2. Tạo file form_sort_inc.asp trong thư mục inlcudes có nội dung
<br />
<fieldset STYLE="PADDING: 2px;BORDER: solid 1px;WIDTH:
250px;">
<legend STYLE="FONT-WEIGHT:
bold;"><%=strTxtSortBy%></legend>
<div>
<table>
<form name=frmsort action="" method=Get>
<input type=hidden name=FID value="<%=intForumID%>"
/>
<tr>
<td>
<select name=SO onchange="frmsort.submit()">
<%
Dim arrSortBy(5), arrLabelSortBy(5), nSortBy

arrSortBy(1) = "T"
arrLabelSortBy(1) = strtxtTopics
arrSortBy(2) = "A"
arrLabelSortBy(2) = strtxtAuthor
arrSortBy(3) = "R"
arrLabelSortBy(3) = strtxtReplies
arrSortBy(4) = "V"
arrLabelSortBy(4) = strtxtViews
arrSortBy(5) = ""
arrLabelSortBy(5) = strTxtLastPost
For nSortBy = 1 to Ubound(arrSortBy)
if Request.QueryString("SO") =
arrSortBy(nSortBy) then
Response.Write "<option selected
value=" & arrSortBy(nSortBy) & ">" & arrLabelSortBy(nSortBy)
& "</option>"
else
Response.Write "<option value=" &
arrSortBy(nSortBy) & ">" & arrLabelSortBy(nSortBy) &
"</option>"
end if
Next
%>

</select>
</td>
<td><%=strTxtOrderBy%></td>
<td>
<select name=OB onchange="frmsort.submit()">
<option value="desc"><%=strTxtDESC%></option>

<option <%if Request.QueryString("OB") = "asc"
then Response.Write "Selected"%>
value="asc"><%=strTxtASC%></option>
</select>
</td>
<td><input class=button type=submit
value="<%=strTxtResult%>" /></td>
</tr>
</form>
</table>
</div>
</fieldset>
<br />
3. Mở file forum_topics.asp
a.1. Tìm dòng code
%></td>
<td align="right" nowrap><! #include
file="includes/page_link_inc.asp" ></td>
a.2. Thay thế bằng
%>
<! #include file="includes/form_sort_inc.asp" >
</td>
<td align="right" nowrap><! #include
file="includes/page_link_inc.asp" ></td>
4. Mở file ha_language_file_inc.asp
a.1. Tìm dòng code
Const strTxtYouHaveNot = "B&#7841;n kh&#244;ng c&#243;
g&#7917;i b&#224;i"
a.2. Thêm xuống dưới
Const strTxtSortBy = "S&#7855;p x&#7871;p theo"

Const strTxtOrderBy = "chi&#7873;u"
Const strTxtASC = "T&#259;ng d&#7847;n"
Const strTxtDESC = "Gi&#7843;m d&#7847;n"
Const strTxtResult = "K&#7871;t qu&#7843;"