Web Wiz Forums Modifications - Mod// User Banned

Mod// User Banned

Printed From: Web Wiz Forums
Category: Web Wiz Web App Support Forums
Forum Name: Web Wiz Forums Modifications
Forum Description: Mod's and Add-on's for Web Wiz Forums.
URL: https://forums.webwiz.net/forum_posts.asp?TID=22894
Printed Date: 29 March 2026 at 8:34pm
Software Version: Web Wiz Forums 12.08 - https://www.webwizforums.com

Topic: Mod// User Banned

Posted By: YaGMuR_PreNSi
Subject: Mod// User Banned
Date Posted: 14 March 2007 at 11:12am

Hi Web Wiz Forum Users

example: http://www.yagmurprensi.net/forum/site_yonlendir.asp?url=http://www.yagmurprensi.net/forum - www.yagmurprensi.net/forum
User: Fatih
Pass: deneme

Mod Version: 1.3
WWF Version: 8.x
DownLoad:

http://www.yagmurprensi.net/forum/site_yonlendir.asp?url=http://www.yagmurprensi.net/mod/UyeBan.rar - 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>
 <% = strGroupName %>
 <img src="<% If strRankCustomStars <> "" Then Response.Write(strRankCustomStars) Else Response.Write(strImagePath & intRankStars & "_star_rating.gif") %>" alt="<% = strGroupName %>"/>

---[change]---

<a href="member_profile.asp?PF=<% =lngUserID %>&FID=<% = intForumID & strQsSID2 %>"><% = strUsername %></a>

 <%
 if intBan = True then
 Response.Write("<strike>�anned</strike> <img src='" & strImagePath & "0_star_rating.gif' alt='�ye Forumdan Banlanmıştır'> ")
Else
 %>

<% = strGroupName %>
 <img src="<% If strRankCustomStars <> "" Then Response.Write(strRankCustomStars) Else Response.Write(strImagePath & intRankStars & "_star_rating.gif") %>" alt="<% = strGroupName %>"/>
 
 <% End If %>

save and close

-------------
MSN and Mail admin@yagmurprensi.net

My WWF: http://www.fatihaytekin.com" rel="nofollow - www.FatihAytekin.com

Replies:

Posted By: marzalli
Date Posted: 06 February 2008 at 10:38pm

thanx fatih :)

-------------

http://www.marzalli.com - http://www.marzalli.com