orderedit_inc.asp

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

<%
	dim rs,i,Username,UserInfo,DingDan,ID,j,Num,action,ModifyNum,DingDanStage
	
	j = 0
	Num = 0
	
	ID = sqlcheck(Request.QueryString("ID"))
	action = sqlchg(Request.QueryString("action"))
	ModifyNum = sqlcheck(Request.QueryString("ModifyNum"))
	DingDanStage = sqlchg(Request.Form("DingDanStage"))
	
	if action = "edit" then
	call CheckType(22)	
		if DingDanStage = 1 then
			conn.execute("Update [Order] set OrderStage = OrderStage + 1 where OrderNumber = '"&ID&"'")		
		end if		
		Response.Write("<script language='javascript'>alert('修改成功');window.location.href='orderedit.asp?ID="&ID&"';</script>")
		Response.End()
	end if
	
	if action = "del" then
	call CheckType(21)	
		conn.execute("Delete from [Order] where OrderNumber='"&ID&"'")
		'如果是非注册用户
		conn.execute("Delete from [User] where UserName='"&ID&"'")
		Response.Write("<script language='javascript'>alert('修改成功');window.location.href='ordermanage.asp';</script>")
		Response.End()
	end if
	
	if action = "modify" then
		conn.execute("Update [Order] set OrderTotalNum = "&ModifyNum&" where OrderNumber = '"&ID&"'")
	end if

	call CheckType(20)		
		'读订单
		set rs = conn.execute("Select o.orderProductID,o.orderCount,p.ProductPrice1,p.ProductPrice2,p.ProductName,o.Content,o.orderStage,o.orderUserName,o.OrderTotalNum,o.OrderNumber from [Order] o inner join Product p on o.orderProductID = p.ProductID where OrderNumber = '"&ID&"'")		
		if not rs.eof then
			DingDan = rs.getrows
			i = ubound(DingDan,2)
			'读用户资料
			set rs = conn.execute("Select u.UserTrueName,u.UserAddress,u.UserCode,u.UserQQ,u.UserTel,u.Userzhifu,u.Usersonghuo,l.LevelName,l.LevelNum from [User] u inner join [Level] l on u.UserFlag = l.LevelOrder where u.Username = '"&DingDan(7,0)&"'")
			UserInfo = rs.getrows
		end if
%>