<% @ Language=VBScript %> <% Option Explicit %> <% '**************************************************************************************** '** Copyright Notice '** '** Web Wiz Guide - Web Wiz Forums '** http://www.webwizforums.com '** '** Copyright 2001-2006 Bruce Corkhill All Rights Reserved. '** '** This program is free software; you can modify (at your own risk) any part of it '** under the terms of the License that accompanies this software and use it both '** privately and commercially. '** '** All copyright notices must remain in tacked in the scripts and the '** outputted HTML. '** '** You may use parts of this program in your own private work, but you may NOT '** redistribute, repackage, or sell the whole or any part of this program even '** if it is modified or reverse engineered in whole or in part without express '** permission from the author. '** '** You may not pass the whole or any part of this application off as your own work. '** '** All links to Web Wiz Guide and powered by logo's must remain unchanged and in place '** and must remain visible when the pages are viewed unless permission is first granted '** by the copyright holder. '** '** This program is distributed in the hope that it will be useful, '** but WITHOUT ANY WARRANTY; without even the implied warranty of '** MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE OR ANY OTHER '** WARRANTIES WHETHER EXPRESSED OR IMPLIED. '** '** You should have received a copy of the License along with this program; '** if not, write to:- Web Wiz Guide, PO Box 4982, Bournemouth, BH8 8XP, United Kingdom. '** '** '** No official support is available for this program but you may post support questions at: - '** http://www.webwizguide.info/forum '** '** Support questions are NOT answered by e-mail ever! '** '** For correspondence or non support questions contact: - '** '** Web Wiz Guide, Unit 10E, Dawkins Road Industrial Estate, Poole, Dorset, UK, BH15 4JD '** '**************************************************************************************** 'Set the response buffer to true Response.Buffer = True 'Dimension variables Dim strForumName 'Holds the name of the forum Dim strMemberName 'Holds the name of the forum member Dim lngMemberID 'Holds the ID number of the member Dim intForumID 'Holds the forum ID number Dim intSelGroupID 'Holds the group ID to select Dim iaryForumID 'Holds the forum ID array Dim intCatID 'Holds the cat ID Dim sarryForums Dim intCurrentRecord Dim sarrySubForums Dim intCurrentRecord2 Dim intSubForumID 'Read in the details lngMemberID = CLng(Request("UID")) 'Read in the member name 'Initalise the strSQL variable with an SQL statement to query the database strSQL = "SELECT " & strDbTable & "Author.Username From " & strDbTable & "Author WHERE " & strDbTable & "Author.Author_ID=" & lngMemberID & ";" 'Query the database rsCommon.Open strSQL, adoCon 'Read in the forum name form the recordset If NOT rsCommon.EOF Then 'Read in the forums from the recordset strMemberName = rsCommon("Username") End If 'Release server varaibles rsCommon.Close 'If this is a post back update the database If Request.Form("postBack") Then 'Run through till all checked forums are added For each iaryForumID in Request.Form("chkFID") 'Initalise the strSQL variable with an SQL statement to query the database strSQL = "SELECT " & strDbTable & "Permissions.* From " & strDbTable & "Permissions WHERE " & strDbTable & "Permissions.Forum_ID=" & iaryForumID & " AND " & strDbTable & "Permissions.Author_ID = " & lngMemberID & ";" 'Set the Lock Type for the records so that the record set is only locked when it is updated rsCommon.LockType = 3 'Query the database rsCommon.Open strSQL, adoCon With rsCommon 'If this is a new one add new If rsCommon.EOF Then .AddNew 'Update the recordset .Fields("Forum_ID") = iaryForumID .Fields("Author_ID") = lngMemberID .Fields("View_Forum") = CBool(Request.Form("read")) .Fields("Post") = CBool(Request.Form("post")) .Fields("Reply_posts") = CBool(Request.Form("reply")) .Fields("Edit_posts") = CBool(Request.Form("edit")) .Fields("Delete_posts") = CBool(Request.Form("delete")) .Fields("Priority_posts") = CBool(Request.Form("priority")) .Fields("Poll_create") = CBool(Request.Form("poll")) .Fields("Vote") = CBool(Request.Form("vote")) .Fields("Attachments") = CBool(Request.Form("files")) .Fields("Image_upload") = CBool(Request.Form("images")) .Fields("Moderate") = CBool(Request.Form("moderate")) .Fields("Display_post") = CBool(Request.Form("display")) .Fields("Calendar_event") = CBool(Request.Form("calEvent")) 'Update the database with the new user's details .Update 'Close recordset .close End With Next 'Release server varaibles Call closeDatabase() 'Redirect back to permissions page Response.Redirect("admin_user_permissions.asp?UID=" & lngMemberID) End If %> Üye İzinleri <% '***** START WARNING - REMOVAL OR MODIFICATION OF THIS CODE WILL VIOLATE THE LICENSE AGREEMENT ****** Response.Write("" & vbCrLf & vbCrLf) '***** END WARNING - REMOVAL OR MODIFICATION OF THIS CODE WILL VIOLATE THE LICENSE AGREEMENT ****** %>
Üye İzinleri: <% = strMemberName %>
Kontrol Paneli Menüsü
İzinleri oluşturulacak, düzenlenecek veya silinecek başka bir üye seç

Aşağıdaki formu kullanarak bu üye için forum izinleri oluştur <% = strMemberName %> .
Burada yapacağınız değişiklerden sonra üyenin forumlarda kullandığı gruplara tanımladığınız izinlerin bir önemi kalmaz.

İzinler

Bu kullanıcı için istediğiniz izinleri seçin

Başlıkların anlamları?

Üye Adı Giriş Yeni Konu Sabit Konu Mesaj Cevaplama Mesaj Düzenleme Mesaj Silme Anket Oluşturma Oy Verme Takvime Olay Girme Resim Yükleme Dosya Yükleme Onay Gerekliliği Forum Düzenleme
<% = strMemberName %>

Forumlar
Oluşturmak veya değiştirmek istediğiniz izinleri seçin


<% 'Read in the groups from db 'Initalise the strSQL variable with an SQL statement to query the database strSQL = "SELECT " & strDbTable & "Category.Cat_ID, " & strDbTable & "Category.Cat_name, " & strDbTable & "Forum.Forum_ID, " & strDbTable & "Forum.Forum_name FROM " & strDbTable & "Category, " & strDbTable & "Forum WHERE " & strDbTable & "Category.Cat_ID=" & strDbTable & "Forum.Cat_ID AND " & strDbTable & "Forum.Sub_ID=0 ORDER BY " & strDbTable & "Category.Cat_order ASC, " & strDbTable & "Category.Cat_ID ASC, " & strDbTable & "Forum.Forum_Order ASC;" 'Query the database rsCommon.Open strSQL, adoCon 'Read in the row from the db using getrows for better performance If NOT rsCommon.EOF Then sarryForums = rsCommon.GetRows() End If 'close rsCommon.Close 'If there are results show them If isArray(sarryForums) Then 'Loop round to read in all the forums in the database Do While intCurrentRecord <= Ubound(sarryForums,2) 'Get the forum ID intForumID = CInt(sarryForums(2,intCurrentRecord)) 'If this is a different cat display the cat ID If intCatID <> CInt(sarryForums(0,intCurrentRecord)) Then 'Change the cat ID intCatID = CInt(sarryForums(0,intCurrentRecord)) %> <% End If %> <% '********* check for sub forums ***************** 'Reset intCurrentRecord2 intCurrentRecord2 = 0 'Read in the groups from db 'Initalise the strSQL variable with an SQL statement to query the database strSQL = "SELECT " & strDbTable & "Forum.Forum_ID, " & strDbTable & "Forum.Forum_name FROM " & strDbTable & "Forum WHERE " & strDbTable & "Forum.Sub_ID= " & intForumID & " ORDER BY " & strDbTable & "Forum.Forum_Order ASC;" 'Query the database rsCommon.Open strSQL, adoCon 'Place rs in array If NOT rsCommon.EOF Then sarrySubForums = rsCommon.GetRows() Else sarrySubForums = null End If 'close rsCommon.Close 'Read in the row from the db using getrows for better performance If isArray(sarrySubForums) Then 'Loop round to read in all the forums in the database Do While NOT intCurrentRecord2 > Ubound(sarrySubForums,2) 'Get the forum ID intSubForumID = CInt(sarrySubForums(0,intCurrentRecord2)) %> <% 'Move to the next record in the recordset intCurrentRecord2 = intCurrentRecord2 + 1 Loop End If 'Move to the next record in the recordset intCurrentRecord = intCurrentRecord + 1 Loop End If %>
  Üye Grubu
<% = sarryForums(1,intCurrentRecord) %>
<% = sarryForums(3,intCurrentRecord) %>
  <% = sarrySubForums(1,intCurrentRecord2) %>




Üye İzinleri Görüntüleme: <% = strMemberName %>

Forum izinleri aşağıda görüntülenmektedir <% = strMemberName %> .

Başlıkların anlamları?

<% 'Reset record position holders intCurrentRecord = 0 intCurrentRecord2 = 0 'Read in the groups from db 'Initalise the strSQL variable with an SQL statement to query the database strSQL = "SELECT " & strDbTable & "Category.Cat_ID, " & strDbTable & "Category.Cat_name, " & strDbTable & "Forum.Forum_ID, " & strDbTable & "Forum.Forum_name " & _ "FROM " & strDbTable & "Category, " & strDbTable & "Forum " & _ "WHERE " & strDbTable & "Category.Cat_ID=" & strDbTable & "Forum.Cat_ID " & _ "AND " & strDbTable & "Forum.Sub_ID=0 " & _ "ORDER BY " & strDbTable & "Category.Cat_order ASC, " & strDbTable & "Forum.Forum_Order ASC;" 'Query the database rsCommon.Open strSQL, adoCon 'Read in the row from the db using getrows for better performance If NOT rsCommon.EOF Then sarryForums = rsCommon.GetRows() 'close rsCommon.Close 'If there are results show them If isArray(sarryForums) Then 'Loop round to read in all the forums in the database Do While intCurrentRecord <= Ubound(sarryForums,2) 'Get the forum ID intForumID = CInt(sarryForums(2,intCurrentRecord)) 'If this is a different cat display the cat ID If intCatID <> CInt(sarryForums(0,intCurrentRecord)) Then 'Change the cat ID intCatID = CInt(sarryForums(0,intCurrentRecord)) %> <% End If 'Read in the permssions from the db for this group (not very efficient doing it this way, but this page won't be run often) 'Initalise the strSQL variable with an SQL statement to query the database strSQL = "SELECT " & strDbTable & "Permissions.* FROM " & strDbTable & "Permissions WHERE " & strDbTable & "Permissions.Author_ID = " & lngMemberID & " AND " & strDbTable & "Permissions.Forum_ID = " & intForumID & ";" 'Query the database rsCommon.Open strSQL, adoCon 'If no records are returned use default values If rsCommon.EOF Then %> <% 'Else display the values for this group Else %> <% End If 'Close rsCommon rsCommon.Close '********* check for sub forums ***************** 'Reset intCurrentRecord2 intCurrentRecord2 = 0 'Read in the groups from db 'Initalise the strSQL variable with an SQL statement to query the database strSQL = "SELECT " & strDbTable & "Forum.Forum_ID, " & strDbTable & "Forum.Forum_name FROM " & strDbTable & "Forum WHERE " & strDbTable & "Forum.Sub_ID= " & intForumID & " ORDER BY " & strDbTable & "Forum.Forum_Order ASC;" 'Query the database rsCommon.Open strSQL, adoCon 'Place rs in array If NOT rsCommon.EOF Then sarrySubForums = rsCommon.GetRows() Else sarrySubForums = null End If 'close rsCommon.Close 'Read in the row from the db using getrows for better performance If isArray(sarrySubForums) Then 'Loop round to read in all the forums in the database Do While NOT intCurrentRecord2 > Ubound(sarrySubForums,2) 'Get the forum ID intSubForumID = CInt(sarrySubForums(0,intCurrentRecord2)) 'Read in the permssions from the db for this group (not very efficient doing it this way, but this page won't be run often) 'Initalise the strSQL variable with an SQL statement to query the database strSQL = "SELECT " & strDbTable & "Permissions.* FROM " & strDbTable & "Permissions WHERE " & strDbTable & "Permissions.Author_ID = " & lngMemberID & " AND " & strDbTable & "Permissions.Forum_ID = " & intSubForumID & ";" 'Query the database rsCommon.Open strSQL, adoCon 'If no records are returned use default values If rsCommon.EOF Then %> <% 'Else display the values for this group Else %> <% End If 'Close rsCommon rsCommon.Close 'Move to the next record in the recordset intCurrentRecord2 = intCurrentRecord2 + 1 Loop End If 'Move to the next record in the recordset intCurrentRecord = intCurrentRecord + 1 Loop End If %>
Forum Giriş Yeni Konu Sabit Konu Mesaj Cevaplama Mesaj Düzenleme Mesaj Silme Anket Oluşturma Oy Verme Takvime Olay Girme Resim Yükleme Dosya Yükleme Onay Gerekliliği Forum Düzenleme  
<% = sarryForums(1,intCurrentRecord) %>
<% = sarryForums(3,intCurrentRecord) %>                            
<% = sarryForums(3,intCurrentRecord) %> <% If CBool(rsCommon("View_Forum")) Then Response.Write("") Else Response.Write("") %> <% If CBool(rsCommon("Post")) Then Response.Write("") Else Response.Write("") %> <% If CBool(rsCommon("Priority_posts")) Then Response.Write("") Else Response.Write("") %> <% If CBool(rsCommon("Reply_posts")) Then Response.Write("") Else Response.Write("") %> <% If CBool(rsCommon("Edit_posts")) Then Response.Write("") Else Response.Write("") %> <% If CBool(rsCommon("Delete_posts")) Then Response.Write("") Else Response.Write("") %> <% If CBool(rsCommon("Poll_create")) Then Response.Write("") Else Response.Write("") %> <% If CBool(rsCommon("Vote")) Then Response.Write("") Else Response.Write("") %> <% If CBool(rsCommon("Calendar_event")) Then Response.Write("") Else Response.Write("") %> <% If CBool(rsCommon("Image_upload")) Then Response.Write("") Else Response.Write("") %> <% If CBool(rsCommon("Attachments")) Then Response.Write("") Else Response.Write("") %> <% If CBool(rsCommon("Display_post")) Then Response.Write("") Else Response.Write("") %> <% If CBool(rsCommon("Moderate")) Then Response.Write("") Else Response.Write("") %> Kaldır
  <% = sarrySubForums(1,intCurrentRecord2) %>                          
  <% = sarrySubForums(1,intCurrentRecord2) %> <% If CBool(rsCommon("View_Forum")) Then Response.Write("") Else Response.Write("") %> <% If CBool(rsCommon("Post")) Then Response.Write("") Else Response.Write("") %> <% If CBool(rsCommon("Priority_posts")) Then Response.Write("") Else Response.Write("") %> <% If CBool(rsCommon("Reply_posts")) Then Response.Write("") Else Response.Write("") %> <% If CBool(rsCommon("Edit_posts")) Then Response.Write("") Else Response.Write("") %> <% If CBool(rsCommon("Delete_posts")) Then Response.Write("") Else Response.Write("") %> <% If CBool(rsCommon("Poll_create")) Then Response.Write("") Else Response.Write("") %> <% If CBool(rsCommon("Vote")) Then Response.Write("") Else Response.Write("") %> <% If CBool(rsCommon("Calendar_event")) Then Response.Write("") Else Response.Write("") %> <% If CBool(rsCommon("Image_upload")) Then Response.Write("") Else Response.Write("") %> <% If CBool(rsCommon("Attachments")) Then Response.Write("") Else Response.Write("") %> <% If CBool(rsCommon("Display_post")) Then Response.Write("") Else Response.Write("") %> <% If CBool(rsCommon("Moderate")) Then Response.Write("") Else Response.Write("") %> Remove



<% 'Reset Server Objects Call closeDatabase() %>


Forum İzinleri Tablosu
Giriş: İşaretlenirse üye forumu görüntüleyebilir
Yeni Konu: İşaretlenirse üye forumda yeni konu açabilir
Sabit Konu: İşaretlenirse üye forumda sabit konu açabilir
Mesaj Cevaplama:
İşaretlenirse üye forumlara cevap yazabilir
Mesaj Düzenleme: İşaretlenirse üye yazdığı mesajları düzenleyebilir
Mesaj Silme: İşaretlenirse üye yazdığı mesajları, eğer cevap yazılmamışsa silebilir
Anket Oluşturma: İşaretlenirse üye anket açabilir
Oy Verme: İşaretlenirse üye anketlere oy verebilir
 
Takvime Olay Girme: İşaretlenirse üye takvime olay olarak konu girebilir..
'Forum Özellikleri' sayfasından takvimi aktif duruma getirebilirsiniz.
Resim Yükleme:
İşaretlenirse üye mesajlarına web alanınızı kullanarak resim yükleyebilir
Önce dosya-resim yükleme ayarlarını yapmış olmanız, gerekmektedir.
Dosya Yükleme:
İşaretlenirse üye mesajlarına web alanınızı kullanarak dosya yükleyebilir
Önce dosya-resim yükleme ayarlarını yapmış olmanız, gerekmektedir.
Onay Gerekliliği:
İşaretlenirse üyenin yazdığı mesajlar onaylanmadan yayınlanmaz.
 
Forum Düzenleme:
İşaretlenirse üye bu forumda görevli olur, forumu düzenleme yetkileri ve tüm forumlarda üye bilgilerini değiştirme yetkisi olur
Bu forumdaki tüm mesajları silebilir, düzenleyebilir, taşıyabilir.Tüm forumlarda üyelerin bilgilerini değiştirebilir, herhangi bir forumda bu yetkiyi verdiğiniz üyenin tüm forumlarda üye bilgilerini değiştirebileceğini unutmayınız! ! !