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 . table wwForum.mdb a.1. Mở tblAuthor, sửa trường: Signature, kiểu: Text -> Memo a.2. Hình vẽ Bài 1 7: Sắp xếp lại trang hiển thị phụ mục giống trang default.asp 1. Mở file forum_ topics.asp. Response.Write(vbCrLf & " </td></tr>") Bài 1 8: Nút top – down trong forum_ posts.asp 1. Mở file forum_ posts.asp a.1. Tìm dòng code <tr class="<% = strPostTableRowClass. 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