📄 calccount.asp

📁 mlm双轨制直销系统V8.0免费版可用于： 1、直拨、回拨电话卡公司。 2、保健品、药品公司。 3、在线销售商品等等。 4、其他类型用到双轨制模式的线上开盘公司。
💻 ASP
📖 第 1 页 / 共 2 页
字号:
12 下一页
<%
Function GetParentNumber(HyNumber)
	set HyParentNumberRs=nothing
	set HyParentNumberRs=server.CreateObject("adodb.recordset")
	Count=""
	if len(HyNumber)>0 then
		sql = "SELECT HyParentNumber FROM HyClub WHERE HyNumber='" & HyNumber & "'"
		HyParentNumberRs.Open sql,conn		
		if HyParentNumberRs.RecordCount>0 then
				Count=HyParentNumberRs("HyParentNumber")
		end if 
	end if
	GetParentNumber=Count
End Function
Function CheckIsChild(HyNumber,HyCheckNumber)
	IsChild=false
	if HyNumber=HyCheckNumber then
		IsChild=true
	else
		TempParentNumber=GetParentNumber(HyCheckNumber)
		if len(TempParentNumber)>0 then
			if HyNumber=TempParentNumber then	
				IsChild=true
			else
				IsChild=CheckIsChild(HyNumber,TempParentNumber)
			end if
		end if
	end if	
	CheckIsChild=IsChild
End Function

Function GetLeftCount(HyNumber)
	set HyRs=nothing
	set HyRs1=nothing
	set HyRs=server.CreateObject("adodb.recordset")
	set HyRs1=server.CreateObject("adodb.recordset")
	Count=0
	if len(HyNumber)>0 then
		sql = "select LeftNumber,HyNumber,RightNumber,IsApproved from HyClub where HyNumber ='" & HyNumber & "'"
		'response.Write sql
		'response.End 
		HyRs.Open sql,conn
		
		if HyRs.RecordCount>0 then '如果有此number
			if len(HyRs("leftnumber"))>0 then  '有左Number		
				sql1="select LeftNumber,HyNumber,RightNumber,IsApproved from HyClub where HyNumber ='" & HyRs("leftnumber") & "'"
				HyRs1.Open sql1,conn
				if HyRs1.RecordCount>0 then
					if HyRs1("IsApproved")=true then
						Count=Count+1
					end if
					if len(HyRs1("leftnumber"))>0 then
						Count=Count+GetLeftCount(HyRs1("Hynumber"))
					end if
					if len(HyRs1("rightnumber"))>0 then
						Count=Count+GetRightCount(HyRs1("Hynumber"))
					end if				
				end if
			end if
		end if
	end if
	GetLeftCount=Count
	
End Function 

Function GetRightCount(HyNumber)
	set HyRs=nothing
	set HyRs1=nothing
	set HyRs=server.CreateObject("adodb.recordset")
	set HyRs1=server.CreateObject("adodb.recordset")
	Count=0
	if len(HyNumber)>0 then
		sql = "select LeftNumber,HyNumber,RightNumber,IsApproved from HyClub where HyNumber ='" & HyNumber & "'"
		HyRs.Open sql,conn

		if HyRs.RecordCount>0 then '如果有此number
			if len(HyRs("rightnumber"))>0 then  '有右Number		
				sql1="select LeftNumber,HyNumber,RightNumber,IsApproved from HyClub where HyNumber ='" & HyRs("rightnumber") & "'"
				HyRs1.Open sql1,conn
				if HyRs1.RecordCount>0 then
					if HyRs1("IsApproved")=true then
						Count=Count+1
					end if
					if len(HyRs1("leftnumber"))>0 then
						Count=Count+GetLeftCount(HyRs1("Hynumber"))
					end if
					if len(HyRs1("rightnumber"))>0 then
						Count=Count+GetRightCount(HyRs1("Hynumber"))
					end if				
				end if
			end if
		end if
	end if
	GetRightCount=Count
End Function 

Function GetLeftCountAll(HyNumber)
	set HyRs=nothing
	set HyRs1=nothing
	set HyRs=server.CreateObject("adodb.recordset")
	set HyRs1=server.CreateObject("adodb.recordset")
	Count=0
	if len(HyNumber)>0 then
		sql = "select LeftNumber,HyNumber,RightNumber from HyClub where HyNumber ='" & HyNumber & "'"
		'response.Write sql
		'response.End 
		HyRs.Open sql,conn
		
		if HyRs.RecordCount>0 then '如果有此number
			if len(HyRs("leftnumber"))>0 then  '有左Number		
				sql1="select LeftNumber,HyNumber,RightNumber from HyClub where HyNumber ='" & HyRs("leftnumber") & "'"
				HyRs1.Open sql1,conn
				if HyRs1.RecordCount>0 then
					Count=Count+1
					if len(HyRs1("leftnumber"))>0 then
						Count=1+GetLeftCountAll(HyRs1("Hynumber"))
					end if
					if len(HyRs1("rightnumber"))>0 then
						Count=Count+GetRightCountAll(HyRs1("Hynumber"))
					end if				
				end if
			end if
		end if
	end if
	GetLeftCountAll=Count
End Function 

Function GetRightCountAll(HyNumber)
	set HyRs=nothing
	set HyRs1=nothing
	set HyRs=server.CreateObject("adodb.recordset")
	set HyRs1=server.CreateObject("adodb.recordset")
	Count=0
	if len(HyNumber)>0 then
		sql = "select LeftNumber,HyNumber,RightNumber from HyClub where HyNumber ='" & HyNumber & "'"
		HyRs.Open sql,conn

		if HyRs.RecordCount>0 then '如果有此number
			if len(HyRs("rightnumber"))>0 then  '有右Number		
				sql1="select LeftNumber,HyNumber,RightNumber from HyClub where HyNumber ='" & HyRs("rightnumber") & "'"
				HyRs1.Open sql1,conn
				if HyRs1.RecordCount>0 then
					Count=Count+1
					if len(HyRs1("leftnumber"))>0 then
						Count=Count+GetLeftCountAll(HyRs1("Hynumber"))
					end if
					if len(HyRs1("rightnumber"))>0 then
						Count=Count+GetRightCountAll(HyRs1("Hynumber"))
					end if				
				end if
			end if
		end if
	end if
	GetRightCountAll=Count
End Function 

Function GetLeftDanCount(HyNumber)
	set HyRs=nothing
	set HyRs1=nothing
	set HyRs=server.CreateObject("adodb.recordset")
	set HyRs1=server.CreateObject("adodb.recordset")
	Count=0
	if len(HyNumber)>0 then
		sql = "select LeftNumber,HyNumber,HyBuyCount,RightNumber,IsApproved from HyClub where HyNumber ='" & HyNumber & "'"
		'response.Write sql
		'response.End 
		HyRs.Open sql,conn
		
		if HyRs.RecordCount>0 then '如果有此number
			if len(HyRs("leftnumber"))>0 then  '有左Number		
				sql1="select LeftNumber,HyNumber,RightNumber,HyBuyCount,IsApproved from HyClub where HyNumber ='" & HyRs("leftnumber") & "'"
				HyRs1.Open sql1,conn
				if HyRs1.RecordCount>0 then
					if HyRs1("IsApproved")=true then
						Count=Count+HyRs1("HyBuyCount")
					end if
					if len(HyRs1("leftnumber"))>0 then
							Count=Count+GetLeftDanCount(HyRs1("Hynumber"))
					end if
					if len(HyRs1("rightnumber"))>0 then
						Count=Count+GetRightDanCount(HyRs1("Hynumber"))
					end if				
				end if
			end if
		end if
	end if
	GetLeftDanCount=Count
End Function 

Function GetRightDanCount(HyNumber)
	set HyRs=nothing
	set HyRs1=nothing
	set HyRs=server.CreateObject("adodb.recordset")
	set HyRs1=server.CreateObject("adodb.recordset")
	Count=0
	if len(HyNumber)>0 then
		sql = "select LeftNumber,HyNumber,RightNumber,HyBuyCount,IsApproved from HyClub where HyNumber ='" & HyNumber & "'"
		HyRs.Open sql,conn

		if HyRs.RecordCount>0 then '如果有此number
			if len(HyRs("rightnumber"))>0 then  '有右Number		
				sql1="select LeftNumber,HyNumber,RightNumber,HyBuyCount,IsApproved from HyClub where HyNumber ='" & HyRs("rightnumber") & "'"
				HyRs1.Open sql1,conn
				if HyRs1.RecordCount>0 then
					if HyRs1("IsApproved")=true then
						Count=Count+HyRs1("HyBuyCount")
					end if
					if len(HyRs1("leftnumber"))>0 then
						Count=Count+GetLeftDanCount(HyRs1("Hynumber"))
					end if
					if len(HyRs1("rightnumber"))>0 then
						Count=Count+GetRightDanCount(HyRs1("Hynumber"))
					end if				
				end if
			end if
		end if
	end if
	GetRightDanCount=Count
End Function 

'include not release menber
Function GetLeftDanAllCount(HyNumber)
	set HyRs=nothing
	set HyRs1=nothing
	set HyRs=server.CreateObject("adodb.recordset")
	set HyRs1=server.CreateObject("adodb.recordset")
	Count=0
	if len(HyNumber)>0 then
		sql = "select LeftNumber,HyNumber,HyBuyCount,RightNumber from HyClub where HyNumber ='" & HyNumber & "'"
		'response.Write sql
		'response.End 
		HyRs.Open sql,conn
		
		if HyRs.RecordCount>0 then '如果有此number
			if len(HyRs("leftnumber"))>0 then  '有左Number		
				sql1="select LeftNumber,HyNumber,RightNumber,HyBuyCount from HyClub where HyNumber ='" & HyRs("leftnumber") & "'"
				HyRs1.Open sql1,conn
				if HyRs1.RecordCount>0 then
					Count=Count+HyRs1("HyBuyCount")
					if len(HyRs1("leftnumber"))>0 then
						Count=HyRs1("HyBuyCount")+GetLeftDanAllCount(HyRs1("Hynumber"))
					end if
					if len(HyRs1("rightnumber"))>0 then
						Count=Count+GetRightDanAllCount(HyRs1("Hynumber"))
					end if				
				end if
			end if
		end if
	end if
	GetLeftDanAllCount=Count
End Function 

Function GetRightDanAllCount(HyNumber)
	set HyRs=nothing
	set HyRs1=nothing
	set HyRs=server.CreateObject("adodb.recordset")
	set HyRs1=server.CreateObject("adodb.recordset")
	Count=0
	if len(HyNumber)>0 then
		sql = "select LeftNumber,HyNumber,RightNumber,HyBuyCount from HyClub where HyNumber ='" & HyNumber & "'"
		'response.Write sql
		'response.End 
		HyRs.Open sql,conn

		if HyRs.RecordCount>0 then '如果有此number
			if len(HyRs("rightnumber"))>0 then  '有右Number		
				sql1="select LeftNumber,HyNumber,RightNumber,HyBuyCount from HyClub where HyNumber ='" & HyRs("rightnumber") & "'  "
				HyRs1.Open sql1,conn
				if HyRs1.RecordCount>0 then
					Count=Count+HyRs1("HyBuyCount")
					if len(HyRs1("leftnumber"))>0 then
						Count=Count+GetLeftDanAllCount(HyRs1("Hynumber"))
					end if
					if len(HyRs1("rightnumber"))>0 then
						Count=Count+GetRightDanAllCount(HyRs1("Hynumber"))
					end if				
				end if
			end if
		end if
	end if
	GetRightDanAllCount=Count
End Function 

Function GetMiniCount(a,b) '比较两个数，去最小，如果最小大于2，则取2
	dim MiniCount
	if a>=b then
		MiniCount=b
	else
		MiniCount=a
	end if
	if MiniCount>2 then
		MiniCount=2
	end if
	GetMiniCount=MiniCount
End Function

Function Get21ParterCount(a,b,MoneyRate) 
	dim ParterCount
	dim MaxCount
	if a>0 and b>0 then
		if a>=b then
			MaxCount=a
			'if the maxCount/2 more than mini number,then return mininumber
			if int(MaxCount/MoneyRate)>=b then
				ParterCount=b
			else
				ParterCount=int(MaxCount/MoneyRate)
			end if
		else
			MaxCount=b
			if int(MaxCount/MoneyRate)>=a then
				ParterCount=a
			else
				ParterCount=int(MaxCount/MoneyRate)
			end if			
		end if
	else
		ParterCount=0
	end if
	Get21ParterCount=ParterCount
End Function

Function GetLeftNumber(HyNumber) '得到左边的编号
	set HyRs=nothing
	set HyRs=server.CreateObject("adodb.recordset")
	sql = "SELECT b.HyNumber FROM HyClub AS a LEFT JOIN HyClub AS b ON a.LeftNumber = b.HyNumber"
	sql= sql & " WHERE (b.HyParentNumber)='" & HyNumber & "'"
	'response.Write sql
	'response.End 
	HyRs.Open sql,conn
	if HyRs.recordcount>0 then
		GetLeftNumber=HyRs("HyNumber")
	else
		GetLeftNumber=""
	end if
End Function

Function GetRightNumber(HyNumber)
	set HyRs=nothing
	set HyRs=server.CreateObject("adodb.recordset")
	sql = "SELECT b.HyNumber FROM HyClub AS a LEFT JOIN HyClub AS b ON a.RightNumber = b.HyNumber"
	sql= sql & " WHERE (b.HyParentNumber)='" & HyNumber & "'"
	'response.Write sql
	'response.End 
	HyRs.Open sql,conn
	if HyRs.recordcount>0 then
		GetRightNumber=HyRs("HyNumber")
	else
		GetRightNumber=""
	end if
End Function

Function GetTjCount(HyNumber)
	set HyTjRs=nothing
	set HyTjRs=server.CreateObject("adodb.recordset")
	Count=0
	if len(HyNumber)>0 then
		sql = "SELECT count(*) as TjCount FROM HyClub where HyTjNumber='" & HyNumber & "' and IsApproved=true"
		HyTjRs.Open sql,conn
		
		if HyTjRs.RecordCount>0 then
				Count=HyTjRs("TjCount")
		end if 
	end if
	GetTjCount=Count
End Function

Function GetTjManageMoney(HyNumber)
	set HyTjRs=nothing
	set HyTjRs=server.CreateObject("adodb.recordset")
	Count=0
	if len(HyNumber)>0 then
		sql = "SELECT sum(HyMoneyLog.TeamManageMoney) as TotalMoney FROM HyClub left join HyMoneyLog on HyClub.HyNumber= HyMoneyLog.HyNumber where HyClub.HyTjNumber in ('" & HyNumber & "') and ComputeTime='" & thistoday & "'"
		HyTjRs.Open sql,conn		
		if HyTjRs.RecordCount>0 then
			if len(HyTjRs("TotalMoney"))>0 then	Count=HyTjRs("TotalMoney")
		end if 
	end if
	GetTjManageMoney=Count
End Function

Function GetTjNumber(HyNumber)
	set HyTjNumberRs=nothing
	set HyTjNumberRs=server.CreateObject("adodb.recordset")
	TjNumber=""
	'tjn=0
	if len(HyNumber)>0 then
		sql = "SELECT HyNumber FROM Hyclub WHERE HyTjNumber in ('" & HyNumber & "')"
		HyTjNumberRs.Open sql,conn		
		if HyTjNumberRs.RecordCount>0 then
			while not HyTjNumberRs.eof
				if len(TjNumber)=0  then
					TjNumber=HyTjNumberRs("HyNumber")
				else
					TjNumber=TjNumber+"','"+HyTjNumberRs("HyNumber")
				end if
				HyTjNumberRs.movenext
				'tjn=tjn+1
			wend		
		end if 
	end if
	GetTjNumber=TjNumber
End Function 

Function GetChildCount(HyNumber) '得到孩子的数量
	GetChildCount=0
	
	if len(HyNumber)>0 then
		set HyRs=nothing
		set HyRs=server.CreateObject("adodb.recordset")
		arrList =split(HyNumber,",")
		Number=""
		for i=Lbound(arrList) to Ubound(arrList)
			if len(Number)=0 then
				Number=arrList(i)
			else
				Number=Number & "','" & arrList(i)
			end if
		next
			
		sql = "select ID from HyClub where HyParentNumber in('" & Number & "')"
		HyRs.Open sql,conn
		if HyRs.recordcount>0 then
12 下一页
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -