乘风多用户计数器sql.txt

这是一个用ASP编制而成的网业计数器

End
End
End
If @KeywordExist=-1
Begin
Select    @MyCounter=Count(ID) From WWW_QQCF_COM_Cfcount_SearchKeywrod_Count Where KeyWord = @KeyWord And User_Name= @User_Name
IF @@error<>0
Begin
Set @ReturnFlag=-1
goto error_handler
End
If @MyCounter=0
Begin
Insert Into WWW_QQCF_COM_Cfcount_SearchKeywrod_Count (User_Name,KeyWord,AddDate,LastDate) values (@User_Name , @KeyWord , @AddDate , @AddDate)
IF @@error<>0
Begin
Set @ReturnFlag=-1
goto    error_handler
End
End
Else
Begin
Update WWW_QQCF_COM_Cfcount_SearchKeywrod_Count Set Counter =        Counter+1,LastDate = @AddDate Where KeyWord = @KeyWord And User_Name = @User_Name
IF @@error<>0
Begin
Set @ReturnFlag=-1
goto    error_handler
End
End
End
Select @MyCounter=Count(ID) From WWW_QQCF_COM_CfCount_Day_Count      Where User_Name = @User_Name And AddDate = @AddDate
IF @@error<>0
Begin
Set @ReturnFlag=-1
goto error_handler
End
If @MyCounter=0
Begin
Insert       Into WWW_QQCF_COM_CfCount_Day_Count (User_Name , AddDate) Values ( @User_Name , @AddDate )
IF @@error<>0
Begin
Set @ReturnFlag=-1
goto error_handler
End
End
Else
Begin
If @CfCount=0
Begin
Update WWW_QQCF_COM_CfCount_Day_Count  Set Counter=Counter+1,IpCounter=IpCounter+1 Where User_Name = @User_Name And AddDate = @AddDate
IF @@error<>0
Begin
Set @ReturnFlag=-1
goto    error_handler
End
End
Else
Begin
Update WWW_QQCF_COM_CfCount_Day_Count        Set Counter=Counter+1 Where User_Name = @User_Name And AddDate = @AddDate
IF @@error<>0
Begin
Set @ReturnFlag=-1
goto    error_handler
End
End
End
Select @MyCounter=Count(ID) From WWW_QQCF_COM_CfCount_Hour_Count Where User_Name = @User_Name And AddDate = @AddDate And AddHour = @AddHour
IF @@error<>0
Begin
Set @ReturnFlag=-1
goto error_handler
End
If @MyCounter=0
Begin
Insert       Into WWW_QQCF_COM_CfCount_Hour_Count (User_Name,AddDate,AddHour) Values (@User_Name , @AddDate , @AddHour)
IF @@error<>0
Begin
Set @ReturnFlag=-1
goto error_handler
End
End
Else
Begin
If @CfCount=0
Begin
Update WWW_QQCF_COM_CfCount_Hour_Count Set Counter=Counter+1,IpCounter=IpCounter+1 Where User_Name = @User_Name And AddDate =  @AddDate And AddHour = @AddHour
IF @@error<>0
Begin
Set @ReturnFlag=-1
goto    error_handler
End
End
Else
Begin
Update WWW_QQCF_COM_CfCount_Hour_Count Set Counter=Counter+1 Where User_Name = @User_Name And        AddDate = @AddDate And AddHour = @AddHour
IF @@error<>0
Begin
Set @ReturnFlag=-1
goto    error_handler
End
End
End
If @CfCount=0
Begin
If @LyKeep=-1
Begin
Select @MyCounter=Count(ID) From WWW_QQCF_COM_CfCount_Ly Where User_Name = @User_Name And LyHead = @LyHead And DateDiff(d,AddDate,GetDate())=0
IF @@error<>0
Begin
Set @ReturnFlag=-1
goto    error_handler
End
If @MyCounter=0
Begin
Insert Into WWW_QQCF_COM_CfCount_Ly (User_Name,Ip,LyHead,Ly,AddDate)     Values (@User_Name , @Ip , @LyHead , @Ly , @AddDate)
IF @@error<>0
Begin
Set   @ReturnFlag=-1
goto error_handler
End
Update WWW_QQCF_COM_CfCount_Admin Set Store_Ly=Store_Ly+1,Store_TotalLy=Store_TotalLy+1
IF @@error<>0
Begin
Set   @ReturnFlag=-1
goto error_handler
End
End
Else
Begin
Update WWW_QQCF_COM_CfCount_Ly Set Counter =     Counter+1 , Ip = @Ip , Ly = @Ly , LastTime = GetDate() Where User_Name = @User_Name And LyHead = @LyHead And DateDiff(d,AddDate,GetDate())=0
IF @@error<>0
Begin
Set   @ReturnFlag=-1
goto error_handler
End
End
Select @MyCounter=Count(ID) From WWW_QQCF_COM_CfCount_Site Where User_Name = @User_Name And Site = @LyHead
IF @@error<>0
Begin
Set @ReturnFlag=-1
goto    error_handler
End
If @MyCounter=0
Begin
Insert Into WWW_QQCF_COM_CfCount_Site (User_Name,Site,Ly) Values (@User_Name , @LyHead , @Ly)
IF @@error<>0
Begin
Set   @ReturnFlag=-1
goto error_handler
End
End
Else
Begin
Update WWW_QQCF_COM_CfCount_Site Set    Counter = Counter+1 , Ly = @Ly , LastTime = GetDate() Where User_Name = @User_Name And Site = @LyHead
IF @@error<>0
Begin
Set   @ReturnFlag=-1
goto error_handler
End
End
End
End
If @CfCount=0
Begin
Update      WWW_QQCF_COM_CfCount_RegUser Set ShowTotal=ShowTotal+1,RealShowTotal=RealShowTotal+1,RealIpTotal=RealIpTotal+1 Where User_Name = @User_Name
IF @@error<>0
Begin
Set @ReturnFlag=-1
goto error_handler
End
End
Else
Begin
Update        WWW_QQCF_COM_CfCount_RegUser Set ShowTotal=ShowTotal+1,RealShowTotal=RealShowTotal+1 Where User_Name = @User_Name
IF @@error<>0
Begin
Set @ReturnFlag=-1
goto error_handler
End
End
If @Store_Ly>60000
Begin
Select @ID=Min(id) From WWW_QQCF_COM_CfCount_Ly Where ID In (Select Top 20000 Id From WWW_QQCF_COM_CfCount_Ly Order By Id Desc)
IF @@error<>0
Begin
Set @ReturnFlag=-1
goto error_handler
End
Delete        From WWW_QQCF_COM_CfCount_Ly Where ID<@ID
IF @@error<>0
Begin
Set @ReturnFlag=-1
goto error_handler
End
Update        WWW_QQCF_COM_CfCount_Admin Set Store_Ly=0
IF @@error<>0
Begin
Set @ReturnFlag=-1
goto error_handler
End
End
If @Store_Online>90000
Begin
Select @ID=Min(id) From WWW_QQCF_COM_CfCount_Online Where ID In (Select Top 20000 Id From WWW_QQCF_COM_CfCount_Online Order By Id Desc)
IF @@error<>0
Begin
Set @ReturnFlag=-1
goto error_handler
End
Delete    From WWW_QQCF_COM_CfCount_Online Where ID<@ID
IF @@error<>0
Begin
Set @ReturnFlag=-1
goto error_handler
End
Update    WWW_QQCF_COM_CfCount_Admin Set Store_online=0
IF @@error<>0
Begin
Set @ReturnFlag=-1
goto error_handler
End
End
If @Tjopen=-1 Or @OnlineShow=-1
Begin
Select        @OnlineTotal=Count(*) From WWW_QQCF_COM_CfCount_Online Where User_Name=@User_Name
IF @@error<>0
Begin
Set @ReturnFlag=-1
goto error_handler
End
End
If @Tjopen=-1 Or @TodayShow = -1 Or @TodayIpShow = -1
Begin
Select  @TodayTotal=Counter,@TodayIpTotal=IpCounter From WWW_QQCF_COM_CfCount_Day_Count Where User_Name=@User_Name And AddDate=@AddDate
IF @@error<>0
Begin
Set @ReturnFlag=-1
goto error_handler
End
End
Commit Transaction Tj
Select        @ReturnFlag As ReturnFlag,
@Tjopen       As Tjopen,
@CounterShow As     CounterShow,
@ImgCounterShow       As ImgCounterShow,
@OnlineShow As OnlineShow,
@TodayShow As TodayShow,
@PageName As PageName,
@ShowType As ShowType,
@ShowTotal As ShowTotal,
@RealShowTotal As RealShowTotal,
@RealIpTotal As     RealIpTotal,
@PicNum       As PicNum,
@Style As Style,
@TodayIpShow As     TodayIpShow,
@IpShow       As IpShow,
@VisitShow As VisitShow,
@OnlineTotal As     OnlineTotal,
@TodayTotal As TodayTotal,
@TodayIpTotal As TodayIpTotal,
@CounterSite As      CounterSite
return
Error_handler:
BEGIN
RollBack Transaction Tj
Select       @ReturnFlag As ReturnFlag,
@Tjopen As Tjopen,
@CounterShow As CounterShow,
@ImgCounterShow As ImgCounterShow,
@OnlineShow As      OnlineShow,
@TodayShow As TodayShow,
@PageName As PageName,
@ShowType As ShowType,
@ShowTotal As ShowTotal,
@RealShowTotal        As RealShowTotal,
@RealIpTotal As RealIpTotal,
@PicNum As PicNum,
@Style        As Style,
@TodayIpShow As TodayIpShow,
@IpShow As IpShow,
@VisitShow As VisitShow,
@OnlineTotal As OnlineTotal,
@TodayTotal As      TodayTotal,
@TodayIpTotal As TodayIpTotal,
@CounterSite As CounterSite
return
END
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

insert into WWW_QQCF_COM_CfCount_Admin (admin,password) values('www.qqcf.com','254a978baaa071ad')
Go
insert into WWW_QQCF_COM_CfCount_RegUser (User_Name,AddDate) values('qqcf',convert(varchar(10),Getdate(),121))
Go

insert into WWW_QQCF_COM_Cfcount_Search (SiteDesc,SiteFlag,KeyWordFlag) values('3721','3721.com','p')
Go
insert into WWW_QQCF_COM_Cfcount_Search (SiteDesc,SiteFlag,KeyWordFlag) values('百度','baidu.com','wd')
Go
insert into WWW_QQCF_COM_Cfcount_Search (SiteDesc,SiteFlag,KeyWordFlag) values('google','google.com','q')
Go
insert into WWW_QQCF_COM_Cfcount_Search (SiteDesc,SiteFlag,KeyWordFlag) values('qq','qq.com','w')
Go
insert into WWW_QQCF_COM_Cfcount_Search (SiteDesc,SiteFlag,KeyWordFlag) values('乘风原程序','qqcf.com','qqcf')
Go
insert into WWW_QQCF_COM_Cfcount_Search (SiteDesc,SiteFlag,KeyWordFlag) values('新浪','sina.com','searchkey')
Go
insert into WWW_QQCF_COM_Cfcount_Search (SiteDesc,SiteFlag,KeyWordFlag) values('搜狗','sogou.com','query')
Go
insert into WWW_QQCF_COM_Cfcount_Search (SiteDesc,SiteFlag,KeyWordFlag) values('雅虎','yahoo.com.cn','p')
Go
insert into WWW_QQCF_COM_Cfcount_Search (SiteDesc,SiteFlag,KeyWordFlag) values('中国搜索','zhongsou.com','word')
Go
/*----
注：只能在
新安装时使用，否则会导致以前乘风多用户计数器所建立的表内数据丢失，但不会对其它
非乘风多用户计数器的表有任何影响
------*/