funcs.asp

超市商品信息系统

<%
'存储系统中常用的函数
'字符串替换函数，替换空格和回车为HTML代码
function replaceTS(tS)
	tS=replace(tS,chr(10),"&nbsp;")
	tS=replace(tS,chr(13),"<br>")
	replaceTS=tS
end function
'出错提示子过程
sub eMessage(str)
	response.Write("<script language='javascript'>alert('"&str&"');")	'弹出提示框
	response.write"javascript:history.go(-1)</SCRIPT>"					'回退一页
	response.End()	'结束代码执行
end sub
'消息提示子过程
sub Message(str)
	response.Write("<script language='javascript'>alert('"&str&"');</SCRIPT>")
end sub
'检查用户是否登录子过程
sub CheckAdmin()
	if session("User")="" then
		call eMessage("请先登录！")
	end if
end sub
'根据类别编号获取类别名称
function GetLBNameByLBID(num)
	SQLStr="select LBName from LB where LBID="&num
	set rSS=server.CreateObject("Adodb.recordset")
	rSS.Open SQLStr,conn,1,1
	GetLBNameByLBID=rSS(0)
	rSS.close
end function
'根据类别名称获取类别编号
function GetLBIDByLBName(tS)
	SQLStr="select * from LB where LBName='"&tS&"'"
	rSS.Open SQLStr,conn,1,1
	GetLBIDByLBName=rSS(0)
	rSS.close
end function
'根据供应商编号获取供应商名称
function GetGYSNameByGYSID(num)
	SQLStr="select GYSName from GYS where GYSID="&num
	rSS.Open SQLStr,conn,1,1
	GetGYSNameByGYSID=rSS(0)
	rSS.close
end function
'根据供应商名称获取供应商编号
function GetGYSIDByGYSName(tS)
	SQLStr="select * from GYS where GYSName='"&tS&"'"
	rSS.Open SQLStr,conn,1,1
	GetGYSIDByGYSName=rSS(0)
	rSS.close
end function
'根据制造商编号获取制造商名称
function GetZZSNameByZZSID(num)
	SQLStr="select ZZSName from ZZS where ZZSID="&num
	rSS.Open SQLStr,conn,1,1
	GetZZSNameByZZSID=rSS(0)
	rSS.close
end function
'根据制造商名称获取制造商编号
function GetZZSIDByZZSName(tS)
	SQLStr="select * from ZZS where ZZSName='"&tS&"'"
	rSS.Open SQLStr,conn,1,1
	GetZZSIDByZZSName=rSS(0)
	rSS.close
end function
'根据商品编号获取商品价格
function GetSPPriceBySPID(num)
	SQLStr="select SPPrice from KC where SPID="&num
	rSS.Open SQLStr,conn,1,1
	GetSPPriceBySPID=rSS(0)
	rSS.close
end function
'根据商品编号获取商品数量
function GetSPSLBySPID(num)
	SQLStr="select SPSL from KC where SPID="&num
	rSS.Open SQLStr,conn,1,1
	GetSPSLBySPID=rSS(0)
	rSS.close
end function
'根据商品编号和提供的数量更新商品数量
sub DeCreaseSPSL(SPID,DESL)
	SQLStr="Update KC set SPSL=SPSL-"&DESL&" where SPID="&SPID
	conn.execute SQLStr
end sub
'根据商品编号获取商品名称
function GetSPNameBySPID(num)
	SQLStr="select SPName from SP where SPID="&num
	rSS.Open SQLStr,conn,1,1
	GetSPNameBySPID=rSS(0)
	rSS.close
end function
'根据商品名称获取商品编号
function GetSPIDBySPName(str)
	SQLStr="select SPID from SP where SPName='"&str&"'"
	rSS.Open SQLStr,conn,1,1
	GetSPIDBySPName=rSS(0)
	rSS.close
end function
'根据商品编号获取制造商编号
function GetZZSIDBySPID(num)
	SQLStr="select SPZZSID from SP where SPID="&num
	rSS.Open SQLStr,conn,1,1
	GetZZSIDBySPID=rSS(0)
	rSS.close
end function
'根据商品编号获取供应商编号
function GetGYSIDBySPID(num)
	SQLStr="select SPGYSID from SP where SPID="&num
	rSS.Open SQLStr,conn,1,1
	GetGYSIDBySPID=rSS(0)
	rSS.close
end function
'根据商品编号从库存表中获取商品价格
function GetSPPriceBySPID(num)
	SQLStr="select SPPrice from KC where KCBD='出库' And SPID="&num&" order by KCDate Desc"
	rSS.Open SQLStr,conn,1,1
	if rs.eof and rs.bof then
		GetSPPriceBySPID="商品价格未知！"
	end if
	GetSPPriceBySPID=rSS(0)
	rSS.close
end function

'根据商品编号计算库存的该商品的数量
Function GetSPKCSLBYSPID(num)
	SQLStr="Select InSL,OutSL from KC where SPID="&num
	rSS.open SQLStr,conn,1,1
	if rSS.eof and rSS.bof then
		GetSPKCSLBYSPID=0
	Else
		ALLInCount=0
		ALLOutCount=0
		for j=1 to rSS.recordcount
			ALLInCount=ALLInCount+rSS(0)
			ALLOutCount=ALLOutCount+rSS(1)
			rSS.movenext
		next
		'库存数量不足
		GetSPKCSLBYSPID=ALLInCount-ALLOutCount
		rSS.close
	End if
End Function
'出库前判断该商品是否已经入库
Function JudgeSPINKC(num)
	SQLStr="Select InSL from KC where SPID="&num
	rSS.open SQLStr,conn,1,1
	if rSS.eof and rSS.bof then
		JudgeSPINKC=False	'无记录
	else
		JudgeSPINKC=true	'有记录
	end if
	rSS.close
End Function
'计算库存表中的入库总数量和总金额，根据参数不同返回不同的值
Function GetInKCSPCountOrSPTMoney(num,Str)
	if num="" then
		SQLStr="Select SUM(InSL),SUM(SPTotalMoney) from KC where KCBD='入库'"
	else
		SQLStr="Select SUM(InSL),SUM(SPTotalMoney) from KC where KCBD='入库' and SPID="&num
	end if
	rSS.open SQLStr,conn,1,1
	Select Case Str
		Case "TSL"		'总数量
			GetInKCSPCountOrSPTMoney=rSS(0)
		Case "TMoney"	'总金额
			GetInKCSPCountOrSPTMoney=rSS(1)
	End Select 
	rSS.close
End Function
'计算库存表中的出库总数量和总金额，根据参数不同返回不同的值
Function GetOutKCSPCountOrSPTMoney(num,Str)
	if num="" then
		SQLStr="Select SUM(OutSL),SUM(SPTotalMoney) from KC where KCBD='出库'"
	else
		SQLStr="Select SUM(OutSL),SUM(SPTotalMoney) from KC where KCBD='出库' and SPID="&num
	end if
	rSS.open SQLStr,conn,1,1
	Select Case Str
		Case "TSL"		'总数量
			GetOutKCSPCountOrSPTMoney=rSS(0)
		Case "TMoney"	'总金额
			GetOutKCSPCountOrSPTMoney=rSS(1)
	End Select 
	rSS.close
End Function
'根据商品列表编号获取SP表中该类别商品的种数
function GetSPCountBySPLBID(num)
	SQLStr="select Count(SPID) from SP where SPLBID="&num
	rSS.Open SQLStr,conn,1,1
	GetSPCountBySPLBID=rSS(0)
	rSS.close
end function
'根据商品类别编号计算该类别商品在库存表中的入库数量、出库数量、库存数量
Function GetRKCKKCSLBySPLBID(num,Str)
	SQLStr="Select SPID From SP where SPLBID="&num
	Set rSST=server.createobject("Adodb.recordset")
	rSST.open SQLStr,conn,1,1
	if rSST.eof and rSST.bof then
		GetRKCKKCSLBySPLBID=0
	else
		GetRKCKKCSLBySPLBID=0
		for j=1 to rSST.recordcount
			Select Case Str
				Case "RK"
					GetRKCKKCSLBySPLBID=GetRKCKKCSLBySPLBID+GetInKCSPCountOrSPTMoney(rSST(0),"TSL")
				Case "CK"
					GetRKCKKCSLBySPLBID=GetRKCKKCSLBySPLBID+GetOutKCSPCountOrSPTMoney(rSST(0),"TSL")
				Case "RKJE"
					GetRKCKKCSLBySPLBID=GetRKCKKCSLBySPLBID+Csng(GetInKCSPCountOrSPTMoney(rSST(0),"TMoney"))
				Case "CKJE"
					GetRKCKKCSLBySPLBID=GetRKCKKCSLBySPLBID+Csng(GetOutKCSPCountOrSPTMoney(rSST(0),"TMoney"))
			End Select
		rSST.movenext
		next
	end if
End Function
%>