setorder.asp

一个不错的个人商务网站的源码

<!--#include file="db_conn.asp"-->
<!--#include file="comm/my_request.asp"-->
<!--#include file="comm/base64.asp"-->
<!--#include file="comm/mmd5.asp"-->
<!--#include file="comm/pay.asp"-->
<%
response.write "<script>window.opener.close();</script>"
response.write "<span><font color=#FF0000>如果出现确定按钮，请单击确定继续，请不要关闭浏览器，请不要走开。连接支付宝贝中……</font></span>"
ProductList = Session("ProductList")
If Len(ProductList) = 0 Then
response.write "<script language=javascript>alert('对不起，您的购物车为空！');location.href=""index.asp"";</script>"
response.End
end if

if session("chk_flag")="" then
userid="非会员"
ishy=1
else
userid=session("chk_name")
ishy=0
end if

'交易日期，格式：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)
cartbh=yy & mm & dd & xiaoshi & fenzhong & miao

yqj_realname=my_request("yqj_realname",0)
yqj_address=my_request("yqj_address",0)
yqj_postal=my_request("yqj_postal",0)
yqj_phone=my_request("yqj_phone",0)
yqj_mobile=my_request("yqj_mobile",0)
yqj_email=my_request("yqj_email",0)
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,flagp from deliver where id="&songid
set rs=conn.execute (sql)
songmode=rs("deliver_name")
price=rs("price")
flagp=rs("flagp")
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_moblie")=yqj_moblie
rs("yqj_email")=yqj_email
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

if session("level")="" or isnull(session("level")) or session("level")=0 then
yqj_money=rs("p_mmoney")
else
yqj_money=rs("vip_mmoney")
end if

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(yqj_money)
rs2("lbid")=rs("bid")
rs2("xlbid")=rs("sid")
rs2("huiyuan")=userid
rs2("sj")=now()
rs2.update
rs2.close

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=replace(strAnsi2Unicode(Base64decode(strUnicode2Ansi(ipayno2))),chr(13)&chr(10),"<br>")
key=replace(strAnsi2Unicode(Base64decode(strUnicode2Ansi(ipaykey2))),chr(13)&chr(10),"<br>")
payflag=cint(payflag)
select case payflag
case 1
call pay3()
case 2
call pay1()
case 3
call pay2()
case 4
call pay4()
case 5
call pay5()
case else
response.write "系统错误"
end select
else
response.redirect "buyok.asp"
end if
%>