⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 chkorder.asp

📁 电子商务网络购物系统
💻 ASP
字号:
<!--#include file="conn.asp"-->
<%if request.cookies("timesshop")("username")="" then
response.write "<script language=javascript>alert('对不起,您还没有登录!');history.go(-1);</script>"
response.End
end if%>
<!--#include file="config.asp"-->
<html>
<head>
<title><%=webname%>--订单详细资料</title>
<link href="include/css.css" rel="stylesheet" type="text/css">
</head>
<body leftmargin="0" topmargin="5" marginwidth="0" marginheight="0" BGCOLOR=<%=bgclr4%>>
<%dim goods
goods=request.QueryString("dan")
set rs=server.CreateObject("adodb.recordset")
rs.open "select product.id,product.name,product.price1,product.price2,product.vipprice,orders.actiondate,orders.sex,orders.realname,orders.recepit,orders.goods,orders.postcode,orders.comments,orders.paymethord,orders.deliverymethord,orders.state,orders.paid,orders.useremail,orders.usertel,orders.address,orders.productnum from product inner join orders on product.id=orders.id where orders.username='"&request.Cookies("timesshop")("username")&"' and goods='"&goods&"' ",conn,1,1
if rs.eof and rs.bof then
response.write "<center>此订单中有商品已被管理员删除,无法进行正确计算。<br>订单取消,请通知管理员或重新下订单!</center>"
response.End
end if
%>
<table width="98%" border="0" cellspacing="0" cellpadding="1" bordercolor=<%=bgclr1%> align="center">

        <tr bgcolor=<%=bgclr3%>> 
          <td colspan="2"> <div align="center">订单号为:<%=goods%> ,详细资料如下:</div></td>
        </tr>
        <tr bgcolor=<%=bgclr3%>> 
          <td valign="top">订单状态:</td>
          <td width="86%"  bgcolor="<% = bgclr1 %>"> 
		  <table width="100%" border="0" cellspacing="0" cellpadding="0" bgcolor="#FFFFFF">
		  <form name="form1" method="post" action="save.asp?dan=<%=goods%>&action=save">
		  <tr><td><%  grade() %></td></tr>
              <tr><td align="right"> 
				  <input type="submit" name="Submit" value="修改订单状态"> 
                </td></tr>
            </form></table></td>
        </tr>
  <tr bgcolor=<%=bgclr3%>> 
    <td width="13%" valign="top">商品列表:</td>
    <td> <table width="100%" border="0" align="center" cellpadding="1" cellspacing="1" bgcolor="<% = bgclr1 %>">
        <tr bgcolor=<%=bgclr1%> align="center"> 
          <td><font color="#FFFFFF">商品名称</font></td>
          <td width="12%"><font color="#FFFFFF">订购数量</font></td>
          <td width="12%"><font color="#FFFFFF">市场价</font></td>
          <td width="12%"><font color="#FFFFFF">会员价</font></td>
          <td width="16%"><font color="#FFFFFF">VIP会员价</font></td>
          <td width="16%"><font color="#FFFFFF">金额小计</font></td>
        </tr>
        <%dim iii
		do while not rs.eof%>
        <tr bgcolor=#FFFFFF> 
          <td style='PADDING-LEFT: 5px'><a href=product.asp?id=<%=rs("id")%> target=_blank><%=trim(rs("name"))%></a></td>
          <td align="center"><%=rs("productnum")%></td>
          <td align="center"><%=rs("price1")%>元</td>
          <td align="center"><%=rs("price2")%>元</td>
          <td align="center"><%=rs("vipprice")%>元</td>
          <td align="center"><%=rs("paid")*rs("productnum")%>元</td>
        </tr>
        <%iii=rs("paid")+iii
		rs.movenext
		loop
		rs.movefirst%>
        <tr bgcolor= #FFFFFF> 
          <td colspan="6" height="19" align="center">您选择的送货方式是: 
            <%dim rs2
              set rs2=server.CreateObject("adodb.recordset")
              rs2.Open "select * from delivery where deliveryid="&rs("deliverymethord"),conn,1,1
              if rs2.EOF and rs2.BOF then
              response.Write "方式已经被删除"
              response.write "&nbsp;附加费用:0元"
		  response.write "&nbsp;&nbsp;金额总计:"&iii&" 元"
              else
              response.Write trim(rs2("subject"))
              response.write "&nbsp;附加费用:"&rs2("fee")&"元"
		  response.write "&nbsp;&nbsp;金额总计:<font color=red>"&iii+rs2("fee")&"</font>&nbsp;元"
		  end if
		  rs2.Close
		  set rs2=nothing
		  %>
          </td>
        </tr>
      </table></td>
  </tr>
  <tr bgcolor=<%=bgclr3%>> 
    <td style='PADDING-LEFT: 10px'>订货人姓名:</td>
    <td style='PADDING-LEFT: 10px'><%=trim(rs("realname"))%></td>
  </tr>
  <tr bgcolor=<%=bgclr3%>> 
    <td style='PADDING-LEFT: 10px'>收货人姓名:</td>
    <td style='PADDING-LEFT: 10px'><%=trim(rs("recepit"))%></td>
  </tr>
  <tr bgcolor=<%=bgclr3%>> 
    <td style='PADDING-LEFT: 10px'>收货地址:</td>
    <td style='PADDING-LEFT: 10px'><%=trim(rs("address"))%></td>
  </tr>
  <tr bgcolor=<%=bgclr3%>> 
    <td style='PADDING-LEFT: 10px'>邮  编:</td>
    <td style='PADDING-LEFT: 10px'><%=trim(rs("postcode"))%></td>
  </tr>
  <tr bgcolor=<%=bgclr3%>> 
    <td style='PADDING-LEFT: 10px'>联系电话:</td>
    <td style='PADDING-LEFT: 10px'><%=trim(rs("usertel"))%></td>
  </tr>
  <tr bgcolor=<%=bgclr3%>> 
    <td style='PADDING-LEFT: 10px'>电子邮件:</td>
    <td style='PADDING-LEFT: 10px'><%=trim(rs("useremail"))%></td>
  </tr>
  <tr bgcolor=<%=bgclr3%>> 
    <td style='PADDING-LEFT: 10px'>送货方式:</td>
    <td style='PADDING-LEFT: 10px'> 
      <%set rs2=server.CreateObject("adodb.recordset")
    rs2.Open "select * from delivery where deliveryid="&rs("deliverymethord"),conn,1,1
    response.Write trim(rs2("subject"))
    rs2.Close
    set rs2=nothing%>
    </td>
  </tr>
  <tr bgcolor=<%=bgclr3%>> 
    <td style='PADDING-LEFT: 10px'>支付方式:</td>
    <td style='PADDING-LEFT: 10px'> 
      <%set rs2=server.CreateObject("adodb.recordset")
    rs2.Open "select * from delivery where deliveryid="&rs("paymethord"),conn,1,1
    response.Write trim(rs2("subject"))
    rs2.close
    set rs2=nothing%>
    </td>
  </tr>
  <tr bgcolor=<%=bgclr3%>> 
    <td style='PADDING-LEFT: 10px'>您的留言:</td>
    <td style='PADDING-LEFT: 10px'><%=trim(rs("comments"))%></td>
  </tr>
  <tr bgcolor=<%=bgclr3%>> 
    <td style='PADDING-LEFT: 10px'>下单日期:</td>
    <td style='PADDING-LEFT: 10px'><%=rs("actiondate")%></td>
  </tr>
  <tr bgcolor=<%=bgclr3%>> 
    <td height="32" colspan="2"> <div align="center"> 
        <%if rs("state")=1 then%>
        <input type="button" name="Submit3" value="删除订单" onClick="location.href='save.asp?action=del&dan=<%=goods%>'">
        <%end if%>
        &nbsp;&nbsp; <a href="JavaScript:onClick=window.opener.location.href = window.opener.location.href; window.close();">关闭窗口</a> 
      </div></td>
  </tr>
</table>
<%sub grade()
select case rs("state")
case "1"%> 
<input name="checkbox" type="checkbox" DISABLED id="checkbox" value="checkbox" checked>未作任何处理<span style='font-family:Wingdings;'>à</span> 
<input name="state" type="checkbox" id="state" value="2">用户已经划出款<span style='font-family:Wingdings;'>à</span> 
<input type="checkbox" name="checkbox2" value="checkbox" DISABLED>服务商已经收到款<span style='font-family:Wingdings;'>à</span> 
<input type="checkbox" name="checkbox3" value="checkbox" DISABLED>服务商已经发货<span style='font-family:Wingdings;'>à</span> 
<input type="checkbox" name="checkbox4" value="checkbox" DISABLED>用户已经收到货
 <%case "2"%> 
<input name="checkbox" type="checkbox" DISABLED id="checkbox" value="checkbox" checked>未作任何处理<span style='font-family:Wingdings;'>à</span> 
<input name="checkbox" type="checkbox" id="state" value="2" checked DISABLED>用户已经划出款<span style='font-family:Wingdings;'>à</span> 
<input type="checkbox" name="checkbox2" value="checkbox" DISABLED>服务商已经收到款<span style='font-family:Wingdings;'>à</span> 
<input type="checkbox" name="checkbox3" value="checkbox" DISABLED>服务商已经发货<span style='font-family:Wingdings;'>à</span> 
<input type="checkbox" name="checkbox4" value="checkbox" DISABLED>用户已经收到货 
<%case "3"%> 
<input name="checkbox" type="checkbox" DISABLED id="checkbox" value="checkbox" checked>未作任何处理<span style='font-family:Wingdings;'>à</span> 
<input name="checkbox" type="checkbox" id="state" value="2" checked DISABLED>用户已经划出款<span style='font-family:Wingdings;'>à</span> 
<input type="checkbox" name="checkbox2" value="checkbox" checked DISABLED>服务商已经收到款<span style='font-family:Wingdings;'>à</span> 
<input type="checkbox" name="checkbox3" value="checkbox" DISABLED>服务商已经发货<span style='font-family:Wingdings;'>à</span> 
<input type="checkbox" name="checkbox4" value="checkbox" DISABLED>用户已经收到货 
<%case "4"%> 
<input name="checkbox" type="checkbox" DISABLED id="checkbox" value="checkbox" checked>未作任何处理<span style='font-family:Wingdings;'>à</span> 
<input name="checkbox" type="checkbox" id="state" value="2" checked DISABLED>用户已经划出款<span style='font-family:Wingdings;'>à</span> 
<input type="checkbox" name="checkbox2" value="checkbox" checked DISABLED>服务商已经收到款<span style='font-family:Wingdings;'>à</span> 
<input type="checkbox" name="checkbox3" value="checkbox" checked DISABLED>服务商已经发货<span style='font-family:Wingdings;'>à</span> 
<input type="checkbox" name="state" value="5" >用户已经收到货 
<%case "5"%>
 <input name="checkbox" type="checkbox" DISABLED id="checkbox" value="checkbox" checked>未作任何处理<span style='font-family:Wingdings;'>à</span> 
<input name="checkbox" type="checkbox" id="state" value="2" checked DISABLED>用户已经划出款<span style='font-family:Wingdings;'>à</span> 
<input type="checkbox" name="checkbox2" value="checkbox" checked DISABLED>服务商已经收到款<span style='font-family:Wingdings;'>à</span> 
<input type="checkbox" name="checkbox3" value="checkbox" checked DISABLED>服务商已经发货<span style='font-family:Wingdings;'>à</span> 
<input type="checkbox" name="checkbox4" value="checkbox" checked DISABLED>用户已经收到货 
<%end select
end sub%>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -