Tạo Forum ASP - Bài 16 pot

Bài 16: Độ dài chữ ký 1000 ký tự Tác giả: Phan Hồng Phúc (phucorcl@yahoo.com) 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 Tác giả: Phan Hồng Phúc (phucorcl@yahoo.com) 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 Tác giả: Phan Hồng Phúc (phucorcl@yahoo.com) 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 Bài 19: Sửa RTE phần trả lời nhanh Tác giả: Phan Hồng Phúc (phucorcl@yahoo.com) 1. Hình vẽ 2. Copy file RTE_quick vào website của bạn (wwf) Bài 20: Biểu tượng động Tác giả: Phan Hồng Phúc (phucorcl@yahoo.com) 1. Hình vẽ 2. Mở file message_form_inc.asp a.1. Tìm dòng code 'If emoticons are enabled show them next to the post window If blnEmoticons Then a.2. Thêm xuống dưới Randomize Timer b.1. Tìm dòng code If RTEenabled() <> "false" AND blnRTEEditor AND blnWYSIWYGEditor Then b.2. Thêm lên trên intIndexPosition = int(RND() * UBound(saryEmoticons)) + 1  . " </td></tr>") Bài 18: Nút top – down trong forum_ posts .asp Tác giả: Phan Hồng Phúc (phucorcl@yahoo.com) 1. Mở file forum_ posts .asp a.1. Tìm dòng code <tr class="<%. characters) 2. Mở table wwForum.mdb a.1. Mở tblAuthor, sửa trường: Signature, kiểu: Text -& gt; 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 Tác giả:. file="includes/show _forum_ permissions_inc .asp& quot; ></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