📄 dopayment1.asp
字号:
<!--#include file="inc/userconn.inc"-->
<%
'如果没有购买任何物品的出错处理
if session("sum")="" then response.redirect "error.asp?error=007"
sum=session("sum")
'产生订单号（内部和外部）及定单产生日期及其他信息
BranchID="0022"
CoNo="000040"
'Amount=session("sum")
'交易日期，格式：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")
'产生产生对用户的反馈信息
if paymenttype="邮局汇款" then message="<br>请汇款到以下地址：<br><br>地址: 天津市南开区东马路133号长风大厦313室<br><br>收款人:天津腾科计算机科技发展有限公司 李培<br><br>邮编: 300090<br><br>电话: 022-27012685<br><br>"
if paymenttype="银行汇款" then message="<br>请汇款到以下帐户：<br><br>开户行：招商银行天津市分行中山路支行<br><br>帐号: 785-3580143410001<br><br>"
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"
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
'如果使用折扣
if request("usediscount")="1" then
'先读出现在的折扣值
discounty=rs1("discount")
'清0
conn.execute "update user set discount=0 where username='"&session("username")&"'"
'计算本次的折扣
discount=sum*rs("discount")/100
discount=FormatNumber(discount,2)
'将本次的折扣写入用户信息
conn.execute "update user set discount='"&discount&"' where username='"&session("username")&"'"
'计算折扣后的总价
sum=sum-discounty
else
'计算本次的折扣值
discount=sum*rs("discount")/100
discount=FormatNumber(discount,2)
'累加以前的折扣
discount=discount+rs1("discount")
conn.execute "update user set discount='"&discount&"' 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">
</head>
<body bgcolor="316395" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<table height="50" align="center"><tr><td></td></tr></table>
<table width="60%" 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%></td>
</tr>
<tr>
<td bgcolor="#6699CC" colspan="2"> <font color="#FFFFFF"><b>请注意：</b></font><br>
<font color="#FFFFFF">一、招行的在线支付需要提供6位的在同一天内不可以重复的订单编号<br>
本系统采用 小时+分钟+秒 的形式获得此订单号。<br>
二、由于招行的订单号无法体现详细订单顺序，所以提供了内部订单号<br>
可以把此订单号写入数据库以备查。本系统采用：<br>
年份+月份+日期+招行订单号<即：小时+分钟+秒>的方式获得。<br>
三、如果您还有任何疑问，请速至信 <a href="mailto:user@transcendinfo.com">user@transcendinfo.com</a>
</font> </td>
</tr>
</table>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -