📄 payment.asp
字号:
else
fudongjia_dj=rs_s("pyhy")
end if
else
if request.Cookies("cnhww")("reglx")=2 then
fudongjia_dj=rs_s("emsvip")
else
fudongjia_dj=rs_s("emshy")
end if
end if
response.write fudongjia_dj
rs_s.close
set rs_s=nothing
%>
</font></div>
</td>
<td bgcolor=#FFF9E6>
<div align=center><font color=#FF3300><%=rs("zonger")%></font>元</div>
</td>
</tr>
<%
jianshu=jianshu+rs("bookcount")
zongji=zongji+rs("zonger")
'算每件商品的浮动价
set rs_s=server.CreateObject("adodb.recordset")
rs_s.open "select * from wq_float where id="&rs("banci"),conn,1,1
fudongjia=fudongjia+rs("bookcount")*fudongjia_dj
rs_s.close
set rs_s=nothing
firstshjid=rs("shjiaid")
rs.movenext
if not rs.eof then
nextshjid=rs("shjiaid")
end if
if rs.recordcount<>1 and firstshjid<>nextshjid then
response.write "<script language=javascript>alert('对不起，您选购的商品不属于同一个商家，请修改购物车！');history.go(-4);</script>"
'response.write "<script language=javascript>alert('对不起，您选购的商品不属于同一个商家，请重新下订单！');window.go();/script>"
response.End
exit do
end if
loop
rs.close
set rs=nothing%>
<tr>
<td height=36 colspan=7 bgcolor=#FFF9E6>
<div align=center> 货款总计：<%=zongji%>元</div>
</td>
</tr>
<%set cnhww=server.CreateObject("adodb.recordset")
cnhww.open "select * from wq_action_jp where username='"&request.cookies("cnhww")("username")&"' and zhuangtai=7",conn,1,1
if cnhww.recordcount>0 then%>
<tr>
<td colspan=7 bgcolor=#FFF9E6>
<table width="96%" border="0" cellspacing="1" cellpadding="1" bgcolor="#FFCC00" align="center">
<tr bgcolor="#FFF2CA">
<td colspan="2"><b>您已选择的奖品清单</b></td>
</tr>
<tr bgcolor="#FFE493" align="center">
<td><font color="#666666">奖品名称</font></td>
<td bgcolor="#FFE493"><font color="#666666">使用积分</font></td>
</tr>
<%
while not cnhww.eof%>
<tr bgcolor="#FFF9E6">
<td>
<%
set cnhww1=server.CreateObject("adodb.recordset")
cnhww1.open "select * from wq_award where bookid="&cnhww("bookid"),conn,1,1
if cnhww1.recordcount=1 then
response.write "<font color=blue>"&cnhww1("bookname")&"</font>"
end if
cnhww1.close
set cnhww1=nothing%>
</td>
<td align="center"><%=cnhww("point")%></td>
</tr>
<%
cnhww.movenext
wend%>
</table>
</td>
</tr>
<%end if
cnhww.close
set cnhww=nothing%>
</table>
</td>
</tr>
<tr bgcolor="#FFF9E6">
<td width="594" align="center" valign="top">
<table width="96%" border="0" cellspacing="0" cellpadding="2">
<tr>
<td colspan="2" height=8></td>
</tr>
<tr align="center" bgcolor="FFE493">
<td colspan="2" height="22"><b>您的订单信息</b></td>
</tr>
<tr>
<td width="23%">姓名<br>
</td>
<td width="77%"><%=request("userzhenshiname")%></td>
</tr>
<tr>
<td width="23%">邮编<br>
</td>
<td width="77%"><%=request("youbian")%></td>
</tr>
<tr>
<td width="23%">地址<br>
</td>
<td width="77%"><%=request("shouhuodizhi")%></td>
</tr>
<tr>
<td width="23%">电话<br>
</td>
<td width="77%"><%=request("usertel")%></td>
</tr>
<tr>
<td colspan="2" height=8></td>
</tr>
<tr>
<td width="23%">邮箱<br>
</td>
<td width="77%"><%=request("useremail")%></td>
</tr>
<tr>
<td colspan="2" height=8></td>
</tr>
<tr>
<td width="23%">送货<br>
</td>
<td width="77%">
<%
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from wq_songhuo where songid="&request("songhuofangshi"),conn,1,1
response.write rs("subject")
rs.close
set rs=nothing%>
</td>
</tr>
<tr>
<td width="23%">支付</td>
<td width="77%">
<%
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from wq_songhuo where songid="&request("zhifufangshi"),conn,1,1
response.write rs("subject")
rs.close
set rs=nothing%>
</td>
</tr>
<tr>
<td width="23%"><br>
</td>
<td width="77%"> </td>
</tr>
</table>
</td>
<td width="356" align="center" valign="top">
<table width="96%" border="0" cellspacing="0" cellpadding="2">
<tr>
<td colspan="2" height=8></td>
</tr>
<tr align="center" bgcolor="#00CCFF">
<td colspan="2" height="22" bgcolor="#FFE493"><b>送货费计算</b></td>
</tr>
<%
'计算费用
'先取出参数
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from wq_sys ",conn,1,1
t_sm1=rs("sm1")
t_sm2=rs("sm2")
t_sm3=rs("sm3")
t_py1=rs("py1")
t_py2=rs("py2")
t_py3=rs("py3")
t_ems1=rs("ems1")
t_ems2=rs("ems2")
t_ems3=rs("ems3")
'判断是不是送货上门 ＊＊＊＊＊启用第765到780和803行时，送货上门时，可以不叛断预付款是否够用
if cint(request("songhuofangshi"))=3 then '判断是不是送货上门
if request.cookies("cnhww")("reglx")=2 then
if zongji>=t_sm3 then
jijia=0
else
jijia=t_sm1
end if
else
if zongji>=t_sm2 then
jijia=0
else
jijia=t_sm1
end if
end if
feiyong=jijia+fudongjia
else
'不是送货上门的还要判断是什么方式送货
if cint(request("songhuofangshi"))=1 then '判断是不是"普通平邮
if request.cookies("cnhww")("reglx")=2 then
if zongji>=t_py2 then
jijia=t_py1-t_py3
else
jijia=t_py1
end if
else
jijia=t_py1
end if
else
rs.close
if request.cookies("cnhww")("reglx")=2 then
if zongji>=t_ems2 then
jijia=t_ems1-t_ems3
else
jijia=t_ems1
end if
else
jijia=t_ems1
end if
end if
'算商品基价+浮动价=费用
feiyong=jijia+fudongjia
if request("zhifufangshi")=7 then
'得到预存款
set rs2=server.CreateObject("adodb.recordset")
rs2.Open "select yucun from [wq_user] where username='"&request.cookies("cnhww")("username")&"'",conn,1,1
yucunkuan=rs2("yucun")
rs2.close
set rs2=nothing
if yucunkuan<feiyong+zongji then
response.write "<script language=javascript>alert('您的预存款不足，请更换支付方式！');history.go(-1);</script>"
end if
end if
end if
%>
<tr>
<td> </td>
</tr>
<tr>
<td style='PADDING-right: 20px' align=right>您的送货费用计： <%=feiyong%> 元<br>
(其中 基价：<%=jijia%>元)<br>
(浮动价：<%=fudongjia%>元)</td>
</tr>
<tr>
<td> </td>
</tr>
<tr>
<td style='PADDING-right: 20px' align=right><b><font color=red>您的订单总金额： <%=feiyong+zongji%> 元</font></b></td>
</tr>
<tr>
<td height=20></td>
</tr>
<tr>
<td align=right><a href="help.asp?action=expense" target=_blank>查看送货费用说明</a></td>
</tr>
</table>
</td>
</tr>
<form name="shouhuoxx" method="post" action="payment.asp?action=ok">
<tr bgcolor="#FFF9E6" align="center">
<td colspan="2">
<table width="98%" border="0" cellspacing="0" cellpadding="2">
<tr>
<td width="27%">
<input type="checkbox" name="fapiao" value="1">
是否要发票？
<input name="userzhenshiname" type="hidden" value=<%=trim(request("userzhenshiname"))%>>
<input name="shousex" type="hidden" value=<%=trim(request("shousex"))%>>
<input name="useremail" type="hidden" value=<%=trim(request("useremail"))%>>
<input name="shouhuodizhi" type="hidden" value=<%=trim(request("shouhuodizhi"))%>>
<input name="youbian" type="hidden" value=<%=trim(request("youbian"))%>>
<input name="usertel" type="hidden" value=<%=trim(request("usertel"))%>>
<input name="songhuofangshi" type="hidden" value=<%=trim(request("songhuofangshi"))%>>
<input name="zhifufangshi" type="hidden" value=<%=trim(request("zhifufangshi"))%>>
<input name="feiyong" type="hidden" value=<%=feiyong%>>
<input name="zongji" type="hidden" value=<%=zongji%>>
<input name=userid type=hidden value="<%=request("userid")%>" >
</td>
<td width="42%">您对此订单的特殊说明(30字内) <br>
<input type="text" name="liuyan" size="30" maxlength="30">
</td>
<td width="31%" align="center" height="60">
<input type="button" name="Submit22" value="上一步" onClick="javascript:history.go(-1)">
<input type="submit" name="Submit42" value=" 完 成 ">
</td>
</tr>
</table>
</td>
</tr>
</form>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -