📄 mycart.asp
字号:
document.shouhuoxx.usertel.focus();
alert("对不起，请留下您的电话！");
return false;
}
if(checkspace(document.shouhuoxx.songhuofangshi.value)) {
document.shouhuoxx.songhuofangshi.focus();
alert("对不起，请选择送货方式！");
return false;
}
if(checkspace(document.shouhuoxx.zhifufangshi.value)) {
document.shouhuoxx.zhifufangshi.focus();
alert("对不起，请选择支付方式！");
return false;
}
if(document.shouhuoxx.useremail.value.length!=0)
{
if (document.shouhuoxx.useremail.value.charAt(0)=="." ||
document.shouhuoxx.useremail.value.charAt(0)=="@"||
document.shouhuoxx.useremail.value.indexOf('@', 0) == -1 ||
document.shouhuoxx.useremail.value.indexOf('.', 0) == -1 ||
document.shouhuoxx.useremail.value.lastIndexOf("@")==document.shouhuoxx.useremail.value.length-1 ||
document.shouhuoxx.useremail.value.lastIndexOf(".")==document.shouhuoxx.useremail.value.length-1)
{
alert("Email地址格式不正确！");
document.shouhuoxx.useremail.focus();
return false;
}
}
else
{
alert("Email不能为空！");
document.shouhuoxx.useremail.focus();
return false;
}
}
//-->
</script>
<%
rs.close
set rs=nothing
'/////////////////////////////////////////
case "shop2"
%>
<table width="100%" align="center" border="0" cellspacing="0" cellpadding="0" bordercolor="#CCCCCC">
<tr>
<td background="images/body/pdbg01.gif" height=28>
<a href=index.asp><%=webname%></a> >> 提交定单</td>
</tr>
</table>
<br> <table width="90%" align="center" border="0" cellspacing="0" cellpadding="0" bordercolor="#CCCCCC">
<tr>
<td><table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr bgcolor="#ffffff">
<td align="center" valign="top" height=50 colspan=2>
<%
set rs=server.CreateObject("adodb.recordset")
rs.open "select orders.actionid,orders.bookid,orders.bookcount,orders.zonger,products.bookname,orders.shjiaid,products.anclassid,products.banci,products.shichangjia,products.huiyuanjia,products.vipjia from products inner join orders on products.bookid=orders.bookid where orders.username='"&username&"' and orders.zhuangtai=7 order by products.shjiaid",conn,1,1
%>
<br> <table width=100% border=0 align=center cellpadding=2 cellspacing=1 bgcolor="#F1F1F1">
<tr align=center bgcolor="#F1F1F1">
<td width=23%><strong>商品名称</strong></td>
<td width=15%><strong>市 场 价</strong></td>
<td width=15%>单价
<%if request.Cookies("cnhww")("reglx")=2 then %>
(VIP)
<%else%>
(会员)
<%end if%>
</td>
<td width=12%><strong>数 量</strong></td>
<td width=19%><strong>邮寄费</strong></td>
<td width=16%><strong>总 价</strong></td>
</tr>
<%shuliang=rs.recordcount
jianshu=0
zongji=0
fudongjia=0
bookname=""
do while not rs.eof
bookname=bookname&"|"&rs("bookname")
%>
<tr align="center" bgcolor=#ffffff>
<td height="30" align="left"><div align="center"><%=rs("bookname")%>
<input name=bookid2 type=hidden value="<%=rs("bookid")%>">
<input name=actionid2 type=hidden value="<%=rs("actionid")%>">
</div></td>
<td><s><%=rs("shichangjia")%></s>元</td>
<td>
<%
if request.Cookies("cnhww")("reglx")=2 then
response.write rs("vipjia")
else
response.write rs("huiyuanjia")
end if%>
元</td>
<td><%=rs("bookcount")%></td>
<td>
<%
songd=request("songhuofangshi")
set rs_s=server.CreateObject("adodb.recordset")
rs_s.open "select * from deliver where songid="&songd,conn,1,1
feiy=rs_s("jsmoney")
response.write rs_s("jsmoney")
%>
</td>
<td><%=rs("zonger")%> 元</td>
</tr>
<%
jianshu=jianshu+rs("bookcount")
zongji=zongji+rs("zonger")
'算每件商品的邮寄费
set rs_s=server.CreateObject("adodb.recordset")
rs_s.open "select * from floater 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
loop
rs.close
set rs=nothing%>
<tr bgcolor=#ffffff>
<td height=30 colspan=6 align=center>货款总计：<font color=red><%=zongji%></font>
元</td>
</tr>
</table>
<br> </td>
</tr>
<tr bgcolor="#ffffff">
<td width="50%" rowspan="2" align="left" valign="top"><table width="90%" border="0" cellpadding="2" cellspacing="1" bgcolor="#F1F1F1">
<tr>
<td colspan="2" bgcolor="#F1F1F1" align="center">您的订单信息</td>
</tr>
<tr bgcolor="ffffff">
<td width="22%" align="center">姓名：</td>
<td width="78%" style="PADDING-LEFT: 20px"><%=request("userzhenshiname")%></td>
</tr>
<tr bgcolor="ffffff">
<td align="center">邮编：</td>
<td style="PADDING-LEFT: 20px"><%=request("youbian")%></td>
</tr>
<tr bgcolor="ffffff">
<td align="center">地址：</td>
<td style="PADDING-LEFT: 20px"><%=request("shouhuodizhi")%></td>
</tr>
<tr bgcolor="ffffff">
<td align="center">电话：</td>
<td style="PADDING-LEFT: 20px"><%=request("usertel")%></td>
</tr>
<tr bgcolor="ffffff">
<td align="center">邮箱：</td>
<td style="PADDING-LEFT: 20px"><%=request("useremail")%></td>
</tr>
<tr bgcolor="ffffff">
<td align="center">送货：</td>
<td style="PADDING-LEFT: 20px">
<%
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from deliver where songid="&request("songhuofangshi"),conn,1,1
if rs.eof and rs.bof then
response.write "方式已经被删除"
else
response.write rs("subject")
end if
rs.close
set rs=nothing%>
</td>
</tr>
<tr bgcolor="ffffff">
<td align="center">支付：</td>
<td style="PADDING-LEFT: 20px">
<%
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from deliver where songid="&request("zhifufangshi"),conn,1,1
if rs.eof and rs.bof then
response.write "方式已经被删除"
else
response.write rs("subject")
end if
rs.close
set rs=nothing%>
</td>
</tr>
</table></td>
<td width="50%" align="center" valign="bottom"><img src="images/mingle/heard.gif" width="260" height="56"></td>
</tr>
<tr bgcolor="#ffffff">
<td align="right" valign="bottom"><table width="90%" border="0" cellpadding="2" cellspacing="1" bgcolor="#F1F1F1">
<tr>
<td colspan="3" bgcolor="#F1F1F1" align="center">送货费计算</td>
</tr>
<%
'计算费用
'先取出参数
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from charging ",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")
'先看是不是送货
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from deliver where songid="&trim(request("songhuofangshi")),conn,1,1
if cint(request("songhuofangshi"))=3 then '先看是不是送货
rs.close
if request.cookies("Cnhww")("reglx")=2 then
if zongji>=t_sm3 then
jijia=0
else
jijia=0
end if
else
if zongji>=t_sm2 then
jijia=0
else
jijia=0
end if
end if
feiyong=jijia+fudongjia
else
'不是送货上门的还要看是什么方式送货
if cint(request("songhuofangshi"))=1 then '看是不是"普通平邮"
rs.close
if request.cookies("Cnhww")("reglx")=2 then
if zongji>=t_py2 then
jijia=0
else
jijia=0
end if
else
jijia=0
end if
else
rs.close
if request.cookies("Cnhww")("reglx")=2 then
if zongji>=t_ems2 then
jijia=0
else
jijia=0
end if
else
jijia=0
end if
end if
'算商品基价+邮寄费=费用
feiyong=jijia+fudongjia
if request("zhifufangshi")=17 then
'得到预存款
set rs2=server.CreateObject("adodb.recordset")
rs2.Open "select yucun from [user] where username='"&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 align="right" bgcolor="ffffff">您的送货费用计：<%=feiy%>
元<br>
其中基价：<%=zongji%> 元</td>
<td align="right" bgcolor="ffffff"><img src="images/mingle/charge.gif" width="35" height="32"><a href="help.asp?action=feiyong" target="_blank" ><font color="2782B3">查看送货费用说明</font></a></td>
</tr>
<tr>
<td colspan="2" align="left" bgcolor="ffffff" style="PADDING-right: 20px"><font color=red>订单总金额：
<%=feiy+zongji%> 元</font></td>
</tr><% session("payall")=feiy+zongji %>
</table></td>
</tr>
<form name="shouhuoxx" method="post" action="mycart.asp?action=ok">
<tr bgcolor="#ffffff" align="center">
<td colspan="2"><br> <table width="90%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><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=<%=feiy%>>
<input name="zongji" type="hidden" value=<%=zongji%>>
<input name=userid type=hidden value="<%=request("userid")%>" >
<input name="bookname" type="hidden" value=<%=bookname%>></td>
</tr>
<tr>
<td height="30"><font color="2782B3">此订单的附加说明(30字内)</font>
<input class="wenbenkuang" type="text" name="liuyan" size="35" maxlength="30"></td>
</tr>
<tr>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -