📄 gouwu.asp
字号:
<!--#include file="conn.asp"-->
<%
if request.cookies("songxf")("username")="" then
response.write "<script language=javascript>alert('对不起，您还没有登陆！');window.close();</script>"
response.End
end if
dim bookid,username,action
action=request.QueryString("action")
username=trim(request.cookies("songxf")("username"))
bookid=request.QueryString("id")
'//删除收藏
select case action
case "del"
conn.execute "delete from shop_action where actionid="&request.QueryString("actionid")
if request.QueryString("ll")=22 then
response.redirect "myuser.asp?action=shoucang"
else
response.redirect "gouwu.asp?action=show"
end if
response.End
case "add"
'//商品，判断是否存在
set rs_s=server.CreateObject("adodb.recordset")
rs_s.open "select * from shop_books where bookid="&bookid,conn,1,1
if request.Cookies("songxf")("reglx")=1 then
danjia=rs_s("huiyuanjia")
else
danjia=rs_s("vipjia")
end if
kucun=rs_s("kucun")
bookname=rs_s("bookname")
shjiaid=rs_s("shjiaid")
rs_s.close
set rs_s=nothing
if kucun<=0 then
response.write "<script language=javascript>alert('你选购的商品“"&bookname&"”暂时缺货不能放到购物车里，请选购其它商品！');window.close();</script>"
response.end
end if
set rs=server.CreateObject("adodb.recordset")
rs.open "select bookid,username,bookcount,zonger from shop_action where username='"&username&"' and bookid="&bookid&" and zhuangtai=7",conn,1,3
if rs.recordcount=1 then
if kucun<(rs("bookcount")+1) then
response.write "<script language=javascript>alert('你选购的商品“"&bookname&"”暂时缺货不能放到购物车里，请选购其它商品！');window.close();</script>"
response.end
end if
rs("zonger")=(rs("bookcount")+1)*danjia
rs("bookcount")=rs("bookcount")+1
rs.update
rs.close
set rs=nothing
response.Redirect "gouwu.asp?action=show"
else
'//添加购物
rs.close
set rs=server.CreateObject("adodb.recordset")
rs.open "select bookid,username,shjiaid,zhuangtai,zonger,bookcount from shop_action",conn,1,3
rs.addnew
rs("bookid")=bookid
rs("username")=username
rs("zhuangtai")=7
rs("bookcount")=1
rs("shjiaid")=shjiaid
rs("zonger")=danjia
rs.update
rs.close
set rs=nothing
response.Redirect "gouwu.asp?action=show"
end if
case "show"
'//////////////////
%>
<!--#include file="webconfig.asp"-->
<html>
<head>
<title><%=webname%>--我的购物车</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="images/css.css" rel="stylesheet" type="text/css">
<style>
td{font-size:9pt;line-height:120%;color:#353535}
body{font-size:9pt;line-height:120%}
a:link { color: #000000; text-decoration: none }
a:visited { color: #000000; text-decoration: none }
a:active { color: #000000; text-decoration: none }
a:hover { color: #336699; text-decoration: none; position: relative; right: 0px; top: 1px }
</style>
</head>
<body leftmargin="3" topmargin="5" marginwidth="0" marginheight="0">
<%
response.write "<table width=96% border=0 align=center cellpadding=2 cellspacing=2><tr><td valign=baseline align=center>我的购物车</td></tr></table>"
set rs=server.CreateObject("adodb.recordset")
rs.open "select shop_action.actionid,shop_action.bookid,shop_action.bookcount,shop_action.zonger,shop_action.shjiaid,shop_books.bookname,shop_books.shichangjia,shop_books.huiyuanjia,shop_books.vipjia from shop_books inner join shop_action on shop_books.bookid=shop_action.bookid where shop_action.username='"&request.cookies("songxf")("username")&"' and shop_action.zhuangtai=7",conn,1,1
%>
<table width=96% border=0 align=center cellpadding=1 cellspacing=1 bgcolor=#FFCC00>
<form name='form1' method='post' action=xgsl.asp>
<tr bgcolor="#FFE2A6">
<td width=20% height="22">
<div align=center><font color="#666666">商家名称</font></div>
</td>
<td width=25% height="22">
<div align=center><font color="#666666">商品名称</font></div>
</td>
<td width=15% height="22">
<div align=center><font color="#666666">单价
<%if request.cookies("songxf")("reglx")=2 then %>
(VIP)
<%else%>
(会员)
<%end if%>
</font></div>
</td>
<td width=15% height="22" bgcolor=#FFE2A6>
<div align=center><font color="#666666">数量</font></div>
</td>
<td width=15% height="22">
<div align=center><font color="#666666">总价</font></div>
</td>
<td width=10% height="22">
<div align=center><font color="#666666">删除</font></div>
</td>
</tr>
<%shuliang=rs.recordcount
jianshu=0
zongji=0
do while not rs.eof%>
<tr bgcolor="#FFF9EC">
<td height="22" width="20%"><%id=rs("shjiaid")
if id>1 then
set rs_shj=server.CreateObject("adodb.recordset")
rs_shj.open "select name from shjia where shjiaid="&id,conn,1,1%>
<div align=center><font color=#dd6600>
<%=rs_shj("name")%>
<%
rs_shj.close
set rs_shj=nothing
else
response.write "<div align=center><font color=#dd6600>网上商城"
end if%>
</font></div>
</td>
<td height="22" STYLE='PADDING-LEFT: 5px' width="25%">
<div align=left><a href=list.asp?id=<%=rs("bookid")%> target=_blank><%=rs("bookname")%></a>
<input name=bookid type=hidden value="<%=rs("bookid")%>" >
<input name=actionid type=hidden value="<%=rs("actionid")%>" >
</div>
</td>
<td height="22" width="15%">
<div align=center>
<%
if request.Cookies("songxf")("reglx")=2 then
response.write rs("vipjia")
else
response.write rs("huiyuanjia")
end if%>
元</div>
</td>
<td height="22" width="15%">
<div align=center><font color=#dd6600>
<input name=bookcount value="<%=rs("bookcount")%>" size=6>
</font></div>
</td>
<td height="22" width="15%">
<div align=center><font color=#FF3300><%=rs("zonger")%></font>元</div>
</td>
<td height="22" width="10%">
<div align=center> <a href=gouwu.asp?action=del&actionid=<%=rs("actionid")%>>
<img src=images/trash.gif width=15 height=17 border=0></a></div>
</td>
</tr>
<%
jianshu=jianshu+rs("bookcount")
zongji=zongji+rs("zonger")
rs.movenext
loop
rs.close
set rs=nothing%>
<tr bgcolor="#FFFFFF">
<td height=25 colspan=6>
<div align=center>
<input name="imageField" type="image" src="images/cart01.gif" width="93" height="43" border="0" onFocus="this.blur()" onclick="javascript:window.close()">
<input name="imageField2" type="image" src="images/cart03.gif" width="97" height="43" border="0" onFocus="this.blur()" onClick="this.form.action='xgsl.asp';this.form.submit()">
<input name="imageField22" type="image" src="images/cart02.gif" width="107" height="43" border="0" onFocus="this.blur()" onClick="this.form.action='qkgwc.asp';this.form.submit()">
<input name="imageField222" type="image" src="images/cart04.gif" width="87" height="43" border="0" onFocus="this.blur()" onClick="javascript:window.open('jszx.asp','jszx','width=650,height=500,toolbar=no, status=no, menubar=no, resizable=yes, scrollbars=yes');window.close()">
</div>
</td>
</tr>
<tr bgcolor="#FFF9EC">
<td height=36 colspan=6>
<div align=center> 购物车里有商品：<%=shuliang%>件 总数：<%=jianshu%>件 共计：<%=zongji%>元 您有预存款：<%=request.cookies("songxf")("yucun")%>元
<%if request("lx")<>1 then %>
<br>
购物车将在10秒后自动关闭
<script language="Javascript">
function closeinfo(){window.close();}
setTimeout("closeinfo()", 10000);
</script>
<%end if%>
</div>
</td>
</tr>
<%set songxf=server.CreateObject("adodb.recordset")
songxf.open "select * from shop_action_jp where username='"&request.cookies("songxf")("username")&"' and zhuangtai=7",conn,1,1
if songxf.recordcount>0 then%>
<tr bgcolor="#FFF9EC">
<td colspan=5>
<table width="96%" border="0" cellspacing="1" cellpadding="1" bgcolor="#FFCC33" align="center">
<tr bgcolor="#FFEA93">
<td colspan="3" height="22"><b>您已选择的奖品清单</b></td>
</tr>
<tr bgcolor="#FFE2A6" align="center">
<td height="22"><font color="#666666">奖品名称</font></td>
<td height="22"><font color="#666666">使用积分</font></td>
<td height="22"><font color="#666666">删除</font></td>
</tr>
<%
while not songxf.eof%>
<tr bgcolor="#FFF9EC">
<td height="22">
<%
set songxf1=server.CreateObject("adodb.recordset")
songxf1.open "select * from shop_jiangpin where bookid="&songxf("bookid"),conn,1,1
if songxf1.recordcount=1 then
response.write "<a href='listjp.asp?id="&songxf("bookid")&"' target=_blank>"&songxf1("bookname")&"</a>"
end if
songxf1.close
set songxf1=nothing%>
</td>
<td align="center" height="22"><%=songxf("jifen")%></td>
<td align="center" height="22"><a href="jifen.asp?actionid=<%=songxf("actionid")%>&action=del&ll=22"><img src=images/trash.gif width=15 height=17 border=0></a></td>
</tr>
<%
songxf.movenext
wend%>
</table>
</td>
</tr>
<%end if
songxf.close
set songxf=nothing%>
</form>
</table>
<script language=javascript>window.opener.location.reload();</script>
</body>
</html>
<%
end select%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -