gusucode.com > 爱美尔女性商城源码 1.0源码程序 > Check.asp
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<!--#include file="conn.asp"-->
<!--#include file="webconfig.asp"-->
<%
if request.Cookies("bjx")("username")="" then
response.Redirect "login.asp"
response.End
end if
%>
<%
if request.Cookies("bjx")("username")<>"" then
username=trim(request.Cookies("bjx")("username"))
else
username=request.Cookies("bjx")("dingdanusername")
end if
%>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>我的购物车-<%=webname%></title>
<meta name="keywords" content="<%=keywords%>" />
<meta name="description" content="<%=description1%>" />
<link href="css/style.css" rel="stylesheet" type="text/css" />
<script type="text/javascript" src="js/jquery.js"></script>
<script type="text/javascript" src="js/jquery.idtabs.js"></script>
<script type="text/javascript" src="js/swf.js"></script>
</head>
<body>
<!--#include file="top.asp" -->
<table width="995" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="20"><div align="center"></div></td>
</tr>
</table>
<table width="995" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="189" valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td style="background:url(images/index_left_top.gif) top no-repeat left; height:50px;"> </td>
</tr>
<tr>
<td style="background:url(images/fenlei_bottom2.gif) bottom no-repeat left;"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<%
set rs=server.CreateObject("adodb.recordset")
rs.open "select * FROM BJX_class1 where typeid=2 order by anclassidorder asc",conn,1,1
if rs.recordcount=0 then
response.write "<br>目前没有商品分类"
else
while not rs.eof
%>
<tr>
<td><b><a href="prodcuts.asp?anid=<%=rs("anclassid")%>" class="a1"><img src="images/list_ico1.gif" width="28" height="23" align="absmiddle" /><%=rs("anclass")%></a></b></td>
</tr>
<tr>
<td style="padding-left:28px; padding-top:5px;">
<%set rss=server.CreateObject("adodb.recordset")
rss.open "select * FROM BJX_class2 where typeid=2 and anclassid="&rs("anclassid")&" order by nclassidorder asc",conn,1,1
if not rss.eof then
i=1
do while not rss.eof%>
<a href="prodcuts.asp?anid=<%=rss("anclassid")%>&nid=<%=rss("nclassid")%>"><%=rss("nclass")%></a> <br />
<%
rss.movenext
i=i+1
loop
rss.close
end if
%>
</td>
</tr>
<%
rs.movenext
wend
end if
rs.close
set rs=nothing
%>
<tr>
<td> </td>
</tr>
</table></td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="5"><div align="center"></div></td>
</tr>
</table>
</td>
<td width="10" valign="top"><div align="center"></div></td>
<td valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="40">您当前的位置： <a title="" href="index.asp" alt="">首页</a> >> <b>我的购物车</b> </td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td> </td>
</tr>
</table>
<table width="90%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td style="padding:10px; font-size:14px; line-height:200%;">
<table width="95%" align="center" border="0" cellspacing="0" cellpadding="0" class="table-zuoyou" bordercolor="#CCCCCC">
<tr>
<td bgColor=#ffffff height=1></TD>
</tr>
<tr bgcolor="#ffffff">
<td bgColor="#FCD0E0" height="30" align="center">请正确填写订单以便收货 </td>
</tr>
<tr>
<td bgColor=#cccccc height=1></TD>
</tr>
<tr>
<td bgColor=#f1f1f1 height=3></TD>
</tr>
<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 bjx_action.actionid,bjx_action.bookid,bjx_action.bookcount,bjx_action.zonger,BJX_goods.bookname,bjx_action.shjiaid,BJX_goods.anclassid,BJX_goods.banci,BJX_goods.shichangjia,BJX_goods.huiyuanjia,BJX_goods.vipjia from BJX_goods inner join bjx_action on BJX_goods.bookid=bjx_action.bookid where bjx_action.username='"&username&"' and bjx_action.zhuangtai=7 order by BJX_goods.shjiaid",conn,1,1
%>
<br>
<table width=95% border=0 align=center cellpadding=2 cellspacing=1 bgcolor=#cccccc>
<tr align=center bgcolor=#f1f1f1>
<td width=25% bgcolor="#FCD0E0">商品名称</td>
<td width=10% bgcolor="#FCD0E0">市 场 价</td>
<td width=15% bgcolor="#FCD0E0">单 价 </td>
<td width=10% bgcolor="#FCD0E0">数 量</td>
<td width=10% bgcolor="#FCD0E0">邮寄浮动</td>
<td width=15% bgcolor="#FCD0E0">总 价</td>
</tr>
<%shuliang=rs.recordcount
jianshu=0
zongji=0
fudongjia=0
bjxbookname=""
do while not rs.eof
bjxbookname=bjxbookname&"|"&rs("bookname")
bookcount=rs("bookcount")
%>
<tr align="center" bgcolor=#ffffff>
<td height="30" align="left"><%=rs("bookname")%>
<input name=bookid2 type=hidden value="<%=rs("bookid")%>">
<input name=actionid2 type=hidden value="<%=rs("actionid")%>">
</td>
<td><s><%=rs("shichangjia")%></s>元</td>
<td><%
if request.Cookies("bjx")("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 BJX_songhuo where songid="&songd,conn,1,1
feiy=rs_s("jsmoney")
response.write rs_s("jsmoney")
rs_s.close
set rs_s=nothing
%>
</td>
<td><%=rs("zonger")%> 元</td>
</tr>
<%
jianshu=jianshu+rs("bookcount")
zongji=zongji+rs("zonger")
'算每件商品的浮动价
firstshjid=rs("shjiaid")
rs.movenext
if not rs.eof then
nextshjid=rs("shjiaid")
end if
loop
rs.close
set rs=nothing
zongji=formatnumber(zongji,2)
%>
<tr bgcolor=#ffffff>
<td height=30 colspan=6 align=center>货款总计：<font color=red><%=zongji%></font> 元</td>
</tr>
<%set Godbook=server.CreateObject("adodb.recordset")
Godbook.open "select * from BJX_action_jp where username='"&username&"' and zhuangtai=7",conn,1,1
if Godbook.recordcount>0 then%>
<tr>
<td colspan=6 bgcolor=#ffffff><table width="95%" border="0" cellspacing="1" cellpadding="1" bgcolor="#cccccc" align="center">
<tr bgcolor="#ffffff">
<td colspan="3" align="center">您已选择的奖品清单</td>
</tr>
<tr align="center" bgcolor="#f1f1f1">
<td width="45%" bgcolor="#FCD0E0">奖品名称</td>
<td width="32%" bgcolor="#FCD0E0">使用积分</td>
<td width="23%" bgcolor="#FCD0E0">邮寄浮动</td>
</tr>
<%
while not Godbook.eof
bookcount=Godbook("bookcount")
%>
<tr bgcolor="#ffffff">
<td align="center"><%
set Godbook1=server.CreateObject("adodb.recordset")
Godbook1.open "select * from BJX_jiangpin where bookid="&Godbook("bookid"),conn,1,1
if Godbook1.recordcount=1 then
response.write "<font color=blue>"&Godbook1("bookname")&"</font>"
end if
Godbook1.close
set Godbook1=nothing%> </td>
<td align="center"><%=Godbook("jifen")%></td>
<td align="center"><%
songd=request("songhuofangshi")
set rs_s=server.CreateObject("adodb.recordset")
rs_s.open "select * from BJX_songhuo where songid="&songd,conn,1,1
feiy=rs_s("jsmoney")
response.write feiy
rs_s.close
set rs_s=nothing
%></td>
</tr>
<%Godbook.movenext
wend%>
</table></td>
</tr>
<%end if
Godbook.close
set Godbook=nothing%>
</table>
<br>
</td>
</tr>
<tr bgcolor="#ffffff">
<td width="50%" align="center" valign="top"><table width="90%" border="0" cellpadding="2" cellspacing="1" bgcolor="#CCCCCC">
<tr>
<td colspan="2" height="24" bgcolor="#FCD0E0" align="center">您的订单信息</td>
</tr>
<tr bgcolor="ffffff">
<td width="30%" align="center">姓名：</td>
<td width="70%" 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 BJX_songhuo 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 BJX_songhuo 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="top"><table width="90%" border="0" cellpadding="2" cellspacing="1" bgcolor="#CCCCCC">
<tr>
<td colspan="2" height="24" bgcolor="#FCD0E0" align="center">送货费计算</td>
</tr>
<%
'计算费用
'先取出参数
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from BJX_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")
'先看是不是送货
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from BJX_songhuo where songid="&trim(request("songhuofangshi")),conn,1,1
if cint(request("songhuofangshi"))=3 then '先看是不是送货
rs.close
if zongji>=t_sm2 then
jijia=0
else
jijia=0
end if
feiyong=jijia+fudongjia
else
'不是送货上门的还要看是什么方式送货
if cint(request("songhuofangshi"))=1 then '看是不是"普通平邮"
rs.close
jijia=0
else
rs.close
jijia=0
end if
'算商品基价+邮寄费=费用
feiyong=jijia+fudongjia
end if%>
<tr>
<td style="PADDING-right: 20px" align="right" bgcolor="ffffff">您的送货费用计：<%=feiy*1%> 元<br>
其中物品：<%=zongji%> 元<br>
</td>
</tr>
<%
shfy=feiy*1
%>
<tr>
<td style="PADDING-right: 20px" align="right" bgcolor="ffffff"><font color=red>您的订单总金额： <%=FormatNumber((shfy+zongji),2)%> 元</font><% session("payall")=shfy+zongji %></td>
</tr>
<tr>
<td style="PADDING-right: 20px" align="right" bgcolor="ffffff"><a href="help.asp?action=feiyong" >查看送货费用说明</a></td>
</tr>
</table></td>
</tr>
<form name="shouhuoxx" method="post" action="CheckoutSucc.asp">
<tr bgcolor="#ffffff" align="center">
<td colspan="2"><table width="95%" border="0" cellspacing="0" cellpadding="2">
<tr>
<td width="20%"><!--<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=<%=formatnumber(int(shfy),2)%>>
<input name="zongji" type="hidden" value=<%=zongji%>>
<input name=userid type=hidden value="<%=request("userid")%>" >
<input name="bjxbookname" type="hidden" value=<%=bjxbookname%>>
</td>
<td width="60%"><input class="wenbenkuang" type="text" name="liuyan" size="35" maxlength="30">
您对此订单的特殊说明(30字内) </td>
<td width="20%" align="center" height="60"><input class="go-wenbenkuang" type="button" name="Submit22" value="上一步" onClick="javascript:history.go(-1)">
<input class="go-wenbenkuang" type="submit" name="Submit42" value="完 成">
</td>
</tr>
</table></td>
</tr>
</form>
</table></td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
<!--#include file="bottom.asp" -->
</body>
</html>