setorder.asp

购物系统时尚版.强大的后台文章编辑器的功能

<!--#include file="db_conn.asp"-->
<!--#include file="my_lib/my_request.asp"-->
<!--#include file="my_lib/base64.asp"-->
<!--#include file="my_lib/mmd5.asp"-->
<!--#include file="my_lib/pay.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

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")

session("cartbh")=cartbh
session("paymode")=paymode
session("songmode")=songmode
session("price")=price
session("money")=money
session("content")=content

if paymode="在线支付" then
sql="select * from pay_online where id=1"
set rs=conn.execute (sql)
ipayno2=rs("shbh")
ipaykey2=rs("pay_key")
payflag=rs("payflag")
rs.close
set rs=nothing
v_mid=base64Decode(ipayno2)
key=base64Decode(ipaykey2)
payflag=cint(payflag)
select case payflag
case 1
call pay3()
case 2
call pay1()
case 3
call pay2()
case 4
call pay4()
case else
response.write "系统错误"
end select
else
response.redirect "buyok.asp?email="&email
end if
%>