payment3.asp

诚信商店系统源代码

<!--#include file="title.asp"--><meta name=keywords content="诚信商店,血饮狂刀,Clanboo,lanboo,金统联,[e-mail],jsbuy.com,cebuy.com,王星亮,完美商店,超级商店,商城,冷面">
<%
Set cmdTemp = Server.CreateObject("ADODB.Command")
Set InsertCursor = Server.CreateObject("ADODB.Recordset")
cmdTemp.CommandText = "SELECT top 1 * FROM web_Order order by OrderID desc"
cmdTemp.CommandType = 1
Set cmdTemp.ActiveConnection = conn
InsertCursor.Open cmdTemp, , 3, 3
InsertCursor.addnew 
orderID=replace(replace(replace(now,"-",""),":","")," ","")  'GetID("select max(id)+1 from web_Order")
InsertCursor("OrderID")=orderID
InsertCursor("memberID") =request("int_mbrID")
InsertCursor("customerName") =Request("customerName")
InsertCursor("address") =Request("address")
InsertCursor("code") =Request("code")
InsertCursor("phone") =Request("phone")
InsertCursor("email") =Request("email")
InsertCursor("payment") =Request("payment")
InsertCursor("remark") =Request("remark")
InsertCursor("createDate")=now
InsertCursor("state")=0
InsertCursor.update
InsertCursor.close

'response.write rs("id")&"rsid<br>"
'response.write InsertCursor("id")&"rsid<br>"
set InsertCursor=nothing
'	response.write session("quantityList")&"quantityList<br>"
'	response.write session("productList")&"productList<br>"
productList=session("productList")
If Len(productList) <>0 Then
   quantityArray = Split(session("quantityList"), ", ")
   productArray = Split(session("productList"), ", ")
   for i=0 to UBound(productArray)
		set rs=server.createobject("adodb.recordset")
		sql = "Select * from web_ProcLib where ProcID="&productArray(i)
		rs.open sql,conn,1,1
	 	if Not rs.EOF or err then
			quantity = quantityArray(i)
'			quantity = cstr(quantityArray(i))
'			response.write quantity&"quantity"
'			response.End 
			If quantity <= 0 Then quantity = 1
			sql = "INSERT INTO web_OrderDetail (orderID, productID, productName, price,quantity) "  
			sql = sql & "VALUES("& orderID & ","
			sql = sql & productArray(i) &",'"
			sql = sql & rs("A5")& "','"
			sql = sql & rs("A16")& "',"
			sql = sql & quantity&")"
'			response.write sql
			Conn.Execute(sql)
			sql="update web_ProcLib set A31=A31+1 where ProcID="&productArray(i)
			conn.execute (sql)
	    end if
   next
end if
%>
      <div align="center"><br>
        <br>
        <br>
        订单已经递交,订单号为：<br><b><font size="7" color="#FF0000"><%=orderID%></font></b><br>
        <br>
        <br>
      </div>
      <table border="1" cellpadding="3" cellspacing="0" width="761" bordercolorlight="#FF6D00" bordercolordark="#FFFFF7" align="center">
          <tr> 
            <td align="left" nowrap height="24">收到您的货款后，我们将按您的订单发货，请牢记您的订单号(<%=orderID%>)，以便查询。</td>
          </tr>
          <tr> 
            <td  width=60 nowrap height="22"> 备注信息</td>
          </tr>
          <tr bgcolor="#a5cede"> 
            <td bgcolor="#a5cede"> 
              <div align=center> 
                <p align="center"> 
                  <input type=button value=继续购物 name=Submit22 onClick="window.location='./';">
              </div>
            </td>
          </tr>
      </table>
<%
	session("productList")=""
	session("quantityList")=""
%>