Xem mẫu
- 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
- 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
- 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
- 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
- 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
- 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
- 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)
- 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
- 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
+ +
- 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ả"
- 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
- Simpo PDF Merge and Split Unregistered Version - http://www.simpopdf.com
+
+
+
+
+ +
+ +
- Simpo PDF Merge and Split Unregistered Version - http://www.simpopdf.com
Response.Write(vbCrLf & " " & strTxtNoMember)
end if
'Clean up
rsCommon.close
%>
- Simpo PDF Merge and Split Unregistered Version - http://www.simpopdf.com
end if
'Clean up
rsCommon.close
%>
- Simpo PDF Merge and Split Unregistered Version - http://www.simpopdf.com
rsCommon.close
%>
- Simpo PDF Merge and Split Unregistered Version - http://www.simpopdf.com
end if
'Clean up
rsCommon.close
%>
- 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ẽ
- 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
- Simpo PDF Merge and Split Unregistered Version - http://www.simpopdf.com
b.1. Tìm dòng code
- 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