📄 cashsave.asp
字号:
pei_name=errmes7
ps_fei=0
else
ps_name=rsp("ps_name")
ps_fei=rsp("ps_fei")
end if
rsp.close
set rsp=nothing
response.write errmes8
response.write ps_name
response.write errmes9
response.write ps_fei
response.write errmes10
totalcash=totalcash*zhekou/100+ps_fei
response.write totalcash
response.write errmes11
response.write totaljifen
%>
<table border="0" cellpadding="0" cellspacing="0">
<%set rsp=server.CreateObject("adodb.recordset")
sql="select top 1 * from payonline"
rsp.open sql,conn,1,1
if rsp("payonline")=1 then
c_mid = rsp("pay_cncard")
c_order = sub_number
c_orderamount = totalcash
c_ymd = year(date())*10000+month(date())*100+day(date())
c_moneytype = "0"
c_retflag = "0"
c_paygate = ""
c_returl = rsp("pay_url")
c_memo1 = "Venshop"
c_memo2 = "70"
c_pass = rsp("pay_cncardp")
notifytype = "0"
c_language = "0"
srcStr = c_mid & c_order & c_orderamount & c_ymd & c_moneytype & c_retflag & c_returl & c_paygate & c_memo1 & c_memo2 & notifytype & c_language & c_pass
c_signstr = MD5(srcStr)
%>
<form name="payForm1" action="https://www.cncard.net/purchase/getorder.asp" method="POST" target="_blank"><tr>
<td colspan="2" align="center" height="45">
<input type="hidden" name="c_name" value="<%=trim(rs("sub_to"))%>">
<input type="hidden" name="c_address" value="<%=trim(rs("sub_adds"))%>">
<input type="hidden" name="c_tel" value="<%=trim(rs("sub_tel"))%>">
<input type="hidden" name="c_post" value="<%=trim(rs("sub_post"))%>">
<input type="hidden" name="c_email" value="<%=trim(rs("sub_mail"))%>">
<input type="hidden" name="c_mid" value="<%=c_mid%>">
<input type="hidden" name="c_order" value="<%=c_order%>">
<input type="hidden" name="c_orderamount" value="<%=c_orderamount%>">
<input type="hidden" name="c_ymd" value="<%=c_ymd%>">
<input type="hidden" name="c_moneytype" value="<%=c_moneytype%>">
<input type="hidden" name="c_retflag" value="<%=c_retflag%>">
<input type="hidden" name="c_paygate" value="<%=c_paygate%>">
<input type="hidden" name="c_returl" value="<%=c_returl%>">
<input type="hidden" name="c_memo1" value="<%=c_memo1%>">
<input type="hidden" name="c_memo2" value="<%=c_memo2%>">
<input type="hidden" name="c_language" value="<%=c_language%>">
<input type="hidden" name="notifytype" value="<%=notifytype%>">
<input type="hidden" name="c_signstr" value="<%=c_signstr%>">
<input type="submit" alt="点击支付" value="立即在线支付 - 系统采用云网支付@网平台" name="submit"></td></tr></form>
<%elseif rsp("payonline")=2 then%>
<form method="post" action="https://payment.nps.cn/pay/PayCar.jsp" target="_blank"><tr>
<td colspan="2" align="center" height="45">
<input Type="hidden" Name="M_ID" value="<%=rsp("pay_nps")%>"> <!----商家号-------->
<input Type="hidden" Name="MODate" value="<%=year(date())&month(date())&day(date())%>"> <!---不可以为空的--->
<input Type="hidden" Name="MOrderID" value="<%=sub_number%>"> <!----定单号-------->
<input Type="hidden" Name="MOAmount" value="<%=totalcash%>"> <!----定单金额------>
<input Type="hidden" Name="MOCurrency" value="1"> <!----支付状态------>
<input Type="hidden" name="M_URL" value="<%=rsp("pay_url")%>"> <!----此项默认为空不起作用------>
<input Type="hidden" Name="M_Language" value="1"> <!----语言默认------>
<input Type="hidden" Name="S_Name" value="<%=rs("sub_from")%>"> <!----消费者姓名------>
<input Type="hidden" Name="S_Address" value="<%=rs("sub_fromadds")%>"> <!----消费者地址------>
<input Type="hidden" Name="S_PostCode" value="<%=rs("sub_frompost")%>"> <!----消费者邮编------>
<input Type="hidden" Name="S_Telephone" value="<%=rs("sub_fromtel")%>"> <!----消费者电话------>
<input Type="hidden" Name="S_Email" value="<%=rs("sub_frommail")%>"> <!----消费者电邮------>
<input Type="hidden" Name="R_Name" value="<%=rs("sub_to")%>"> <!----收货人姓名------>
<input Type="hidden" Name="R_Address" value="<%=rs("sub_adds")%>"> <!----收货人地址------>
<input Type="hidden" Name="R_PostCode" value="<%=rs("sub_post")%>"> <!----收货人邮编------>
<input Type="hidden" Name="R_Telephone" value="<%=rs("sub_tel")%>"> <!----收货人电话------>
<input Type="hidden" Name="R_Email" value="<%=rs("sub_mail")%>"> <!----收货人电邮------>
<input Type="hidden" name="MOComment" value="null"> <!----备注------>
<input Type="hidden" Name="State" value="0"> <!----支付状态默认------>
<input type="submit" alt="点击支付" value="立即在线支付 - 系统采用NPS在线支付平台" name="submit">
</td></tr></form>
<%elseif rsp("payonline")=3 then%>
<form name=theForm action=http://www.1st-pay.net/work/work.asp method=post target=_blank><tr>
<td colspan="2" align="center" height="45">
<input type="hidden" name="softwareid" value="268">
<input type="hidden" value=<%=rsp("pay_qpay")%> name=username>
<input type="hidden" value=3 name=leixing>
<input type="hidden" value=1 name=language>
<input type="hidden" value=2.0 name=ver>
<input type="hidden" value=1 name=payfangshi>
<input type="hidden" value=01 name=fangshi>
<input type="hidden" name=name value="<%=rs("sub_to")%>">
<input type="hidden" name=email value="<%=rs("sub_mail")%>">
<input type="hidden" value=<%=rs("sub_tel")%> name=handphone>
<input type="hidden" name=address value=<%=rs("sub_adds")%>>
<input type="hidden" value=<%=sub_number%> name=shopname>
<input type="hidden" value=<%=totalcash%> name=cash>
<input type=submit value="立即在线支付 - 采用易达信动在线支付平台" name=Submit>
</td></tr></form>
<%else%><tr><td colspan="2" align="center" height="45"><input type=button value="请及时付款,以便我们及早给您发货!"></td></tr><%end if%>
<%if rsp("alipay")=1 or rsp("paypal")=1 then%>
<tr><%if rsp("alipay")=1 then%>
<td align="center" height="30"><a target="_blank" title="欢迎使用支付宝安全支付平台,安全购物有保障。" href="https://www.alipay.com/payto:<%=rsp("pay_zhifubao")%>?partner=2088002046268961&subject=<%=sub_number%>&body=<%=sub_number%>&price=<%=totalcash%>&type=1&readonly=<%=rsp("pay_change")%>">
<img border="0" src="img/pay/alipay_buy.gif"></a></td><%end if%>
<%if rsp("paypal")=1 then%>
<td align="center" height="30">
<table border="0" cellpadding="0" cellspacing="0" width="100%"><form action="https://www.paypal.com/cgi-bin/webscr" method="post" target="_blank">
<tr><td><input type="hidden" name="cmd" value="_xclick">
<input type="hidden" name="business" value="<%=rsp("pay_paypal")%>">
<input type="hidden" name="item_name" value="<%=sub_number%>">
<input type="hidden" name="amount" value="<%=totalcash%>">
<input type="hidden" name="no_note" value="1">
<input type="hidden" name="currency_code" value="CNY">
<input type="hidden" name="bn" value="PP-BuyNowBF">
<input type="image" src="img/pay/paypal_buy.gif" border="0" name="submit" width="115" height="24" alt="请注意:使用Paypal支付的价格包含运费!"></td>
</tr></form></table></td><%end if%></tr>
<%end if%>
<%rsp.close
set rsp=nothing%>
</table></td><td height="26" align="right" width="20"></td></tr><%end if%>
</table>
<table border="0" cellpadding="0" cellspacing="0" width="736" background="img/cash2.gif">
<tr><td height="48" colspan="2" background="img/cash0.gif"> </td></tr>
<tr><td height="26" align="right">订货人: </td><td height="26"><%=rs("sub_from")%></td></tr>
<tr><td height="26" align="right" width="19%">电话: </td><td height="26"><%=rs("sub_fromtel")%></td></tr>
<tr><td height="26" align="right" width="19%">Email:</td><td height="26"><%=rs("sub_frommail")%></td></tr>
<tr><td height="26" align="right" width="19%">地址:</td><td height="26"><%=rs("sub_fromadds")%></td></tr>
<tr><td height="26" align="right" width="19%">邮编:</td><td height="26"><%=rs("sub_frompost")%></td></tr>
<tr><td height="48" colspan="2" background="img/cash3.gif"> </td></tr></table>
<table border="0" cellpadding="0" cellspacing="0" width="736" background="img/cash4.gif">
<tr><td height="26" align="right" width="19%">收货人: </td><td height="26"><%=rs("sub_to")%></td></tr>
<tr><td height="26" align="right" width="19%">电话: </td><td height="26"><%=rs("sub_tel")%></td></tr>
<tr><td height="26" align="right" width="19%">Email:</td><td height="26"><%=rs("sub_mail")%></td></tr>
<tr><td height="26" align="right" width="19%">地址:</td><td height="26"><%=rs("sub_adds")%></td></tr>
<tr><td height="26" align="right" width="19%">邮编:</td><td height="26"><%=rs("sub_post")%></td></tr>
<tr><td height="26" align="right" width="19%">到货时间:</td>
<td height="26"><%set rsp=server.CreateObject("adodb.recordset")
rsp.open "select * from totime where id="&totime&"",conn,1,1
if rsp.eof and rsp.bof then
response.write "没有选择"
else%><%=rsp("totime")%><%
end if
rsp.close
set rsp=nothing%></td></tr>
<tr><td height="45" align="right" width="19%" valign="top"><p style="line-height: 150%">付款方式:</td>
<td height="45" valign="top"><p style="line-height:150%"><%set rsp=server.CreateObject("adodb.recordset")
rsp.open "select * from pay where pay_id="&sub_pay&"",conn,1,1
if rsp.eof and rsp.bof then
response.write "没有选择"
else%><%=rsp("pay_name")%><br><font color="#0000FF"><%=rsp("pay_content")%></font><%
end if
rsp.close
set rsp=nothing%></td></tr>
<tr><td height="45" align="right" width="19%" valign="top"><p style="line-height: 150%">送货方式:</td>
<td height="45" valign="top"><p style="line-height:150%"><%set rsp=server.CreateObject("adodb.recordset")
rsp.open "select * from ps where ps_id="&sub_ps&"",conn,1,1
if rsp.eof and rsp.bof then
response.write "没有选择"
else%><%=rsp("ps_name")%><br><font color="#0000FF">常规到货时间:<%=rsp("ps_time")%> <%=rsp("ps_content")%></font><%
end if
rsp.close
set rsp=nothing%></td></tr>
<tr><td height="26" align="right" width="19%">需要发票:</td><td height="26"><%if rs("sub_fapiao")=1 then%>需要<%else%>不需要<%end if%></td></tr>
<tr><td height="26" align="right" width="19%">缺货处理:</td><td height="26"><%if rs("sub_fapiao")=1 then%>等待到货<%else%>从订单取消<%end if%></td></tr>
<tr><td height="26" align="right" width="19%">其它说明:</td><td height="26"><%=rs("sub_other")%></td></tr>
<tr><td height="36" align="right" colspan="2" background="img/cash5.gif"> </td></tr>
</table>
<%rs.close%>
</td></tr></table></div><!--#include file="copy.asp"-->
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -