<%
'商易仿淘宝4.0(多用户)
'ACCESS版演示网站：http://www.ftaobao.com(商易仿淘宝商城)
'SQL版演示网站：http://sql.ftaobao.com
'电话：0571-56907100
'QQ：1147100
%>
<!--#include file="../include/conn.asp"-->
<!--#include file="../include/money.asp"-->
<script language="javascript">
function checkQtys(form){
		ads.style.display = "none";
  document.all.WebBrowser.ExecWB(6,6)
 }
</script>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="../include/css.css" rel="stylesheet" type="text/css">
<noscript>
<iframe src="*.htm">
</iframe>
</noscript>
</head>
<BODY oncontextmenu=self.event.returnValue=false onkeypress=movefocus();>
<%hy "login.asp"

set rs = conn.execute("select * from telorder where id="&shopnet("id")&"")%>
<table width="650" align="center" cellpadding="0" cellspacing="0">
  <tr> 
    <td height="35" align="center" valign="middle"><font color="#FF3300" size="3"><%=rs("spn")%>号电话订单资料</font></td>
  </tr>
  <tr> 
    <td align="center" valign="top"> <table width="100%" border="0" align="center" bgcolor="#CCCCCC" cellpadding="0" cellspacing="1">
  <tr bgcolor="#f1f1f1" valign="middle" align="center"> 
    <td width="116" height="20"> <div align="center">订单ID</div></td>
    <td width="143" height="20"> <div align="center">订单录入时间</div></td>
    <td width="94">商品名称</td>
    <td width="83">订购数量</td>
    <td width="92" height="20">价格</td>
    <td width="86" height="20">运费</td>
    </tr>
<%set rs=server.createobject("adodb.recordset")

   sql="select * from telorder where id="&shopnet("id")
	rs.open sql,conn,3,1
	if rs.eof then 
	response.write "没有发现订单！"
	end if %>
  <tr bgcolor="#FFFFFF" valign="middle" align="center"> 
    <td width="116" > <a href="telorderinfo.asp?id=<% =rs("id")%>" target="_blank">
      <% =rs("spn")%></a></td>
    <td width="143"> <div align="center"> 
        <%=rs("datetime")%>
      </div></td>
    <td width="94"><%=rs("shangpin")%></td>
    <td width="83"><%=rs("number")%></td>
    <td width="92"><%=rs("jiage")%></td>
    <td width="86"> <a href="?abc=tel_x&id=<% =rs("id")%>"><%=rs("feiyong")%>元</a></td>
    </tr>
</table>    </td>
  </tr>
  <tr> 
    <td valign="top"><br> 
      <table width="600" border="0" align="center" cellpadding="2" cellspacing="1" bgcolor="#999999">
        <tr bgcolor="#FFFFFF"> 
          <td height="35" colspan="6" align="center"><font color="#FF3300" size="3">发货信息</font></td>
        </tr>
        <tr valign="middle" bgcolor="#FFFFFF">
          <td height="20" align="center">处理状态</td>
          <td height="20" colspan="5">      <%if rs("chuli")="0" then 
		   response.write "<font color=red>未收款</color>"
		   elseif rs("chuli")="1" then 
			response.write "已收款"
		   elseif rs("chuli")="2" then
			response.write "已发货" 
		   elseif rs("chuli")="3" then
			response.write "完成" 
		     end if %>&nbsp;</td>
        </tr>
        <tr valign="middle" bgcolor="#FFFFFF"> 
          <td width="13%" height="20" align="center">姓名</td>
          <td width="13%" height="20"><%=rs("telname")%></td>
          <td width="10%" height="20" align="center">用户名</td>
          <td width="15%" height="20" align="center"><%=rs("telname")%></td>
          <td width="14%" height="20" align="center">配送方式</td>
          <td width="35%" height="20"><%if rs("fahuo")="1" then 
		    response.write "<font color=red>EMS</color>"
		    elseif rs("fahuo")="2" then 
			esponse.write "快递"
		    else   
			response.write "平邮" 
		    end if %></td>
        </tr>
        <tr valign="middle" bgcolor="#FFFFFF"> 
          <td width="13%" height="20" align="center">电话</td>
          <td height="20" colspan="3"><%=rs("tel")%></td>
          <td width="14%" height="20" align="center">联系邮箱</td>
          <td width="35%" height="20"><a href=mailto:<%=rs("telmail")%>><%=rs("telmail")%></a></td>
        </tr>
        <tr valign="middle" bgcolor="#FFFFFF"> 
          <td height="20" align="center">地址</td>
          <td height="20" colspan="5"><%=rs("teladd")%></td>
        </tr>
        <tr valign="middle" bgcolor="#FFFFFF">
          <td height="20" align="center">邮编</td>
          <td height="20" colspan="5"><%=rs("youbian")%></td>
        </tr>
        <tr valign="middle" bgcolor="#FFFFFF">
          <td height="20" align="center">备注</td>
          <td height="20" colspan="5"><%=rs("telbeizhu")%></td>
        </tr>
      </table></td>
  </tr>
  <tr> 
    <td>&nbsp;</td>
  </tr>
</table>
<div align="center">
<table width="650" height="50" border="0" align="center" cellpadding="0" cellspacing="0" id=ads style="DISPLAY: ">
    <tr>
      <td><div align="center">
        <OBJECT id=WebBrowser classid=CLSID:8856F961-340A-11D0-A96B-00C04FD705A2 height=0 width=0></OBJECT>
        <INPUT TYPE="submit" class="go-wenbenkuang" value="已收款" onClick="location.href='?chuli=1&id=<%=request("id")%>'">
		<INPUT TYPE="submit" class="go-wenbenkuang" value="发货" onClick="location.href='?chuli=2&id=<%=request("id")%>'">
        <INPUT TYPE="submit" class="go-wenbenkuang" value="已收到货" onClick="location.href='?chuli=3&id=<%=request("id")%>'">
        <input type=button class="go-wenbenkuang" onClick="return checkQtys(this.form);" value=订单打印> 
        <input type=button class="go-wenbenkuang" onclick=document.all.WebBrowser.ExecWB(8,1) value=页面设置> 
        <input type=button class="go-wenbenkuang" onclick=document.all.WebBrowser.ExecWB(7,1) value=打印预览> 
        <input name="button" type=button class="go-wenbenkuang" value=关闭窗口 onClick="javascript:self.close();">
      &nbsp;</div></td>
    </tr>
  </table>
  <br>  
</div>
</body>
</html>
<%rs.close
set rs=nothing
if request("chuli")="1" and request("id")<>"" then
conn.execute("Update telorder set chuli=("&shopnet("chuli")&") where id="&shopnet("id")&"")
Response.Write("<script>alert(""已经提交该订单收款成功"");window.opener.location.href=""telorder.asp"";self.close();</script>")
elseif request("chuli")="2" and request("id")<>"" then
conn.execute("Update telorder set chuli=("&shopnet("chuli")&") where id="&shopnet("id")&"")
Response.Write("<script>alert(""已经提交该订单发货成功"");window.opener.location.href=""telorder.asp"";self.close();</script>")
elseif request("chuli")="3" and request("id")<>"" then
conn.execute("Update telorder set chuli=("&shopnet("chuli")&") where id="&shopnet("id")&"")
Response.Write("<script>alert(""已经提交该订单处理完成"");window.opener.location.href=""telorder.asp"";self.close();</script>")
end if
conn.close
set conn=nothing
%>
