check.asp

西亚电子购物系统

<!--#include file="header.asp" -->
<!--#include file="conn/nosql.asp" -->
<%
ProductList = Session("ProductList")
flags="尚未处理"
If Len(ProductList) = 0 Then 
Response.Redirect "Nothing.asp"
end if
'产生订单号（内部和外部）及定单产生日期及其他信息
BranchID="0022"
CoNo="000040"
'Amount=session("cpbm")

'交易日期，格式：YYYYMMDD
yy=year(date)
mm=right("00"&month(date),2)
dd=right("00"&day(date),2)
riqi=yy & mm & dd

'生成订单号所有所需元素,格式为：小时，分钟，秒
xiaoshi=right("00"&hour(time),2)
fenzhong=right("00"&minute(time),2)
miao=right("00"&second(time),2)

'产生外部和内部定单号
BillNo=xiaoshi & fenzhong & miao
ordernumber=yy & mm & dd & xiaoshi & fenzhong & miao
if request("sia_user")="" then 
response.write "<br><br><br><div align='center'>请留下您的名称，谢谢！</div>"
response.end
end if
if request("name")="" then 
response.write "<br><br><br><div align='center'>请留下您的真实姓名，谢谢！</div>"
response.end
end if
if request("address")="" then 
response.write "<br><br><br><div align='center'>请留下您的联系地址，谢谢！</div>"
response.end
end if
if request("tel")="" then 
response.write "<br><br><br><div align='center'>请留下您的联系电话，谢谢！</div>"
response.end
end if
if request("payment")="" then 
response.write "<br><br><br><div align='center'>请选择您的付款方式，谢谢！</div>"
response.end
end if
if Len(request.form("remark"))>500 then 
response.write "<br><br><br><div align='center'>错误提示:备注的内容不能大于500字!</div><br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<div align='center'><a href=# onclick='history.back()'>返回修改</a></div>"
response.end
end if
'保存购买人信息
sia_user = nosql(Request.Form("sia_user"))
name = nosql(Request.Form("name"))
zipcode = nosql(Request.Form("zipcode"))
tel = nosql(Request.Form("tel"))
mail = nosql(Request.Form("mail"))
address = nosql(Request.Form("address"))
price = clng(Request.Form("price"))
set rs=server.createobject("adodb.recordset")
sql="select * from sia_user where  sia_user='" & sia_user &"'"
rs.open sql,conn,3,3
if not rs.eof then
rs("name")=name
rs("zipcode")=zipcode
rs("tel")=tel
rs("mail")=mail
rs("address")=address
rs("price")=rs("price")+je
rs.update 
end if 
rs.close
'保存购买信息
set rs=server.createobject("adodb.recordset")
sqltext="select * from sia_order"
rs.open sqltext,conn,3,3,1

rs.addnew
rs("ordernumber")=ordernumber
rs("sia_user")=nosql(request.form("sia_user"))
rs("payment")=nosql(request.form("payment"))
rs("price")=clng(request.form("price"))
rs("vipdiscount")=clng(request.form("discount"))
rs("orderstate")=flags
rs("ip") = Request.servervariables("REMOTE_ADDR")
rs("remark")=nosql(request.form("remark"))
If rs("remark")="" then
	rs("remark")="无"
End If
rs.update
rs.close
sql="select orderid from sia_order order by now desc"
rs.open sql,conn,3,3
rs.close
products=split(nosql(request("cpbm")),",")
for i=0 to UBound(Products)
'response.write cpbm
next
set rs=server.createobject("adodb.recordset")
session("productlist")=productlist
sql = "Select * From sia_product"
sql = sql & " Where proname In (" & ProductList & ")"
Set rs = conn.Execute( sql )
if session(rs("proname"))=0 then
   session(rs("proname"))=1
end if

while not rs.eof
set rs2=server.createobject("adodb.recordset")
sqltext2="select * from sia_list"
rs2.open sqltext2,conn,3,3,1
rs2.addnew
rs2("code")=rs("code")
rs2("ordernumber")=ordernumber
rs2("proname")=rs("proname")
rs2("stock")=cint(session(rs("proname")))
rs2("proprice")=ccur(rs("proprice"))
rs2("clid")=rs("clid")
rs2("claid")=rs("claid")
rs2("sia_user")=nosql(request.form("sia_user"))
rs2.update

Set rs3= Server.CreateObject("ADODB.Recordset")
sql3="select * from sia_product where proid="&rs("proid")&""
rs3.open sql3,conn,3,3
if not rs3.eof then
	rs3("stock")=rs3("stock")-cint(session(rs("proname")))
	rs3.update 
end if 
rs3.close
rs2.close
rs.movenext
wend
Session.Contents.Remove("LoginSuccess")
Session.Contents.Remove("ProductList")
response.write "<meta http-equiv='refresh' content='300; url=/'>"
rs.close
%>

<table width="778" height="350" align="center" cellpadding="0" cellspacing="0">
  <tr> 
    <td width="185" rowspan="2" valign="top" class="table-right"><!--#include file="left.asp" --></td>
    <td height="40" align="center" valign="top"> <strong>购物步骤→购物车→结算中心→提交成功 </strong></td>
  </tr>
  <tr> 
    <td height="250" valign="top"> 
      <div align="center"> 
        <font color="#ff3333">您的订单号：<%=ordernumber%>
          </font>
      </div>
      <table width="90%" align="center" cellpadding="2">
        <tr> 
          <td valign="middle"><img src="images/i-5.gif" width="17" height="17" align="absmiddle">订单提交成功！</td>
        </tr>
        <tr> 
          <td valign="middle"><img src="images/i-5.gif" width="17" height="17" align="absmiddle">我们将按您的联系方式与您联系并按您的订单发货，请用笔记下您的订单号，以便查询。</td>
        </tr>
        <tr> 
          <td valign="middle"> <% set rspayment=server.createobject("adodb.recordset")
            sqlpayment="select * from sia_payment where paymode='"&nosql(request.form("payment"))&"'"
            set rspayment = conn.execute(sqlpayment)
			%><img src="images/i-5.gif" width="17" height="17" align="absmiddle">您选择的付款方式：</td>
        </tr>
        <tr> 
          <td valign="middle">&nbsp;&nbsp;&nbsp;&nbsp;<%=rspayment("paymode")%></td>
        </tr>
        <tr> 
          <td valign="middle"><img src="images/i-5.gif" width="17" height="17" align="absmiddle"><%=rspayment("paymode")%>付款方式说明：</td>
        </tr>
        <tr> 
          <td valign="middle">&nbsp;&nbsp;&nbsp;&nbsp;<%=rspayment("sendmode")%></td>
        </tr>
      </table>
      <p><br>
        <br>
      </p></td>
  </tr>
</table><%rspayment.close%>
<!--#include file="footer.asp" -->