?? 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")/100
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")/100
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">
</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%>
<%
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"> <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 + -