📄 mycart.asp
字号:
<!--#include file="conn.asp"-->
<!--#include file="./alipay_inc/myAlipay.asp"-->
<!--#include file="./alipay_inc/alipay_Config.asp"-->
<%
if request.Cookies("cnhww")("username")<>"" then
username=trim(request.Cookies("cnhww")("username"))
else
username=request.Cookies("cnhww")("dingdanusername")
end if%>
<!--#include file="config.asp"-->
<html><head><title><%=webname%>--我要下订单</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="description" content="网趣网上购物系统,网趣网上购物系统时尚版,网趣购物系统,网上购物系统,购物系统,网趣购物,商城源码,网上商店,网上商店系统,域名注册,虚拟主机,恒伟网络">
<meta name="keywords" content="网趣网上购物系统,网趣网上购物系统时尚版,网趣购物系统,网上购物系统,购物系统,网趣购物,商城源码,网上商店,网上商店系统,域名注册,虚拟主机,恒伟网络">
<link href="images/css.css" rel="stylesheet" type="text/css">
</head>
<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<!--#include file="include/head.asp"-->
<table width="1000" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="41" valign="top"><table width="100%" height="184" border="0" cellpadding="0" cellspacing="0">
<tr>
<td height="30" align="right" valign="top"><img src="images/body/jiao.gif" width="15" height="17"></td>
</tr>
<tr>
<td height="90"><div align="right"><img src="images/ttts.gif" width="26" height="110" /></div></td>
</tr>
<tr>
<td height="30"> </td>
</tr>
</table></td>
<td width="190" valign="top"style="BORDER-bottom:#FF67A0 1px solid;BORDER-left:#FF67A0 1px solid; BORDER-right:#FF67A0 1px solid;"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><table width="190" height="190" border="0" cellpadding="0" cellspacing="0">
<tr>
<td align="center" valign="middle" background="images/index_2.gif"><!--#include file="userinfo.asp"--></td>
</tr>
</table></td>
</tr>
<tr>
<td><img src="images/index_4.gif" width="190" height="12" alt="" /></td>
</tr>
<tr>
<td><!--#include file="shopcart.asp"--></td>
</tr>
<tr>
<td><!--#include file="include/selltop.asp"--></td>
</tr>
<tr>
<td> </td>
</tr>
<tr>
<td> </td>
</tr>
<tr>
<td> </td>
</tr>
<tr>
<td> </td>
</tr>
</table></td>
<td valign="top" width="700"><TABLE cellSpacing=0 cellPadding=0 width=100% align=center border=0>
<TBODY>
<TR>
<TD colspan="2" align=left vAlign=top class=b>
<%dim bookid,action,i
action=request("action")
set rs=server.CreateObject("adodb.recordset")
rs.open "select count(*) as rec_count from orders where username='"&username&"' and zhuangtai=7",conn,1,1
if rs("rec_count")=0 then
response.write "<script language=javascript>alert('对不起，您购物车没有商品，请在购物后，再去“结算中心”！');location.href=""index.asp"";</script>"
response.End
end if
rs.close
set rs=nothing
//////////////////////////////////
select case action
case ""
set rs=server.CreateObject("adodb.recordset")
rs.open "select orders.actionid,orders.bookid,orders.bookcount,orders.zonger,products.bookname,orders.shjiaid,products.shichangjia,products.huiyuanjia,products.vipjia from products inner join orders on products.bookid=orders.bookid where orders.username='"&username&"' and orders.zhuangtai=7",conn,1,1
%>
<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="1" cellpadding="2" bgcolor="#F1F1F1">
<form name='form1' method='post' action="mycart.asp?action=shop1">
<tr bgcolor="#F1F1F1" align="center">
<td width=25% ><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=15%><strong>数量</strong></td>
<td width=10%><strong>总价</strong></td>
</tr>
<%shuliang=rs.recordcount
jianshu=0
zongji=0
do while not rs.eof%>
<tr bgcolor="#ffffff">
<td height="30" width="25%" align="center"><%=rs("bookname")%>
<input name=bookid type=hidden value="<%=rs("bookid")%>">
<input name=actionid type=hidden value="<%=rs("actionid")%>">
</td>
<td align="center" ><%=rs("shichangjia")%></td>
<td align="center" ><%
if request.Cookies("cnhww")("reglx")=2 then
response.write rs("vipjia")
else
response.write rs("huiyuanjia")
end if%>
元</td>
<td align="center" ><%=rs("bookcount")%></td>
<td align="center" ><%=rs("zonger")%> 元</td>
</tr>
<%
jianshu=jianshu+rs("bookcount")
zongji=zongji+rs("zonger")
rs.movenext
loop
rs.close
set rs=nothing%>
<tr bgcolor=#ffffff align=center>
<td height=30 colspan=5> 您的购物车里有商品：<%=shuliang%> 件 总数量：<%=jianshu%>
件 共计：<font color=red><%=zongji%></font> 元 您有预存款：<%=request.cookies("Cnhww")("yucun")%>
元 </td>
</tr>
<tr bgcolor=#ffffff align=center>
<td height=40 colspan=5><input class="go-wenbenkuang" type="button" name="Submit" value="修改购物车" onClick="this.form.action='buy.asp?action=show';this.form.submit()">
<input class="go-wenbenkuang" type="submit" name="Submit32" value="OK,下一步">
</td>
</tr>
</form>
</table>
<%
/////////////////////////////////////////
case "shop1"
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from [user] where username='"&username&"'",conn,1,1
userid=rs("userid")
%>
<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%" border="0" align="center" cellpadding="2" cellspacing="1" bgcolor="#F1F1F1">
<tr >
<td bgColor="#F1F1F1" colspan="2" align="center"><strong>请正确填写以下收货信息</font></strong></td>
</tr>
<form name="shouhuoxx" method="post" action="mycart.asp?action=shop2" onSubmit="ssxx">
<tr bgcolor="#ffffff">
<td width="30%" height="30" align="right" >收货人真实姓名：</td>
<td width="70%" height="30" style="PADDING-LEFT: 20px" ><input name=userid type=hidden value="<%=userid%>">
<input name="userzhenshiname" class="wenbenkuang" type="text" id="userzhenshiname" size="16" value=<%=trim(rs("userzhenshiname"))%>>
性别：
<select class="wenbenkuang" name="shousex" id="shousex">
<option value=1 <%if rs("sex")="1" then%>selected<%end if%> checked>男</option>
<option value=2 <%if rs("sex")="0" then%>selected<%end if%>>女</option>
<option value=0 <%if rs("sex")="2" then%>selected<%end if%>>保密</option>
</select> </td>
</tr>
<tr bgcolor="#ffffff">
<td width="30%" height="30" align="right" >详细地址：</td>
<td width="70%" height="30" style="PADDING-LEFT: 20px" ><input class="wenbenkuang" name="shouhuodizhi" type="text" id="shouhuodizhi" size="50" value=<%=trim(rs("shouhuodizhi"))%>>
</td>
</tr>
<tr bgcolor="#ffffff">
<td width="30%" height="30" align="right" >邮政编码：</td>
<td width="70%" height="30" style="PADDING-LEFT: 20px" ><input class="wenbenkuang" name="youbian" type="text" id="youbian" size="16" value="<%=rs("youbian")%>" ONKEYPRESS="event.returnValue=IsDigit();"></td>
</tr>
<tr bgcolor="#ffffff">
<td width="30%" height="30" align="right" >联系电话：</td>
<td width="70%" height="30" style="PADDING-LEFT: 20px" ><input class="wenbenkuang" name="usertel" type="text" id="usertel" size="16" value=<%=trim(rs("usertel"))%>>
</td>
</tr>
<tr bgcolor="#ffffff">
<td width="30%" height="30" align="right" >电子邮件：</td>
<td width="70%" height="30" style="PADDING-LEFT: 20px" ><input class="wenbenkuang" name="useremail" type="text" id="useremail" size="30" value=<%=trim(rs("useremail"))%>>
</td>
</tr>
<tr bgcolor="#ffffff">
<td width="30%" height="30" align="right" >送货方式：</td>
<td width="70%" height="30" style="PADDING-LEFT: 20px" >
<%
set rs2=server.CreateObject("adodb.recordset")
rs2.Open "select * FROM zipcode 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 deliver where fangshi=0 order by songidorder",conn,1,1
response.Write "<select name=songhuofangshi size=5 style='width:180px'>"
do while not rs3.EOF
if not(shangmen=3 and trim(rs3("songid"))=3) then '显示不显示“送货上门”
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"))&"("&rs3("jsmoney")&"元)"&"</option>"
end if
rs3.MoveNext
loop
response.Write "</select>"
rs3.Close
set rs3=nothing
%>
</td>
</tr>
<tr bgcolor="#ffffff">
<td width="30%" height="30" align="right" >支付方式：</td>
<td width="70%" height="30" style="PADDING-LEFT: 20px" >
<%
set rs2=server.CreateObject("adodb.recordset")
rs2.Open "select * from deliver where songid="&trim(request("songhuofangshi")),conn,1,1
if cint(request("songhuofangshi"))=3 then
fukuan=1
else
fukuan=0
end if
rs2.close
set rs2=nothing
'//////////判断支付方式
set rs3=server.CreateObject("adodb.recordset")
rs3.open "select * from deliver where fangshi=1 order by songidorder",conn,1,1
response.Write "<select name=zhifufangshi size=5 style='width:180px'>"
do while not rs3.eof
if not(fukuan=4 and trim(rs3("songid"))=4) then '显示不显示“货到付款”
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
%>
</td>
</tr>
<tr bgcolor="#ffffff">
<td height="40" colspan="2" align=center><input class="go-wenbenkuang" type="button" name="Submit22" value="上一步" onClick="javascript:history.go(-1)">
<input class="go-wenbenkuang" type="submit" name="Submit4" value="OK,下一步" onclick='return ssxx();'>
</td>
</tr>
</form>
</table>
<SCRIPT LANGUAGE="JavaScript">
<!--
function IsDigit()
{
return ((event.keyCode >= 48) && (event.keyCode <= 57));
}
function checkspace(checkstr) {
var str = '';
for(i = 0; i < checkstr.length; i++) {
str = str + ' ';
}
return (str == checkstr);
}
function ssxx()
{
if(checkspace(document.shouhuoxx.userzhenshiname.value)) {
document.shouhuoxx.userzhenshiname.focus();
alert("对不起，请填写收货人姓名！");
return false;
}
if(checkspace(document.shouhuoxx.shouhuodizhi.value)) {
document.shouhuoxx.shouhuodizhi.focus();
alert("对不起，请填写收货人详细收货地址！");
return false;
}
if(checkspace(document.shouhuoxx.youbian.value)) {
document.shouhuoxx.youbian.focus();
alert("对不起，请填写邮编！");
return false;
}
if(document.shouhuoxx.youbian.value.length!=6) {
document.shouhuoxx.youbian.focus();
alert("对不起，请正确填写邮编！");
return false;
}
if(checkspace(document.shouhuoxx.usertel.value)) {
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -