Paylasalim.forumdizini.com (P.F)

Would you like to react to this message? Create an account in a few clicks or log in to continue.

    IP BAN Atmak

    hako90
    hako90
    Profesyonel Üye

    Profesyonel Üye


    IP BAN Atmak Besikt10copy
    Mesaj Sayısı : 396
    Kayıt tarihi : 10/12/09
    Forum Başarısı : 12417
    Rep Puanı : 2
    Cinsiyeti : IP BAN Atmak I_icon_gender_male Doğum tarihi : 29/12/93
    Yaş : 30
    Hangi Şehir : Ankara
    Hangi Ülke : Türkiye
    Lakap : Yoktur

    IP BAN Atmak Empty IP BAN Atmak

    Mesaj tarafından hako90 Salı Şub. 09, 2010 4:58 am

    Ö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

      Forum Saati Perş. Mart 28, 2024 7:26 pm