?? dopayment.asp
字號(hào):
<!--#include file="inc/userconn.inc"-->
<%
'如果沒有購(gòu)買任何物品的出錯(cuò)處理
if session("sum")="" then response.redirect "error.asp?error=007"
sum=session("sum")
'產(chǎn)生訂單號(hào)（內(nèi)部和外部）及定單產(chǎn)生日期及其他信息
BranchID="0022"
CoNo="000040"
'交易日期，格式：YYYYMMDD
yy=year(date)
mm=right("00"&month(date),2)
dd=right("00"&day(date),2)
riqi=yy & mm & dd
'生成訂單號(hào)所有所需元素,格式為：小時(shí)，分鐘，秒
xiaoshi=right("00"&hour(time),2)
fenzhong=right("00"&minute(time),2)
miao=right("00"&second(time),2)
'產(chǎn)生外部和內(nèi)部定單號(hào)
BillNo=xiaoshi & fenzhong & miao
inBillNo=yy & mm & dd & "-" & xiaoshi & fenzhong & miao
'初始化用戶選擇的支付方式,產(chǎn)生對(duì)用戶的反饋信息
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>點(diǎn)此開始在線支付</a><br><br>"
'讀取用戶折扣寫入U(xiǎn)SER表
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
'取得用戶現(xiàn)有積分,并加上此次購(gòu)物積分
jifen=rs1("sumjifen")
jifen=jifen+sum
'如果使用折扣
if request("usediscount")="1" then
'先讀出現(xiàn)在的折扣值
discounty=rs1("discount")
'清0
conn.execute "update user set discount=0 where username='"&session("username")&"'"
'計(jì)算本次的折扣
discount=sum*rs("discount")/100
discount=FormatNumber(discount,2)
'將本次的折扣寫入用戶信息
conn.execute "update user set discount='"&discount&"', sumjifen='"&jifen&"' where username='"&session("username")&"'"
'計(jì)算折扣后的總價(jià)
sum=sum-discounty
else
'計(jì)算本次的折扣值
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
'開始向數(shù)據(jù)庫(kù)里寫訂單信息及用戶積分
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">您的訂單號(hào)：</td>
<td width="60%"><%=inBillNo%></td>
</tr>
<tr bgcolor="6699CC">
<td colspan="2"><font color="#FFFFFF">請(qǐng)牢記您的訂單號(hào)以備查！！！</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">請(qǐng)您記錄或操作下面的信息 </font></td>
<tr bgcolor="eeeeee">
<td colspan="2">
<%'由于暫時(shí)無法解決將招行的支付代碼加入數(shù)據(jù)庫(kù)中，所以目前采取并用措施%>
<%=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>請(qǐng)注意：</b></font><br>
<font color="#FFFFFF">一、招行的在線支付需要提供6位的在同一天內(nèi)不可以重復(fù)的訂單編號(hào)<br>
本系統(tǒng)采用 小時(shí)+分鐘+秒 的形式獲得此訂單號(hào)。<br>
二、由于招行的訂單號(hào)無法體現(xiàn)詳細(xì)訂單順序，所以提供了內(nèi)部訂單號(hào)<br>
可以把此訂單號(hào)寫入數(shù)據(jù)庫(kù)以備查。本系統(tǒng)采用：<br>
年份+月份+日期+招行訂單號(hào)<即：小時(shí)+分鐘+秒>的方式獲得。<br>
三、如果您還有任何疑問，請(qǐng)速至信 <a href="mailto:user@transcendinfo.com">user@transcendinfo.com</a>
</font> </td>
</tr>
</table>
</body>
</html>
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -