<%Option Explicit%>
绿植鲜花玩具礼品店
TD { FONT-SIZE: 12px; FONT-FAMILY: "宋体" }
<%
dim comefrom
comefrom=Request.Cookies("comefrom")
if (comefrom=null or comefrom="") then
comefrom="0"
end if
%>
<!--#include file="top.html"-->
<%
dim cartstr
cartstr = getCartFromCookie()
if (cartstr=NULL or cartstr ="") then
%>
| 你购物车中没有一件商品，请先购物！ |
<%
else
dim payName,payPhone,payAddress,payMemo,sendMonth,sendDay,payEmail
dim recName,recPhone,recAddress,recMemo,recSay,recEmail,whosend,whosendtxt,recSaytxt
payName=request("MypayName")
payPhone=request("payPhone")
payAddress=request("payAddress")
payMemo=request("payMemo")
sendMonth=request("sendMonth")
sendDay=request("sendDay")
payEmail=request("payEmail")
recName=request("recName")
recPhone=request("recPhone")
recAddress=request("recAddress")
recMemo=request("recMemo")
recEmail=request("recEmail")
recSay=request("recSay")
whosend=request("whosend")
dim myrec
myrec=request("myrec")
if (myrec="1") then
recName=payName
recPhone=payPhone
recAddress=payAddress
recEmail=payEmail
end if
if (recSay="0") then
recSaytxt="小姐"
else
if (recSay="0") then
recSaytxt="女士"
esle
recSaytxt="先生"
end if
end if
if (whosend="0") then
whosendtxt=payName+"送"
else
whosendtxt="某人送"
end if
ShowCart("no")
dim sendFee,sendID
sendID=request("send")
sendFee=15
if (sendID="1") then
sendFee=10
end if
if (sendID="2") then
sendFee=15
end if
if (sendID="3") then
sendFee=20
end if
if (sendID="4") then
sendFee=30
end if
%>
<%
//生成订单**（第99行）**
dim conn,sql,userautoid,totalpay,realpay
totalpay =lvzhicarttotalmoney+sendFee
realpay =totalpay
userautoid=session("userautoid")
if (userautoid=null or userautoid<=0) then
userautoid=-1
end if
//保存付款人，收货人信息
shopopendatabase conn
sql = "insert into myorder(payName, payPhone, payEmail, payAddress, payMemo, recName, recPhone, recAddress, recMemo, recSay, sendFee,sendArea,totalpay,realpay,userid,comefrom)"
sql = sql &" values('"&payName&"','"&payPhone&"','"&payEmail&"','"&payAddress&"','"&payMemo&"','"&recName&"','"&recPhone&"','"&recAddress&"','"&recMemo&"',"&recSay&","&sendFee&","&sendID&","&totalpay&","&realpay&","&userautoid&","&comefrom&")"
conn.execute(sql)
set rs=conn.execute("select @@IDENTITY as newIDValue FROM myorder")
dim orderid
orderid=rs("newIDValue")
//保存明细
dim cartnumstr
Dim MyProductArray(20), MyNumArray(20),totalnum,MyProductArrayTmp,MyNumArrayTmp
cartstr = getCartFromCookie()
cartnumstr=getCartNumFromCookie()
if (cartstr=NULL or cartstr ="") then
cartstr =""
end if
if (cartnumstr=NULL or cartnumstr ="") then
cartnumstr =""
end if
MyProductArrayTmp = Split(cartstr, ",",-1,1)
MyNumArrayTmp = Split(cartnumstr, ",",-1,1)
dim n
For n =LBound(MyProductArrayTmp) to UBound(MyProductArrayTmp)
MyProductArray(n)=MyProductArrayTmp(n)
MyNumArray(n)=MyNumArrayTmp(n)
Next
totalnum=getCartTotalNumFromCookie()
if (totalnum=NULL or totalnum="") then
totalnum=0
end if
dim productid,productname,productprice,quantity,query,rs,dbc,i,IsExist
n=0
shopopendatabase dbc
query = "select autoid,name,salePrice from product where autoid in (" & cartstr & ")"
set rs = dbc.execute(query)
Do WHILE not rs.EOF and n<10
productprice=rs("salePrice")
productname=rs("name")
productid=rs("autoid")
IsExist="false"
For i = 0 to CInt(totalnum)-1
if (MyProductArray(i) =CStr(productid)) then
IsExist="true"
exit for
end if
Next
if (IsExist="true") then
quantity=MyNumArray(i)
sql="insert into orderitem( productid,productname,productprice,quantity,orderid)"
sql = sql &" values("&productid& ",'"&productname&"',"&productprice&","&quantity&","&orderid&")"
conn.execute sql
end if
n=n+1
rs.movenext
Loop
closerecordset rs
shopclosedatabase dbc
shopclosedatabase conn
dim lvzhicarttotalmoney
lvzhicarttotalmoney=Request.Cookies("lvzhicarttotalmoney")
//清除购物车
setCartToCookie "","",0,0
%>
| 订单号码： | |||||||||||||||||||||||||||||
|
|
||||||||||||||||||||||||||||
| 送货费用： | 元 |
| 费用总计： | 元 |
| 来自联盟： |
<%
end if
%>
|
一般在24小时内，电话同你联系，确认后上门收款和发货！ 有什么特殊需要，请联系我们客服务，电话：83347533，13910250117 |
|
|
