ÖNCE QUERYE EKLENECEKLER
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
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