Đang chuẩn bị nút TẢI XUỐNG, xin hãy chờ
Tải xuống
Tài liệu tham khảo code lập trình về Bạn có gửi bài/không gửi bài theo từng Chủ đề và sắp xếp bài | Bài 13 Bạn có gửi bài không gửi bài theo từng Chủ đề Tác giả Phan Hồng Phúc phucorcl@yahoo.com 1. Tạo file participated_inc.asp trong thư mục inlcudes có nội dung Dim rsParticipated if lngLoggedInUserID 2 then checks to see if it s a guest -- i m not sure exactly how to check if no user is logged in set rsParticipated server.createobject ADODB.recordset rsParticipated.CursorType 1 rsParticipated.Open select top 1 tblThread.Thread_ID from tblThread where tblThread.Topic_Id lngTopicID AND tblThread.Author_ID lngLoggedInUserlD adoCon if NOT rsParticipated.EOF then a thread was found authored by them and they are not a guest Response.Write img src . forum_images mod topic_read.gif border 0 alt . strTxtYouHavePost . Whatever u need to indicate to the user that he she has participated in the forum else Response.Write img src . forum_images mod topic_not_read.gif border 0 alt . strTxtYouHaveNot . Whatever u need to indicate to the user that he she has participated in the forum end if rsParticipated. close set rsParticipated Nothing end if 1. Mo file active_topics.asp a.1. Tìm dòng code If blnAdmin OR blnModerator Then Response.Write a href javascript winOpener pop_up_topic_admin.asp TID IngTopicID strQsSID2 admin 1 1 480 265 img src . strlmagePath small_admin_icon.gif align absmiddle border 0 alt . strTxtTopicAdmin . a _ a.2. Thêm xuống dưới Response.Write vbCrLf -- include file includes participated_inc.asp -- Response.Write vbCrLf 2. Mở file forum_topics.asp a.1. Tìm dòng code If blnAdmin OR blnModerator Then Response.Write a href javascript winOpener pop_up_topic_admin.asp TID lngTopicID strQsSID2 admin 1 1 480 265 img src . strImagePath small_admin_icon.gif align absmiddle border 0 alt . strTxtTopicAdmin . a _ a.2. Thêm xuống dưới Response.Write vbCrLf -- include file includes participated_inc.asp -- Response.Write vbCrLf 3. Mở file