productgou_inc.asp

来自「网店批发系统,很好很强大,很好很强大很好很强大」· ASP 代码 · 共 157 行

<%
	Response.Buffer = True 
	Response.ExpiresAbsolute = Now() - 1 
	Response.Expires = 0 
	Response.CacheControl = "no-cache" 
	Response.AddHeader "Pragma", "No-Cache" 
	
	dim rs,ProductID,action,ProductName,ProductPrice,ProductPrice1,ProductList,ProductNum,i,ProductTureNum,ProductTureNum1,query,query1,ChangeNum,ReturnUrl,Level,LevelNum,LevelPrice,Product
	
	dim alertinfo
	alertinfo = shop.connectXml(XML,"/language/alert")
	
	call shop.DBOpen()
	
	ProductID=sqlcheck(Request.QueryString("ID"))
	ChangeNum=sqlcheck(Request.QueryString("ChangeNum"))
	action=sqlchg(Request.QueryString("action"))
	ProductList=Session("ProductList")
	
	if Session("LevelNum") = "" then
		Level = 100
	else
		Level = Session("LevelNum")
	end if
	
	LevelNum = Request.Cookies("ProductNum")
	LevelPrice = Request.Cookies("ProductPrice")	
	
	if ChangeNum="" then		
		ChangeNum = 1
		ReturnUrl = "<script language='javascript'>alert('"&alertinfo(2)&"');window.location.href='ProductList.asp';</script>"
	else
		ReturnUrl = "<script language='javascript'>window.location.href='ProductList.asp';</script>"
	end if
		
	if action="add" then	
	
	'判断商品是否有货
	set rs = conn.execute("Select ProductNum from Product where ProductID = "&ProductID&"")
	if rs(0) <= 0  then
		Response.Write("<script language='javascript'>alert('"&alertinfo(3)&"');window.close();</script>")
		Response.End()
	end if
	
		'读商品数据
		set rs=conn.execute("Select ProductName,ProductPrice1 from Product where ProductID="&ProductID&"")
		ProductName = rs("ProductName")
		ProductPrice = Cint(rs("ProductPrice1")*Level/100)
		
		LevelPrice = LevelPrice + ProductPrice
			
		'判断该商品是否已经添加
		if instr(ProductList,""&ProductID&","&ProductName&","&ProductPrice&"") then
			'取商品数量
			ProductNum=split(ProductList,",")
			'循环判断
			for i = 0 to ubound(ProductNum)
				if ProductNum(i) = ProductID then
					'替换数量
					ProductTureNum = ProductNum(i+3)
					'判断数量是否小于1
					if ProductTureNum < 2 and Cint(ChangeNum) = -1 then
						ChangeNum = 0
					end if
					
					ProductTureNum1 = Cint(ProductNum(i+3))+Cint(ChangeNum)
					query = ""&ProductID&","&ProductName&","&ProductPrice&","&ProductTureNum&""
					query1 = ""&ProductID&","&ProductName&","&ProductPrice&","&ProductTureNum1&""
					
					ProductList=replace(ProductList,query,query1)
				end if
			next
			Session("ProductList")=ProductList
		else
			LevelNum = LevelNum + 1
			'判断是不是头次添加购物车
			Session("ProductList")=ProductList&","&ProductID&","&ProductName&","&ProductPrice&","&"1"		
			Session.Timeout=30
		end if
		
			Response.Write(ReturnUrl)
			
		'修改客户端数据
		Response.Cookies("ProductNum") = LevelNum
		Response.Cookies("ProductPrice") = LevelPrice
	end if
	
	if action="edit" then
	
		if Session("ProductList") = "" then
			Response.Write("<script language='javascript'>alert('"&alertinfo(4)&"');window.location.href='ProductList.asp';</script>")
			Response.End()
		end if
		'修改商品数量
		Product = split(Session("ProductList"),",")
		ProductNum = ubound(Product)
		for i = 4 to ProductNum
			if not isnumeric(Request.Form("Product"&Product(i-3)&"")) then
				Response.Write("<script language='javascript'>alert('"&alertinfo(5)&"');window.location.href='ProductList.asp';</script>")
				Response.End()
			end if
			Product(i) = Request.Form("Product"&Product(i-3)&"")
			LevelPrice = LevelPrice + (Product(i)-1) * Product(i-1)*Level/100
			i = i + 3
		next
		
		ProductList = ""
		
		for i = 1 to ProductNum
			ProductList = ProductList&","&Product(i)
		next
		
		'Response.Write LevelPrice&"<br />"
		'Response.Write Session("ProductList")
		'response.End()
		
		Session("ProductList") = ProductList
		
		'Response.Cookies("ProductPrice") = LevelPrice
		
		Response.Write("<script language='javascript'>alert('"&alertinfo(6)&"');window.location.href='ProductList.asp';</script>")
		Response.End()
	end if	
		
	if action="del" then
		'读商品数据
		set rs=conn.execute("Select ProductName,ProductPrice1 from Product where ProductID="&ProductID&"")
		ProductName = rs("ProductName")
		ProductPrice = Cint(rs("ProductPrice1")*Level/100)
		'取商品数量
			ProductNum=split(ProductList,",")
		'循环判断
			for i = 0 to ubound(ProductNum)
				if ProductNum(i) = ProductID then
					'替换数量
					ProductTureNum = ProductNum(i+3)
					query = ","&ProductID&","&ProductName&","&ProductPrice&","&ProductTureNum&""
					
					ProductList=replace(ProductList,query,"")
				end if
			next
			Session("ProductList")=ProductList		
		Response.Write("<script language='javascript'>alert('"&alertinfo(7)&"');window.location.href='ProductList.asp';</script>")
		'修改客户端数据
		Response.Cookies("ProductNum") = LevelNum - 1
		Response.Cookies("ProductPrice") = LevelPrice - Cint(ProductPrice)*Cint(ProductTureNum)
	end if
	
	if action="delAll" then
		Session("ProductList")=""
		Response.Write("<script language='javascript'>alert('"&alertinfo(8)&"');window.location.href='ProductList.asp';</script>")
		'修改客户端数据
		Response.Cookies("ProductNum") = 0
		Response.Cookies("ProductPrice") = 0
	end if
%>