Xem mẫu

  1. 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ủ đề
  2. 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
  3. If blnAdmin OR blnModerator Then Response.Write("") a.2. Thêm xuống d ưới Response.Write(vbCrLf) %>
  4. 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
  5. 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"
  6. Const strTxtASC = "Tăng dần" Const strTxtDESC = "Giảm dần" Const strTxtResult = "Kết quả"
nguon tai.lieu . vn