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 |
|
<%
'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))
%>
<% = sarryForums(1,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
%>
<% = sarryForums(3,intCurrentRecord) %> |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
<%
'Else display the values for this group
Else
%>
<% = 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("") %> |
|
<%
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
%>
<% = sarrySubForums(1,intCurrentRecord2) %> |
|
|
|
|
|
|
|
|
|
|
|
|
|
<%
'Else display the values for this group
Else
%>
<% = 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("") %> |
|
<%
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 İ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! ! ! |