Xem mẫu

  1. Simpo PDF Merge and Split Unregistered Version - http://www.simpopdf.com Bài 1: Việt hóa Hướng dẫn thiết kế : Thiết kế Forum nhanh chóng và đơn giản 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
  2. Simpo PDF Merge and Split Unregistered Version - http://www.simpopdf.com 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 7. Mở file language_file_inc.asp a.1. Tìm dòng code
  3. Simpo PDF Merge and Split Unregistered Version - http://www.simpopdf.com 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
  4. Simpo PDF Merge and Split Unregistered Version - http://www.simpopdf.com 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
  5. Simpo PDF Merge and Split Unregistered Version - http://www.simpopdf.com 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
  6. Simpo PDF Merge and Split Unregistered Version - http://www.simpopdf.com 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 : c.2. Thêm xuống d ưới : 5. Mở file forum_posts.asp a.1. Tìm dòng code Dim strForumPassword 'Holds the forum password
  7. Simpo PDF Merge and Split Unregistered Version - http://www.simpopdf.com 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)
  8. Simpo PDF Merge and Split Unregistered Version - http://www.simpopdf.com 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
  9. Simpo PDF Merge and Split Unregistered Version - http://www.simpopdf.com 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 + +
  10. Simpo PDF Merge and Split Unregistered Version - http://www.simpopdf.com 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ả"
  11. Simpo PDF Merge and Split Unregistered Version - http://www.simpopdf.com 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 %> b.2. Thêm lên trên 'Clean up Set rsCommon = Nothing Call closeDatabase() c.1. Tìm dòng code c.2. Thêm xuống d ưới
  12. Simpo PDF Merge and Split Unregistered Version - http://www.simpopdf.com + + + + + + + +
  13. Simpo PDF Merge and Split Unregistered Version - http://www.simpopdf.com Response.Write(vbCrLf & " " & strTxtNoMember) end if 'Clean up rsCommon.close %>
  14. Simpo PDF Merge and Split Unregistered Version - http://www.simpopdf.com end if 'Clean up rsCommon.close %>
  15. Simpo PDF Merge and Split Unregistered Version - http://www.simpopdf.com rsCommon.close %>
  16. Simpo PDF Merge and Split Unregistered Version - http://www.simpopdf.com end if 'Clean up rsCommon.close %>
  17. Simpo PDF Merge and Split Unregistered Version - http://www.simpopdf.com 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 + + 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ẽ
  18. Simpo PDF Merge and Split Unregistered Version - http://www.simpopdf.com 2. Mở file default.asp a.1. Tìm dòng code a.2. Thay thế bằng
  19. Simpo PDF Merge and Split Unregistered Version - http://www.simpopdf.com   b.1. Tìm dòng code
  20. Simpo PDF Merge and Split Unregistered Version - http://www.simpopdf.com strSubForums = strSubForums & "" & strSubForumName & "" e.2. Thay thế bằng strSubForums = strSubForums & " " & 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 & " " & strLastEntryUser & " ") 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) &
nguon tai.lieu . vn