dingdan.asp

一个免费的绿叶网上书店请大家提宝贵意见 站长的帐号是 用户名：雨丁香 密码：200505 副站长帐号是 用户名： wangli 密码：197207

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="../include/top3.asp"-->
<% if session("user")="" then response.Redirect("login.asp")%>
<table width="778" border="0" align="center" cellpadding="0" cellspacing="0">
  <% sql="select * from dingdan where username='"&session("user")&"'"
rs.open sql,conn,1,2
on error resume next
jiao=rs("jiaofei")
fahuo=rs("fahuo")
%>
  <tr> 
    <td width="210" height="26" background="../images/bg2.gif">&nbsp;</td>
    <td width="568" rowspan="9" bgcolor="#FFFFFF">
<div align="center"> 
        <p><strong><font color="#FF0000"><br>
          订单在线查询</font></strong></p>
        <p><strong><font color="#000000" size="2">客户姓名：<%=session("user")%>　下单日期</font><font size="2"> <%=year(rs("intime"))%>-<%=month(rs("intime"))%>-<%=day(rs("intime"))%></font></strong></p>
        <table width="539" border="1" align="center" cellspacing="1" cellpadding="0" bgcolor="#FFFFFF" bordercolorlight="#000000" bordercolordark="#FFFFFF">
          <tr bgcolor="#FFCC33"> 
            <td colspan="10" height="17">购买图书清单如下</td>
          </tr>
          <tr align="center" bgcolor="#CCCCCC"> 
            <td colspan="5">图书名称</td>
            <td width="11%">价格</td>
            <td width="14%" bgcolor="#CCCCCC">邮寄方式</td>
            <td width="9%">数量</td>
            <td>合计</td>
          </tr>
          <% do while not rs.eof %>
          <tr align="center" bgcolor="#FFFFFF"> 
            <td colspan="5"  align="center"><font size="2"><a href="bookfind.asp?book=<%=rs("bookname")%>"><%=rs("bookname")%></a></font></td>
            <td width="11%"><font size="2"><%=rs("memprice")%>元</font></td>
            <td width="14%"> <font size="2"> 
              <% if rs("youji")=1 then
		  response.write "普通邮寄"
		  you=8
		  elseif rs("youji")=2 then
		  response.write "挂号邮寄"
		  you=10
		  elseif rs("youji")=3 then 
		  response.write "EMS快递"
		  you=22
		  end if %>
              </font></td>
            <td width="9%"> <font size="2"> 
              <% =rs("benshu") %>
              </font></td>
            <% abc=rs("memprice") * rs("benshu")%>
            <td> <font size="2"> 
              <% =abc %>
              元</font></td>
          </tr>
          <% rs.movenext
		  sum=sum+abc
  loop
   rs.close
   sum=sum+you %>
          <tr align="center" bgcolor="#FFFFFF"> 
            <td colspan="10"><font size="2">邮寄费：<%=you%>元　　合计： 
              <% =sum%>
              元</font></td>
          </tr>
        </table>
        <br>
        <table width="500" border="1" align="center" cellspacing="1" cellpadding="0" bgcolor="#FFFFFF" bordercolorlight="#000000" bordercolordark="#FFFFFF">
          <tr bgcolor="#FFCC33"> 
            <td colspan="3" height="17">管理员操作</td>
          </tr>
          <tr align="center" bgcolor="#CCCCCC"> 
            <td><font size="2">图书汇款是否收到</font></td>
            <td width="328" colspan="-3"><div align="left"> <font size="2"> 
                <% if jiao=false then%>
                没有收到　 
                <% else %>
                已经收到 
                <% end if %>
                </font></div></td>
          </tr>
          <tr align="center" bgcolor="#FFFFFF"> 
            <td  align="center"><font size="2">购买图书是否发货</font></td>
            <td colspan="-3"> <div align="left"> <font size="2"> 
                <% if fahuo=false then %>
                没有发货　 
                <% else %>
                已经发货 
                <% end if %>
                </font></div></td>
          </tr>
        </table><% if fahuo=true and finsh=true then %> 
		<p><strong><font size="2">您已经评价过了，请不要再评价。</font></strong></p>
       <% else %><p><strong><font size="2">您的商品已经发货，请进行<a href="pingjia.asp">下一步</a>操作</font></strong></p><% end if %>
      </div></td>
  </tr>
   <!--#include file="../include/left.htm"-->
</table>
<!--#include file="../include/foot.asp"-->