Xin Procedure IPBONUS WebNetBanBe !

[kipphong3]

mấy pro có cái Procedure IPBONUS của NWEB cho mình xin với !


"cho hỏi anh mr_thanh (thanh_ca) yahoo là gì vậy ? Sử dụng đt mạng nào vậy ?"

[LandOfPhi]

CREATE PROCEDURE IPBonus_NetBanBe
As
Begin    -- Begin Proc

DECLARE 
    @IPBonusPoint int,    -- Bien IPBonusPoint duoc cong khi Online tai IP Bonus
    @IPBonus varchar(50)    -- Bien IP Bonus
    
SET @IPBonusPoint = 5    -- Gia tri PCPoints duoc cong khi Online tai IP Bonus

DECLARE IPList CURSOR FOR SELECT ip FROM IPBonus
OPEN IPList
FETCH NEXT FROM IPList INTO @IPBonus
WHILE @@FETCH_STATUS = 0
BEGIN
    UPDATE MEMB_INFO SET IPBonusPoint=IPBonusPoint+@IPBonusPoint FROM MEMB_INFO JOIN MEMB_STAT ON (MEMB_STAT.IP=@IPBonus OR (MEMB_INFO.ip=@IPBonus AND MEMB_STAT.IP='127.0.0.1') ) AND ConnectStat=1 AND MEMB_STAT.memb___id collate DATABASE_DEFAULT =MEMB_INFO.memb___id collate DATABASE_DEFAULT
    FETCH NEXT FROM IPList INTO @IPBonus
END
CLOSE IPList
DEALLOCATE IPList

END    -- End Proc
GO