Code lập trình - Bài 9, 10, 11 & 12 doc

Bài 9: Số bài viết trung bình mỗi ngày Tác giả: Phan Hồng Phúc (phucorcl@yahoo.com) 1. Mở file forum_posts.asp a.1. Tìm dòng code Response.Write(vbCrLf & " <br />" & strTxtPosts & ": " & lngAuthorNumOfPosts) a.2. Thay thế bằng Response.Write("<br />" & strTxtPosts & ": ") %> <% = lngAuthorNumOfPosts %> <% If lngAuthorNumOfPosts > 0 AND DateDiff("d", dtmAuthorRegistration, Now()) > 0 Then Response.Write(" [" & FormatNumber(lngAuthorNumOfPosts / DateDiff("d", dtmAuthorRegistration, Now()), 2) & " " & strTxtPostsPerDay) & "]" %> <% Bài 10: Kinh nghiệm Tác giả: Phan Hồng Phúc (phucorcl@yahoo.com) 1. Mở file forum_posts.asp a.1. Tìm dòng code Dim strSex 'Hold the sex of member a.2. Thêm xuống dưới Dim lngExp, lngAuthorNumOfPostsExp, rsPostExp lngAuthorNumOfPostsExp = 0 Set rsPostExp = Server.CreateObject("ADODB.Recordset") strSQL = "SELECT " & strDbTable & "Author.No_of_posts " strSQL = strSQL & "FROM " & strDbTable & "Author; " 'Set the cursor type property of the record set to dynamic so we can naviagate through the record set rsPostExp.CursorType = 1 'Query the database rsPostExp.Open strSQL, adoCon Do While NOT rsPostExp.EOF lngAuthorNumOfPostsExp = lngAuthorNumOfPostsExp + CLng(rsPostExp("No_of_posts")) rsPostExp.MoveNext Loop rsPostExp.Close() Set rsPostExp = Nothing b.1. Tìm dòng code Response.Write("<br />" & strTxtPosts & ": ") %> <% = lngAuthorNumOfPosts %> <% If lngAuthorNumOfPosts > 0 AND DateDiff("d", dtmAuthorRegistration, Now()) > 0 Then Response.Write(" [" & FormatNumber(lngAuthorNumOfPosts / DateDiff("d", dtmAuthorRegistration, Now()), 2) & " " & strTxtPostsPerDay) & "]" %> <% b.2. Thêm xuống dưới Response.Write("<br />" & strTxtExp & ": ") lngExp = FormatPercent(lngAuthorNumOfPosts/lngAuthorNumOfPostsExp,2) %> <img src="<% = strImagePath %>bar_graph_image.gif" width="<% = CInt(Replace(CStr(lngExp), "%", "", 1, -1, 1)) * 2 %>" height="11" align="middle"> [<% = lngExp %>] <% Bài 11: Nút Music – Flash Tác giả: Phan Hồng Phúc (phucorcl@yahoo.com) 1. Tạo file RTE_function.asp trong thư mục RTE_configuration có nội dung //Add by flash, music,real, math by congmanh1981@yahoo.com function paste_embed(type){ var url = prompt("Enter url:", "http://"); if (url !="" && url !="http://" && url != null){ var emwidth = prompt("Width:", "300"); var emheight = prompt("height:", "300"); if (type == "flash") { url = "[FLASH WIDTH=" + emwidth + " HEIGHT=" + emheight + "]" + url + "[/FLASH]"; } if (type == "media") { url = "[MUSIC WIDTH=" + emwidth + " HEIGHT=" + emheight + "]" + url + "[/MUSIC]"; } FormatText("paste", url); } } 2. Mở file RTE_javascript.asp a.1. Tìm dòng code <! #include file="RTE_configuration/RTE_setup.asp" > a.2. Thêm xuống dưới <! #include file="RTE_configuration/RTE_function.asp" > 3. Mở file RTE_quick_reply_toolbar_inc.asp a.1. Tìm dòng code Response.Write("');") End If a.2. Thêm xuống dưới Response.Write(vbCrLf & " document.writeln('<img src=""" & strImagePath & "toolbar_separator.gif"" align=""absmiddle"">") Response.Write("<img src=""" & strImagePath & " mod/post_button_flash.gif"" align=""absmiddle"" border=""0"" onClick=""paste_embed(\'flash\')"" title=""" & strTxtAddFlash & """ class=""WebWizRTEbutton"" onmouseover=""overIcon(this)"" onmouseout=""outIcon(this)"">") Response.Write("<img src=""" & strImagePath & " mod/post_button_media.gif"" align=""absmiddle"" border=""0"" onClick=""paste_embed(\'media\')"" title=""" & strTxtAddMedia & """ class=""WebWizRTEbutton"" onmouseover=""overIcon(this)"" onmouseout=""outIcon(this)"">") Response.Write("');") 4. Mở file RTE_toolbar_inc.asp a.1. Tìm dòng code If blnOrderList OR blnUnOrderList OR blnOutdent OR blnIndent Or blnHorizontalRule Then Response.Write("');") a.2. Thêm xuống dưới Response.Write(vbCrLf & " document.writeln('<img src=""" & strImagePath & "toolbar_separator.gif"" align=""absmiddle"">") Response.Write("<img src=""" & strImagePath & " mod/post_button_flash.gif"" align=""absmiddle"" border=""0"" onClick=""paste_embed(\'flash\')"" title=""" & strTxtAddFlash & """ class=""WebWizRTEbutton"" onmouseover=""overIcon(this)"" onmouseout=""outIcon(this)"">") Response.Write("<img src=""" & strImagePath & "mod/post_button_media.gif"" align=""absmiddle"" border=""0"" onClick=""paste_embed(\'media\')"" title=""" & strTxtAddMedia & """ class=""WebWizRTEbutton"" onmouseover=""overIcon(this)"" onmouseout=""outIcon(this)"">") Response.Write("');") 5. Mở file ha_language_file_inc.asp a.1. Tìm dòng code Const strTxtExp = "Kinh nghi&#7879;m" a.2. Thêm xuống dưới Const strTxtAddFlash = "Ho&#7841;t h&#236;nh Flash" Const strTxtAddMedia = "Nh&#7841;c Media" 6. Copy file music vào thư mục forum_images/mod Bài 12: Bài viết cuối theo từng Diễn đàn Tác giả: Phan Hồng Phúc (phucorcl@yahoo.com) 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 />")  . align=""absmiddle"" border=""0"" onClick=""paste_embed('media')"" title=""" & strTxtAddMedia & """. align=""absmiddle"" border=""0"" onClick=""paste_embed('media')"" title=""" & strTxtAddMedia & """. = "<a href=""forum_posts.asp?TID=" & rsCommon("Topic_ID") & strQsSID2 & """>" & rsCommon("Subject") & "</a>"