gusucode.com > 爱美尔女性商城源码 1.0源码程序 > admintouch/tel/detailor.asp
<%if session("bjxadmin")="" then
response.Write "<script language='javascript'>alert('网络超时或您还没有登陆！');window.location.href='login.asp';</script>"
response.End
else
if session("flag")>1 then
response.Write "<p align=center><font color=red>您没有此项目管理权限！</font></p>"
response.End
end if
end if%>
<!--#include file="conn.asp"-->
<html>
<head>
<title>订单详细信息</title>
<script language="javascript">
<!--
function checkQty(form){
ads.style.display = "none";
document.all.WebBrowser.ExecWB(6,1)
}
-->
</script>
<script language="javascript">
<!--
function checkQtys(form){
ads.style.display = "none";
document.all.WebBrowser.ExecWB(6,6)
}
-->
</script>
<script>
function showadv(){
if (document.form1.advshow.checked == true) {
adv.style.display = "";
ads.style.display = "";
}else{
adv.style.display = "none";
}
}
</script>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="../images/css.css" rel="stylesheet" type="text/css">
</head>
<%id=request("id")
set rs = conn.execute("select * from BJX_telorder where t_id="&id&"")
t_name=rs("t_name")
t_add=rs("t_add")
t_tel=rs("t_tel")
t_biaozhi=rs("t_biaozhi")
t_date=rs("dates")
user_name=rs("user_name")
rmb=rs("rmb")
'response.write goodid
'response.write "<hr>"
'response.write userid
rs.close %>
<br>
<table width="95%" border="0" cellspacing="1" cellpadding="3" align="center" bgcolor="#CCCCCC">
<tr>
<td bgcolor="#6a7f9a" width="25%"> <div align="left"><font color="#009933"><b>电话订单<%=id%>详细信息</b></font></div></td>
<td bgcolor="#6a7f9a" width="66%"><b><%=user_name%>电话中心</b></td>
</tr>
<tr>
<td bgcolor="#6a7f9a" colspan="2"> <table width="90%" align="center">
<tr bgcolor="#f1f1f1" align="center">
<td width="45%"><b>商品名称</b></td>
<td width="11%"><b>市场价格</b></td>
<td width="11%"><b>会员价格</b></td>
<td width="11%" align="center"><b>数量</b></td>
</tr>
<% sqlsp="select * from BJX_telorder_goods where t_id="&id
rs.open sqlsp,conn,1,1
if not rs.eof then
pit=0
pit1=0
pit2=0
while not rs.eof
leprice=rs("leprice")
mprice=rs("mprice")
num=rs("num")
pit=pit+leprice*num
pit1=pit1+mprice*num
pit2=pit2+num
%>
<tr bgcolor="#f1f1f1" align="center">
<td width="45%"><%=rs("gname")%></td>
<td width="11%"><%=mprice%></td>
<td width="11%"><%=leprice%></td>
<td width="11%" align="center"><%=num%></td>
</tr>
<%rs.movenext
wend
else
response.write "没有信息"
end if
rs.close %>
<tr bgcolor="#f1f1f1" align="center">
<td><b>小 计</b></td>
<td><%=pit1%></td>
<td><%=pit%></td>
<td align="center"><%=pit2%></td>
</tr>
<tr bgcolor="#f1f1f1" align="center">
<td colspan="4">
运费：<%=rmb%>元 <font color="#FF0000">总计：</font> <%totalm=rmb+pit
response.write totalm
%>
元（本次购物，您节省了<%=FormatNumber((pit1-pit),2)%>元）
<% dot=instr(totalm,".")
if dot>0 then
grade=left(totalm,dot-1)
' response.write grade
else
grade=totalm
' response.write grade
end if %> </td>
</tr>
</table></td>
</tr>
<tr>
<td bgcolor="#6a7f9a" colspan="2"> </td>
</tr>
<tr>
<td bgcolor="#6a7f9a" colspan="2" height="48"> <div align="center"><b>收货人信息</b></div></td>
</tr>
<tr>
<td bgcolor="#6a7f9a" colspan="2"> <table width="90%" align="center">
<tr bgcolor="#f1f1f1">
<td width="15%" align="center"><b>客户名称</b></td>
<td width="20%" align="center"><%=t_name%></td>
<td width="15%" align="center"><b>联系电话</b></td>
<td colspan="3"><%=t_tel%></td>
</tr>
<tr bgcolor="#f1f1f1">
<td width="15%" align="center"><b>送货地址</b></td>
<td colspan="3" align="left"><%=t_add%></td>
<td width="15%" align="center"><b>地点标志</b></td>
<td width="15%" align="center"><%=t_biaozhi%></td>
</tr>
</table></td>
</tr>
</table>
<hr width="90%" color=#cccccc noShade size=1>
<form name="form" method="post" action="">
<table width="80%" border="0" cellspacing="0" cellpadding="0" align="center" id=ads style="DISPLAY: ">
<tr>
<td align="center"><OBJECT id=WebBrowser classid=CLSID:8856F961-340A-11D0-A96B-00C04FD705A2 height=0 width=0>
</OBJECT>
<input type="hidden" name=id value=<%=id%>> <input name="Submit" type="submit" class="go-wenbenkuang" value="好,发货">
<input name="Submit" type="submit" class="go-wenbenkuang" value="货已到">
<input name="Submit" type="submit" class="go-wenbenkuang" value="返回上页">
<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=打印预览>
</td>
</tr>
</table>
</form>
</body>
</html>
<% oprat=request.form("submit")
id=request.form("id")
if oprat<>"" and id<>"" then
if oprat="好,发货" then
sql="select istate from BJX_telorder where t_id="&id&""
rs.open sql,conn,1,1
conn.Execute("update BJX_telorder set istate=1 where t_id="&id&"")
rs.close
response.redirect "index.asp"
else
if oprat="货已到" then
sql="select istate from BJX_telorder where t_id="&id&""
rs.open sql,conn,1,1
conn.Execute("update BJX_telorder set istate=2 where t_id="&id&"")
rs.close
response.redirect "index.asp"
else
if oprat="返回上页" then
response.redirect "index.asp"
end if
end if
end if
end if %>