📄 payment.asp
字号:
}
}
//-->
</script>
<table width="96%" border="0" cellspacing="0" cellpadding="1" align="center">
<tr>
<td>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td rowspan="2">
<table width="100%" border="0" cellspacing="0" cellpadding="0" class="12v">
<tr>
<td class="12v" >
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" id="AutoNumber3" height="0" width="100%">
<tr>
<td>
<table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" bgcolor="#FFCC00">
<tr bgcolor="#FFF9E6">
<td colspan="2" style='PADDING-LEFT: 20px' height="40" align="center"><b><font color="#0000FF">请正确选择送货方式</font></b></td>
</tr>
<form name="shouhuoxx" method="post" action="payment.asp?action=txxx3">
<tr bgcolor="#FFF9E6">
<td width="199" style='PADDING-LEFT: 20px'><b>送货方式：</b></td>
<td width="771" height="28" style='PADDING-LEFT: 20px'>
<b>
<%
set rs2=server.CreateObject("adodb.recordset")
rs2.Open "select * from wq_youbian where youbian='"&trim(request("youbian"))&"'",conn,1,1
if rs2.recordcount=1 then
shangmen=1
else
shangmen=0
end if
rs2.close
set rs2=nothing
'//////////判断送货方式
set rs3=server.CreateObject("adodb.recordset")
rs3.Open "select * from wq_songhuo where fangshi=0 order by songidorder",conn,1,1
response.Write "<select name=songhuofangshi size="&rs3.recordcount&">"
do while not rs3.EOF
if not(shangmen=0 and trim(rs3("songid"))=5) then ' 是否显示“送货上门”：shangmen=0显示,为1不显示
response.Write "<option value="&rs3("songid")
if int(rs("songhuofangshi"))=int(rs3("songid")) then
response.Write " selected>"
else
response.Write ">"
end if
response.Write trim(rs3("subject"))&"</option>"
end if
rs3.MoveNext
loop
response.Write "</select>"
rs3.Close
set rs3=nothing
%>
</b>
<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=userid type=hidden value="<%=request("userid")%>" >
</td>
</tr>
<tr bgcolor="#FFF9E6">
<td height="32" colspan="2" align=center>
<input type="button" name="Submit2" value="上一步" onclick="javascript:history.go(-1)">
<input type="submit" name="Submit4" value="下一步" onclick='return ssxx();'>
</td>
</tr>
</form>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
<%
rs.close
set rs=nothing
'/////////////////////////////////////////
case "txxx3"
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from [wq_user] where username='"&request.cookies("cnhww")("username")&"'",conn,1,1
%>
<SCRIPT LANGUAGE="JavaScript">
<!--
function ssxx()
{
if(checkspace(document.shouhuoxx.zhifufangshi.value)) {
document.shouhuoxx.zhifufangshi.focus();
alert("对不起，请选择货款支付方式！");
return false;
}
}
//-->
</script>
<table width="96%" border="0" cellspacing="0" cellpadding="1" align="center">
<tr>
<td>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td rowspan="2">
<table width="100%" border="0" cellspacing="0" cellpadding="0" class="12v">
<tr>
<td class="12v" >
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" id="AutoNumber3" height="0" width="100%">
<tr>
<td>
<table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" bgcolor="#FFCC00">
<tr bgcolor="#FFF9E6">
<td colspan="2" style='PADDING-LEFT: 20px' height="40" align="center"><b><font color="#0000FF">请正确选择付款方式</font></b></td>
</tr>
<form name="shouhuoxx" method="post" action="payment.asp?action=txxx4">
<tr bgcolor="#FFF9E6">
<td width="199" style='PADDING-LEFT: 20px'><b>付款方式：</b></td>
<td width="771" height="28" style='PADDING-LEFT: 20px'>
<b>
<%
'set rs2=server.CreateObject("adodb.recordset")
'rs2.Open "select * from wq_songhuo where songid="&trim(request("songhuofangshi")),conn,1,1
if cint(request("songhuofangshi"))=3 then
defraymode=1
else
defraymode=0
end if
'rs2.close
'set rs2=nothing
'//////////判断支付方式
set rs_paypin=server.CreateObject("adodb.recordset")
rs_paypin.open "select paypin from wq_Config",conn,1,1
paypin=rs_paypin("paypin")
rs_paypin.close
set rs3=server.CreateObject("adodb.recordset")
rs3.open "select * from wq_songhuo where fangshi=1 order by songidorder",conn,1,1
response.Write "<select name=zhifufangshi size="&rs3.recordcount&" >"
do while not rs3.eof
if not(defraymode=0 and trim(rs3("songid"))=4) then ' 此条件是：只有defraymode=0和选择“送货上门”才显示“货到付款”
response.Write "<option value="&rs3("songid")
if int(rs("zhifufangshi"))=int(rs3("songid")) then
response.Write " selected>"
else
response.Write ">"
end if
response.Write trim(rs3("subject"))&"</option>"
end if
rs3.movenext
loop
response.Write "</select>"
rs3.close
set rs3=nothing
%>
</b>
<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=userid type=hidden value="<%=request("userid")%>" >
</td>
</tr>
<tr bgcolor="#FFF9E6">
<td height="32" colspan="2" align=center>
<input type="button" name="Submit2" value="上一步" onclick="javascript:history.go(-1)">
<input type="submit" name="Submit4" value="下一步" onclick='return ssxx();'>
</td>
</tr>
</form>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
<%
rs.close
set rs=nothing
'/////////////////////////////////////////
case "txxx4"
%>
<table width="96%" border="0" cellspacing="0" cellpadding="1" align="center">
<tr>
<td>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td rowspan="2">
<table width="100%" border="0" cellspacing="0" cellpadding="0" class="12v">
<tr>
<td class="12v" >
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" id="AutoNumber3" height="0" width="100%">
<tr>
<td>
<table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" bgcolor="#FFCC00">
<tr bgcolor="#FFF9E6">
<td align="center" valign="top" height=50 colspan=2>
<%
set rs=server.CreateObject("adodb.recordset")
rs.open "select wq_action.actionid,wq_action.bookid,wq_action.bookcount,wq_action.zonger,wq_books.bookname,wq_action.shjiaid,wq_books.anclassid,wq_books.banci,wq_books.shichangjia,wq_books.huiyuanjia,wq_books.vipjia from wq_books inner join wq_action on wq_books.bookid=wq_action.bookid where wq_action.username='"&request.cookies("cnhww")("username")&"' and wq_action.zhuangtai=7 order by wq_books.shjiaid",conn,1,1
%>
<table width=98% border=0 align=center cellpadding=1 cellspacing=1 bgcolor=#FFCC00>
<tr bgcolor="#FFE493">
<td width=25%>
<div align=center><font color="#666666">商品名称</font></div>
</td>
<td width=10%>
<div align=center><font color="#666666">市场价</font></div>
</td>
<td width=15%>
<div align=center><font color="#666666">单价
<%if request.cookies("cnhww")("reglx")=2 then %>
(VIP)
<%else%>
(会员)
<%end if%>
</font></div>
</td>
<td width=15%>
<div align=center><font color="#666666">数量</font></div>
</td>
<td width=10%>
<div align=center><font color="#666666">邮寄浮动<br>
(单价)</font></div>
</td>
<td width=10% bgcolor=#FFE493>
<div align=center><font color="#666666">总价</font></div>
</td>
</tr>
<%shuliang=rs.recordcount
jianshu=0
zongji=0
fudongjia=0
do while not rs.eof
%>
<tr>
<td bgcolor=#FFF9E6 style='PADDING-LEFT: 5px'>
<div align=left><font color=blue><%=rs("bookname")%></font>
<input name=bookid2 type=hidden value="<%=rs("bookid")%>" >
<input name=actionid2 type=hidden value="<%=rs("actionid")%>" >
</div>
</td>
<td bgcolor=#FFF9E6 align="center"><s><%=rs("shichangjia")%></s>
元</td>
<td bgcolor=#FFF9E6>
<div align=center>
<%
if request.Cookies("cnhww")("reglx")=2 then
response.write rs("vipjia")
else
response.write rs("huiyuanjia")
end if%>
元</div>
</td>
<td bgcolor=#FFF9E6>
<div align=center><font color=#dd6600> <%=rs("bookcount")%>
</font></div>
</td>
<td bgcolor=#FFF9E6>
<div align=center><font color=#dd6600>
<%
set rs_s=server.CreateObject("adodb.recordset")
rs_s.open "select * from wq_float where id="&rs("banci"),conn,1,1
if cint(request("songhuofangshi"))=3 then '看是不是“送货上门”
if request.Cookies("cnhww")("reglx")=2 then
fudongjia_dj=rs_s("smvip")
else
fudongjia_dj=rs_s("smhy")
end if
elseif cint(request("songhuofangshi"))=1 then '看是不是“平邮”
if request.Cookies("cnhww")("reglx")=2 then
fudongjia_dj=rs_s("pyvip")
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -