common.asp

mlm双轨制直销系统V8.0免费版 可用于： 1、直拨、回拨电话卡公司。 2、保健品、药品公司。 3、在线销售商品等等。 4、其他类型用到双轨制模式的线上开盘公司。

<%


Function GetHyMoneyAccountByHyNumber(HyNumber)
	set HyHyMoneyAccountRs=nothing
	set HyHyMoneyAccountRs=server.CreateObject("adodb.recordset")
	Count=0
	if len(HyNumber)>0 then
		sql = "select sum(AllMOney) as SumMOney from HyMoneyLog where HyNumber ='" & HyNumber & "'"
		HyHyMoneyAccountRs.Open sql,conn	
		if HyHyMoneyAccountRs.RecordCount>0 then
			if len(HyHyMoneyAccountRs("SumMOney"))>0 then
				Count=HyHyMoneyAccountRs("SumMOney")
			end if
		end if 
	end if
	GetHyMoneyAccountByHyNumber=Count
End Function 

Function GetDisplayFunc(FuncName)
	IsExists=false
	if len(FuncName)>0 then
		set HyDisplayFuncRs=nothing
		set HyDisplayFuncRs=server.CreateObject("adodb.recordset")
		sql = "select IsDisplay from Setting_Function where FuncName ='" & FuncName & "'"
		HyDisplayFuncRs.Open sql,conn		
		if HyDisplayFuncRs.recordcount>0 then
			IsExists=HyDisplayFuncRs("IsDisplay")
		end if
	end if
	GetDisplayFunc=IsExists
End Function

Function Getleftnumber(tjnumber)
                tjnumber2=tjnumber
                set HyleftRs=nothing
		set HyleftRs=server.CreateObject("adodb.recordset")
		sql = "select LeftNumber from HyClub where HyNumber ='" & tjnumber & "'"
		HyleftRs.Open sql,conn
		if HyleftRs.RecordCount>0 then
		   tjnumber2=HyleftRs("LeftNumber")
		   Getleftnumber=Getleftnumber(tjnumber2)
		else
		Getleftnumber2=tjnumber2
		End if
                Getleftnumber=Getleftnumber2
End Function

Function GetDisplay(FieldName)
	IsExists=false
	if len(FieldName)>0 then
		set HyDisplayRs=nothing
		set HyDisplayRs=server.CreateObject("adodb.recordset")
		sql = "select FieldIsDisplay from Setting_Field where FieldName ='" & FieldName & "'"
		HyDisplayRs.Open sql,conn		
		if HyDisplayRs.recordcount>0 then
			IsExists=HyDisplayRs("FieldIsDisplay")
		end if
	end if
	GetDisplay=IsExists
End Function

Function GetDisplayName(FieldName)
	DisplayName=""
	if len(FieldName)>0 then
		set HyDisplayNameRs=nothing
		set HyDisplayNameRs=server.CreateObject("adodb.recordset")
		sql = "select MyFieldText from Setting_Field where FieldName ='" & FieldName & "'"
		HyDisplayNameRs.Open sql,conn		
		if HyDisplayNameRs.recordcount>0 then
			DisplayName=HyDisplayNameRs("MyFieldText")
		end if
	end if
	GetDisplayName=DisplayName
End Function
Function GetOtherSettingValue(FuncName)
	OtherSettingValue=""
	if len(FuncName)>0 then
		set HyOtherSettingRs=nothing
		set HyOtherSettingRs=server.CreateObject("adodb.recordset")
		sql = "select FuncValue from Setting_other where FuncName ='" & FuncName & "'"
		HyOtherSettingRs.Open sql,conn		
		if HyOtherSettingRs.recordcount>0 then
			OtherSettingValue=HyOtherSettingRs("FuncValue")
		end if
	end if
	GetOtherSettingValue=OtherSettingValue
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 & "'"
		HyTjRs.Open sql,conn
		
		if HyTjRs.RecordCount>0 then
				Count=HyTjRs("TjCount")
		end if 
	end if
	GetTjCount=Count
End Function

Function GetNameByNumber(HyNumber)  '检查MoneyLog是否存在记录
	IsExists=""
	if len(HyNumber)>0 then
		set HyNameByNumberRs=nothing
		set HyNameByNumberRs=server.CreateObject("adodb.recordset")
		sql = "select Hy.HyName from hy left join hyClub on hy.ID=HyClub.HyID where  HyClub.HyNumber ='" & HyNumber & "'"
		HyNameByNumberRs.Open sql,conn		
		if HyNameByNumberRs.recordcount>0 then
			IsExists=HyNameByNumberRs("HyName")
		end if
	end if
	GetNameByNumber=IsExists	
End Function 
%>