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

Chia sẻ: Szfasf Fadsfs | Ngày: | Loại File: PDF | Số trang:7

Thêm vào BST

Báo xấu

96
lượt xem 13
download

Download Vui lòng tải xuống để xem tài liệu đầy đủ

Bài 12: Bài viết cuối theo từng Diễn đàn 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

Chủ đề:

Bình luận(0) Đăng nhập để gửi bình luận!

Lưu

Nội dung Text: Hướng dẫn thiết kế : Thiết kế Forum nhanh chóng và đơn giản phần 6

Bài 12: Bài viết cuối theo từng Diễn đàn 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 = "" & rsCommon("Subject") & "" else strSubject = "" End If rsCommon.Close Response.Write(strSubject & "") Bài 13: Bạn có gửi bài/không g ửi bài theo từng Chủ đề
1. Tạo file participated_inc.asp trong thư mục inlcudes có nội dung 2. Mở file active_topics.asp a.1. Tìm dòng code
If blnAdmin OR blnModerator Then Response.Write("") a.2. Thêm xuống d ưới Response.Write(vbCrLf) %>
Bài 14: Sắp xếp bài viết trong từng Box cho việc hiển thị 1. Hình vẽ 2. Tạo file form_sort_inc.asp trong thư mục inlcudes có nội dung
3. Mở file forum_topics.asp a.1. Tìm dòng code %> a.2. Thay thế bằng %> 4. Mở file ha_language_file_inc.asp a.1. Tìm dòng code Const strTxtYouHaveNot = "Bạn không có gửi bài" a.2. Thêm xuống d ưới Const strTxtSortBy = "Sắp xếp theo" Const strTxtOrderBy = "chiều"
Const strTxtASC = "Tăng dần" Const strTxtDESC = "Giảm dần" Const strTxtResult = "Kết quả"