Forumumuza Kayıtlı Kullanıcı Olmadığınız algılandı, Forumun tüm özelliklerini kullanabilmek için buraya tıklayarak ücretsiz üye olabilirsiniz...

YaGMuRPreNSi.CoM/NeT Ana Sayfa
  SSS SSS  Forumu Ara   Kayıt Ol Kayıt Ol  Giriş Giriş

 DUYURU!

isminiz@yagmurprensi.net 5 GB kapasiteli mail sahibi olmak istermisiniz?

YaGMuRPreNSi.NeT Domaini Türkiye Girişlerine kapatıldığı için giremeyen arkadaşlar lütfen FatihAytekin.Com dan giriş yapsınlar..

Mod// Üye Banlama
 Yanıt Yaz Yanıt Yaz Sayfa  123 7>
Yazar
  Konu Arama Konu Arama  Konu Seçenekleri Konu Seçenekleri
YaGMuR_PreNSi Açılır Kutu Gör
Site Kurucusu
Site Kurucusu
Simge
Üye Bilgileri   Zekanın peşinde koşmayın aptallığı yakalarsınız...

Aktif Durum:
Kayıt Tarihi: 04-Subat-2004
Üye No: 1
Konum: Kendi Dünyam
Şehir: Küçük İstanbuL
Takiminiz

  Alıntı YaGMuR_PreNSi Alıntı  Yanıt YazCevapla Mesajın Direkt Linki Konu: Mod// Üye Banlama
    Gönderim Zamanı: 05-Mart-2007 Saat 10:49

Merhabalar Arkda?lar Bugün Foruma Baktym Bi sürü Küfür Eden Saygysyzca Davranan bilmem ne Sinirlendim ve BöyLe bir Mod yaptym... Birkaç ki?ide istemi? payla?ayym dedim....


E?er Örnek Görmek isteyen varsa:

Dikkat Linki gore bilmek icin
Üye olun
 yada
Login oLun


Kullanycy Ady: Fatih
?ifresi: deneme

Mod Çok Güzel Çaly?yyor Denedim Hiçbir Problem yok.. Artyk Adminler rahat etsin :)


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


Ulaşmaya çalıştığınız dosya burada gizli!
Üyeliğiniz ve katiliminiz bizim için çok önemli! Sizden sadece kısa bir cümle istiyoruz! Bu kismi görüntüleyebilmek için lütfen üye olup, konuya cevap yazınız. (Teşekkür Butonu ile aynı amacı taşıyan kelimeleri ve ifade resimlerini onaylamıyoruz. -Örneğin: Teşekkürler, Sağolun, Güzel vs. yada :) gibi.
 
 
Kurulumu:
 
 
common.asp dosyasyny açyn ve
---[BUL]---

 'Redirect to the forum closed page
 Response.Redirect("forum_closed.asp" & strQsSID1)
End If
ßulun ve altyna:
---[ALTINA EKLE]---

'******************************************
'***       Kullanycy Banned     ****
'******************************************
'YaGMuRPreNSi Kullanycy Banlama Modu
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

Ekleyin...

ban.asp yi forumunuzun ana klasörüne atynyz...

language_files/language_file_inc.asp yi açyn ve
---[BUL]---
Const strTxtSuspendUser = "Üyeli?i Askyya Al"
ßulun ve
---[DE?Y?TYR]---
Const strTxtSuspendUser = "Üyeyi Yasakla"
Olarak De?i?tirin...
Onun altynda:
---[BUL]---
Const strTxtAdminNotes = "Yönetici/Moderatör Notu"
Yazan yeri
---[DE?Y?TYR]---
Const strTxtAdminNotes = "Banlanma Sebebi"
Olarak de?i?tin..
Onun aLtynda
---[BUL]---
Const strTxtAdminNotesAbout = "Bu bölüme yazaca?ynyz notu sadece yöneticiler ve moderatörler ki?inin profiline baktyklarynda görebilir. Üye hakkynda uyarylar v.b. yazabilirsiniz(max 250 karakter)"
Yazan yeri:
---[DE?Y?TYR]---
Const strTxtAdminNotesAbout = "Banlama Sebebini Yazynyz... Banlanan Üye Giri? Yapty?ynda Görecektir. (En Fazla 250 Karakter)"

Olarak de?i?tirin
forum_posts.asp yi açyn ve
---[BUL]---
strGuestUsername = sarryPosts(19,intCurrentRecord)
Bulun ve altyna:
---[EKLE]---
dim intBan
strSQL="SELECT tblAuthor.Banned FROM tblAuthor WHERE author_ID =" & lngUserID
rsCommon.Open strSQL, adoCon
  intBan = rsCommon("Banned")
rsCommon.close

Ekleyin...
 
sonra
 ---[BUL]--
   <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 />
 
ßurayy Bulun ve
 ---[DE?Y?TYR]---
<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 Banlanmy?tyr'><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 %>

Bu ?ekilde de?i?tirin
 
Üye Banlama Üye Profilini de?i?tirirken Üye Panelinin Yönetici Bölümünden yapylyr.
Banlanmak istenen Üyeyi Üyeyi Yasakla yazan yerin kar?ysyndaki Evet Seçene?ini Seçip Altyna Banlama Sebebini yazabilirsiniz...
 
Eme?e Saygy!!!
 
Link YeniLenmistir ßy GeCeLeR_PreNSi


Düzenleyen GeCeLeR_PreNSi - 14-Temmuz-2009 Saat 11:53
§éT ßy ¥åGMµ® Prêѧì
Alkışlayan(lar): zeusq, ismailcanga, roobydal, nirvana1674,
abdullahozden Açılır Kutu Gör
ÇavuŞ
ÇavuŞ
Simge
Üye Bilgileri   Aktif Durum:
Kayıt Tarihi: 18-Ocak-2007
Üye No: 5834
Konum: Türkiye
Şehir: Ankara

  Alıntı abdullahozden Alıntı  Yanıt YazCevapla Mesajın Direkt Linki Gönderim Zamanı: 05-Mart-2007 Saat 13:52
te?ekkürler dostm :D
tracker Açılır Kutu Gör
ÇavuŞ
ÇavuŞ
Simge
Üye Bilgileri   Aktif Durum:
Kayıt Tarihi: 04-Nisan-2006
Üye No: 778

  Alıntı tracker Alıntı  Yanıt YazCevapla Mesajın Direkt Linki Gönderim Zamanı: 05-Mart-2007 Saat 23:42
Te?ekkürler.
tutiname Açılır Kutu Gör
Baş Çavuş
Baş Çavuş
Üye Bilgileri   Aktif Durum:
Kayıt Tarihi: 06-Ekim-2006
Üye No: 3190
Konum: United Arab Emirates
Şehir: iskenderun

  Alıntı tutiname Alıntı  Yanıt YazCevapla Mesajın Direkt Linki Gönderim Zamanı: 06-Mart-2007 Saat 08:23
hocam bunu wwf_vb için kullandym. ve ona benzetmek için formun logosunun ve altyndaki saat kysmy vs çykmasy için kodu egerekli yere attym... sonrasynda a??a?ydaki gibi bir hata verdi, orayy nasyl düzeltebilirim..
 
 

Microsoft VBScript runtime error '800a01f4'

Variable is undefined: 'intForumID'

/forum/includes/navigation_buttons_inc.asp, line 117

kod;
 
115 <%
116 'Make sure that the forum ID number has a number in it otherwise set it to 0
117 If isEmpty(intForumID) OR intForumID = "" Then intForumID = 0
118 %> 
YaGMuR_PreNSi Açılır Kutu Gör
Site Kurucusu
Site Kurucusu
Simge
Üye Bilgileri   Zekanın peşinde koşmayın aptallığı yakalarsınız...

Aktif Durum:
Kayıt Tarihi: 04-Subat-2004
Üye No: 1
Konum: Kendi Dünyam
Şehir: Küçük İstanbuL
Takiminiz

  Alıntı YaGMuR_PreNSi Alıntı  Yanıt YazCevapla Mesajın Direkt Linki Gönderim Zamanı: 06-Mart-2007 Saat 08:47
Hyym aga neyi nereye ekledin anlayamadym
§éT ßy ¥åGMµ® Prêѧì
tutiname Açılır Kutu Gör
Baş Çavuş
Baş Çavuş
Üye Bilgileri   Aktif Durum:
Kayıt Tarihi: 06-Ekim-2006
Üye No: 3190
Konum: United Arab Emirates
Şehir: iskenderun

  Alıntı tutiname Alıntı  Yanıt YazCevapla Mesajın Direkt Linki Gönderim Zamanı: 06-Mart-2007 Saat 10:57

kyrmyzy ile i?aretledi?im kodlary atynca yukarydaki hatayy verdi....

 

<% @ Language=VBScript %>
<% Option Explicit %>
<%

Response.Buffer = True

'Donguyu Iptal Etmek Icyn
UserBanned = True

%>
<!-- #include file="common.asp" -->

<%
dim intBan

strSQL = "SELECT tblAuthor.Info, tblAuthor.Username FROM tblAuthor WHERE tblAuthor.Author_ID = "&lngloggedinuserID& ""
rscommon.Open strSQL, adoCon

intBan = rscommon("Info")
%>

<br />
<!-- #include file="includes/browser_page_encoding_inc.asp" -->
<head>
<meta name="YaGMuR PreNSi" content="YaGMuRPreNSi.NeT" />
<title><% = rscommon("Username") %>'Forumdan Banlandynyz!</title>


<link href="<% = strCSSfile %>default_style.css" rel="stylesheet" type="text/css" />   
<!-- #include file="includes/header.asp" -->
<!-- #include file="includes/navigation_buttons_inc.asp" -->
<table class="tbl3" cellspacing="0" cellpadding="0" align="center">
<tr ><td class="tdalt">
<br />
<a name="top"></a>
<table class="tableBorder" height="62" cellspacing="0" cellpadding="0" align="center" width="100%">
 <tr ><td class="tableRow">&nbsp;&nbsp;&nbsp;
  <strong><img src="<% = strImagePath %>open_folder_icon.gif" border="0" align="absmiddle"/>&nbsp;<a href="default.asp<% = strQsSID1 %>"><strong><% = strMainForumName %></strong></a><%

%><% = strNavSpacer %>Özel Mesaj Gönderme Uyarysy</strong></td>
<td width="184" bgcolor="#FFFFFF">
 <embed pluginspage="

Dikkat Linki gore bilmek icin
Üye olun
 yada
Login oLun

" src="imgs/clockX.swf" width="180" height="70" type="application/x-shockwave-flash" quality="high" align="middle"></td>
  <td  width="190" class="now">   <% 
'If the user has logged in then the Logged In User ID number will not be 0 and not 2 for the guest account
If lngLoggedInUserID <> 0 AND lngLoggedInUserID <> 2 Then      
  Response.Write ("Ho? Geldin,&nbsp;" & "<b><font color=""#000000"" size=""2"">" & strLoggedInUsername & "</font></b><br/>") 

%>
 <% = strTxtTheTimeNowIs & " " & TimeFormat(now()) %><br />
 <%

'If this is not the first time the user has visted the site display the last visit time and date
If IsDate(Request.Cookies(strCookieName)("LV")) Then
 If dtmLastVisitDate < CDate(Request.Cookies(strCookieName)("LV")) Then
     Response.Write(strTxtYouLastVisitedOn & " " & DateFormat(dtmLastVisitDate) & " " & strTxtAt & " " & TimeFormat(dtmLastVisitDate))
     Response.Write("<br/><a href=""pm_welcome.asp" & strQsSID1 & """ style=""text-decoration: none"">" & intNoOfPms & " " & strTxtNew & "&nbsp;<b>" & "Mesajynyz var." & "</a></b>")

 End If
End If
%>
<% 
'Else the user is not logged
Else
 %>
<%
'If the user has not logged in (guest user ID = 2) then show them a quick login form
If lngLoggedInUserID = 2 Then
 
 Response.Write("<form method=""post"" name=""frmLogin"" id=""frmLogin"" action=""login_user.asp" & strQsSID1 & """>")%>
<br />
<table cellpadding="0" cellspacing="0" border="0" width="221">
  <tr>
   <td ><label for="navbar_username">&nbsp;K. Ady:</label></td>
   <td>
   <input type="text" size="10" name="name" id="name" style="font-size: 10px;" /></td>
   <td  colspan="2" nowrap="nowrap"><label for="cb_cookieuser_navbar">
   <input type="checkbox" name="default" value="ON"/>Beni Hatyrla?</label></td>
  </tr>
  <tr>
   <td><label for="navbar_password">&nbsp;?ifre&nbsp; &nbsp;:</label></td>
   <td>
   <input type="password" size="12" name="password" id="password" style="font-size: 10px;" /></td>
   <td>
   &nbsp;<input class="button" type="submit" value="Giri? Yap" style="font-size: 10px; width: 85;height:20; font-family:Verdana" /></td>
  </tr>
  </table>
 </form>
  
<%
End If
%>
<%
End If
%>

</td>
 </tr>
</table>
<br />

<div id="CatDivSohbetS" style="display:<% if Request.Cookies("CookieSohbet") <> "none" Then Response.write "none" %>;">
<table cellspacing="1" cellpadding="3"style="FILTER: gray()" class="tableBorder" align="center">
<tr class="tableLedger">
<td colspan="3">
 <table border="0" width="100%" class="tableLedger">
  <tr>
  <td colspan="115" align="center">YaGMuRPreNSi.NeT/CoM Forumlaryndan Banlandynyz!</td>
  <td><a href="Javascript:Invert('Sohbet')">
   <img src="forum_images/P.gif" id="CatButtonHitYeni" border="0" align="right"></a></td>
 </tr>
  </table>
</td>
 </tr>
</table>
</div>
<div id="CatDivSohbetR" style="display:<% if Request.Cookies("CookieSohbet") = "none" Then Response.write "none" %>;">
<table cellspacing="1" cellpadding="3" class="tableBorder" align="center">
<tr class="tableLedger">
<td colspan="5">

  <table border="0" width="100%" id="table1" class="tableLedger">
 <tr>
  <td colspan="5" align="center">YaGMuRPreNSi.NeT/CoM Forumlaryndan Banlandynyz!</td>
  <td width="3%"><a  href="Javascript:Invert('Sohbet')">
  <img src="forum_images/N.gif" id="CatButtonSohbet" border="0" align="right"></a></td>
 </tr>
 </table>
  </td>
 </tr>

 <tr class="tableSubLedger">
    <td width="98%">Kurallara Uymady?ynyz Yçin Banlandynyz!</td>
    </tr>
<tr>
<td class="tableRow">
<p>&nbsp;</p>
<p>&nbsp;</p>
<p align="center">
<% If intBan <> "" Then
  Response.Write("<b>Ban Sebebi:</b> "& intBan)
  Else
  Response.Write("Ban Sebebi Girilmemi?")
  End If
  %>

&nbsp;</p>
<p>&nbsp;</p>
<p>
</td>
</tr>
</table>
</div>
YaGMuR_PreNSi Açılır Kutu Gör
Site Kurucusu
Site Kurucusu
Simge
Üye Bilgileri   Zekanın peşinde koşmayın aptallığı yakalarsınız...

Aktif Durum:
Kayıt Tarihi: 04-Subat-2004
Üye No: 1
Konum: Kendi Dünyam
Şehir: Küçük İstanbuL
Takiminiz

  Alıntı YaGMuR_PreNSi Alıntı  Yanıt YazCevapla Mesajın Direkt Linki Gönderim Zamanı: 06-Mart-2007 Saat 11:26
<!-- #include file="includes/navigation_buttons_inc.asp" -->
bunu koyma zaten bi i?ine yaramayacak banlanan userin...
§éT ßy ¥åGMµ® Prêѧì
tutiname Açılır Kutu Gör
Baş Çavuş
Baş Çavuş
Üye Bilgileri   Aktif Durum:
Kayıt Tarihi: 06-Ekim-2006
Üye No: 3190
Konum: United Arab Emirates
Şehir: iskenderun

  Alıntı tutiname Alıntı  Yanıt YazCevapla Mesajın Direkt Linki Gönderim Zamanı: 07-Mart-2007 Saat 01:15

Ystedi?im gibi olmady hocam, ne yapalym sa?lyk olsun. ban.asp nin orjinalini kullanaryz bizde, görüntüsü çyplak gibi duruyor ama sa?lyk olsun... hocam sendeki gibi simsiyah nasyl yapabilirim....bende beyaz görünüyor..



Düzenleyen tutiname - 07-Mart-2007 Saat 01:17
tutiname Açılır Kutu Gör
Baş Çavuş
Baş Çavuş
Üye Bilgileri   Aktif Durum:
Kayıt Tarihi: 06-Ekim-2006
Üye No: 3190
Konum: United Arab Emirates
Şehir: iskenderun

  Alıntı tutiname Alıntı  Yanıt YazCevapla Mesajın Direkt Linki Gönderim Zamanı: 07-Mart-2007 Saat 06:51

fatih karde? bir iste?im olacak olursa güzel olur.. ?imdi banlanan üye siteye girmek istiyor ve hemen bir uyary alyyor siteye girmiyor. sonrasynda bugün online olan üyeler kysmynda bu üyenini ismi gönüyor. bu yüzden o ismin üzerine banlandyktan sonra bir çizgi olsa iyi olmazmy?

 
YaGMuR_PreNSi Açılır Kutu Gör
Site Kurucusu
Site Kurucusu
Simge
Üye Bilgileri   Zekanın peşinde koşmayın aptallığı yakalarsınız...

Aktif Durum:
Kayıt Tarihi: 04-Subat-2004
Üye No: 1
Konum: Kendi Dünyam
Şehir: Küçük İstanbuL
Takiminiz

  Alıntı YaGMuR_PreNSi Alıntı  Yanıt YazCevapla Mesajın Direkt Linki Gönderim Zamanı: 07-Mart-2007 Saat 07:25
oLur neden oLmasyn.. Fakat o biraz zor hiç u?ra?madan yapmak istiyorsan Emre_'nin yapty?y gibi bir Grup olu?tur Banned veya Yasakly diye onun Grup Numarasyny Bugün Ziyaret Edenler Bölümüne yaz.. Banlady?ynda Üye Çyksyn Üstü Cizili yap.. Ba?ka çaresi varmy ben bakycam.. ?uanlyk çözüm bu.. Ama önce bi ?u Windows Vistayy deneyelim nasyL bir?eymi? :)
§éT ßy ¥åGMµ® Prêѧì
Alkışlayan(lar): ben82, miarfe,
 Yanıt Yaz Yanıt Yaz Sayfa  123 7>

Forum Atla Forum İzinleri Açılır Kutu Gör



Bu Sayfa 0,469 Saniyede Yüklendi.

Basit Görünüm

TopList Alanı

Hosting Hizmetleri

Çoruhotomotiv | Artvin Video | Şavşat | Asuman Şener