?? bjxcar.asp
字號:
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from Dv_User where username='"&username&"'",conn,1,3
rs("userzhenshiname")=trim(request("userzhenshiname"))
rs("sex")=trim(request("shousex"))
rs("useremail")=trim(request("useremail"))
rs("shouhuodizhi")=trim(request("shouhuodizhi"))
rs("youbian")=trim(request("youbian"))
rs("usertel")=trim(request("usertel"))
rs("songhuofangshi")=trim(request("songhuofangshi"))
rs("zhifufangshi")=trim(request("zhifufangshi"))
rs.update
rs.close
set rs=nothing
if session("xiadan")<>minute(now) then
'再判斷庫存
'未寫
dim shijian,dingdan
shijian=now()
'dingdan=year(shijian)&month(shijian)&day(shijian)&hour(shijian)&minute(shijian)&second(shijian)
'response.write bookid
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from BJX_action where username='"&username&"' and zhuangtai=7",conn,1,3
if request.Cookies("bjx")("username")<>"" then
'dingdan=year(shijian)&month(shijian)&day(shijian)&hour(shijian)&minute(shijian)&second(shijian)
dingdan=now()
dingdan=replace(trim(dingdan),"-","")
dingdan=replace(dingdan,":","")
dingdan=replace(dingdan," ","")
else
dingdan=username
end if
do while not rs.eof
'得到價格，減庫存
set rs2=server.CreateObject("adodb.recordset")
rs2.open "select * from BJX_goods where bookid="&rs("bookid"),conn,1,3
if request.Cookies("bjx")("reglx")=2 then
danjia=rs2("vipjia")
else
danjia=rs2("huiyuanjia")
end if
rs2("chengjiaocount")=rs2("chengjiaocount")+rs("bookcount")
rs2("kucun")=rs2("kucun")-rs("bookcount")
rs2.update
rs2.close
set rs2=nothing
'rs.addnew
'rs("username")=trim(request.cookies("bookshop")("username"))
'rs("bookid")=rs2("bookid")
rs("actiondate")=shijian
'rs("bookcount")=CInt(Request("Godbook"&rs2("bookid")))
if request("zhifufangshi")=17 then '送貨上門或預存款支付，直接改為訂單完成（已收到款）
rs("zhuangtai")=3
else
rs("zhuangtai")=1
end if
rs("dingdan")=dingdan
rs("youbian")=int(request("youbian"))
rs("shouhuoname")=trim(request("userzhenshiname"))
rs("shouhuodizhi")=trim(request("shouhuodizhi"))
rs("zhifufangshi")=int(request("zhifufangshi"))
rs("songhuofangshi")=int(request("songhuofangshi"))
rs("shousex")=int(request("shousex"))
rs("liuyan")=HTMLEncode2(trim(request("liuyan")))
'rs("zonger")=request("zongji")
rs("userzhenshiname")=trim(request("userzhenshiname"))
rs("useremail")=trim(request("useremail"))
rs("usertel")=trim(request("usertel"))
rs("userid")=request("userid")
'新增
if request("fapiao")<>1 then
fapiao=0
else
fapiao=1
end if
rs("fapiao")=fapiao
rs("feiyong")=request("feiyong")
rs("danjia")=danjia
rs.update
'rs.close
'set rs=nothing
'conn.execute "delete from BJX_action where username='"&request.cookies("bookshop")("username")&"' and bookid in ("&bookid&") and zhuangtai=6"
rs.movenext
loop
rs.close
set rs=nothing
'再改獎品
z_jifen=0
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from BJX_action_jp where username='"&username&"' and zhuangtai=7",conn,1,3
do while not rs.eof
rs("actiondate")=shijian
rs("zhuangtai")=5
rs("dingdan")=dingdan
rs("userid")=request("userid")
z_jifen=z_jifen+rs("jifen")
rs.update
rs.movenext
loop
rs.close
set rs=nothing
'減去積分
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from Dv_User where username='"&username&"'",conn,1,3
rs("jifen")=rs("jifen")-z_jifen
'如果是在線支付，要扣預存款
if request("zhifufangshi")=17 then
rs("yucun")=rs("yucun")-request("feiyong")-request("zongji")
end if
rs.update
rs.close
set rs=nothing
session("xiadan")=minute(now)
else
response.Write "<center>您不能重復提交！</center>"
response.End
end if
%>
<table width="970" align="center" border="0" cellspacing="0" cellpadding="0" class="table-zuoyou" bordercolor="#CCCCCC">
<tr>
<td class="table-shangxia" background="images/class_bg.jpg" height=50> <img src="images/ring02.gif" width="23" height="15" align="absmiddle"> <a href=index.asp><%=webname%></a> >>定單提交成功</td>
</tr>
</table>
<table width="970" align="center" border="0" cellspacing="0" cellpadding="0" class="table-zuoyou" bordercolor="#CCCCCC">
<tr>
<td bgColor=#ffffff height=1></TD>
</tr>
<tr bgcolor="#ffffff">
<td bgColor="#f1f1f1" height="30" align="center">您的訂單已經成功提交，我們會在第一時間進行處理，請記清您的訂單號以備查詢。</td>
</tr>
<tr>
<td bgColor=#cccccc height=1></TD>
</tr>
<tr>
<td bgColor=#f1f1f1 height=3></TD>
</tr>
<tr>
<td height="30" bgcolor="ffffff" style="PADDING-LEFT: 100px">訂單號：<font color=red><%=dingdan%></font></td>
</tr>
<%if request.Cookies("bjx")("username")<>"" then%>
<tr>
<td height="30" bgcolor="ffffff" style="PADDING-LEFT: 100px">訂單查詢：您可通過“<a href="javascript:;" onclick="javascript:window.open('user.asp','','')">我的專區</a>”>>“<a href="javascript:;" onclick="javascript:window.open('user.asp?action=dingdan','','')">我的訂單</a>”查詢您的訂單狀態。</td>
</tr>
<tr>
<td height="30" bgcolor="ffffff" style="PADDING-LEFT: 100px">購物積分：請在收貨后通過“<a href="javascript:;" onclick="javascript:window.open('user.asp','','')">我的專區</a>”>>“<a href="javascript:;" onclick="javascript:window.open('user.asp?action=dingdan','','')">我的訂單</a>”及時更改您的訂單狀態為“完成”，因為每筆訂單的積分只有在訂單完成后才能累計到您的購物積分中。 </td>
</tr>
<%else%>
<tr>
<td height="30" bgcolor="ffffff" style="PADDING-LEFT: 100px">訂單查詢：因為您不是我們的會員，所以您不能查詢您的訂單狀態。</td>
</tr>
<tr>
<td height="30" bgcolor="ffffff" style="PADDING-LEFT: 100px">購物積分：因為您不是我們的會員，所以您不能獲得積分獎勵。 </td>
</tr>
<%
end if
if request("zhifufangshi")=17 then %>
<tr>
<td height="30" bgcolor="ffffff" style="PADDING-LEFT: 100px">您是通過預存款支付的，我們會盡快地給你發貨的！</td>
<script language=javascript>alert('您是通過預存款支付的，我們會盡快地給你發貨的！');</script>
</tr>
<%else
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from BJX_songhuo where songid="&trim(request("zhifufangshi")),conn,1,1
if trim(rs("subject"))="貨到付款" then
rs.close
set rs=nothing
%>
<tr>
<td height="30" bgcolor="ffffff" style="PADDING-LEFT: 100px">您是選擇的“貨到付款”，我們會盡快給您送貨的！</td>
<script language=javascript>alert('您是選擇的“貨到付款”，請確認您的訂單，我們會盡快給您送貨的！');</script>
</tr>
<%else
rs.close
set rs=nothing%>
<tr>
<td height="30" bgcolor="ffffff" style="PADDING-LEFT: 100px">請您在一周內依照您選擇的支付方式進行匯款，匯款時請注明您的<font color="#FF0000">訂單號</font>！</td>
<script language=javascript>alert('請您在一周內依照您選擇的支付方式進行匯款，匯款時請注明您的訂單號！');</script>
</tr>
<%end if%>
<%end if%>
<%
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from BJX_songhuo where songid="&request("zhifufangshi"),conn,1,1
if rs.eof and rs.bof then
'response.write "方式已經被刪除"
else
'response.write rs("subject")
dim bjxpayway
if rs("subject")="在線支付" then
bjxpayway=1
end if
end if
rs.close
set rs=nothing
if bjxpayway=1 then
%>
<tr>
<td height="30" bgcolor="#FFFFFF" STYLE='PADDING-LEFT: 20px'>
<div align="center">
<%
dim SHJIAUserName,iiii,bjxbookname
iiii=int(request("feiyong"))+int(request("zongji"))
bjxbookname=request("bjxbookname")
SHJIAUserName="bjxshop_admin"
set rs=server.CreateObject("adodb.recordset")
rs.Open "select * from BJX_PAY where SHJIAUserName='"&SHJIAUserName&"' ",conn,1,1
if rs.eof and rs.bof then
response.Write "<script LANGUAGE='javascript'>alert('此店鋪還沒有設置在線支付帳號！');</script>"
else
if rs("BJX_PAY_CLASS")=2 then '網銀支付
' 表單的各項參數如下：
' v_mid
' 商戶號,這里為測試商戶號1001，替換為自己的商戶號即可
' key
' MD5私鑰
' v_oid
' 訂單號，構成格式 年月日-商戶號-小時分鐘秒
' v_amount
' 訂單金額
' v_moneytype
' 支付幣種0為人民幣
' v_url
' 商戶自定義返回接收支付結果的頁面
' remark1
' 備注字段1
' remark2
' 備注字段2
' style
' 指網關模式0(普通)，1(銀行列表中帶外卡)
'********以下幾項與網上支付貨款無關，建議不用**************
' v_rcvname
' 收貨人
' v_rcvaddr
' 收貨地址
' v_rcvtel
' 訂貨人電話
' v_rcvpost
' 郵編
' v_ordername
' 發貨人
' v_orderemail
' 訂貨人EMAIL
key = rs("BJX_PAY_MIYAO")
v_mid = rs("BJX_PAY_ZHANGHAO")
v_amount=formatnumber(iiii,2)
v_moneytype = "0"
style="0"
v_url=rs("BJX_PAY_BACKURL")
remark1=""
remark2=""
'根據系統時間產生訂單，格式：YYYYMMDD-v_mid-HMMSS
curdate=now()
v_oid=year(curdate)&month(curdate)&day(curdate)&"-"&v_mid&"-"&hour(curdate)&minute(curdate)&second(curdate)
text = v_amount&v_moneytype&v_oid&v_mid&v_url&key
v_md5info=Ucase(trim(BJXSHOPWYMD5(text))) '網銀支付平臺對MD5值只認大寫字符串，所以小寫的MD5值得轉換為大寫
'**********以下幾項與網上支付貨款無關，建議不用**************
v_rcvname="www_gzshopping_com"
v_rcvaddr="BJX_STUDIO"
v_rcvtel="02031241345"
v_rcvpost="510090"
v_ordername="BJXSHOP"
v_orderemail = "bjxshop@21cn.com"
%>
<form method="post" action="https://pay.chinabank.com.cn/select_bank" name="E_FORM" target="_parent">
<input type="hidden" name="v_md5info" size="100" value="<%=v_md5info%>">
<input type="hidden" name="v_mid" value="<%=v_mid%>">
<input type="hidden" name="v_oid" value="<%=v_oid%>">
<input type="hidden" name="v_amount" value="<%=v_amount%>">
<input type="hidden" name="v_moneytype" value="<%=v_moneytype%>">
<input type="hidden" name="v_url" value="<%=v_url%>">
<input type="hidden" name="style" value="<%=style%>">
<input type="hidden" name="remark1" value="<%=remark1%>">
<input type="hidden" name="remark2" value="<%=remark2%>">
<!--以下幾項與網上支付貨款無關，建議不用//-->
<input type="hidden" name="v_rcvname" value="<%=v_rcvname%>">
<input type="hidden" name="v_rcvaddr" value="<%=v_rcvaddr%>">
<input type="hidden" name="v_rcvtel" value="<%=v_rcvtel%>">
<input type="hidden" name="v_rcvpost" value="<%=v_rcvpost%>">
<input type="hidden" name="v_ordername" value="<%=v_ordername%>">
<input type="hidden" name="v_orderemail" value="<%=v_orderemail%>">
<input type=submit name=v_action value="進入購物系統在線支付平臺">
</form>
<%end if
end if%>
</td>
</tr><%end if%>
<tr>
<td height="30" bgcolor="ffffff" style='PADDING-LEFT: 100px' align="right"><a href="#" onClick=javascript:window.close()> 關閉窗口</a><font color="#999999"> 訂單提交完成 創建時間：<%=shijian%> </font> </td>
</tr>
</table>
<%
response.Cookies("bjx")("dingdanusername")=""
end select%></TD>
</TR>
</TBODY>
</TABLE>
<!--#include file="service.asp"-->
<!--#include file="bjxfoot.asp"-->
</body>
</html>
<script language=javascript>
<!--
function regInput(obj, reg, inputStr)
{
var docSel = document.selection.createRange()
if (docSel.parentElement().tagName != "INPUT") return false
oSel = docSel.duplicate()
oSel.text = ""
var srcRange = obj.createTextRange()
oSel.setEndPoint("StartToStart", srcRange)
var str = oSel.text + inputStr + srcRange.text.substr(oSel.text.length)
return reg.test(str)
}
function checkspace(checkstr) {
var str = '';
for(i = 0; i < checkstr.length; i++) {
str = str + ' ';
}
return (str == checkstr);
}
//-->
</script>?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -