cart.asp

上海购物网设计的购物系统是基于WEB开发的大型购物系统。 它以构建电子商务网站为目标

<!--#include file="conn.asp"-->
<!--#include file="config.asp"-->
<!--#include file="mail.asp"-->
<%if request.cookies("Huibo")("username")="" then
          response.cookies("Huibo")("username")="游客"
 end if 
if request.QueryString("id")="" then
id=request.form("id")
else
id=request.QueryString("id")
end if
if request.cookies("Huibo")("username")=""or request.cookies("Huibo")("username")="游客"then 
 %>
<table width=282 border=0 align=center cellpadding=0 cellspacing=0 bgcolor=#FFFFFF>
  <TR> 
</TR>       <%dim url%>
          <form name=loginfo method=post action=chkuser.asp>
            <tr bgcolor=#ffffff> 
              
      <td nowrap style='padding-left:5px'>用户名： 
        <input name=username type=text id=username size=9> 
              </td>
              
      <td nowrap style='padding-left:5px' >密　码：
        <input name=Password type=password id=Password size=9>
      </td>
            </tr>
            <tr bgcolor=#ffffff> 
              
      <td nowrap style='padding-left:5px'>验证码：
        <input name=passcode type=text id=passcode size=9>
      <td colspan="2"> &nbsp;<img src="code.asp">
&nbsp;<input type=submit name=Submit value="登录">
        <input name=comeurl type=hidden value="cart.asp?id=<%=id%>&action=<%=request.QueryString("action")%>">
        <a href="profile.asp?action=repass"><font color="#FF0000">忘记密码?</font></a> 
      </td>
            </tr>
          </form>
		  
        </table>
<%end if%>
<title><%=webname%>--下订单</title>
<%
dim id,action,i,rsvip,strvip,strdeposit,txtvip,books,bookscount,product,quatity,userid,rs2,rs3,shijian,goods,sum1,sum2,sum,strtxtdeposit,rsdeposit,sums1,sums2,strvipprice,strscore,strprice1,strprice2
action=request.QueryString("action")
if request.QueryString("id")="" then
id=request.form("id")
else
id=request.QueryString("id")
end if
if id="" then
response.write "<script language=javascript>alert('对不起，您还没有选择商品！');history.go(-1);</script>"
response.End
end if

select case action
case ""
%> 
<table width="98%" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor=<%=bgclr2%>>
  <form name="form1" method="post" action="">
    <tr BGCOLOR=<%=bgclr1%> align="center" height="20"> 
      <td align="left"><font color="#FFFFFF">商品名称</font></td>
      <td width="8%"><font color="#FFFFFF">市场价</font></td>
      <td width="8%"> <FONT COLOR="#FFFFFF">会员价</FONT></td>
      <td width="8%"><FONT COLOR="#FFFFFF">折扣</FONT></td>
      <td width="10%"><FONT COLOR="#FFFFFF">VIP会员价</FONT></td>
      <td width="7%"> <font color="#FFFFFF">数量</font></td>
      <td width="6%"><font color="#FFFFFF">积分</font></td>
      <td width="9%"> <font color="#FFFFFF">小计</font></td>
      <td width="10%"><font color="#FFFFFF">修改数量</font></td>
    </tr>
    <%
set rs=server.CreateObject("adodb.recordset")
rs.open "select id,name,price1,price2,vipprice,discount,score,stock from product where id in ("&id&")",conn,1,1
	  sum1=0
	  sums1=0
	  bookscount=request.QueryString("id").count
	  do while not rs.eof
	  Quatity = CInt( Request.form( "shop"&rs("id")) )
	If Quatity <=0 Then Quatity = 1
	  	 if rs("stock")<Quatity then
		if rs("stock")=0 then
		response.write "<script language=javascript>alert('对不起,"&rs("name")&"商品已售完,请过段时间再来购买！');window.close();</script>" 
                 else
response.write "<script language=javascript>alert('对不起,"&rs("name")&"商品只剩下"&rs("stock")&"份,现在您最多只能购买"&rs("stock")&"份！');window.close();</script>" 
                end if
		else
		strvipprice=rs("vipprice")
		strscore=rs("score")
		strprice1=rs("price1")
		strprice2=rs("price2")
	%>
    <tr BGCOLOR=<%=bgclr3%> align="center"> 
      <td style='PADDING-LEFT: 5px' align="left"><%=trim(rs("name"))%> <input type=hidden name=name value=<%=trim(rs("name"))%>> 
      </td>
      <td ><% = strprice1 %>元</td>
      <input type=hidden name=price1 value=<% = strprice1 %>>
      <td><% = strprice2 %>元</td>
      <input type=hidden name=price2 value=<% = strprice2 %>>
      <td><%=rs("discount")*100&"%"%></td>
      <td><%=strvipprice%>元</td>
      <td><input name="<%="shop"& rs("id")%>" type="text" size="3" value="<%=Quatity%>" 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>
	  <% if Quatity<=1 then %>
	  <%=strscore%>分
	<%  else %>
	  <%=strscore*Quatity %>分
	  <%  end if 
	  sums1=strscore*Quatity+sums1 %></td>
      <td> 
<%
if request.cookies("Huibo")("username")="游客" then
txtvip = "游客"
if Quatity<=1 then
	  response.write rs("price1")*1&"元"
	  else
	  response.write rs("price1")*Quatity&"元"
	  end if	  
else
set rsvip=server.CreateObject("adodb.recordset")
rsvip.open "select * from [user] where username='"&request.Cookies("Huibo")("username")&"' ",conn,1,1
if rsvip("vip")=true then
txtvip = "VIP会员"
if Quatity<=1 then %>
<%=strvipprice%>元
<% else %>
<%=strvipprice*Quatity%>元
<%
	  end if	  
	  sum1=strvipprice*Quatity+sum1
else
txtvip = "普通会员"
rsvip.close
if Quatity<=1 then
	  response.write rs("price2")*1&"元"
	  else
	  response.write rs("price2")*Quatity&"元"
	  end if	  
	  sum1=rs("price2")*Quatity+sum1
	  end if
end if
	  %></td>
      <td align="center"><input type="submit" name="Submit" value="修改"  onClick="this.form.action='cart.asp?id=<%=id%>';this.form.submit()"> 
      </td>
    </tr>
    <%
	end if
	if bookscount=1 then books=rs("id")
	rs.movenext
	loop
	
	set rsvip=nothing
	rs.close
    set rs=nothing%>
    <tr bgcolor=<%=bgclr3%> height="20"> 
      <td colspan="9">你是 <font color="#FF0000"><% = txtvip %></font>
	  &nbsp;&nbsp;&nbsp;&nbsp;费用总计：<font color="#FF0000"><%=sum1%></font>&nbsp;元，获得积分：<font color="#FF0000"><%=sums1%></font>&nbsp;分</font></td>
    </tr>
    <tr bgcolor=<%=bgclr3%>> 
      <td height="32" colspan="9" align="center">
        <input type="submit" name="Submit2" style="height:20; font:9pt; BORDER-BOTTOM: #FFFFFF 1px groove; BORDER-RIGHT: #FFFFFF 1px groove; BACKGROUND-COLOR: <% = bgclr1 %> "value="下一步" onClick="this.form.action='cart.asp?action=shop1&id=<%=id%>';this.form.submit()"> 
        &nbsp;&nbsp; <%if bookscount=1 then%> 
        <input type="button" name="Submit22" style="height:20; font:9pt; BORDER-BOTTOM: #FFFFFF 1px groove; BORDER-RIGHT: #FFFFFF 1px groove; BACKGROUND-COLOR: <% = bgclr1 %>"value="放入购物车" onClick="location.href='addto.asp?id=<%=books%>&action=add'"> 
        <%end if%></td>
    </tr>
  </form>
</table>

<%
case "shop1"
id=request("id")
'response.write id
set rs=server.CreateObject("adodb.recordset")
rs.open "select id,name,price1,price2,vipprice,discount,score,stock from product where id in ("&id&")",conn,1,1
	  do while not rs.eof
	  Quatity = CInt( request( "shop"&rs("id")) )

	  	 if rs("stock")<Quatity then
		response.write "<script language=javascript>alert('对不起,"&rs("name")&"商品只剩下"&rs("stock")&"份,现在您最多只能购买"&rs("stock")&"份！');window.close();</script>" 
  end if
	rs.movenext
	loop
set rs=nothing

set rs=server.CreateObject("adodb.recordset")
rs.open "select * from [user] where username='"&request.cookies("Huibo")("username")&"'",conn,1,1
userid=rs("userid")
%> 
<table width="98%" border="1" cellspacing="0" cellpadding="0" bordercolor=<%=bgclr1%> align="center"> 
<tr><td>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor=<%=bgclr4%>>
<form name="receiveaddr" method="post" action="cart.asp?action=ok&id=<%=id%>&userid=<%=userid%>">
<%
set rs2=server.CreateObject("adodb.recordset")
rs2.open "select id from product where id in ("&id&") order by id",conn,1,1
do while not rs2.eof
%>
<input name="<%="shop"&rs2("id")%>" type="hidden" value="<%=cint(request.form("shop"&rs2("id")))%>">
<%
rs2.movenext
loop
rs2.close
set rs2=nothing%>
          <tr bgcolor=<%=bgclr3%>> 
		    <input type=hidden name=realname value=<%=request.cookies("Huibo")("username")%>>
            <td width="150" style='PADDING-LEFT: 6px'><b>收货人姓名：</b></td>
            <td width="600" height="28">  
              <input name="recepit" type="text" id="recepit" size="12" value=<%=trim(rs("recepit"))%>>
              &nbsp;<b>性 别：</b><select name="UserSex" id="UserSex">
			  <option value="0" selected>选择</option>
          <option value="1">男</option>
		  <option value="2">女</option>
              </select>
              </td>
          </tr>
          <tr bgcolor=<%=bgclr3%>> 
            <td style='PADDING-LEFT: 6px'><b>收货人(省)市：</b></td>
            <td height="28"><input name="city" type="text" id="city" value=<%=trim(rs("city"))%>></td>
          </tr>
          <tr bgcolor=<%=bgclr3%>> 
            <td style='PADDING-LEFT: 6px'><b>详细地址：</b></td>
            <td height="28"><input name="address" type="text" id="address" size="40" value=<%=trim(rs("address"))%>></td>
          </tr>
          <tr bgcolor=<%=bgclr3%>> 
            <td style='PADDING-LEFT: 6px'><b>邮　　编：</b></td>
            <td height="28"><input name="postcode" type="text" id="postcode" size="10" value=<%=rs("postcode")%>></td>
          </tr>
          <tr bgcolor=<%=bgclr3%>> 
            <td style='PADDING-LEFT: 6px'><b>电　　话：</b></td>
            <td height="28"><input name="usertel" type="text" id="usertel" size="12" value=<%=trim(rs("usertel"))%>></td>
          </tr>
          <tr bgcolor=<%=bgclr3%>> 
            <td style='PADDING-LEFT: 6px'><b>电子邮件：</b></td>
            <td height="28"><input name="useremail" type="text" id="useremail" value=<%=trim(rs("useremail"))%>></td>
          </tr>
          <tr bgcolor=<%=bgclr3%>> 
            <td style='PADDING-LEFT: 6px'><b>送货方式：</b></td>
            <td height="28">
          <%
          set rs3=server.CreateObject("adodb.recordset")
          rs3.Open "select * from delivery where methord=0 order by deliveryidorder",conn,1,1
          response.Write "<select name=deliverymethord size="&rs3.recordcount&" id=deliverymethord>"
          do while not rs3.EOF
          response.Write "<option value="&rs3("deliveryid")
          if int(rs("deliverymethord"))=int(rs3("deliveryid")) then 
          response.Write " selected>"
          else
          response.Write ">"
          end if
          response.Write trim(rs3("subject"))&"</option>"
          rs3.MoveNext
          loop
          response.Write "</select>"
          rs3.Close
          set rs3=nothing
         %>
            <b>&nbsp;送货上门限制于本市</b></td>
          </tr>
          <tr bgcolor=<%=bgclr3%>> 
            <td style='PADDING-LEFT: 6px'><b>支付方式：</b></td>
            <td height="28">
           <%
          set rs3=server.CreateObject("adodb.recordset")
          rs3.open "select * from delivery where methord=1 order by deliveryidorder",conn,1,1
          response.Write "<select name=paymethord size="&rs3.recordcount&" id=paymethord>" %>
		  <%
          do while not rs3.eof
          response.Write "<option value="&rs3("deliveryid")
          if int(rs("paymethord"))=int(rs3("deliveryid")) then
          response.Write " selected>"
          else
          response.Write ">"
          end if
          response.Write trim(rs3("subject"))&"</option>"
          rs3.movenext
          loop
          response.Write "</select>"
          rs3.close
          set rs3=nothing
	  rs.close
	  set rs=nothing%>
             </td>
          </tr>
          <tr bgcolor=<%=bgclr3%>> 
            <td valign="top" style='PADDING-LEFT: 6px'><b>简单留言：</b></td>
            <td height="28"><textarea name="comments" cols="40" rows="5" id="comments"></textarea></td>
          </tr>
          <tr bgcolor=<%=bgclr3%>> 
		    <td></td>
            <td><input type="submit" name="Submit3" style="height:20; font:9pt; BORDER-BOTTOM: #FFFFFF 1px groove; BORDER-RIGHT: #FFFFFF 1px groove; BACKGROUND-COLOR: <% = bgclr1 %>"value="提交订单" onClick="return ssother();"></td>
          </tr>
        </form>
      </table> </td>
  </tr> </table>
<SCRIPT LANGUAGE="JavaScript">
<!--
function checkspace(checkstr) {
  var str = '';
  for(i = 0; i < checkstr.length; i++) {
    str = str + ' ';
  }
  return (str == checkstr);
}

function ssother()
{
   if(checkspace(document.receiveaddr.recepit.value)) {
	document.receiveaddr.recepit.focus();
    alert("对不起，请填写收货人姓名！");
	return false;
  }
  if(checkspace(document.receiveaddr.city.value)) {
	document.receiveaddr.city.focus();
    alert("对不起，请填写收货人所在省市！");
	return false;
  }
  if(checkspace(document.receiveaddr.address.value)) {
	document.receiveaddr.address.focus();
    alert("对不起，请填写收货人详细收货地址！");
	return false;
  }
  if(checkspace(document.receiveaddr.postcode.value)) {
	document.receiveaddr.postcode.focus();
    alert("对不起，请填写邮编！");
	return false;
  }
 
    if(checkspace(document.receiveaddr.usertel.value)) {
	document.receiveaddr.usertel.focus();
    alert("对不起，请留下您的电话！");
	return false;