📄 detailor.asp
字号:
<!--#include file="../Session.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="../../css/site.css" rel="stylesheet" type="text/css">
</head>
<body bgcolor="#FFFFFF" text="#000000">
<form name="form1" method="post" action="detailor.asp">
<%id=request("id")
set rs = conn.execute("select * from OrderForm where id="&id&"")
goodid=rs("goodsadd")
userid=rs("username")
invoice=rs("invoice")
leaveword=rs("leaveword")
sendtimes=rs("sendtimes")
'response.write goodid
'response.write "<hr>"
'response.write userid
rs.close
%>
<table width="95%" border="0" cellspacing="1" cellpadding="3" align="center" bgcolor="#CCCCCC">
<tr>
<td bgcolor="#FFFFFF" width="33%"><font color="#009933"><b>网上订单<%=id%>详细信息</b></font></td>
<td bgcolor="#FFFFFF" width="66%"> </td>
</tr>
<tr>
<td bgcolor="#FFFFFF" colspan="2"> <div align="center">
<%if invoice=1 then response.write " 要发票" else response.write "不要发票" end if %>
</div></td>
</tr>
<tr>
<td bgcolor="#FFFFFF" colspan="2"> <table width="90%" align="center">
<tr align="center" valign="middle" bgcolor="#f1f1f1">
<td width="45%" height="20">商品名称</td>
<td width="11%" height="20">市场价格</td>
<td width="11%" height="20">乐购价格</td>
<td width="11%" height="20">数量</td>
<td width="11%" height="20">介质</td>
</tr>
<% sqlsp="select * from OrderForm where order_id="&id
rs.open sqlsp,conn,1,1
if not rs.eof then
pit=0
pit1=0
pit2=0
while not rs.eof
pro_Price=rs("pro_Price")
pro_mPrice=rs("pro_mPrice")
pro_count=rs("pro_count")
pit=pit+pro_Price*pro_count
pit1=pit1+pro_mPrice*pro_count
pit2=pit2+pro_count
%>
<tr align="center" valign="middle" bgcolor="#f1f1f1">
<td width="45%" height="20"><%=rs("pro_name")%></td>
<td width="11%" height="20"><%=pro_mPrice%></td>
<td width="11%" height="20"><%=pro_Price%></td>
<td width="11%" height="20"><%=pro_count%></td>
<td width="11%" height="20"><%=rs("pro_medium")%> </td>
</tr>
<%rs.movenext
wend
else
response.write "没有信息"
end if
rs.close %>
<tr align="center" valign="middle" bgcolor="#f1f1f1">
<td height="20"><b>小 计</b></td>
<td height="20"><%=pit1%></td>
<td height="20"><%=pit%></td>
<td height="20"><%=pit2%></td>
<td height="20"> </td>
</tr>
<tr align="center" valign="middle" bgcolor="#f1f1f1">
<td height="20" colspan="5">
<%set rsv = conn.execute("select * from tolo_user where id="&userid&"")
if rsv("vip")="是" then
Response.Write "<font color=ff3333>[vip会员]</font>"
end if
rsv.close%>
<%if pit<80 then
att=5
else
att=0
end if %>
运费：<%=att%>元 <font color="#FF0000">总计：</font> <%totalm=att+pit
response.write totalm
%>
元（本次购物，您节省了<%=pit1-pit%>元） <% 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="#FFFFFF" colspan="2"> </td>
</tr>
<tr>
<td bgcolor="#FFFFFF" colspan="2"> <div align="center"><font color="#996600"><b>收货人信息:</b></font></div></td>
</tr>
<tr>
<td bgcolor="#FFFFFF" colspan="2"> <% sqladd="select * from tolo_address where id="&goodid
rs.open sqladd,conn,1,1
if not rs.eof then %>
<table width="90%" align="center">
<tr bgcolor="#f1f1f1">
<td width="10%" align="center">姓名</td>
<td width="15%"><%=rs("pname")%></td>
<td width="10%" align="center">性别</td>
<td width="15%"><%=rs("psex")%></td>
<td width="10%" align="center">支付方式</td>
<td width="40%"><%=rs("payment")%></td>
</tr>
<tr bgcolor="#f1f1f1">
<td width="10%" align="center">邮编</td>
<td width="15%"><%=rs("pozip")%></td>
<td width="10%" align="center">电话</td>
<td width="15%"><%=rs("ptelephone")%></td>
<td width="10%" align="center">email</td>
<td width="40%"><a href=mailto:<%=rs("pemail")%>><%=rs("pemail")%></a></td>
</tr>
<tr bgcolor="#f1f1f1">
<td align="center">送货方式</td>
<td><%=rs("deliver")%></td>
<td align="center">地址</td>
<td colspan="3"><%=rs("paddress")%></td>
</tr>
</table>
<%
else
response.write "这个地址可能被用户删除,您点击其他地址看能否选择一个其他的地址"
response.write "<a href =addr.asp?id="&userid&"&orderid="&id&">"&"其他地址"&"</a>"
end if
rs.close
%> </td>
</tr>
<tr>
<td bgcolor="#FFFFFF" colspan="2">最佳送货时间：<%=sendtimes%></td>
</tr>
<tr>
<td bgcolor="#FFFFFF" colspan="2">客户留言：<%=leaveword%></td>
</tr>
</table>
<hr width="90%" color=#cccccc noShade size=1>
<table width="95%" border="0" cellspacing="4" cellpadding="0" align="center">
<tr>
<td width="24%">客户部门： </td>
<td width="25%">配送部门：</td>
<td width="27%">财务部门：</td>
<td width="24%">消费者：</td>
</tr>
</table>
<table width="95%" border="0" cellspacing="0" cellpadding="0" align="center" id=adv style="DISPLAY: ">
<tr>
<td width="100%" colspan="2" bgcolor="#FFFFFF"> <div align="center"><font color="#339933"><b>用户信息</b></font></div></td>
</tr>
<tr>
<td bgcolor="#FFFFFF" colspan="2"> <% sqlp="select * from tolo_user where id="&userid
rs.open sqlp,conn,1,1
if not rs.eof then %> <table width="90%" align="center">
<tr bgcolor="#f1f1f1">
<td>姓名:<%=rs("realname")%></td>
<td>性别:<%=rs("sex")%></td>
<td>地址:<%=rs("addressa")%></td>
</tr>
<tr bgcolor="#f1f1f1">
<td>邮编:<%=rs("pozip")%></td>
<td>oicq:<%=rs("oicq")%></td>
<td>电子邮件:<a href=mailto:<%=rs("email")%>><%=rs("email")%></a></td>
</tr>
<tr bgcolor="#f1f1f1">
<td colspan="3">出生日期：
<%birth=rs("birthday")
if birth<>"1800-1-1" then
response.write birth
month1=month(birth)
day1=day(birth)
month2=month(now())
day2=day(now())
if month1=month2 and day1=day2 then
response.write "<font size=2 color=red> ！！！今天是该会员的生日！</font>"
end if
else
response.write "该用户没有留下生日"
end if
%> </td>
</tr>
</table>
<% end if
rs.close %> </td>
</tr>
<tr>
<td colspan="2"> <input type="hidden" name=id value=<%=id%>>
<p align="center">
<input name="Submit" type="submit" class="button" value="好,发货">
<input name="Submit" type="submit" class="button" value="稍后处理">
<input name="Submit2" type="button" class="button" value="返回" onclick="javascript:window.history.go(-1)">
</p></td>
</tr>
</table>
<div align="center"><span class="top">
<INPUT id=advcheck name=advshow type=checkbox value=0 onclick=showadv() checked>
</span> </div>
</form>
<form name="form2" 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=button class="button" onClick="return checkQty(this.form);" value=打印>
<input type=button class="button" onClick="return checkQtys(this.form);" value=直接打印>
<input type=button class="button" onclick=document.all.WebBrowser.ExecWB(8,1) value=页面设置>
<input type=button class="button" onclick=document.all.WebBrowser.ExecWB(7,1) value=打印预览>
</td>
</tr>
</table>
</form>
<% oprat=request.form("submit")
id=request.form("id")
notes=request.form("notes")
if notes<>"" and id<>"" then
sql="select id,notes from loogoo_order where id='"&id&"'"
rs.open sql,conn,1,3
response.write sql
rs("notes")=notes
rs.update
rs.close
end if
if oprat<>"" and id<>"" then
if oprat="好,发货" then
sql="select istate from loogoo_order where id='"&id&"'"
rs.open sql,conn,1,1
conn.Execute("update loogoo_order set istate=1 where id='"&id&"'")
conn.Execute("update loogoo_order set grade='"&grade&"' where id='"&id&"'")
rs.close
response.write"<SCRIPT language=JavaScript>alert('操作成功！');"
response.write"this.location.href='Default.asp';</SCRIPT>"
else
if oprat="稍后处理" then
response.redirect "Default.asp"
end if
end if
end if %>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -