cart_xt.asp

企业进销存管理系统

<%
'***********************************
'功能：实现购物车的原理
'调用方法：call cart(购买商品的ID号,单价，购买数量)

'输出arr数组中的商品信息
	'call cart("spid","price","spsl")
	'arr=session("arr_xt")
	'For I = 0 To ubound(arr,1)
	  ' For J = 0 To 2
		  'response.Write(arr(I, J)&"|")
	  ' Next
	   'response.Write("<br>")
	'Next
	
'开发时间：2005-09-16 11：25
'开发者：王国辉
'***********************************
function cart(buyID,price,buynumber)
	if not isarray(session("arr_xt")) then
		dim arr(0,2)
		arr(0,0)=buyID
		arr(0,1)=price
		arr(0,2)=buynumber
	else
		arr=session("arr_xt")
		UB=ubound(arr,1)+1
		redim arr(UB,2)
		sessionarr=session("arr_xt")
		'将新添加的商品信息保存
		arr(UB,0)=buyID
		arr(UB,1)=price
		arr(UB,2)=buynumber
		'应用循环将保存在seesion("arr")数组中的商品信息添加到arr中
		For I = 0 To ubound(sessionarr,1)
		   For J = 0 To 2
			  arr(I, J)=sessionarr(I,J)
		   Next
		Next	
	end if
	session("arr_xt")=arr   	
end function
'调用购物车函数并显示购物车中的数据
'call cart("spid","spsl")
'arr=session("arr_xt")
'For I = 0 To ubound(arr,1)
'	For J = 0 To 2
'		response.Write(arr(I, J)&"|")
'	Next
'	response.Write("<br>")
'Next
'***********************************
'功能：实现购物车的原理
'调用方法：call remove(要删除商品的ID号)
'开发时间：2005-09-16 16：57
'开发者：王国辉
'***********************************
function remove(spid)
	if isarray(session("arr_xt")) then
		arr=session("arr_xt")
		UB=Ubound(arr,1)
		if UB=0 then
			session("arr_xt")=""
		else	
			flag=false '标记是否已经删除对应的商品信息
			redim arr_temp(UB-1,2)  '定义临时存储购物车信息的数组
			for i=0 to UB
				if arr(i,0)<>spid then			
					for j=0 to 2
						if flag then  '当删除一条商品信息后
							arr_temp(i-1,j)=arr(i,j)
						else
							arr_temp(i,j)=arr(i,j)
						end if
					next
				else
					flag=true
				end if
			next
		end if
	end if
	session("arr_xt")=arr_temp
end function
%>