deal_order_admin.asp

Sellandsavingmanagementsystem是一个进销存管理系统,是用ASP编写的.集销售,管理与一体.可以对仓库情况进行查询管理.

<!-- #include file="admin_protect.inc" -->
<%
ProID=Request.Form("ProID")
Num=Request.Form("Num")
If Num<>"" And Cint(Num)>0 Then
	arrayProductID=Split(Session("Product"),",")
	arrayProductNum=Split(Session("Num"),",")
	For i=0 To Ubound(arrayProductID)-1
		If arrayProductID(i)=ProID Then
			arrayProductNum(i)=Cint(arrayProductNum(i))+Num
			IsNew=True
			Exit For
		End If
	Next
	If IsNew=True Then
		Session("Product")=""
		Session("Num")=""
		For J=0 To Ubound(arrayProductID)-1
			Session("Product")=Session("Product") & arrayProductID(J) & ","
			Session("Num")=Session("Num") & arrayProductNum(J) & ","
		Next
	Else
		Session("Product")=Session("Product") & ProID & ","
		Session("Num")=Session("Num") & Num & ","
	End If
Else
	Response.Write "<p><center><b>输入错误，操作失败！</b></center></p>"
End If
%><!-- #include file="cart_admin.asp" -->