dispose.asp

非常有商业价值的软件

<%
userid=session("chk_name")
ProductList = Session("ProductList")
If Len(ProductList) = 0 Then
response.write "<script language=javascript>alert('对不起，您的购物车为空！');location.href=""index.asp"";</script>"
response.End
end if

if userid="" or isnull(userid) then
userid="非会员"
end if
'交易日期，格式：YYYYMMDD
yy=year(date)
mm=right("00"&month(date),2)
dd=right("00"&day(date),2)
riqi=yy & mm & dd

Randomize
Do While Len(rndnum)<4
num1=CStr(Chr((57-48)*rnd+48))
rndnum=rndnum&num1
loop


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

yqj_realname=my_request("yqj_realname",0)
yqj_address=my_request("yqj_address",0)
ishy=my_request("ishy",0)
yqj_postal=my_request("yqj_postal",0)
yqj_phone=my_request("yqj_phone",0)
yqj_email=my_request("yqj_email",0)
yqj_invoice=my_request("yqj_invoice",1)
paymode=my_request("paymode",0)
songid=my_request("songid",1)
content=my_request("content",0)
ip=Request.servervariables("REMOTE_ADDR")

if yqj_realname="" or yqj_address="" or yqj_postal="" or yqj_phone="" or yqj_email="" or paymode="" then
response.write"<SCRIPT language=JavaScript>alert('请确认你信息是否提交完整!');"
response.write"javascript:history.go(-1)</SCRIPT>"
response.end
end if

sql="select deliver_name,price from deliver where id="&songid
set rs=conn.execute (sql)
songmode=rs("deliver_name")
price=rs("price")
rs.close
set rs=nothing

money=session("sum")+price

set rs=server.createobject("adodb.recordset")
sqltext="select * from buyer"
rs.open sqltext,conn,3,3,1

rs.addnew
rs("ddbh")=cartbh
rs("addtime")=now
rs("yqj_realname")=yqj_realname
rs("yqj_address")=yqj_address
rs("ishy")=ishy
rs("yqj_postal")=yqj_postal
rs("yqj_phone")=yqj_phone
rs("yqj_email")=yqj_email
rs("yqj_invoice")=cint(yqj_invoice)
rs("paymode")=paymode
rs("content")=content
rs("yqj_money")=money
rs("yqj_cost")=price
rs("product_price")=session("sum")
rs("songhuo")=songmode
rs("ip") = ip
rs("userid")=userid
rs.update
rs.close

set rs=server.createobject("adodb.recordset")
session("productlist")=productlist
sql = "Select * From yqj_product"
sql = sql & " Where id In (" & ProductList & ")"
Set rs = conn.Execute( sql )
if session(rs("p_name"))=0 then
   session(rs("p_name"))=1
end if
'response.write sql

while not rs.eof
set rs2=server.createobject("adodb.recordset")
sqltext2="select * from list"
rs2.open sqltext2,conn,3,3,1
rs2.addnew
rs2("bh")=rs("id")
rs2("cartbh")=cartbh
rs2("mc")=rs("p_name")
rs2("sl")=cint(session(rs("p_name")))
rs2("rmb")=ccur(rs("p_mmoney"))
rs2("lbid")=rs("bid")
rs2("xlbid")=rs("sid")
rs2("huiyuan")=userid
rs2("sj")=now()
rs2.update
rs2.close

sqlsl="select p_nums from yqj_product where id="&rs("id")
rs2.open sqlsl,conn,1,3
rs2("p_nums")=rs2("p_nums")-cint(session(rs("p_name")))
rs2.update
rs2.clsoe
set rs2=nothing

session.Contents.Remove(rs("p_name"))
rs.movenext
wend
rs.close
set rs=noting

Session.Contents.Remove("ProductList")

if paymode="在线支付" then
sql="select * from pay_online where id=1"
set rs=conn.execute (sql)
ipayno2=rs("shbh")
ipaykey2=rs("pay_key")
rs.close
set rs=nothing
v_mid=base64Decode(ipayno2)
key=base64Decode(ipaykey2)
v_oid=cartbh
v_amount=money
v_md5=md5(v_mid&v_oid&v_amount&key)
v_comment_1="购物款项"
v_comment=server.urlencode(v_comment_1)
response.redirect "https://www.ipay.com.cn/bank/ipay.shtml?v_mid="&v_mid&"&v_oid="&v_oid&"&v_amount="&v_amount&"&v_md5="&v_md5&"&v_comment="&v_comment&""
else
response.write "<br>"
response.write "<br>"
response.write "<div align=left>"
response.write "<font color=#ff3333 size=3 class=14px>请牢记您的订单号："&cartbh
response.write "</font>"
response.write "</div>"
response.write "<table width=766 cellpadding=2>"
response.write "<tr>"
response.write "<td valign=middle class=12px>⊙订单提交成功！</td>"
response.write "</tr>"
response.write "<tr>"
response.write "<td valign=middle class=12px>⊙我们将按您的联系方式与您联系并按您的订单发货，请用笔记下您的订单号，以便查询。</td>"
response.write "</tr>"
response.write "<tr>"
response.write "<td valign=middle class=12px>⊙您选择的付款方式："&paymode&"</td>"
response.write "</tr>"
response.write "<tr>"
response.write "<td valign=middle class=12px>⊙您选择的送货方式："&songmode&"</td>"
response.write "</tr>"
response.write "<tr>"
response.write "<td valign=middle class=12px>⊙送货费用：￥"&price&"元</td>"
response.write "</tr>"
response.write "<tr>"
response.write "<td valign=middle class=12px>⊙商品费用：￥"&session("sum")&"元</td>"
response.write "</tr>"
response.write "<tr>"
response.write "<td valign=middle class=12px>⊙一共费用：￥"&money&"元</td>"
response.write "</tr>"
response.write "<tr>"
response.write "<td valign=middle class=12px>⊙付款方式说明：</td>"
response.write "</tr>"
response.write "<tr>"
response.write "<td valign=middle class=12px>&nbsp;&nbsp;&nbsp;&nbsp;"&content&"</td>"
response.write "</tr>"
response.write "</table>"
end if
session.Contents.Remove("sum")
%>