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

Bài 1: Việt hóa 1. Down code Wwf 8.03 Thông tin đăng nhập:  Username: admin  Password: admin 2. Mở file browser_page_encoding_inc.asp a.1. Tìm dòng code Const strPageEncoding = "iso-8859-1" a.2. Thay thế bằng 'Const strPageEncoding = "iso-8859-1" b.1. Tìm dòng code 'Const strPageEncoding = "utf-8" b.2. Thay thế bằng Const strPageEncoding = "utf-8" 3. Mở file common.asp a.1. Tìm dòng code Server.ScriptTimeout = 90 Session.Timeout = 20 a.2. Thêm xuống dưới Session.Codepage=65001 4. Mở file footer.asp a.1. Tìm dòng code a.2. Thêm lên trên Simpo PDF Merge and Split Unregistered Version - <A target=_blank HREF="""">" & strWebsiteName & " - Website của những người đam mê lập trình ASP"%> Xem tốt nhất với IE 6.0, độ phân giải màn hình 800x600 pixelsDeveloped by <A target=_blank HREF="""">Hoai An Net"%> 5. Mở file admin_footer_inc.asp a.1. Tìm dòng code a.2. Thêm lên trên 6. Tạo file ha_language_file_inc.asp trong thư mục language_files có nội dung <% Const strTxtAuto = "Tự động" Const strTxtTELEX = "TELEX" Const strTxtVNI = "VNI" Const strTxtVIQR = "VIQR" Const strTxtOff = "Tắt" Const strTxtRemember = "Ghi nhớ" %> 7. Mở file language_file_inc.asp a.1. Tìm dòng code Simpo PDF Merge and Split Unregistered Version - Const strTxtSecurityCodeDidNotMatch2 = "The Security Code entered did not match that displayed." %> a.2. Thêm xuống dưới 8. Copy thư mục Viettyping vào website của bạn (wwf) 9. Copy file clock vào website của bạn (wwf) 10. Down Unikey 3.63, sau khi install xong, chọn bảng mã là NCR Decimal a.1. Hình vẽ a.2. Mở file language_file_inc.asp a.1.1. Tìm dòng code Const strTxtWelcome = "Welcome" a.1.2. Thay thế bằng Const strTxtWelcome = "Chào mừng" a.1.3. Việc thay thế ở đây chính là việc bạn nhập chữ “Chào mừng” thay cho chữ “Welcome” theo kiểu gõ bạn đang chọn bằng bảng mã NCR Decimal mà bạn đã chọn ở trên. Nó tự động hiện ra chữ "Chào mừng" a.1.4. Làm tương tự cho các dòng còn lại trong file này và các file khác trong thư mục language_files Simpo PDF Merge and Split Unregistered Version - Bài 2: Giới tính 1. Mở table wwForum.mdb a.1. Mở tblAuthor, thêm trường: Sex, kiểu: Yes/No, giá trị default: True a.2. Hình vẽ 2. Mở file register.asp a.1. Tìm dòng code Dim strAdminNotes 'Holds admin/modertor info/notes about the user a.2. Thêm xuống dưới Dim blnSex 'Holds the member Sex b.1. Tìm dòng code blnConfirmPassOK = true b.2. Thêm xuống dưới blnSex = true c.1. Tìm dòng code blnShowEmail = CBool(Request.Form("emailShow")) c.2. Thêm xuống dưới Simpo PDF Merge and Split Unregistered Version - blnSex = CBool(Request.Form("sex")) d.1. Tìm dòng code .Fields("Show_email") = blnShowEmail d.2. Thêm xuống dưới .Fields("Sex") = blnSex e.1. Tìm dòng code blnShowEmail = CBool(rsCommon("Show_email")) e.2. Thêm xuống dưới blnSex = CBool(rsCommon("Sex")) f.1. Tìm dòng code <% f.2. Thêm lên trên    <img border="0" src="forum_images/mod/male.gif">  <% = strTxtMale %>  <input type="radio" name="sex" value="True" <% If blnSex = True Then Response.Write "checked" %> checked>      <img border="0" src="forum_images/mod/female.gif">  <% = strTxtFemale %>  <input type="radio" name="sex" value="False" <% If blnSex = False Then Response.Write "checked" %> /> 3. Mở file ha_language_file_inc.asp a.1. Tìm dòng code Const strTxtRemember = "Ghi nhớ" Simpo PDF Merge and Split Unregistered Version - a.2. Thêm xuống dưới Const strTxtSex = "Giới tính" Const strTxtMale = "Nam" Const strTxtFemale = "Nữ" 4. Mở file member_profile.asp a.1. Tìm dòng code Dim blnAccSuspended 'Holds if the user account is suspended a.2. Thêm xuống dưới Dim strSex 'Hold the sex of member b.1. Tìm dòng code strEmail = rsCommon("Author_email") b.2. Thêm xuống dưới strSex = CBool(rsCommon("Sex")) c.1. Tìm dòng code : <% If strInterests = "" OR IsNull(strInterests) Then Response.Write(strTxtNotGiven) Else Response.Write(strInterests) %> c.2. Thêm xuống dưới : <% If strSex = True Then Response.Write("<img src='forum_images/mod/male.gif'>") Else Response.Write("<img src='forum_images/mod/female.gif'>") %> 5. Mở file forum_posts.asp a.1. Tìm dòng code Dim strForumPassword 'Holds the forum password Simpo PDF Merge and Split Unregistered Version - a.2. Thêm xuống dưới Dim strSex 'Hold the sex of member b.1. Tìm dòng code & "Author.Avatar_title, " b.2. Thêm xuống dưới & strDbTable & "Author.Sex, " c.1. Tìm dòng code '16 = tblGroup.Name, '17 = tblGroup.Stars, '18 = tblGroup.Custom_stars '19 = tblGuestName.Name c.2. Thay thế bằng '16 = tblAuthor.Sex, '17 = tblGroup.Name, '18 = tblGroup.Stars, '19 = tblGroup.Custom_stars '20 = tblGuestName.Name d.1. Tìm dòng code '16 = tblGroup.Name, '17 = tblGroup.Stars, '18 = tblGroup.Custom_stars '19 = tblGuestName.Name d.2. Thay thế bằng '16 = tblAuthor.Sex, '17 = tblGroup.Name, '18 = tblGroup.Stars, '19 = tblGroup.Custom_stars '20 = tblGuestName.Name e.1. Tìm dòng code strGroupName = sarryPosts(16,intCurrentRecord) Simpo PDF Merge and Split Unregistered Version - intRankStars = CInt(sarryPosts(17,intCurrentRecord)) intRankStars = CInt(sarryPosts(17,intCurrentRecord)) strGuestUsername = sarryPosts(19,intCurrentRecord) e2. Thay thế bằng strSex = sarryPosts(16,intCurrentRecord) strGroupName = sarryPosts(17,intCurrentRecord) intRankStars = CInt(sarryPosts(18,intCurrentRecord)) strRankCustomStars = sarryPosts(19,intCurrentRecord) strGuestUsername = sarryPosts(20,intCurrentRecord) f.1. Tìm dòng code Response.Write(vbCrLf & " " & strTxtJoined & ": " & DateFormat(dtmAuthorRegistration)) f.2. Thêm xuống dưới 'Show the sex Response.Write(vbCrLf & " " & strTxtSex & ": ") If strSex = True then strSex = "" Elseif strSex = False then strSex = "" End If Response.Write(vbCrLf & strSex) 6. Copy thư mục sex vào thư mục forum_images Simpo PDF Merge and Split Unregistered Version - Bài 3: Chào mừng 1. Mở file ha_language_file_inc.asp a.1. Tìm dòng code Const strTxtFemale = "Nữ" a.2. Thêm xuống dưới Const strTxtWelcomeHA = "Chào mừng bạn đến với Cộng đồng ASP Việt Nam" Const strTxtWelcomeDetail1 = "Nếu là lần đầu tiên bạn duyệt Diễn đàn này, hãy click chuột vào" Const strTxtWelcomeDetail2 = "để xem hướng dẫn. Bạn nên" Const strTxtWelcomeDetail3 = "trước khi gửi bài. Để xem các bài viết, hãy chọn các Diễn đàn mà bạn muốn ở bên dưới. " 2. Mở file default.asp a.1. Tìm dòng code vbCrLf & " ") End If %> a.2. Thêm xuống dưới <table cellspacing="1" cellpadding="3" class="tableBorder" align="center"> + + Simpo PDF Merge and Split Unregistered Version - <% = strTxtWelcomeDetail1 %> <% = strTxtHelp %> <a href="registration_rules.asp?FID=0"> Bài 4: Thành viên tích cực – thành viên mới – chủ đề mới – bài viết mới 1. Mở file ha_language_file_inc.asp a.1. Tìm dòng code Const strTxtWelcomeDetail3 = "trước khi gửi bài. Để xem các bài viết, hãy chọn các Diễn đàn mà bạn muốn ở bên dưới. " a.2. Thêm xuống dưới Const strTxtBestMember = "Thành viên tích cực" Const strTxtNewMember = "Thành viên mới" Const strTxtLastNewTopic = "Chủ đề mới" Const strTxtLastNewPost = "Bài viết mới" Const strTxtNoMember = "Không có Thành viên nào cả" Const strTxtNoTopic = "Không có Chủ đề nào cả" Const strTxtNoPost = "Không có Bài viết nào cả" Simpo PDF Merge and Split Unregistered Version - 2. Mở file default.asp a.1. Tìm dòng code 'Clean up Call closeDatabase() a.2. Thay thế bằng 'Clean up 'Call closeDatabase() b.1. Tìm dòng code %> <table class="basicTable" border="0" cellspacing="0" cellpadding="2" align="center" style="width:550px;"> b.2. Thêm lên trên 'Clean up Set rsCommon = Nothing Call closeDatabase() c.1. Tìm dòng code <% = strTxtWelcomeDetail1 %> <% = strTxtWelcomeDetail2 %> <a href="registration_rules.asp?FID=0"> c.2. Thêm xuống dưới <table cellspacing="1" cellpadding="3" class="tableBorder" align="center"> Simpo PDF Merge and Split Unregistered Version - + + + + + <% = strTxtLastNewTopic %> + + <% = strTxtLastNewPost %> + <% strSQL = "SELECT TOP 10 " & strDbTable & "Author.Username, " & strDbTable & "Author.Author_ID , " & strDbTable & "Author.No_of_posts " & _ "FROM " & strDbTable & "Author" & strDBNoLock & " " & _ "WHERE " & strDbTable & "Author.No_of_posts > 0 " & _ "ORDER BY " & strDbTable & "Author.No_of_posts DESC;" 'Query the database rsCommon.Open strSQL, adoCon, 3, 3 if rsCommon.RecordCount > 0 then For intLoop = 1 To rsCommon.RecordCount if rsCommon.EOF then exit For if Len(intLoop) < 2 then intLoop = 0 & intLoop Response.Write intLoop & ". <A HREF=""member_profile.asp?PF=" & rsCommon("Author_ID") & " & rsCommon("Username") & " [" & strTxtPosts & ": " & rsCommon("No_of_posts") & "]" rsCommon.MoveNext Next else Simpo PDF Merge and Split Unregistered Version - Response.Write(vbCrLf & "<img src=" & strImagePath & "moved_icon.gif border=0> " & strTxtNoMember) end if 'Clean up rsCommon.close %> <% strSQL = "SELECT TOP 10 " & strDbTable & "Author.Username, " & strDbTable & "Author.Author_ID , " & strDbTable & "Author.No_of_posts " & _ "FROM " & strDbTable & "Author" & strDBNoLock & " " & _ "WHERE " & strDbTable & "Author.Author_ID > 2 " & _ "ORDER BY " & strDbTable & "Author.Author_ID DESC;" 'Query the database rsCommon.Open strSQL, adoCon, 3, 3 if rsCommon.RecordCount > 0 then For intLoop = 1 To rsCommon.RecordCount if rsCommon.EOF then exit For if Len(intLoop) < 2 then intLoop = 0 & intLoop Response.Write intLoop & ". <A HREF=""member_profile.asp?PF=" & rsCommon("Author_ID") & """>" & rsCommon("Username") & " [" & strTxtPosts & ": " & rsCommon("No_of_posts") & "]" rsCommon.MoveNext Next else Response.Write(vbCrLf & "<img src=" & strImagePath & "moved_icon.gif border=0> " & strTxtNoMember) Simpo PDF Merge and Split Unregistered Version - end if 'Clean up rsCommon.close %> <% strSQL = "SELECT TOP 10 " & strDbTable & "Topic.Topic_ID, " & strDbTable & "Topic.Subject , " & strDbTable & "Topic.No_of_replies " & _ "FROM " & strDbTable & "Topic" & strDBNoLock & " " & _ "ORDER BY " & strDbTable & "Topic.Topic_ID DESC;" 'Query the database rsCommon.Open strSQL, adoCon, 3, 3 if rsCommon.RecordCount > 0 then For intLoop = 1 To rsCommon.RecordCount if rsCommon.EOF then exit For if Len(intLoop) < 2 then intLoop = 0 & intLoop Response.Write intLoop & ". <A HREF=""forum_posts.asp?TID=" & rsCommon("Topic_ID") & """>" & Left(rsCommon("Subject"), 20) & " [" & strTxtReplies & ": " & rsCommon("No_of_replies") & "]" rsCommon.MoveNext Next else Response.Write(vbCrLf & "<img src=" & strImagePath & "moved_icon.gif border=0> " & strTxtNoTopic) end if 'Clean up Simpo PDF Merge and Split Unregistered Version - rsCommon.close %> <% strSQL = "SELECT TOP 10 " & strDbTable & "Topic.Topic_ID, " & strDbTable & "Topic.Subject , " & strDbTable & "Topic.No_of_replies, " & strDbTable & "Topic.Last_Thread_ID, " & strDbTable & "Thread.Message, " & strDbTable & "Thread.Message_date, " & strDbTable & "Thread.Thread_ID " & _ "FROM " & strDbTable & "Topic" & strDBNoLock & "," & strDbTable & "Thread" & strDBNoLock & " " & _ "WHERE " & strDbTable & "Topic.Last_Thread_ID = " & strDbTable & "Thread.Thread_ID " & _ "ORDER BY " & strDbTable & "Topic.Last_Thread_ID DESC;" 'Query the database rsCommon.Open strSQL, adoCon, 3, 3 if rsCommon.RecordCount > 0 then For intLoop = 1 To rsCommon.RecordCount if rsCommon.EOF then exit For if Len(intLoop) < 2 then intLoop = 0 & intLoop Response.Write intLoop & ". <A TITLE=""" & removeHTML(rsCommon("Message"), 150, true) & """ HREF=""forum_posts.asp?TID=" & rsCommon("Topic_ID") & "&get=last#" & rsCommon("Thread_ID") & """>" & Left(rsCommon("Subject"), 20) & " [" & strTxtReplies & ": " & rsCommon("No_of_replies") & "]" rsCommon.MoveNext Next else Response.Write(vbCrLf & "<img src=" & strImagePath & "moved_icon.gif border=0> " & strTxtNoTopic) Simpo PDF Merge and Split Unregistered Version - end if 'Clean up rsCommon.close %> Simpo PDF Merge and Split Unregistered Version - Bài 5: Quảng cáo 1. Mở file ha_language_file_inc.asp a.1. Tìm dòng code Const strTxtNoPost = "Không có Bài viết nào cả" a.2. Thêm xuống dưới Const strTxtAdv = "Dành cho Quảng cáo" 2. Mở file default.asp a.1. Tìm dòng code a.2. Thêm lên trên <table cellspacing="1" cellpadding="3" class="tableBorder" align="center"> + + <img src="forum_images/adv/qc.gif" width="468" height="60" border="0"> 3. Copy thư mục adv vào thư mục forum_images Bài 6: Sắp xếp lại trang default.asp 1. Hình vẽ Simpo PDF Merge and Split Unregistered Version - 2. Mở file default.asp a.1. Tìm dòng code <% = strTxtNoForums %> a.2. Thay thế bằng Simpo PDF Merge and Split Unregistered Version -   <% = strTxtNoForums %> b.1. Tìm dòng code <% b.2. Thay thế bằng   <% c.1. Tìm dòng code Response.Write vbCrLf & " <td colspan=""5""><a href=""default.asp?C=" & intCatID & strQsSID2 & """>" & strCategory & "" c.2. Thay thế bằng Response.Write vbCrLf & " <td colspan=""6""><a href=""default.asp?C=" & intCatID & strQsSID2 & """>" & strCategory & "" d.1. Tìm dòng code If strSubForums "" Then strSubForums = strSubForums & ", " d.2. Thay thế bằng If strSubForums "" Then strSubForums = strSubForums e.1. Tìm dòng code Simpo PDF Merge and Split Unregistered Version - strSubForums = strSubForums & "<a href=""forum_topics.asp?FID=" & intSubForumID & strQsSID2 & """ class=""smLink"">" & strSubForumName & "" e.2. Thay thế bằng strSubForums = strSubForums & "<img src=""" & strImagePath & "mod/folder_line.gif"" border=""0"" align=""absmiddle""> <a href=""forum_topics.asp?FID=" & intSubForumID & strQsSID2 & """ class=""smLink"">" & strSubForumName & "" f.1. Tìm dòng code vbCrLf & " " & lngNumberOfTopics & "" & _ vbCrLf & " " & lngNumberOfPosts & "" & _ vbCrLf & " ") If lngNumberOfPosts 0 Then 'Don't disply last post details if there are none Response.Write(DateFormat(dtmLastEntryDate) & " " & strTxtAt & " " & TimeFormat(dtmLastEntryDate) & "" & _ "" & strTxtBy & " <a href=""member_profile.asp?PF=" & lngLastEntryUserID & strQsSID2 & """ class=""smLink"">" & strLastEntryUser & " <a href=""get_last_post.asp?FID=" & intLastForumEntryID & strQsSID2 & """><img src=""" & strImagePath & "right_arrow.gif"" align=""absmiddle"" border=""0"" alt=""" & strTxtViewLastPost & """ />") End If Response.Write("" & _ f.2. Thay thế bằng vbCrLf & " ") If lngNumberOfPosts 0 Then 'Don't disply last post details if there are none Response.Write(DateFormat(dtmLastEntryDate) & Simpo PDF Merge and Split Unregistered Version - " " & strTxtAt & " " & TimeFormat(dtmLastEntryDate) & "" & _ "" & strTxtBy & " <a href=""member_profile.asp?PF=" & lngLastEntryUserID & strQsSID2 & """ class=""smLink"">" & strLastEntryUser & " <a href=""get_last_post.asp?FID=" & intLastForumEntryID & strQsSID2 & """><img src=""" & strImagePath & "right_arrow.gif"" align=""absmiddle"" border=""0"" alt=""" & strTxtViewLastPost & """ />") End If Response.Write("" & _ vbCrLf & " " & lngNumberOfTopics & "" & _ vbCrLf & " " & lngNumberOfPosts & "") %> " target="_self"><img src="<% = strImagePath %>mod/icon_post.gif" border="0" align="absmiddle" alt="<% = strTxtNewTopic %>"> " target="_self"><img src="<% = strImagePath %>mod/icon_search.gif" border="0" align="absmiddle" alt="<% = strTxtSearch %>"> <% Response.Write(vbCrLf & " ") 3. Copy file icon vào thư mục forum_images/mod Simpo PDF Merge and Split Unregistered Version - Bài 7: Thay skin 1. Hình vẽ 2. Copy images đè lên các file trong thư mục forum_images 3. Copy default_style vào thư mục css_styles Bài 8: Music 1. Mở file functions_format_post.asp a.1. Tìm dòng code 'Return the function searchHighlighter = strTempMessage Simpo PDF Merge and Split Unregistered Version - End Function a.2. Thêm xuống dưới Function formatWMAPL(ByVal strMessage) 'Declare variables Dim lngStartPos 'Holds search start postions Dim lngEndPos 'Holds end start postions Dim saryWMAAttributes 'Holds the features of the input WMA file Dim intAttrbuteLoop 'Holds the attribute loop counter Dim strWMAWidth 'Holds the string value of the width of the WMA file Dim intWMAWidth 'Holds the interger value of the width of the WMA file Dim strWMAHeight 'Holds the string value of the height of the WMA file Dim intWMAHeight 'Holds the interger value of the height of the WMA file Dim strBuildWMALink 'Holds the converted BBcode for the WMA file Dim strTempWMAMsg 'Tempoary store for the BBcode Dim strWMALink 'Holds the link to the WMA file 'Loop through all the codes in the message and convert them to formated WMA links Do While InStr(1, strMessage, "[MUSIC", 1) > 0 AND InStr(1, strMessage, "[/MUSIC]", 1) > 0 'Initiliase variables intWMAWidth = 300 Simpo PDF Merge and Split Unregistered Version - intWMAHeight = 300 strWMALink = "" strBuildWMALink = "" strTempWMAMsg = "" 'Get the WMA BBcode from the message lngStartPos = InStr(1, strMessage, "[MUSIC", 1) lngEndPos = InStr(lngStartPos, strMessage, "[/MUSIC]", 1) + 8 'Make sure the end position is not in error If lngEndPos < lngStartPos Then lngEndPos = lngStartPos + 6 'Get the original WMA BBcode from the message strTempWMAMsg = Trim(Mid(strMessage, lngStartPos, lngEndPos-lngStartPos)) 'Get the start and end in the message of the attributes of the WMA file lngStartPos = InStr(1, strTempWMAMsg, "[MUSIC", 1) + 6 lngEndPos = InStr(lngStartPos, strTempWMAMsg, "]", 1) 'Make sure the end position is not in error If lngEndPos < lngStartPos Then lngEndPos = lngStartPos Simpo PDF Merge and Split Unregistered Version - 'If there is something returned get the details (eg. dimensions) of the WMA file If strTempWMAMsg "" Then 'Place any attributes for the WMA file in an array saryWMAAttributes = Split(Trim(Mid(strTempWMAMsg, lngStartPos, lngEndPos- lngStartPos)), " ") 'Get the dimensions of the WMA file 'Loop through the array of atrributes that are for the falsh file to get the dimentions For intAttrbuteLoop = 0 To UBound(saryWMAAttributes) 'If this is the width attribute then read in the width dimention If InStr(1, saryWMAAttributes(intAttrbuteLoop), "WIDTH=", 1) Then 'Get the width dimention strWMAWidth = Replace(saryWMAAttributes(intAttrbuteLoop), "WIDTH=", "", 1, -1, 1) 'Make sure we are left with a numeric number if so convert to an interger and place in an interger variable If isNumeric(strWMAWidth) Then intWMAWidth = CInt(strWMAWidth) End If 'If this is the height attribute then read in the height dimention Simpo PDF Merge and Split Unregistered Version - If InStr(1, saryWMAAttributes(intAttrbuteLoop), "HEIGHT=", 1) Then 'Get the height dimention strWMAHeight = Replace(saryWMAAttributes(intAttrbuteLoop), "HEIGHT=", "", 1, -1, 1) 'Make sure we are left with a numeric number if so convert to an interger and place in an interger variable If isNumeric(strWMAHeight) Then intWMAHeight = CInt(strWMAHeight) End If Next 'Get the link to the WMA file lngStartPos = InStr(1, strTempWMAMsg, "]", 1) + 1 lngEndPos = InStr(lngStartPos, strTempWMAMsg, "[/MUSIC]", 1) 'Make sure the end position is not in error If lngEndPos < lngStartPos Then lngEndPos = lngStartPos + 8 'Read in the code to be converted into a hyperlink from the message strWMALink = Trim(Mid(strTempWMAMsg, lngStartPos, (lngEndPos - lngStartPos))) Simpo PDF Merge and Split Unregistered Version - 'Build the HTML for the displying of the WMA file If strWMALink "" Then '=========================================== =========================== strBuildWMALink="<object id=""mediaPlayer"" height="& intWMAHeight &" width="& intWMAWidth &" classid=""clsid:6BF52A52-394A-11d3-B153- 00C04F79FAA6"" name=""mediaPlayer"" valign=""top"" bgcolor=#000000>" & _ "<param NAME=""URL"" VALUE="""& strWMALink &""">"& _ "<PARAM NAME=""ShowStatusBar"" VALUE=""-1"">"& _ "<param NAME=""rate"" VALUE=""1"">"& _ "<param NAME=""balance"" VALUE=""0"">"& _ "<param NAME=""currentPosition"" VALUE=""0"">"& _ "<param NAME=""defaultFrame"" VALUE>"& _ "<param NAME=""playCount"" VALUE=""100"">"& _ "<param NAME=""autoStart"" VALUE=""0"">"& _ "<param NAME=""currentMarker"" VALUE=""0"">"& _ "<param NAME=""invokeURLs"" VALUE=""-1"">"& _ "<param NAME=""baseURL"" VALUE>"& _ "<param name=""BufferingTime"" value=""5"">"& _ "<param NAME=""volume"" VALUE=""100"">"& _ Simpo PDF Merge and Split Unregistered Version - "<param NAME=""mute"" VALUE=""0"">"& _ "<param NAME=""uiMode"" VALUE=""full"">"& _ "<param NAME=""stretchToFit"" VALUE=""0"">"& _ "<param NAME=""windowlessVideo"" VALUE=""0"">"& _ "<param NAME=""enabled"" VALUE=""-1"">"& _ "<param NAME=""enableContextMenu"" VALUE=""0"">"& _ "<param NAME=""fullScreen"" VALUE=""0"">"& _ "<param NAME=""SAMIStyle"" VALUE>"& _ "<param NAME=""SAMILang"" VALUE>"& _ "<param NAME=""SAMIFilename"" VALUE>"& _ "<param NAME=""captioningID"" VALUE>"& _ "<param NAME=""enableErrorDialogs"" VALUE=""0"">"& _ "<param NAME=""_cx"" VALUE=""7541"">"& _ "<param NAME=""_cy"" VALUE=""1058"">"& _ "" End If End If Simpo PDF Merge and Split Unregistered Version - 'Replace the WMA codes in the message with the new formated WMA link If strBuildWMALink "" Then strMessage = Replace(strMessage, strTempWMAMsg, strBuildWMALink, 1, -1, 1) Else strMessage = Replace(strMessage, strTempWMAMsg, Replace(strTempWMAMsg, "[", "[", 1, - 1, 1), 1, -1, 1) End If Loop 'Return the function formatWMAPL= strMessage End Function 2. Mở file forum_posts.asp a.1. Tìm dòng code If blnFlashFiles Then If InStr(1, strMessage, "[FLASH", 1) > 0 AND InStr(1, strMessage, "[/FLASH]", 1) > 0 Then strMessage = formatFlash(strMessage) If InStr(1, strAuthorSignature, "[FLASH", 1) > 0 AND InStr(1, strAuthorSignature, "[/FLASH]", 1) > 0 Then strAuthorSignature = formatFlash(strAuthorSignature) End If a.2. Thêm xuống dưới If InStr(1, strMessage, "[MUSIC", 1) > 0 AND InStr(1, strMessage, "[/MUSIC]", 1) > 0 Then strMessage = formatWMAPL(strMessage) End If 3. Mở file forum_codes.asp a.1. Tìm dòng code If blnFlashFiles Then Simpo PDF Merge and Split Unregistered Version - %> [FLASH WIDTH=50 HEIGHT=50][/FLASH] <% End If a.2. Thay thế bằng If blnFlashFiles Then %> [FLASH WIDTH=150 HEIGHT=150][/FLASH] Simpo PDF Merge and Split Unregiste