Mod// User Banned

Message Topic Search Topic Options Post Reply Create New Topic Printable Version Translate Topic


   Hi Web Wiz Forum Users

example: www.yagmurprensi.net/forum 
User: Fatih
Pass: deneme

Mod Version: 1.3
WWF Version: 8.x
DownLoad:
www.yagmurprensi.net/mod/UyeBan.rar 


Setup:
Open common.asp


---[FIND]---
'Redirect to the forum closed page
 Response.Redirect("forum_closed.asp" & strQsSID1)
End If
 
--[add below]--
'******************************************
'***       Kullanıcı Banned     ****
'******************************************
'YaGMuRPreNSi Kullanıcı Banlama Modu
'wWw.YaGMuRPreNSi.NeT // WebWizTurk.CoM
dim UserBanned 
If blnBanned AND UserBanned = False AND blnAdmin = False Then
 
 'Reset server objects
 Call closeDatabase()
 
 'Redirect to the forum closed page
 Response.Redirect("ban.asp")
End If
 

move the "ban.asp" file to your forum's main folder
 
Open language_files/language_file_inc.asp 
---[FIND]---
Const strTxtSuspendUser =
---[change]---

Const strTxtSuspendUser = "Ban Member"
--[FIND]--
Const strTxtAdminNotes =
--[CHANGE]--

Const strTxtAdminNotes ="banning reason"
Open forum_posts.asp 
--[FIND]--

strGuestUsername = sarryPosts(19,intCurrentRecord)
--[add below]--

dim intBan
strSQL="SELECT tblAuthor.Banned FROM tblAuthor WHERE author_ID =" & lngUserID
rsCommon.Open strSQL, adoCon
  intBan = rsCommon("Banned")
rsCommon.close
 
--[FIND]--
<a href="member_profile.asp?PF=<% =lngUserID %>&FID=<% = intForumID & strQsSID2 %>"><% = strUsername %></a>
   <br /><% = strGroupName %>
   <br /><img src="<% If strRankCustomStars <> "" Then Response.Write(strRankCustomStars) Else Response.Write(strImagePath & intRankStars & "_star_rating.gif") %>" alt="<% = strGroupName %>"/>
   <br />
---[change]---

<a href="member_profile.asp?PF=<% =lngUserID %>&FID=<% = intForumID & strQsSID2 %>"><% = strUsername %></a>
   
   <% 
   if intBan = True then 
   Response.Write("<strike><font color='red'><b>�anned</b></font></strike> <br><img src='" & strImagePath & "0_star_rating.gif' alt='�ye Forumdan Banlanmıştır'><br>")
 Else
   %>
   <br /><% = strGroupName %>
   <br /><img src="<% If strRankCustomStars <> "" Then Response.Write(strRankCustomStars) Else Response.Write(strImagePath & intRankStars & "_star_rating.gif") %>" alt="<% = strGroupName %>"/>
   <br />
   <% End If %>
 
 
save and close