乘风多用户计数器sql.txt

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

	CONSTRAINT [DF_WWW_QQCF_COM_CfCount_RegUser_LastLoginTime] DEFAULT (getdate()) FOR [LastLoginTime],
	CONSTRAINT [DF_WWW_QQCF_COM_CfCount_RegUser_CounterShow] DEFAULT (0) FOR [CounterShow],
	CONSTRAINT [DF_WWW_QQCF_COM_CfCount_RegUser_CounterSite] DEFAULT (3) FOR [CounterSite],
	CONSTRAINT [DF_WWW_QQCF_COM_CfCount_RegUser_ImgCounterShow] DEFAULT ((-1)) FOR [ImgCounterShow],
	CONSTRAINT [DF_WWW_QQCF_COM_CfCount_RegUser_Online] DEFAULT ((-1)) FOR [Online],
	CONSTRAINT [DF_WWW_QQCF_COM_CfCount_RegUser_OnlineTime] DEFAULT (30) FOR [OnlineTime],
	CONSTRAINT [DF_WWW_QQCF_COM_CfCount_RegUser_OnlineShow] DEFAULT ((-1)) FOR [OnlineShow],
	CONSTRAINT [DF_WWW_QQCF_COM_CfCount_RegUser_TodayShow] DEFAULT (0) FOR [TodayShow],
	CONSTRAINT [DF_WWW_QQCF_COM_CfCount_RegUser_TodayIpShow] DEFAULT (0) FOR [TodayIpShow],
	CONSTRAINT [DF_WWW_QQCF_COM_CfCount_RegUser_IpShow] DEFAULT ((-1)) FOR [IpShow],
	CONSTRAINT [DF_WWW_QQCF_COM_CfCount_RegUser_VisitShow] DEFAULT ((-1)) FOR [VisitShow],
	CONSTRAINT [DF_WWW_QQCF_COM_CfCount_RegUser_TjOpen] DEFAULT (0) FOR [TjOpen],
	CONSTRAINT [DF_WWW_QQCF_COM_CfCount_RegUser_SurveyOpen] DEFAULT ((-1)) FOR [SurveyOpen],
	CONSTRAINT [DF_WWW_QQCF_COM_CfCount_RegUser_TodayLyOpen] DEFAULT ((-1)) FOR [TodayLyOpen],
	CONSTRAINT [DF_WWW_QQCF_COM_CfCount_RegUser_OnlineOpen] DEFAULT ((-1)) FOR [OnlineOpen],
	CONSTRAINT [DF_WWW_QQCF_COM_CfCount_RegUser_TodayHourOpen] DEFAULT ((-1)) FOR [TodayHourOpen],
	CONSTRAINT [DF_WWW_QQCF_COM_CfCount_RegUser_EveryDayOpen] DEFAULT ((-1)) FOR [EveryDayOpen],
	CONSTRAINT [DF_WWW_QQCF_COM_CfCount_RegUser_Cookies] DEFAULT ('-') FOR [Cookies],
	CONSTRAINT [DF_WWW_QQCF_COM_CfCount_RegUser_EmailCode] DEFAULT ('-') FOR [EmailCode],
	CONSTRAINT [DF_WWW_QQCF_COM_CfCount_RegUser_AdminDesc] DEFAULT ('-') FOR [AdminDesc],
	CONSTRAINT [PK_WWW_QQCF_COM_CfCount_RegUser] PRIMARY KEY  CLUSTERED 
	(
		[User_Name]
	)  ON [PRIMARY] 
GO

ALTER TABLE [dbo].[WWW_QQCF_COM_CfCount_Search_Count] ADD 
	CONSTRAINT [DF_WWW_QQCF_COM_CfCount_Search_Count_Counter] DEFAULT (1) FOR [Counter],
	CONSTRAINT [PK_WWW_QQCF_COM_CfCount_Search_Count] PRIMARY KEY  CLUSTERED 
	(
		[User_Name],
		[SiteFlag],
		[AddDate]
	)  ON [PRIMARY] 
GO

ALTER TABLE [dbo].[WWW_QQCF_COM_CfCount_Site] ADD 
	CONSTRAINT [DF_WWW_QQCF_COM_CfCount_Site_Counter] DEFAULT (1) FOR [Counter],
	CONSTRAINT [DF_WWW_QQCF_COM_CfCount_Site_LastTime] DEFAULT (getdate()) FOR [LastTime],
	CONSTRAINT [PK_WWW_QQCF_COM_CfCount_Site] PRIMARY KEY  CLUSTERED 
	(
		[User_Name],
		[Site]
	)  ON [PRIMARY] 
GO

ALTER TABLE [dbo].[WWW_QQCF_COM_Cfcount_Search] ADD 
	CONSTRAINT [PK_WWW_QQCF_COM_Cfcount_Search] PRIMARY KEY  CLUSTERED 
	(
		[SiteFlag]
	)  ON [PRIMARY] 
GO

ALTER TABLE [dbo].[WWW_QQCF_COM_Cfcount_SearchKeywrod_Count] ADD 
	CONSTRAINT [DF_WWW_QQCF_COM_Cfcount_SearchKeywrod_Count_Counter] DEFAULT (1) FOR [Counter],
	CONSTRAINT [PK_WWW_QQCF_COM_Cfcount_SearchKeywrod_Count] PRIMARY KEY  CLUSTERED 
	(
		[User_Name],
		[KeyWord]
	)  ON [PRIMARY] 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO

CREATE Proc WWW_QQCF_COM_Cfcount_Tj_Proc
@User_Name varchar(50),
@Ly varchar(1000),
@LyHead     varchar(50),
@CurrWeb varchar(1000),
@Ip varchar(50),
@SearchExist Int,
@KeywordExist Int,
@SiteFlag varchar(50),
@KeyWord varchar(50),
@OnlineKeep Int,
@LyKeep     Int,
@Store_Ly Int,
@Store_Online Int,
@AddDate varchar(50),
@AddHour int,
@CfCountVisitTotal int,
@CfCount int
As
Declare
@ReturnFlag int,
@Sql varchar(1000),
@MyCounter Int,
@ID Int,
@Online     Int,
@OnlineTime Int,
@Tjopen     Int,
@OnlineShow Int,
@TodayShow Int,
@PageName varchar(50),
@ShowType Int,
@ShowTotal Int,
@RealShowTotal Int,
@RealIpTotal Int,
@PicNum     Int,
@Style Int,
@CounterShow Int,
@ImgCounterShow     Int,
@TodayIpShow Int,
@IpShow     Int,
@VisitShow Int,
@OnlineTotal Int,
@TodayTotal Int,
@TodayIpTotal Int,
@CounterSite Int
set nocount on
IF @@TRANCOUNT > 0 ROLLBACK
BEGIN Transaction Tj
Set @ReturnFlag=0
Select @ID=ID,@Online=Online,@OnlineTime=OnlineTime,@Tjopen=Tjopen,@OnlineShow=OnlineShow,@TodayShow=TodayShow,@PageName=PageName,@ShowType=ShowType,@ShowTotal=ShowTotal,@RealShowTotal=RealShowTotal,@RealIpTotal=RealIpTotal,@PicNum=PicNum,@Style=Style,@CounterShow=CounterShow,@ImgCounterShow=ImgCounterShow,@TodayIpShow=TodayIpShow,@IpShow=IpShow,@VisitShow=VisitShow,@CounterSite=CounterSite From WWW_QQCF_COM_CfCount_RegUser Where User_Name = @User_Name
IF @@error<>0
Begin
Set @ReturnFlag=-1
goto error_handler
End
If @ID=0
Begin
Set @ReturnFlag=1
goto error_handler
End
If @OnlineKeep=-1
Begin
If @Online=-1
Begin
Select @MyCounter=Count(ID) From WWW_QQCF_COM_CfCount_Online Where Online_Ip = @IP 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_Online (User_Name,Online_Ip,Ly,CurrWeb,VisitTotal) values (@User_Name , @Ip , @Ly , @CurrWeb , @CfCountVisitTotal)
IF @@error<>0
Begin
Set @ReturnFlag=-1
goto error_handler
End
Update WWW_QQCF_COM_CfCount_Admin Set Store_Online=Store_Online+1,Store_TotalOnline=Store_TotalOnline+1
IF @@error<>0
Begin
Set @ReturnFlag=-1
goto error_handler
End
End
Else
Begin
If @CfCount=0
Begin
Update WWW_QQCF_COM_CfCount_Online Set CurrWeb = @CurrWeb,Online_LastTime = GetDate(),ReadTotal = ReadTotal + 1,VisitTotal = @CfCountVisitTotal Where Online_Ip = @Ip And User_Name = @User_Name
IF @@error<>0
Begin
Set @ReturnFlag=-1
goto error_handler
End
End
Else
Begin
Update WWW_QQCF_COM_CfCount_Online Set CurrWeb = @CurrWeb,Online_LastTime = GetDate(),ReadTotal   = ReadTotal+1 Where Online_Ip = @Ip And User_Name = @User_Name
IF @@error<>0
Begin
Set @ReturnFlag=-1
goto error_handler
End
End
End
Delete From WWW_QQCF_COM_CfCount_Online Where User_Name = @User_Name And DateDiff(n,Online_AddTime,GetDate())>@OnlineTime
IF @@error<>0
Begin
Set @ReturnFlag=-1
goto error_handler
End
End
End
Select @MyCounter=Count(ID) From WWW_QQCF_COM_CfCount_Back Where 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_Back (User_Name,BackNum_1) values(@User_Name,1)
IF @@error<>0
Begin
Set @ReturnFlag=-1
goto error_handler
End
End
Else
Begin
If @CfCountVisitTotal=1   And @Cfcount=0
Begin
Update WWW_QQCF_COM_CfCount_Back Set BackNum_1=BackNum_1+1 Where User_Name = @User_Name
IF @@error<>0
Begin
Set @ReturnFlag=-1
goto error_handler
End
End
If @CfCountVisitTotal=2   And @Cfcount=0
Begin
Update WWW_QQCF_COM_CfCount_Back Set BackNum_2=BackNum_2+1,BackNum_1=BackNum_1-1 Where User_Name = @User_Name
IF @@error<>0
Begin
Set @ReturnFlag=-1
goto error_handler
End
End
If @CfCountVisitTotal=3   And @Cfcount=0
Begin
Update WWW_QQCF_COM_CfCount_Back Set BackNum_3=BackNum_3+1,BackNum_2=BackNum_2-1 Where User_Name = @User_Name
IF @@error<>0
Begin
Set @ReturnFlag=-1
goto error_handler
End
End
If @CfCountVisitTotal=4 And @Cfcount=0
Begin
Update WWW_QQCF_COM_CfCount_Back Set BackNum_4=BackNum_4+1,BackNum_3=BackNum_3-1 Where User_Name = @User_Name
IF @@error<>0
Begin
Set @ReturnFlag=-1
goto    error_handler
End
End
If @CfCountVisitTotal=5 And @Cfcount=0
Begin
Update WWW_QQCF_COM_CfCount_Back Set BackNum_5=BackNum_5+1,BackNum_4=BackNum_4-1 Where User_Name = @User_Name
IF @@error<>0
Begin
Set @ReturnFlag=-1
goto    error_handler
End
End
If @CfCountVisitTotal=6 And @Cfcount=0
Begin
Update WWW_QQCF_COM_CfCount_Back Set BackNum_6=BackNum_6+1,BackNum_5=BackNum_5-1 Where User_Name = @User_Name
IF @@error<>0
Begin
Set @ReturnFlag=-1
goto    error_handler
End
End
If @CfCountVisitTotal=7 And @Cfcount=0
Begin
Update WWW_QQCF_COM_CfCount_Back Set BackNum_7=BackNum_7+1,BackNum_6=BackNum_6-1 Where User_Name = @User_Name
IF @@error<>0
Begin
Set @ReturnFlag=-1
goto    error_handler
End
End
If @CfCountVisitTotal=8 And @Cfcount=0
Begin
Update WWW_QQCF_COM_CfCount_Back Set BackNum_8=BackNum_8+1,BackNum_7=BackNum_7-1 Where User_Name = @User_Name
IF @@error<>0
Begin
Set @ReturnFlag=-1
goto    error_handler
End
End
If @CfCountVisitTotal=9 And @Cfcount=0
Begin
Update WWW_QQCF_COM_CfCount_Back Set BackNum_9=BackNum_9+1,BackNum_8=BackNum_8-1 Where User_Name = @User_Name
IF @@error<>0
Begin
Set @ReturnFlag=-1
goto    error_handler
End
End
If @CfCountVisitTotal=10 And @Cfcount=0
Begin
Update WWW_QQCF_COM_CfCount_Back Set BackNum_10=BackNum_10+1,BackNum_9=BackNum_9-1 Where User_Name = @User_Name
IF @@error<>0
Begin
Set @ReturnFlag=-1
goto    error_handler
End
End
If @CfCountVisitTotal=11 And @Cfcount=0
Begin
Update WWW_QQCF_COM_CfCount_Back Set BackNum_Higher=BackNum_Higher+1,BackNum_10=BackNum_10-1 Where User_Name = @User_Name
IF @@error<>0
Begin
Set @ReturnFlag=-1
goto    error_handler
End
End
End
If @SearchExist=-1
Begin
Select @MyCounter=Count(ID) From WWW_QQCF_COM_CfCount_Search_Count Where SiteFlag = @SiteFlag And 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_Search_Count  (User_Name,SiteFlag,AddDate) values (@User_Name , @SiteFlag , @AddDate)
IF @@error<>0
Begin
Set @ReturnFlag=-1
goto    error_handler
End
End
Else
Begin
Update WWW_QQCF_COM_CfCount_Search_Count Set Counter = Counter+1 Where SiteFlag = @SiteFlag And User_Name=@User_Name And AddDate=@AddDate
IF @@error<>0
Begin
Set   @ReturnFlag=-1
goto error_handler