orderedit.asp

创建和运行动态、交互的Web服务器应用程序

rs.open "select * from shop_action",conn,1,3

rs.addnew
rs("username")     = trim(request.cookies("bookshop")("username"))
rs("bookid")       = bookid
rs("actiondate")   = shijian
rs("bookcount")    = purchase
rs("zhuangtai")    = 1
rs("dingdan")      = dingdan
rs("youbian")      = rsxx("youbian")
rs("shouhuoname")  = rsxx("shouname")
rs("shouhuodizhi") = rsxx("shouhuodizhi")
rs("zhifufangshi") = rsxx("zhifufangshi")
rs("songid")       = rsxx("songid")
rs("shousex")      = rsxx("shousex")
rs("blnisfp")      = cstr(request("chkfp"))
if cstr(request("chkfp"))="on" and trim(request("liuyan"))="" then
   rs("liuyan") = "个人"
else
   rs("liuyan") = HTMLEncode2(trim(request("liuyan")))  
end if
rs("zonger")          = huiyuanjia*purchase
rs("userzhenshiname") = rsxx("userzhenshiname")
rs("useremail")       = rsxx("useremail")
rs("usertel")         = rsxx("usertel")
rs("userid")          = rsxx("userid")
rs.update

conn.execute "delete from shop_action where username='"&request.cookies("bookshop")("username")&"' and bookid in ("&bookid&") and zhuangtai=6"
conn.execute "delete from shop_action where username='"&request.cookies("bookshop")("username")&"' and bookid =0"
conn.execute "update      shop_books set chengjiaocount=chengjiaocount+"&purchase&" where bookid in ("&bookid&")"

next

for i=0 to bkindex 
    for j=0 to 4
    bk(i,j)=""
    next
next

Session("mycart")=bk 
session("cartindex")=0

set rs=nothing
set cj=nothing


 '//显示订单信息
 set rs=server.CreateObject("adodb.recordset")
     rs.open "select shop_books.bookid,shop_books.bookname,shop_books.shichangjia,shop_books.huiyuanjia,shop_action.shousex,shop_action.userzhenshiname,shop_action.shouhuoname,shop_action.dingdan,shop_action.youbian,shop_action.blnisfp,shop_action.liuyan,shop_action.zhifufangshi,shop_action.songid,shop_action.zonger,shop_action.bookcount from shop_books inner join shop_action on shop_books.bookid=shop_action.bookid where shop_action.username='"&request.Cookies("bookshop")("username")&"' and zhuangtai=1 and dingdan='"&dingdan&"' ",conn,1,1
%>
<table width="100%" border="0" align="center" cellpadding="2" cellspacing="1">
  <tr>
     <td align="center"><img src="imgw/gw07.gif" width=100% height="35"></td>
  </tr>
</table>
<table width=95% border=0 align=center cellpadding=0 cellspacing=1 bgcolor='#e8e8e8'>
  <tr>
      <td             STYLE='PADDING-LEFT:  10px'><img src='images\buylist.gif' border='0'></td>
      <td align=center><b>恭喜您！您的订单已生成！</b></td>
      <td align=right STYLE='PADDING-right: 10px'><img src='images\buylist.gif' border='0'></td>
  </tr>
</table>

<table width="95%" border="0" align="center" cellpadding="2" cellspacing="1" bgcolor="#acacac">
  <tr> 
    <td colspan=4 bgcolor="#ffffff" align="center">订单号&nbsp;<font color=#ff3300><%=rs("dingdan")%></font>&nbsp;&nbsp;详细信息如下：</td>
  </tr>
  <tr>
     <td bgcolor="#e8e8e8" align="right" width="12%">订货人姓名</td>
     <td bgcolor="#ffffff" STYLE='PADDING-LEFT: 10px'><font color=#ff3300><%=trim(rsxx("userzhenshiname"))%></font></td>
     <td bgcolor="#e8e8e8" align="right" width="12%">收货人姓名</td>
     <td bgcolor="#ffffff" STYLE='PADDING-LEFT: 10px'><font color=#ff3300><%response.Write rsxx("shouname")
       if rsxx("shousex")=0 then
          response.Write "&nbsp;(先生)"
       else
          response.Write "&nbsp;(女士)"
       end if%></font></td>
  </tr>
  <tr> 
     <td bgcolor="#e8e8e8" align="right">详细地址</td>
     <td bgcolor="#ffffff" STYLE='PADDING-LEFT: 10px'><font color=#ff3300><%=rsxx("shouhuodizhi")%></font></td>
     <td bgcolor="#e8e8e8" align="right">邮编</td>
     <td bgcolor="#ffffff" STYLE='PADDING-LEFT: 10px'><font color=#ff3300><%=trim(rsxx("youbian"))%></font></td>
  </tr>
  <tr>
     <td bgcolor="#e8e8e8" align="right">电话</td>
     <td bgcolor="#ffffff" STYLE='PADDING-LEFT: 10px'><font color=#ff3300><%=rsxx("usertel")%></font></td>
     <td bgcolor="#e8e8e8" align="right">电子邮件</td>
     <td bgcolor="#ffffff" STYLE='PADDING-LEFT: 10px'><font color=#ff3300><%=rsxx("useremail")%></font></td>
  </tr>
  <tr> 
     <td bgcolor="#e8e8e8" align="right">送货方式</td>
     <td bgcolor="#ffffff" STYLE='PADDING-LEFT: 10px'><font color=#ff3300> 
      <%'//送货方式
      set rs3=server.CreateObject("adodb.recordset")
      rs3.open "select * from shop_songhuo where songid="&rsxx("songid"),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></td>
    <td bgcolor="#e8e8e8" align="right">支付方式</td>
    <td bgcolor="#ffffff" STYLE='PADDING-LEFT: 10px'><font color=#ff3300> 
     <%'//支付方式
      set rs3=server.CreateObject("adodb.recordset")
      rs3.open "select * from shop_songhuo where songid="&rsxx("zhifufangshi"),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></td>
    </tr>

   </tr>
  </table>

 </tr>
</table>
  <br>

<table width="95%" border="0" align="center" cellpadding="2" cellspacing="1" bgcolor="#acacac">
        <tr> 
          <td bgcolor="#e8e8e8"><div align="center">商品名称</div></td>
          <td bgcolor="#e8e8e8"><div align="center">市场价</div></td>
          <td bgcolor="#e8e8e8"><div align="center">会员价</div></td>
          <td bgcolor="#e8e8e8"><div align="center">数量</div></td>
          <td bgcolor="#e8e8e8"><div align="center">小计</div></td>
        </tr>
        <%dim iiii,fpflag '计算总额
          do while not rs.eof
           iiii=rs("huiyuanjia")*rs("bookcount")+iiii%>
        <tr> 
          <td bgcolor="#ffffff"><%response.Write "<a href=book.asp?id="&rs("bookid")&" target=_blank>"&rs("bookname")&"</a>"%></td>
          <td bgcolor="#ffffff"><div align="center"><%=formatnumber(rs("shichangjia"),2)%></div></td>
          <td bgcolor="#ffffff"><div align="center"><%=formatnumber(rs("huiyuanjia"),2)%></div></td>
          <td bgcolor="#ffffff"><div align="center"><%=rs("bookcount")%></div></td>
          <td bgcolor="#ffffff"><div align="center"><%=formatnumber(rs("huiyuanjia")*rs("bookcount"),2)%>&nbsp;</div></td>
        </tr>
  <%rs.movenext
    loop
    rs.movefirst
       if rs("blnisfp")="on" then
          iiii=iiii*1.05
          fpflag="(含税费)"
       else
          iiii=iiii*1
          fpflag=""
       end if
    %>
        <tr> 
           <td colspan="5" bgcolor="#ffffff"><div align="right"><%response.write "<font color=#ff3300>您选择的送货方式是："
		  '//判断送货方式读取加收金额
		  set rs3=server.CreateObject("adodb.recordset")
		  rs3.open "select shop_songhuo.subject,shop_songhuo.jsmoney,shop_songhuo.gsmoneyside,shop_songhuo.gsmoneybili FROM shop_action INNER JOIN shop_songhuo ON shop_action.songid = shop_songhuo.songid where shop_action.username='"&request.Cookies("bookshop")("username")&"' and zhuangtai=1 and dingdan='"&dingdan&"' ",conn,1,1
	      if  rs3.eof and rs3.bof then
		  response.write "方式已被删除"
		  response.write "&nbsp;+"&formatnumber(0,2)&"元"
		  response.write "&nbsp;&nbsp;金额总计："&formatnumber(iiii,2)&"元"&fpflag
              else
                  if iiii<rs3("gsmoneyside") then
                     response.write trim(rs3("subject"))
		     response.write "&nbsp;+"&formatnumber(rs3("jsmoney"),2)&"元"
		     response.write "&nbsp;&nbsp;金额总计：<font color=blue>"&formatnumber(iiii+rs3("jsmoney"),2)&"元</font>"&fpflag
                  else
                     if iiii<2*rs3("gsmoneyside") then     
                        response.write trim(rs3("subject"))
                        response.write "+"&formatnumber((rs3("jsmoney")+(iiii*rs3("gsmoneybili")*0.5)), 2)&"元"
                        response.write "&nbsp;&nbsp;金额总计：<font color=blue>"&formatnumber((rs3("jsmoney")+iiii*(1+rs3("gsmoneybili")*0.5)),2)&"元</font>"&fpflag
                     else
                        response.write trim(rs3("subject"))
                        response.write "+"&formatnumber((rs3("jsmoney")+(iiii*rs3("gsmoneybili"))), 2)&"元"
                        response.write "&nbsp;&nbsp;金额总计：<font color=blue>"&formatnumber(rs3("jsmoney")+(iiii*(1+rs3("gsmoneybili"))),2)&"元</font>"&fpflag
                     end if
                  end if
               end if
		  rs3.Close
	      set rs3=nothing
		  %>
        &nbsp;&nbsp;&nbsp;&nbsp;</font></div></td>
        </tr>

        </tr>
</table>
<br>
<table width="95%" border="0" align="center" cellpadding="2" cellspacing="1" bgcolor="#acacac">  
  <tr> 
    <td bgcolor="e8e8e8" align="center">请依照您选择的支付方式进行汇款，汇款后请在图书网留言栏留下您的<font color="#FF0000">订单号</font>！</td>
  </tr>
  <tr> 
    <td height="26" bgcolor="#ffffff" STYLE='PADDING-LEFT: 45px'><font color=blue> 
        <%set rs=server.CreateObject("adodb.recordset")
              rs.open "select huikuanfangshi from shop_config",conn,1,1
              response.Write trim(rs("huikuanfangshi"))
              rs.close
          set rs=nothing%>
        </font></td>
  </tr>
  <tr> 
    <td bgcolor="e8e8e8"><div align="right"><a href="#" onclick=javascript:window.close()>关闭窗口</a>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;订单完成 
        创建时间：<%=shijian%>&nbsp;</td>
  </tr>
</table>
<%end select%>
</body>
</html>