pay5.asp
来自「书店的管理系统。不错的一个源程序。提供给大家。」· ASP 代码 · 共 283 行
ASP
283 行
<%@ Language=VBScript %>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft FrontPage 4.0">
</HEAD>
<BODY style="font-size: 9pt">
<%
book_exes=Request.Form("book_exes")
zkj=Request.Form("zkj")
zk_level=Request.Form("zk_level")
send_exes=Request.Form("send_exes")
'packaging_exes=Request.Form("packaging_exes")
'faster_exes=Request.Form("faster_exes")
total_exes=Request.Form("total_exes")
%>
<%
set con=server.createobject("ADODB.Connection")
con.open Application("str_con")
set res=server.createobject("ADODB.Recordset")
set res.ActiveConnection = con
set res_detail=server.createobject("ADODB.Recordset")
set res_detail.ActiveConnection = con
set res_max=server.createobject("ADODB.Recordset")
set res_max.ActiveConnection = con
set res_gwc=server.createobject("ADODB.Recordset")
set res_gwc.ActiveConnection = con
res.source="select order_id,passwrd,log_name,name,e_mail,comaddr,zipcode,detaddr,othercom,tel,send_method,send_time,leave_word,pay_method,lack_goods,spare_money,packaging,invoice,faster,order_time,book_exes,zkj,zk_level,send_exes,packaging_exes,faster_exes,total_exes,书店ID,书店名称 from order_main where 1=2"
res_detail.source="select order_id,XHBID,number,正书名,ISBN,定价,折扣,备注 from order_detail where 1=2"
res_max.source="select max_id=max(order_id) from order_main"
res_gwc.source="select XHBID,number,正书名,ISBN,定价,折扣,备注 from tempgwc where s_id="&Session.SessionID&" and 书店ID='"&Application("ZDID")&"'"
res.cursorlocation=3
res.LockType=2
res_detail.cursorlocation=3
res_detail.LockType=2
res_max.cursorlocation=3
res_max.LockType=3
res_gwc.cursorlocation=3
res_gwc.LockType=3
everythingisok=false
res_gwc.open ,,adOpenDaynamic
tot_book=res_gwc.RecordCount
if tot_book<1 then
Response.Write "对不起，购物车中没有书！"
res_gwc.close
else
dim gwc_title_id
dim gwc_number
dim gwc_zsm
dim gwc_isbn
dim gwc_dj
dim gwc_zk
dim gwc_bz
redim gwc_title_id(tot_book)
redim gwc_number(tot_book)
redim gwc_zsm(tot_book)
redim gwc_isbn(tot_book)
redim gwc_dj(tot_book)
redim gwc_zk(tot_book)
redim gwc_bz(tot_book)
for i=0 to tot_book-1
gwc_title_id(i)=res_gwc("XHBID")
gwc_number(i)=res_gwc("number")
gwc_zsm(i)=res_gwc("正书名")
gwc_isbn(i)=res_gwc("ISBN")
gwc_dj(i)=res_gwc("定价")
gwc_zk(i)=res_gwc("折扣")
gwc_bz(i)=res_gwc("备注")
res_gwc.MoveNext
next
res_gwc.close
Randomize()
con.BeginTrans
res.open ,,adOpenDaynamic
res.AddNew
passwrd=Int(Rnd()*100000)
res("passwrd")=passwrd '''''''''
res("log_name")=Session("log_name")
res("name")=Session("name")
res("e_mail")=Session("e_mail")
res("comaddr")=Session("comaddr")
res("zipcode")=Session("zipcode")
res("detaddr")=Session("detaddr")
res("othercom")=Session("othercom")
res("tel")=Session("tel")
res("send_method")=Session("send_method")
res("send_time")=Session("send_time")
res("leave_word")=Session("leave_word")
pay_method=Session("pay_method")
res("pay_method")=pay_method
'res("lack_goods")=Session("lack_goods")
'res("spare_money")=Session("spare_money")
'res("packaging")=Session("packaging")
'res("invoice")=Session("invoice")
'res("faster")=Session("faster")
order_time=Now()
res("order_time")=order_time '''''''''
res("book_exes")=book_exes
res("zkj")=zkj
res("zk_level")=zk_level
res("send_exes")=send_exes
'res("packaging_exes")=packaging_exes
'res("faster_exes")=faster_exes
res("total_exes")=total_exes
res("书店ID")=Application("ZDID")
res("书店名称")="新华书店总店"
res_max.open ,,adOpenDaynamic
max_id=res_max("max_id")
res_max.Close()
if IsNull(max_id) then
max_id=1
else
max_id=max_id+1
end if
res("order_id")=max_id '''''''''
'if (res("log_name")="")or(res("name")="")or(res("e_mail")="")or(res("comaddr")="")or(res("zipcode")="")or(res("tel")="")or(res("send_method")="")or(res("pay_method")="")or(res("lack_goods")="")or(res("spare_money")="")or(res("packaging")="")or(res("invoice")="")or(res("faster")="") then '(a)
if (res("log_name")="")or(res("name")="")or(res("e_mail")="")or(res("comaddr")="")or(res("zipcode")="")or(res("tel")="")or(res("send_method")="")or(res("pay_method")="")or(res("书店ID")="")or(res("书店名称")="") then '(a)
response.write "您购买的过程出现了问题，请您检查一下上一步操作是否正确，或者重新登录网站，也可以直接和我们联系。(A)"
'res.close
con.RollbackTrans()
else
on Error Resume Next
Res.Update()
if con.errors.count>0 then '(b)
response.write "您购买的过程出现了问题，请您检查一下上一步操作是否正确，或者重新登录网站，也可以直接和我们联系。(B)"'&con.errors(0).description
con.RollbackTrans()
res.close
else
res_detail.open ,,adOpenDaynamic
for i=0 to tot_book-1
res_detail.AddNew
res_detail("order_id")=max_id
res_detail("XHBID")=gwc_title_id(i)
res_detail("number")=gwc_number(i)
res_detail("正书名")=gwc_zsm(i)
res_detail("ISBN")=gwc_isbn(i)
res_detail("定价")=gwc_dj(i)
res_detail("折扣")=gwc_zk(i)
res_detail("备注")=gwc_bz(i)
next
res_detail.Update()
if con.errors.count>0 then '(c)
response.write "您购买的过程出现了问题，请您检查一下上一步操作是否正确，或者重新登录网站，也可以直接和我们联系。(C)"'&con.errors(0).description
con.RollbackTrans()
res_detail.close
else
con.Execute "delete from tempgwc where s_id="&Session.SessionID&" and 书店ID='"&Application("ZDID")&"'" ,RecordsAffected,adCmdText
if con.errors.count>0 then '(d)
response.write "您购买的过程出现了问题，请您检查一下上一步操作是否正确，或者重新登录网站，也可以直接和我们联系。(D)"'&con.errors(0).description
con.RollbackTrans()
else
'所有的修改都成功了
everythingisok=true
con.CommitTrans()
res_detail.close
res.close
end if '(D)
end if '(C)
end if '(B)
end if '(A) (res("log_name")="")or(res("name")="")
end if '对不起，购物车中没有书！
con.close()
if not everythingisok then
else
%>
<p>您的订单号是<font color="#FF0000"><%=max_id%></font>，您的订单号密码是<font color="#FF0000"><%=passwrd%></font>，请您务必记下订单号和密码。</p>
<p>您应该付款的总额是<%=total_exes%>元</p>
<p> <%
select case pay_method
case "货到付款"
%> 我们将打电话，同您约好送书上门的时间，请您等候。<BR>
<%
case "银行汇款、银行转帐"
%> 请电汇到以下帐户：<br>
户 名：<font color="#FF0000">北京新华通力图书信息技术有限公司</font><br>
开户银行：<font color="#FF0000">北京工行南礼士路分理处</font><br>
帐 号：<font color="#FF0000">６６６５３-２２</font> <%
case "邮局汇款"
%> 通过邮局汇款，请汇到：<br>
<br>
<font color="#FF0000">北京市北礼士路１３５号北京新华通力图书信息技术有限公司</font> 邮编：<font color="#FF0000">１０００３７</font><br>
收
<p><a href="/index2.asp">回到首页再转转！</a> <%
case "招商银行一网通"
%> 请您前往招商银行交费。<br>
<%dim str_BillNo
str_BillNo=Cstr(max_id)
if len(str_BillNo)>6 then %> 您购买的过程出现了问题，无法完成本次购买。(9) <%
else
str_BillNo=String(6-len(str_BillNo),"0")+str_BillNo
dim str_yyyy,str_mm,str_dd,str_yyyymmdd,str_Amount
str_yyyy=Cstr( year(order_time) )
str_mm=Cstr( month(order_time) )
str_dd=Cstr( day(order_time) )
if len(str_yyyy)=2 then
str_yyyy="20"+str_yyyy
end if
str_mm=String(2-len(str_mm),"0")+str_mm
str_dd=String(2-len(str_dd),"0")+str_dd
str_yyyymmdd=str_yyyy+str_mm+str_dd
str_Amount=CStr( FormatNumber(total_exes,2,-1,0,0) )
%>
<form action="https://www.bj.cmbchina.com/netpayment/basehttp.dll?prepay" method="post">
<input type=hidden name="CoNo" value="001104">
<input type=hidden name="BillNo" value="<%=str_BillNo%>">
<input type=hidden name="Amount" value="<%=str_Amount%>">
<input type=hidden name="Date" value="<%=str_yyyymmdd%>">
<center><input type="submit" value="招商银行一卡通"></center>
</form>
<%
end if
%>
<%
case else
end select
%>
<%
end if 'not everythingisok
%>
</BODY>
</HTML>
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?