WEB源码(ASP,PHP,...)

开发平台：
ASP/ASPX

order.asp：源码内容
							<!--#include file="conn.asp" -->
<html>
<head>
<title>订单确认列表</title>
<link href="css.css" rel="stylesheet">
</head>
<body>
<%
'=======================================
'88red科技独立开发完成本程序，并提供免费技术支持与升级服务
'官方网站 http://www.88red.com    QQ:8375158  TEL:13964489818
'对于商业客户，本站提供细致周到的各项售后服务；对于盗版客户恕不提供，对于散播本程序者本站将追究其法律责任
'88red科技将陆续开发其他各种先进程序，例如企业网站建站系统等等，对老客户购买其他程序给予最大程度的优惠，欢迎洽谈
'=======================================
if session("user")="" then
response.write "<script language=javascript>alert('购物车没有任何商品！');window.location.reload('javascript:window.close()')</script>"
response.end
end if
if request("action")="confirm" then
if request("conid")="" then
    response.write "<br><div align=center>没有此商品或者商品参数错误</div>"
	
else
    sp=request("conid")
end if
if request("count")="" then
   pcount=1
else
   pcount=request("count")
end if
set rs=server.createobject("adodb.recordset")
sql="select * from basket where sp_id='"&sp&"' and user_name='"&session("user")&"' and basket_check=false"
rs.open sql,conn,3,3
if rs.eof then
rs.addnew
rs("sp_id")=sp
rs("user_name")=session("user")
rs("count")=pcount
rs("basket_date")=now()
rs("sp_name")=request("consp")
rs("memprice")=request("conprice")
else
rs("count")=int(rs("count"))+int(pcount)
end if
rs.update
rs.close
set rs=nothing
%>
 
  <%
  end if
  %>
<table width="480" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr  class="tabbgcolorli"> 
    <td>　您已选购的商品列表</td>
  </tr>
</table>
<br>
<table class="border3" width="480" border="0" align="center" cellpadding="0" cellspacing="0">
    <tr> 
      <td width="40%"> <div align="center">商品名称&nbsp;</div></td>
      <td width="20%"> <div align="center">单价</div></td>
      <td width="20%"> <div align="center">数量</div></td>
      <td width="20%"> <div align="center">总金额</div></td>
    </tr>
	<form action="submitorder.asp" name="submitorder" method="post">
		<%
set rs=server.createobject("adodb.recordset")
sql="select * from basket where user_name='"&session("user")&"' and basket_check=false"
rs.open sql,conn,1,1
if rs.eof then
response.write"<br><div align=center>您暂时没有已选购的商品</div>"
response.end
else
do while not rs.eof
%>
    <tr> 
      <td><div align="center"><%=rs("sp_name")%></div></td>
      <td><div align="center"><%=rs("memprice")%>元</div></td>
      <td><div align="center"><%=rs("count")%></div></td>
      <td><div align="center"><%=rs("count")*rs("memprice")%>元</div></td>
    </tr>
	<%
	total=total+(rs("count")*rs("memprice"))
	rs.movenext
	loop
	end if
	rs.close
	set rs=nothing
	%>
	 <tr>
    <td colspan="4">您已选购的商品的总价为:<%=total%>元&nbsp;<input type="hidden" name="total" value="<%=total%>">　　　　　　　　　　<input type="submit" name="sbm" value="这就去下订单" class="border"></td>
  </tr>
  </form>
</table>
<br>
<table width="480" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr> 
    <td><div align="center"><a href="javascript:window.close()">继续购物之旅</a></div></td>
    <td><div align="center"><a href="cp.asp">清除上述商品</a></div></td>
  </tr>
</table>
</body>
</html>

						