Not : Proclardan adımı silenlere hakkımı helal etmiyorum



Arkadaşlar Sizlere Kendi Yaptığım&Kullandığım İp Ban sistemini veriyorum.







ONCE QUERYE EKLENECEKLER









Kod:

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[IPBAN]') and OBJECTPROPERTY(id, N'IsUserTable') = 1)

drop table [dbo].[IPBAN]

GO



CREATE TABLE [dbo].[IPBAN] (

[account] [varchar] (21) COLLATE SQL_Latin1_General_CP1_CI_AS NOT NULL ,

[IP] [char] (15) COLLATE SQL_Latin1_General_CP1_CI_AS NULL

) ON [PRIMARY]

GO



Kod:

CREATE PROCEDURE IP_BAN_AT

-- EXEC IP_BAN_AT 'CharAdi'

@Character char(21)

as

--created by JackaL

declare @Ozan varchar(21)

declare @ip varchar(50)

delete from IPBAN where Account = @Ozan

select @Ozan = strAccountID from Account_Char where strcharid1 = @Character or strcharid2 = @Character or strcharid3 = @Character

select @ip = ip from tb_user where strAccountID = @Ozan

INSERT INTO IPBAN ( account, ip ) Values ( @Ozan,@ip )

GO

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

CREATE PROCEDURE IP_BAN_KALDIR

-- EXEC IP_BAN_KALDIR 'CharAdi'

@Character char(21)

as

--created by JackaL

declare @Ozan varchar(21)

declare @ip varchar(50)

delete from IPBAN where Account = @Ozan

select @Ozan = strAccountID from Account_Char where strcharid1 = @Character or strcharid2 = @Character or strcharid3 = @Character

DELETE FROM IPBAN WHERE account = @ozan

GO

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

ALTER PROCEDURE PROC_INSERT_CURRENTUSER--SORUN CIKARSA

--CREATE YAPIP KENDİKİNİZLE DEGİSTİRİN

@AccountID varchar(50),

@CharID varchar(50),

@ServerNo int,

@ServerIP varchar(50),

@ClientIP varchar(50),

@nret smallint output



AS



INSERT INTO CURRENTUSER ( nServerNo, strServerIP, strAccountID, strCharID, strClientIP ) Values (@ServerNo, @ServerIP, @AccountID, @CharID, @ClientIP )

update tb_user set IP=@ClientIP where strAccountID = @AccountID--yeni eklenen

set @nret=1

GO



Kod:

--################ACCOUNT_LOGINE AS IN ALTINA BIRYERE EKLEYIN

--ip ban by jackal

--baslangic

/*

tablo = ipban

*/

update tb_user set ip = 0 where ip = Null

declare @jackal1 char(15)

declare @jackal2 char(15)

select @jackal1 = ip from tb_user where strAccountID = @AccountID

select @jackal2= ip from IPBAN where Account = @AccountID



if @jackal1=@jackal2

begin

Set @nRet = 4

RETURN

end

--ip ban by jackal

--bitis





--ip güncelleme

declare @aypi char(15)

set @aypi = (select strClientIP from currentuser where strAccountID = @AccountID)



update TB_USER set IP = @aypi where strAccountID = @AccountID

--ip güncelleme bitis

Kullanımı ...







1 Başlat > Tüm Programlar > Microsoft SQL Server > Query Analyzer ‘ a giriyoruz.



2 SQL Server’ a bağlanıyoruz ve açılan ekranda ” master ” yerine ” DBmizi ” seçiyoruz.



3 Seçtikten sonra aşağıdaki kodu kopyalayıp , yapıştırıyoruz ve F5 yaparak kodumuzu uyguluyoruz.







Konu JackaL Nıcklı Arkadaştan Alıtıdır