📄 dopayment.asp
字号:
<!--#include file="inc/userconn.inc"-->
<%
'如果没有购买任何物品的出错处理
if session("sum")="" then response.redirect "error.asp?error=007"
sum=session("sum")
'产生订单号（内部和外部）及定单产生日期及其他信息
BranchID="0022"
CoNo="000040"
'交易日期，格式：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
inBillNo=yy & mm & dd & "-" & xiaoshi & fenzhong & miao
'初始化用户选择的支付方式,产生对用户的反馈信息
paymenttype=request("paymenttype")
sqlp="select * from paydefault where paymenttype='"&paymenttype&"'"
set rsp=server.createobject("adodb.recordset")
rsp.open sqlp,conn,1,1
'可选择招商银行在线支付
'if paymenttype="招商银行在线支付" then message="<br><a href=https://www.cmbchina.com/netpayment/BaseHttp.dll?PrePayC?BranchID="&BranchID&"&CoNo="&CoNo&"&BillNo="&BillNo&"&Amount="&replace(session("sum"),",","")&"&Date="&riqi&" target=_blank>点此开始在线支付</a><br><br>"
'读取用户折扣写入USER表
sql= "select * from discount where leavel='"&session("userleavel")&"'"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
sql1="select * from user where username='"&session("username")&"'"
set rs1=server.createobject("adodb.recordset")
rs1.open sql1,conn,1,1
'取得用户现有积分,并加上此次购物积分
jifen=rs1("sumjifen")
jifen=jifen+sum
'如果使用折扣
if request("usediscount")="1" then
'先读出现在的折扣值
discounty=rs1("discount")
'清0
conn.execute "update user set discount=0 where username='"&session("username")&"'"
'计算本次的折扣
discount=sum*rs("discount")/200
discount=FormatNumber(discount,2)
'将本次的折扣写入用户信息
conn.execute "update user set discount='"&discount&"', sumjifen='"&jifen&"' where username='"&session("username")&"'"
'计算折扣后的总价
sum=sum-discounty
else
'计算本次的折扣值
discount=sum*rs("discount")/200
discount=FormatNumber(discount,2)
'累加以前的折扣
discount=discount+rs1("discount")
conn.execute "update user set discount='"&discount&"' ,sumjifen='"&jifen&"' where username='"&session("username")&"'"
end if
'开始向数据库里写订单信息及用户积分
saddress=request("saddress")
semail=request("semail")
conn.execute "insert into orders (username,inBillNo,ordertime,summoney,paymenttype,saddress,semail) values ('"&session("username")&"','"&inBillNo&"','"&riqi&"','"&sum&"','"&paymenttype&"','"&saddress&"','"&semail&"')"
%>
<html>
<head>
<title>支付</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" type="text/css" href="inc/guhongying.css">
<style type="text/css">
<!--
.style2 {color: #FF0000}
.style3 {color: #FFFFFF}
.style4 {
font-size: x-large;
font-weight: bold;
}
.style5 {font-size: large}
.style7 {color: #FF0000; font-weight: bold; }
-->
</style>
</head>
<body bgcolor="316395" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<table height="50" align="center"><tr><td></td></tr></table>
<table width="84%" border="0" cellspacing="1" cellpadding="6" bgcolor="#000000" align="center">
<tr bgcolor="336699">
<td colspan="2"><font color="#FFFFFF"><b>以下是您的支付信息：</b></font></td>
</tr>
<tr bgcolor="eeeeee">
<td width="40%" bgcolor="eeeeee">您的订单号：</td>
<td width="60%"><%=inBillNo%></td>
</tr>
<tr bgcolor="6699CC">
<td colspan="2"><font color="#FFFFFF">请牢记您的订单号以备查询！！！</font></td>
</tr>
<tr bgcolor="eeeeee">
<td width="40%" bgcolor="eeeeee">您共需支付的总金额：</td>
<td width="60%"><%=sum%></td>
</tr>
<tr bgcolor="6699CC">
<td colspan="2"><font color="#FFFFFF">请您记录或操作下面的信息 </font></td>
</tr>
<tr bgcolor="eeeeee">
<td colspan="2">
<%'由于暂时无法解决将招行的支付代码加入数据库中，所以目前采取并用措施%>
<%=message%>
<%
paymentmessage = rsp("paymentmessage")
paymentmessage = replace(paymentmessage,chr(13),"<br>")
paymentmessage = replace(paymentmessage,chr(32)," ")
response.write paymentmessage
%>
</td>
</tr>
<tr>
<td bgcolor="#6699CC" colspan="2"> <span class="style4"><font color="#FFFFFF">请注意：</font></span><br>
<span class="style5"><font color="#FFFFFF">一、本系统采用 小时+分钟+秒 的形式获得此订单号。<br>
二、</font><span class="style7">请务必牢记您的订单号以备查询！！</span><font color="#FFFFFF"><br>
三、如果您还有任何疑问，可以打电话联系我们：</font><span class="style2">020－XXXXXXXX</span><font color="#FFFFFF"><BR>
或者至信</font> <span class="style2"><a href="mailto:user@transcendinfo.com" class="style2">user@transcendinfo.com</a></span><font color="#FFFFFF"> ，或联系QQ：</font><span class="style2">XXXXXX <span class="style3">。</span> </span></span></td>
</tr>
<tr>
<td bgcolor="#6699CC" colspan="2"> </td>
</tr>
</table>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -