mybasket.asp

本实例为一个完整的网上购物商城的完整例子程序,里面有所以的源代码.希望对大家学习有用.

<!--#include file="top.asp" -->
<%
'56770网络商城商业版
'版本：V2.0
'版权所有: 56770网络(56770.com)
%>
<%
if session("user_id")="" then
        response.write"<SCRIPT language=JavaScript>alert('对不起，您不是我们的会员或还没有登陆，请注册或登陆！');"
response.write"javascript:history.go(-1)</SCRIPT>"
response.end
end if
%>
<%
'读取广告内容
Set rsnews=Server.CreateObject("ADODB.RecordSet")
sqlnews="select * from 56770_news where newstype='ps'"
rsnews.open sqlnews, conn, 1, 1
subject=rsnews("subject")
news=replace(rsnews("message"), chr(13), "<br>")
news=replace(news, chr(32), "&nbsp;")
rsnews.close
set rsnews=nothing
%>
<script language=javascript>
<!--
function regInput(obj, reg, inputStr)
{ 
        var docSel	= document.selection.createRange()
        if(docSel.parentElement().tagName != "INPUT")return false
                oSel = docSel.duplicate()
        oSel.text = ""
        var srcRange	= obj.createTextRange()
        oSel.setEndPoint("StartToStart", srcRange)
        var str = oSel.text + inputStr + srcRange.text.substr(oSel.text.length)
        return reg.test(str)
}
function checkspace(checkstr)
{
        var str = '';
        for(i = 0; i < checkstr.length; i++)
        {
                str = str + ' ';
        }
        return(str == checkstr);
}
//-->
</script>
<title><%=sitename%>--我的购物车</title>
<table width="760" border="0" align="center" cellpadding="0" cellspacing="0" background="http://images2.sohu.com/images/cart/buy_top_10.gif">
<tr>
<td height="28" style="padding-left:10px"><a href="/" target="_blank" class="buyCurrent">首页</a>
<span class="buyText2">&gt; </span> <span class="buyText2">购物车</span></td>
</tr>
</table>
<table width="750" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="635" align="right" valign="top">
<table width="617" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="89" height="80" valign="bottom" style="padding-bottom:1px"><img src="images/cart/buy_01.gif" width="87" height="54"></td>
<td width="293" valign="top" style="padding-top:10px"> <table width="270" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="5" height="5"><img src="images/cart/buy_bg1.gif" width="5" height="5"></td>
<td width="260" background="images/cart/buy_bg3.gif" height="5"></td>
<td width="5" align="right" height="5"><img src="images/cart/buy_bg2.gif" width="5" height="5"></td>
</tr>
<tr>
<td width="5" background="images/cart/buy_bg4.gif"><img src="images/cart/buy_bg4.gif" width="5" height="1"></td>
<td width="260" height="20" align="center" class="buyText2">哦～，真好！都是我喜欢的。<a href="default.asp" class="buyCurrent">再去逛逛…</a></td>
<td width="5" background="images/cart/buy_bg5.gif"><img src="images/cart/buy_bg5.gif" width="5" height="1"></td>
</tr>
<tr>
<td width="5" valign="top"><img src="images/cart/buy_bg9_con.gif" width="5" height="6"></td>
<td width="260" background="images/cart/buy_bg8.gif"  style="font-size:16pt" >&nbsp; <img src="images/cart/buy_bg7.gif" width="24" height="20"></td>
<td width="5" valign="top"><img src="images/cart/buy_bg9.gif" width="5" height="6"></td>
</tr>
</table></td>
<td width="245" align="right" valign="bottom">
<table width="202" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="23"><img src="images/cart/buy_button_3.gif" width="23" height="24"></td>

<td width="86"><a href="default.asp"><img src="images/cart/buy_button_1.gif" border=0 width="85" height="24"></a></td>
<td width="93"><a href="cash.asp"><img src="images/cart/buy_button_2.gif" border=0 width="93" height="24"></a></td>
</tr>
</table>
</td>
</tr>
</table>
<table width="617" border="0" cellpadding="0" cellspacing="0" background="images/cart/buy_02.gif">
<tr>
<td width="598" height="36" class="text2" style="padding-left:10px;padding-top:3px"><img src="IMAGES/icon_gwc.gif" width="75" height="22"></td>
<td width="29" ><img src="images/cart/buy_faq.gif" alt="需要帮助？" width="15" height="16" border="0" class="buyFaq"></td>
</tr>
</table>
<table width="617" border="0" cellpadding="0" cellspacing="0" >
<tr align="center">
<td width="44" height="25" bgcolor="#C9C3AD">操作</td>
<td width="208" height="25" bgcolor="#C9C3AD">商品名称</td>
<td width="88" height="20" bgcolor="#C9C3AD">商品单价</td>
<td width="75" height="20" bgcolor="#C9C3AD">订购数量</td>
<td width="95" height="20" bgcolor="#C9C3AD">合计</td>
</tr>
<tr>
<td height="1" colspan="9" ></td>
</tr>
<%
sql="select * from 56770_product where id="&request("id")
sql="select * from 56770_basket where user_id='"&session("user_id")&"' and basket_check=false"
set rs=server.createobject("adodb.recordset")
rs.open sql, conn, 3, 3
if rs.eof then
        %>
<tr>
<td height="25" colspan="5" bgcolor="#f0f0f0" align="center">你还没有选购任何商品</td>
</tr>
<%else
do while not rs.eof%>
<tr bgcolor="#C9C3AD">
<td width="44" height="25">
<div align="center"><a href="clearbasket.asp?basket_id=<%=rs("basket_id")%>">清除</a></div>
</td>
<td width="208" height="25"><%=rs("product_name")%></td>
<td width="88" height="25">
<div align="center"><%=rs("price")%> 元</div>
</td>
<td width="75" height="25">
<div align="center"><%=rs("basket_count")%> </div>
</td>
<%a=0%>
<td width="95" height="25">
<div align="center"><%=rs("basket_count")*rs("price")%> 元</div>
</td>
</tr>
<%totalcash=totalcash+(rs("basket_count")*rs("price"))%>
<%rs.movenext
loop
end if
rs.close
set rs=nothing%>
<tr>
<td height="25" colspan="4" bgcolor="#C9C3AD">
<div align="center">总计</div>
</td>

<td width="95" height="25" bgcolor="#C9C3AD">
<div align="center"><font color=red><%=totalcash%></font> 元</div>
</td>
</tr>
</table>
<table width="617" border="0" cellpadding="0" cellspacing="0" background="images/cart/buy_02.gif">

<tr>
<td width="33%" align="center"><a href="clearbasket.asp"><img src="images/relbcar.gif" width="100" height="20" border="0"></a></td>
<td width="33%" align="center"><a href="cash.asp"><img src="images/gobuy.gif" width="100" height="20" border="0"></a></td>
</tr>
</table>
</td>
<td width="125" align="center" valign="top" style="padding-top:18px">
<table width="110" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="5" height="5"><img src="images/cart/buy_bg1.gif" width="5" height="5"></td>
<td width="100" background="images/cart/buy_bg3.gif" height="5"></td>
<td width="5" align="right" height="5"><img src="images/cart/buy_bg2.gif" width="5" height="5"></td>
</tr>
<tr>
<td width="5" background="images/cart/buy_bg4.gif"><img src="images/cart/buy_bg4.gif" width="5" height="1"></td>
<td width="100" align="right" class="buyText2" >
<table width="96%" border="0" cellpadding="0" cellspacing="0" class="buyText2">
<tr>
<td valign="top" class="buyText2" style="padding-top:2px;padding-bottom:2px; padding-left:2px; line-height:150%">
陪送说明：<br>
<%=news%>
</td>
</tr>
</table>
</td>
<td width="5" background="images/cart/buy_bg5.gif"><img src="images/cart/buy_bg5.gif" width="5" height="1"></td>
</tr>
<tr>
<td width="5" valign="top"><img src="images/cart/buy_bg9_con.gif" width="5" height="6"></td>
<td width="100" background="images/cart/buy_bg8.gif"  style="font-size:16pt" >&nbsp; <img src="images/cart/buy_bg7.gif" width="24" height="20"></td>
<td width="5" valign="top"><img src="images/cart/buy_bg9.gif" width="5" height="6"></td>
</tr>
</table>
</td>
</tr>
</table>

<!--#include file="footer.asp" -->