cart.asp

电子商务网络购物系统

    alert("对不起，请留下您的电话！");
	return false;
  }
      if(checkspace(document.receiveaddr.deliverymethord.value)) {
	document.receiveaddr.deliverymethord.focus();
    alert("对不起，您还没有选择送货方式！");
	return false;
  }
      if(checkspace(document.receiveaddr.paymethord.value)) {
	document.receiveaddr.paymethord.focus();
    alert("对不起，您还没有选择支付方式！");
	return false;
  }
  if(document.receiveaddr.useremail.value.length!=0)
  {
    if (document.receiveaddr.useremail.value.charAt(0)=="." ||        
         document.receiveaddr.useremail.value.charAt(0)=="@"||       
         document.receiveaddr.useremail.value.indexOf('@', 0) == -1 || 
         document.receiveaddr.useremail.value.indexOf('.', 0) == -1 || 
         document.receiveaddr.useremail.value.lastIndexOf("@")==document.receiveaddr.useremail.value.length-1 || 
         document.receiveaddr.useremail.value.lastIndexOf(".")==document.receiveaddr.useremail.value.length-1)
     {
      alert("Email地址格式不正确！");
      document.receiveaddr.useremail.focus();
      return false;
      }
   }
 else
  {
   alert("Email不能为空！");
   document.receiveaddr.useremail.focus();
   return false;
   }
   
}
//-->
</script> <%
case "ok"
'/////////////////////////////////////////////////
function HTMLEncode2(fString)
	fString = Replace(fString, CHR(13), "")
	fString = Replace(fString, CHR(10) & CHR(10), "</P><P>")
	fString = Replace(fString, CHR(10), "<BR>")
	HTMLEncode2 = fString
end function

if session("myorder")<>minute(now) then
dim shijian,goods
shijian=now()
goods=year(shijian)&month(shijian)&day(shijian)&hour(shijian)&minute(shijian)&second(shijian)
'response.write id
set rs2=server.CreateObject("adodb.recordset")
rs2.open "select id,name,price1,price2,vipprice,discount from product where id in ("&id&") order by id ",conn,1,1
goods=year(shijian)&month(shijian)&day(shijian)&hour(shijian)&minute(shijian)&second(shijian)
do while not rs2.eof
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from orders",conn,1,3
rs.addnew
rs("username")=trim(request.cookies("timesshop")("username"))
rs("id")=rs2("id")
rs("actiondate")=shijian
rs("productnum")=CInt(Request("shop"&rs2("id")))
rs("state")=1
rs("goods")=goods
rs("postcode")=int(request("postcode"))
rs("recepit")=trim(request("recepit"))
rs("address")=trim(request("address"))
rs("paymethord")=int(request("paymethord"))
rs("deliverymethord")=int(request("deliverymethord"))
rs("sex")=int(request("sex"))
rs("comments")=HTMLEncode2(trim(request("comments")))

if  strvip = true then 
rs("paid")=rs2("vipprice")*CInt(Request("shop"&rs2("id")))
else
rs("paid")=rs2("price2")*CInt(Request("shop"&rs2("id")))
end if
rs("realname")=trim(request("realname"))
rs("useremail")=trim(request("useremail"))
rs("usertel")=trim(request("usertel"))
rs("userid")=request.QueryString("userid")
rs.update
rs.close
set rs=nothing
conn.execute "delete from orders where username='"&request.cookies("timesshop")("username")&"' and id in ("&id&") and state=6"
rs2.movenext
loop
rs2.close
set rs2=nothing
session("myorder")=minute(now)
else
response.Write "<center>您不能重复提交！</center>"
response.End
end if

set rs=server.CreateObject("adodb.recordset")
rs.open "select product.id,product.name,product.price1,vipprice,product.price2,orders.sex,orders.realname,orders.recepit,orders.goods,orders.postcode,orders.comments,orders.paymethord,orders.deliverymethord,orders.paid,orders.productnum from product inner join orders on product.id=orders.id where orders.username='"&request.Cookies("timesshop")("username")&"' and state=1 and goods='"&goods&"' ",conn,1,1

%> 
<table width="98%" border="1" cellspacing="0" cellpadding="1" bordercolor=<%=bgclr1%> align="center"> 
<tr> <td>
<table width="100%" border="0" align="center" cellpadding="2" cellspacing="1"> 
<tr> <td height="25" bgcolor=<%=bgclr1%> align="center"><FONT COLOR="#FFFFFF" SIZE="3"><B>恭喜<% =request.Cookies("timesshop")("username") %>，您已成功的提交了此订单！详细信息如下：</B></FONT></td></tr> 
<tr> <td height="18" bgcolor=<%=bgclr3%>>订单号：<font color=#FF6600><%=rs("goods")%></font></td></tr> 
<tr> <td height="18" bgcolor=<%=bgclr3%>>商品列表：</td></tr> 
<tr> <td height="18" bgcolor=#FFFFFF> 
<table width="90%" border="0" align="center" cellpadding="2" cellspacing="1" bgcolor=<%=bgclr1%>> 
<tr align="center"><td><font color="#FFFFFF">商品名称</font></td>
<td><font color="#FFFFFF">市场价</font></td>
<td><font color="#FFFFFF">会员价</font></td>
<td><font color="#FFFFFF">VIP会员价</font></td>
<td><font color="#FFFFFF">数量</font></td>
<td><font color="#FFFFFF"> 小计</font></td></tr> 
<%dim iiii 
 do while not rs.eof
%> 
<tr BGCOLOR=#FFFFFF> 
<td><%response.Write "<a href=product.asp?id="&rs("id")&" target=_blank>"&rs("name")&"</a>"%></td>
<td align="center"><%=rs("price1")%>元</td>
<td align="center"><%=rs("price2")%>元</td>
<td align="center"><%=rs("vipprice")%>元</td>
<td align="center"><%=rs("productnum")%></td>
<% 
set rsvip=server.CreateObject("adodb.recordset")
rsvip.open "select deposit,vip from [user] where username='"&request.Cookies("timesshop")("username")&"' ",conn,1,1
if  rsvip("vip") = true then  %>
<td align="center"><%=rs("vipprice")*rs("productnum")%>元</td></tr>
<%
 iiii=rs("vipprice")*rs("productnum")+iiii
else %>
<td align="center"><%=rs("price2")*rs("productnum")%>元</td></tr>
<%
iiii=rs("price2")*rs("productnum")+iiii
end if
	rs.movenext
    loop
    rs.movefirst
	rsvip.close
	 set rsvip=nothing
    %> 
	<tr BGCOLOR=<%=bgclr3%> align="center"> <td colspan="6"><%response.write "<font color=#FF6600>您选择的送货方式是："

		  set rs3=server.CreateObject("adodb.recordset")
		  rs3.open "select * from delivery where deliveryid="&int(rs("deliverymethord")),conn,1,1
		  if rs3.eof and rs3.bof then
		  response.write "送货方式已经被删除"
		  response.write "&nbsp;附加费用：0元&nbsp;&nbsp;&nbsp;共计："
		  response.write iiii&"元"
		  else
		  response.Write trim(rs3("subject"))
		  response.write "&nbsp;附加费用："&rs3("fee")&"元&nbsp;&nbsp;&nbsp;共计："
		  response.write iiii+rs3("fee")&"元"
		  end if
		  rs3.close
		  set rs3=nothing
		%></td></tr> </table></td></tr> 
<tr> <td height="18" bgcolor=<%=bgclr3%> style='PADDING-LEFT: 100px'>订货人姓名：<font color=#FF6600><%=trim(rs("realname"))%></font></td></tr> 
<tr> <td height="18" bgcolor=<%=bgclr3%> style='PADDING-LEFT: 100px'>收货人姓名：<font color=#FF6600> 
<%response.Write trim(request("recepit"))
    if request("sex")=0 then
    response.Write "&nbsp;(先生)"
    else
    response.Write "&nbsp;(女士)"
    end if%> </font></td></tr> <tr> <td height="18" bgcolor=<%=bgclr3%> style='PADDING-LEFT: 100px'>收货详细地址：<font color=#FF6600><%=trim(request("address"))%></font></td></tr> 
<tr> <td height="18" bgcolor=<%=bgclr3%> style='PADDING-LEFT: 100px'>邮编：<font color=#FF6600><%=trim(request("postcode"))%></font>&nbsp;&nbsp;&nbsp;&nbsp;电话：<font color=#FF6600><%=trim(request("usertel"))%></font>&nbsp;&nbsp;&nbsp;&nbsp;电子邮件：<font color=#FF6600><%=trim(request("useremail"))%></font></td></tr> 
<tr> <td height="18" bgcolor=<%=bgclr3%> style='PADDING-LEFT: 100px'>送货方式：<font color=#FF6600> 
<%
      set rs3=server.CreateObject("adodb.recordset")
      rs3.open "select * from delivery where deliveryid="&request("deliverymethord"),conn,1,1
	  if rs3.eof and rs3.bof then
	  response.write "方式已经被删除"
	  else
      response.Write trim(rs3("subject"))
      end if
	  rs3.close
      set rs3=nothing
      %> </font>&nbsp;&nbsp;&nbsp;&nbsp;支付方式：<font color=#FF6600>
	  <%
      set rs3=server.CreateObject("adodb.recordset")
      rs3.open "select * from delivery where deliveryid="&request("paymethord"),conn,1,1
	  if rs3.eof and rs3.bof then
	  response.write "方式已经被删除"
	  else
      response.Write trim(rs3("subject"))
      end if
	  rs3.close
      set rs=nothing%> </font></td></tr> <%if trim(request("comments"))<>"" then%> 
<tr> <td height="18" bgcolor=<%=bgclr3%> style='PADDING-LEFT: 100px'>您的留言：<%=trim(request("comments"))%></td></tr> 
<%end if%> <tr> 
          <td height="18" bgcolor=<%=bgclr3%> style='PADDING-LEFT: 100px'>请您在一周内依照您选择的支付方式进行汇款，汇款时请注明您的<font color="#FF0000">订单号</font>！<FONT COLOR="#FF0000">为了更及时得为你服务，当你汇完款，一定要记得到您的<A HREF="profile.asp?action=goods" TARGET="_blank"><B>帐号中修改你的定单<font color="#000000">状态</font></B></A></FONT></td>
        </tr> 
<tr> <td height="26" bgcolor=<%=bgclr3%> style='PADDING-LEFT: 100px'> <p><font color=#666666> 
<%set rs=server.CreateObject("adodb.recordset")
    rs.open "select paymethord from config",conn,1,1
    response.Write trim(rs("paymethord"))
    rs.close
    set rs=nothing%> </font></p></td></tr> <tr> <td height="18" BGCOLOR=<%=bgclr3%> style='PADDING-LEFT: 100px'> 
<div align="right"><a href="#" onClick=javascript:window.close()> 关闭窗口</a><font color="#999999">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<FONT COLOR="#000000">订单完成 
创建时间：<%=shijian%></FONT>&nbsp;</font></div></td></tr> </table>
</td></tr> </table><%set rs=server.CreateObject("adodb.recordset")
rs.open "select solded from product where id in ("&id&")" ,conn,1,3
do while not rs.eof
rs("solded")=rs("solded")+1
rs.update
rs.movenext
loop
rs.close
set rs=nothing
end select%> 
</body>
</html>

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