saveorder_inc.asp

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

<%
	dim OrderNunber,Timenow,UserTrueName,Password,Address,Code,UserQQ,Tel,zhifu,songhuo,Content
	dim UserName,orderPass
	dim UserInfo(6)
	
	action = sqlchg(Request("action"))
	Timenow = now()
	UserTrueName = sqlchg(Request.Form("UserName"))
	Address = sqlchg(Request.Form("Address"))
	Code = sqlchg(Request.Form("Code"))
	UserQQ = sqlchg(Request.Form("QQ"))
	Tel = sqlchg(Request.Form("Tel"))
	zhifu = sqlchg(Request.Form("zhifu"))
	songhuo = sqlchg(Request.Form("songhuo"))
	Content = sqlchg(Request.Form("OrderContent"))
	User = Session("UserName")
	Username = Session("UserName")
	
	'看是否有货
	if Session("ProductList") = "" then
		Response.Write("<script>alert('您的购物车里面没有商品');window.location.href='index.asp';</script>")
		Response.End()
	end if
	
	'读送货信息，支付方式
	dim pay,p_num
	pay = shop.DBClass("SELECT p_name,p_type FROM payment ORDER BY orderid,p_id DESC")
	p_num = ArrayNum
	
	'取用户数据
	if Username <> "" then
		set rs = conn1.execute("Select UserTrueName,UserAddress,UserCode,UserQQ,UserTel,Userzhifu,Usersonghuo from [User] where username = '"&UserName&"'")
		UserInfo(0) = rs(0) 
		UserInfo(1) = rs(1) 
		UserInfo(2) = rs(2) 
		UserInfo(3) = rs(3) 
		UserInfo(4) = rs(4) 
		UserInfo(5) = rs(5) 
		UserInfo(6) = rs(6) 
	end if
	
	if action = "Reg" then
		UserName = Request.Form("UserName")
		Password = md5(Request.Form("Password"))
		'判断用户名
		set rs = conn1.execute("Select count(*) from [User] where username = '"&UserName&"'")
		if rs(0) <> 0 then
			response.Write("<script language='javascript'>alert('对不起，您的用户名已被注册');history.go(-1);</script>")
			Response.End()
		end if
		'写数据库
		conn1.execute("insert into [User] (UserName,UserPass,UserRegDate) values ('"&UserName&"','"&Password&"','"&Timenow&"')")
		Session("Username") = UserName
		Session.Timeout = 30
		Response.Write("<script language='javascript'>window.location.href='SaveOrder.asp';</script>")
	end if
	if action = "NoneUser" then
		Session("TestUser") = "NoneUser"
		Session.Timeout = 30
		Response.Write("<script language='javascript'>window.location.href='SaveOrder.asp';</script>")
	end if
	if action = "Save" then
		
		'生成订单号
		Randomize
		OrderNunber=Left(Year(Timenow)&Month(Timenow)&Day(Timenow)&Rnd()*1000000000,14)
		
		'获取总价格
		ProductNum = Request.Cookies("ProductPrice")
		
		'生成订单密码
		orderPass = left(Rnd()*10000000,6)
		
		'判断QQ
		if UserQQ = "" then
			UserQQ = 0
		end if
		if Content = "" then
			Content = "未填"
		end if
		
		'写用户资料
		if User = "" then
			conn1.execute("Insert into [User] (UserAddress,UserCode,UserQQ,UserTel,UserTrueName,UserName,Userzhifu,Usersonghuo) values ('"&Address&"','"&Code&"','"&UserQQ&"','"&Tel&"','"&UserTrueName&"','"&OrderNunber&"','"&zhifu&"','"&songhuo&"')")
		else
			conn1.execute("update [User] set UserAddress='"&Address&"',UserCode='"&Code&"',UserQQ='"&UserQQ&"',UserTel= '"&Tel&"',UserTrueName= '"&UserTrueName&"',Userzhifu= '"&zhifu&"',Usersonghuo= '"&songhuo&"' where Username = '"&UserName&"'")
		end if
		'写订单
		for j = 1 to (i-1)
			if User = "" then	
				conn1.execute("insert into [Order] (orderNumber,orderDate,orderProductID,orderCount,orderUserName,zhifu,songhuo,orderUserTrueName,Content,OrderTotalNum,orderPass) values ('"&OrderNunber&"','"&Timenow&"','"&ProductList(j)&"','"&ProductList(j+3)&"','"&OrderNunber&"','"&zhifu&"','"&songhuo&"','"&UserTrueName&"','"&Content&"','"&ProductNum&"','"&orderPass&"')")
				
			else
				conn1.execute("insert into [Order] (orderNumber,orderDate,orderProductID,orderCount,orderUserName,zhifu,songhuo,orderUserTrueName,Content,OrderTotalNum,orderPass) values ('"&OrderNunber&"','"&Timenow&"','"&ProductList(j)&"','"&ProductList(j+3)&"','"&UserName&"','"&zhifu&"','"&songhuo&"','"&UserTrueName&"','"&Content&"','"&ProductNum&"','"&orderPass&"')")
			end if
			j = j + 3
		next
		
		'清空
		Session("ProductList") = ""
		Response.Cookies("ProductNum") = ""
		Response.Cookies("ProductPrice") = ""
		
		if User = "" then	
			Session("UserName") = OrderNunber
			Response.Write("<script language='javascript'>alert('您已经成功下订单，服务商在确认您的订单之后将根据您的送货方式帮您计算出邮费，请按照您所填写的支付方式支付订单金额,您的订单号为"&OrderNunber&",您的订单密码为"&orderPass&",请牢记您的订单密码,您可以通过这个订单密码来直接查看你的订单');window.open('OrderInfo.asp?OrderNumber="&OrderNunber&"&OrderPass="&OrderPass&"','_new');window.location.href='UserCenter.asp?action=ViewDingDan&ID="&OrderNunber&"';</script>")
		else
			Response.Write("<script language='javascript'>alert('您已经成功下订单，服务商在确认您的订单之后将根据您的送货方式帮您计算出邮费，请按照您所填写的支付方式支付订单金额,您的订单号为"&OrderNunber&",您的订单密码为"&orderPass&",请牢记您的订单密码,您可以通过这个订单密码来直接查看你的订单');window.open('OrderInfo.asp?OrderNumber="&OrderNunber&"&OrderPass="&OrderPass&"','_new');window.location.href='UserCenter.asp?action=ViewDingDan&ID="&OrderNunber&"';</script>")
		end if
	end if
%>