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

Bài 16: Độ dài chữ ký 1000 ký tự


1. Mở file register.asp
a.1. Tìm dòng code
strSignature = Mid(Request.Form("signature"), 1, 200)
a.2. Thay thế bằng
strSignature = Mid(Request.Form("signature"), 1, 1000)
b.1. Tìm dòng code
'Trim signature down to a 255 max characters to prevent database
errors
strSignature = Mid(strSignature, 1, 255)
b.2. Thay thế bằng
'Trim signature down to a 1200 max characters to prevent database
errors
strSignature = Mid(strSignature, 1, 1200)
c.1. Tìm dòng code
//Check that the signature is not above 200 chracters
if (formArea.signature.value.length > 200){
c.2. Thay thế bằng
//Check that the signature is not above 1000 chracters
if (formArea.signature.value.length > 1000){
d.1. Tìm dòng code
<td valign="top"><% = strTxtSignature %><br /><span
class="smText"><% = strTxtSignatureLong %>&nbsp;(max 200
characters)
d.2. Thay thế bằng
<td valign="top"><% = strTxtSignature %><br /><span
class="smText"><% = strTxtSignatureLong %>&nbsp;(max 1000
characters)
2. Mở table wwForum.mdb

a.1. Mở tblAuthor, sửa trường: Signature, kiểu: Text -> Memo
a.2. Hình vẽ



Bài 17: Sắp xếp lại trang hiển thị phụ mục giống trang default.asp


1. Mở file forum_topics.asp
a.1. Tìm dòng code
<td width="56%"><% = strTxtSub & " " & strTxtForums
%></td>
<td width="7%"><% = strTxtTopics %></td>
<td width="7%"><% = strTxtPosts %></td>
<td width="29%"><% = strTxtLastPost %></td>
a.2. Thay thế bằng
<td width="52%"><% = strTxtSub & " " & strTxtForums
%></td>
<td width="25%" align="center"><% = strTxtLastPost %></td>
<td width="8%" align="center"><% = strTxtTopics %></td>
<td width="8%" align="center"><% = strTxtPosts %></td>
<td width="3%" align="center">&nbsp;</td>
b.1. Tìm dòng code
vbCrLf & " <td align=""center"">" & lngNumberOfTopics &
"</td>" & _
vbCrLf & " <td align=""center"">" & lngNumberOfPosts &
"</td>" & _
vbCrLf & " <td class=""smText"" align=""right"" nowrap>")
If lngNumberOfPosts <> 0 Then 'Don't disply last post details if
there are none

Response.Write(DateFormat(dtmLastEntryDate) &
"&nbsp;" & strTxtAt & "&nbsp;" &
TimeFormat(dtmLastEntryDate) & "" & _
"<br />" & strTxtBy & "&nbsp;<a
href=""member_profile.asp?PF=" & lngLastEntryUserID &
strQsSID2 & """ class=""smLink"">" & strLastEntryUser & "</a>
<a href=""get_last_post.asp?FID=" & intSubForumID &
strQsSID2 & """><img src=""" & strImagePath &
"right_arrow.gif"" align=""absmiddle"" border=""0"" alt=""" &
strTxtViewLastPost & """></a>")
End If
Response.Write("</td>" & _
vbCrLf & " </tr>")
b.2. Thay thế bằng
vbCrLf & " <td class=""smText"" align=""right"" nowrap>")
If lngNumberOfPosts <> 0 Then 'Don't disply last post details if
there are none
Response.Write(DateFormat(dtmLastEntryDate) &
"&nbsp;" & strTxtAt & "&nbsp;" &
TimeFormat(dtmLastEntryDate) & "" & _
"<br />" & strTxtBy & "&nbsp;<a
href=""member_profile.asp?PF=" & lngLastEntryUserID &
strQsSID2 & """ class=""smLink"">" & strLastEntryUser & "</a>
<a href=""get_last_post.asp?FID=" & intSubForumID &
strQsSID2 & """><img src=""" & strImagePath &
"right_arrow.gif"" align=""absmiddle"" border=""0"" alt=""" &
strTxtViewLastPost & """></a>")
End If
Response.Write("</td>" & _
vbCrLf & " <td align=""center"">" & lngNumberOfTopics &

"</td>" & _
vbCrLf & " <td align=""center"">" & lngNumberOfPosts &
"</td><td>")
%>
<a href="new_topic_form.asp?FID=<% = intSubForumID %>"
target="_self"><img src="<% = strImagePath
%>mod/icon_post.gif" border="0" align="absmiddle" alt="<% =
strTxtNewTopic %>"></a>
<a href="search_form.asp?FID=<% = intSubForumID %>"
target="_self"><img src="<% = strImagePath
%>mod/icon_search.gif" border="0" align="absmiddle" alt="<% =
strTxtSearch %>"></a>
<%
Response.Write(vbCrLf & " </td></tr>")

Bài 18: Nút top – down trong forum_posts.asp


1. Mở file forum_posts.asp
a.1. Tìm dòng code
<tr class="<% = strPostTableRowClass %>">
<td nowrap>
<span style="float:right">
a.2. Thêm xuống dưới
<% Response.Write(" <a href=""#top""><img src=""" &
strImagePath & "mod/jump_up.gif"" align=""absmiddle""
border=""0""/></a> <a href=""#bottom""><img src=""" &
strImagePath & "mod/jump_down.gif"" align=""absmiddle""
border=""0""/></a>")%>
b.1. Tìm dòng code

<td align="right" class="smText" nowrap><! #include
file="includes/show_forum_permissions_inc.asp" ></td>
</tr>
</table>
b.2. Thêm xuống dưới
<a name="bottom"></a>
2. Copy file top-bottom vào thư mục forum_images/mod