check_save.asp

物流管理系统,可以用于中小企业,建立自己的内部物流管理.

<%@ LANGUAGE="VBSCRIPT" codepage ="936" %>
<!--#include file="ADOVBS.INC"-->
<!--#include file="util.asp" -->
<!--#include file="../conn/dbCONN1.ASP" -->
<TITLE>收银台（订单提交成功）</TITLE>
<%
ProductList = Session("ProductList")
If Len(ProductList) = 0 Then 
   response.write"<SCRIPT language=JavaScript>alert('对不起，你还没有订购产品，不能下单!');"
   response.write"this.location.href='no.asp'</SCRIPT>"
else
  set rs=server.createobject("adodb.recordset")
  session("productlist")=productlist
  sql = "Select * From spzs"
  sql = sql & " Where cpbh In (" & ProductList & ")"
  sql = sql & " Order By cpbh"
  rs.open sql,conn,1,1
	if session(rs("ID"))=0 then
	   session(rs("ID"))=1
	end if
while not rs.eof

set rs2=server.createobject("adodb.recordset")
sqltext2="select * from Orderlist"
rs2.open sqltext2,conn,3,3
rs2.addnew
rs2("Product_ID")=rs("cpbh")
rs2("Product_Name")=rs("cpmc")
rs2("Number")=cint(session(rs("cpbh")))
rs2("P_NewPrice")=Session("Price_Sum")
rs2("Gsid")=session("id")
rs2("Reid")=rs("Gsid")
rs2("title")=request("title")
rs2("message")=request("content")
rs2("pays")=request("pays")
rs2.update
rs2.close
rs.movenext
wend
Session("ProductList") = ""
Session("Price_Sum") = ""
rs.close
conn.close

response.write"<SCRIPT language=JavaScript>alert('恭喜您！您的订单已经提交成功，我们将尽快和您联系。请保存好以下交易合同!!');"
response.write"this.location.href='Success.asp'</SCRIPT>"
%>

<%end if%>