网上商城的设计与实现

<%if Page=1 then%>
   <td><img src="Images/button.jpg"></td>
  <%else%>
   <td><a href="Main.asp?Page=1"><img src="Images/start.jpg" alt="第一家柜台"></a></td>
  <%end if%>
  </tr>
     <tr>
  <%if Page=1 then%>
   <td><img src="Images/button.jpg"></td>
  <%else%>
       <td><a href="Main.asp?Page=<%=page-1%>"><img src="Images/pageup.jpg" alt="上一家柜台"></a></td>
  <%end if%>
  </tr>
  <tr><td>第<font color="red">1-<%=4*Page%></font>家商柜</td></tr>
  <tr><td><a href="../eshop/index.asp" target="_top"><img src="Images/jump.jpg" alt="一键进入虚拟商场" border="0"></a></td><tr>

   </table>
   <table border="1" cellspacing="0" cellpadding="1">
     <tr><td><a href="LogOut.asp" target="_top"><img src="Images/exit.jpg" alt="退出购物广场" border="0"></a></td></tr>
   </table>
   <table border="1" cellspacing="0" cellpadding="1">
      <tr><td>共<font color="red"><%=MainRs.PageCount*MainRs.PageCount%></font>家商柜</td></tr>
      <tr>
       <%if Page=MainRs.PageCount then%>
      <td><img src="Images/button.jpg"></td>
    <%else%>
      <td><a href="Main.asp?Page=<%=Page+1%>"><img src="Images/pagedown.jpg" alt="下一家柜台"></a></td>
    <%end if%>
  </tr>
  <tr>
   <%if Page=MainRs.PageCount then%>
    <td><img src="Images/button.jpg"></td>
   <%else%>
   <td><a href="Main.asp?Page=<%=MainRs.PageCount%>"><img src="Images/end.jpg" alt="最后一家柜台"></a></td>
   <%
     end if
     end if
   %>
  </tr>
   </table>
   
</td>
</tr>
</table>

</body>
</html>

Cult3DShow.asp 用来显示商品的三维实体
<%
   picture=ViewRs("Cult3D")
%>
<div align="center">
<table width="100%">
    <tr>
      <td align="left">
   
   <object classid="clsid:31B7EB4E-8B4B-11D1-A789-00A0CC6651A8"
width="100" height="100" codebase="http://www.Cult3D.com/download/cult.cab">
<param name="SRC" value="../eshop/Admin/Cult3D/<%=picture%>" >
<embed pluginspage="http://www.Cult3D.com/download/"
width="300" height="200" src="../eshop/Admin/Cult3D/<%=picture%>" type="application/x-Cult3D-object">
</embed>
</object>
   </td>
    </tr>
<tr><td> </td></tr>
<tr><td >如果您看不清旋转<br>物体请安装插件</td></tr>
<tr><td>下载：<a href="../download/Cult3D_IE_5.3.0.228.exe">Cult3D_IE_5.3.0.228</a><br>大小:1.5M</td></tr>
<table>
</div>
</body>
</html>
购买物品
…


<%
   GoodsId=CInt(request("Id"))
if request("Action")="buy" then
         if request("count")="" then
         count=1
else
         count=request("count")
end if
if request("GoodsId")="" and request("GoodsName")="" then
         response.write"<SCRIPT language=java script>alert('您没有选择要购买的商品！返回！');"
response.write"java script:history.go(-1)</SCRIPT>"
response.end
end if
set Rs=server.createobject("adodb.recordset")
sql="select * from Basket where GoodsId="&GoodsId&" and UserId='"&trim(session("UserId"))+"' and OrderCheck=0"
Rs.open sql, Conn, 1, 3
response.Write(sql)
if Rs.eof then
         Rs.addnew
Rs("GoodsId")=GoodsId
Rs("UserId")=session("UserId")
Rs("BasketGoodsNum")=CInt(count)
Rs("OrderDateTime")=now()
Rs("GoodsName")=request("GoodsName")
Rs("Price")=request("Price")
else
         Rs("BasketGoodsNum")=CInt(count)
end if
Rs.update
Rs.close
end if
response.redirect "Basket.asp?Id="&GoodsId
%>
…
Basket.asp购物车程序
…
<script language=java script>

</script>

<body>


…
<%
Sql="select * from Basket where UserId='"&session("UserId")&"' and OrderCheck=0"
set Rs=server.createobject("adodb.recordset")
Rs.open Sql, Conn, 1, 3
if Rs.eof then
         %>
   <tr>
     <td height="25" colspan="5" align="center">你还没有选购任何商品</td>
    </tr>
<%else
do while not Rs.eof%>
    <tr>
      <td width="44" height="25">
<div align="center"><a href="ClearBasket.asp?Id=<%=Rs("Id")%>">清除</a></div>
      </td>
      <td width="208" height="25"><%=Rs("GoodsName")%></td>
      <td width="88" height="25">
     <div align="center"><%=Rs("Price")%> 元</div>
     </td>
     <td width="75" height="25">
      <div align="center"><%=Rs("BasketGoodsNum")%> </div>
     </td>
<%a=0%>
    <td width="95" height="25">
      <div align="center"><%=Rs("BasketGoodsNum")*Rs("Price")%> 元</div>
    </td>
</tr>
<%TotalCach=TotalCach+(Rs("BasketGoodsNum")*Rs("Price"))%>
<%Rs.movenext
loop
end if
Rs.close
set Rs=nothing%>
   <tr>
    <td height="25" colspan="4">
     <div align="center">总计</div>
    </td>

   <td width="95" height="25">
     <div align="center"><font color=red><%=TotalCach%></font> 元</div>
   </td>
</tr>
</table>
<table width="500" border="1" cellspacing="0" cellpadding="0" align="center" background="Images/menu.jpg">

<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>
    <td width="33%" align="center"><input type="button" name="Submit2" value="继续购物" onClick="location.href='Index.asp'"></td>
</tr>
</table>
<%
if trim(request("Id"))="" then
    response.write"购物车已清空"
    response.redirect "MyBasket.asp"
    response.end
end if
Sql="select * from Goods where Id="&request("Id")
set Rs=server.createobject("adodb.recordset")
Rs.open Sql, Conn, 1, 3
%>
<br>
   <table width="500" border="1" cellspacing="0" cellpadding="0" align="center" background="Images/menu.jpg">
    <tr>
      <td height="27" align="center"> 本次所选购的商品信息 </td>
    </tr>
    <tr>
     <td height="16" align="center">
<form method="POST" Action="Buy.asp?Action=buy&Id=<%=Rs("Id")%>&GoodsName=<%=Rs("GoodsName")%>">
<table width="100%" border="1" cellspacing="0" cellpadding="0" align="center">
<tr align="center">
     <td width="155" height="25"> 商品名称 </td>
     <td width="60" height="25"> 商品单价 </td>
     <td width="60" height="25"> 订购数量 </td>
     <td width="80" height="25"> 确认购买 </td>
</tr>
<tr align="center">
   <td width="155" height="30">
     <font color="#FF0000"><%=Rs("GoodsName")%></font>
   </td>
   <td width="60" height="30">
<%If Rs("CX") Then
    ComPrice = Rs("CPrice")
    VipPrice = Rs("CPrice")
else
    ComPrice=Rs("ComPrice")
    VipPrice=Rs("VipPrice")
End If%>
<%if session("Grade")="会员" then
   Price=Comprice
response.write ComPrice
elseif session("Grade")="VIP" then
   Price=VipPrice
   response.write(VipPrice)
end if%>
   </td>
<td><input type="hidden" name="Price" value="<%=Price%>"></td>
   <td width="60" height="30">
<input type="text" name="count" size="5" value="1" onkeypress= "return regInput(this,/^[0-9]*$/, String.fromCharCode(event.keyCode))"onpaste = "return regInput(this, /^[0-9]*$/, window.clipboardData.getData('Text'))"ondrop= "return regInput(this, /^[0-9]*$/, event.dataTransfer.getData('Text'))">
   </td>
   <td width="80" height="30">
<input name="B1" type="image" Id="B1" src="IMAGES/ok.gif" alt="确认购买" align="absMiddle" width="45" height="20" cache tppabs="">
   </td>
</tr>
</table>
</form>
</td>
</tr>
<%Rs.close
set Rs=nothing%>
…

首页上一页 3 4 5 6 下一页尾页 6/6/6

网上商城的设计与实现(六)