网上商城的设计与实现_毕业论文范文网-论文范文

搜索高级搜索

原创毕业论文

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

作者: 浏览:1910次

免费专业论文
政治工作论文
计算机论文
营销专业论文
工程管理论文范文
医药医学论文范文
法律论文范文
生物专业论文
物理教学论文范文
人力资源论文范文
化学教学论文范文
电子专业论文范文
历史专业论文
电气工程论文
社会学专业论文
英语专业论文
行政管理论文范文
语文专业论文
电子商务论文范文
焊工钳工技师论文
社科文学论文
教育论文范文
数学论文范文
物流论文范文
建筑专业论文
食品专业论文
财务管理论文范文
工商管理论文范文
会计专业论文范文
专业论文格式
化工材料专业论文
英语教学专业论文
电子通信论文范文
旅游管理论文范文
环境科学专业论文
经济论文
人力资源论文范文
营销专业论文范文
财务管理论文范文
物流论文范文
财务会计论文范文
数学教育论文范文
数学与应用数学论文
电子商务论文范文
法律专业论文范文
工商管理论文范文
汉语言文学论文
计算机专业论文
教育管理论文范文
现代教育技术论文
小学教育论文范文
机械模具专业论文
报告,总结,申请书
心理学论文范文
学前教育论文范文

收费计算机专业论文范文

收费计算机专业论文
Delphi
ASP
VB
JSP
ASP.NET
VB.NET
java
VC
pb
VS
dreamweaver
c#.net
vf
VC++
计算机论文

毕业论文范文题目：网上商城的设计与实现(六)，论文范文关键词：网上商城的设计与实现(六)
网上商城的设计与实现(六)毕业论文范文介绍开始：

  <%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

以上为本篇毕业论文范文网上商城的设计与实现(六)的介绍部分。

本论文在计算机论文栏目，由论文网(www.zjwd.net)整理,更多论文,请点论文范文查找