📄 admin_shop_viwes.asp
字号:
<!--#include file="mdb.asp"-->
<%Admin="shop"%>
<!--#include file="check.asp"-->
<!--#include file="inc/config.asp"-->
<!--#include file="inc/FORMAT.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="inc/admin.css" type="text/css">
<TITLE>管理中心—商品订单管理</TITLE>
</head>
<body text="#000000" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<SCRIPT language=javascript>
function opencat(cat){
if(cat.style.display=="none"){
cat.style.display="";
} else {
cat.style.display="none";
}
}</SCRIPT>
<%
'****************************************************
if session("adminlogin")<>sessionvar then
Response.Write("<script language=javascript>alert('你尚未登录，或者超时了！请重新登录');this.top.location.href='admin.asp';</script>")
response.end
end if
sql="select * from shop_orders where id="&clng(request("id"))
set rs=server.createobject("ADODB.Recordset")
rs.open sql, conn, 1, 1
if rs.eof or rs.bof then
response.write"<SCRIPT language=JavaScript>alert('对不起，订单号不存在！');"
response.write"javascript:history.go(-1)</SCRIPT>"
response.end
else
order_zf=""
order_zt=""
order_cw=""
aaa=rs("errmsg")
jifen=rs("jifen")
user_id=rs("user_id")
order_number=rs("order_number")
id=clng(request("id"))
if rs("order_zf")=true then order_zf="checked"
if rs("order_zt")=true then order_zt="checked"
if rs("order_sk")=1 then order_sk="checked"
if rs("order_sh")=1 then order_sh="checked"
if rs("order_cw")=true then order_cw="checked"
if aaa="" or aaa="无" then
errmsg="此订单为有效订单"
else
errmsg=rs("errmsg")
end if
if request("action")="modi" then
id=request("id")
errmsg=replace(request("errmsg"), ">", ">")
errmsg=replace(errmsg, "<", "<")
errmsg=replace(errmsg, "'","’")
dim title:title=Server.HTMLEncode(trim(Request.Form ("title")))
dim content:content=Server.HTMLEncode(trim(Request.Form ("content")))
if request("dx_zf")="ok" then
if title="" or content="" then
response.write"<SCRIPT language=JavaScript>alert(' 短信息标题、内容不能为空。');"
response.write"javascript:history.go(-1)</SCRIPT>"
response.end
else
conn.Execute("insert into message(incept,sender,title,content,sendtime) values('"&user_id&"','系统短信','"&title&"','"&content&"',now())")
end if
end if
conn.execute "update shop_orders set errmsg='"&errmsg&"' where id="&id
if request("order_sh")="已收货" then conn.execute "update shop_orders set order_sh=1 where id="&id
if request("order_sh")="" then conn.execute "update shop_orders set order_sh=0 where id="&id
if request("order_zt")="已发货" then conn.execute "update shop_orders set order_zt=true where id="&id
if request("order_zt")="" then conn.execute "update shop_orders set order_zt=false where id="&id
if request("order_sk")="已收款" then conn.execute "update shop_orders set order_sk=1 where id="&id
if request("order_sk")="" then conn.execute "update shop_orders set order_sk=0 where id="&id
if request("order_zf")="已支付" then conn.execute "update shop_orders set order_zf=true where id="&id
if request("order_zf")="" then conn.execute "update shop_orders set order_zf=false where id="&id
if request("order_cw")="无效订单" then conn.execute "update shop_orders set order_cw=true where id="&id
if request("order_cw")="" then conn.execute "update shop_orders set order_cw=false where id="&id
url=request("url")
response.write "<P align='center'>订单资料已处理成功，本页面2秒后返回列表页面。</p>"
response.write "<meta http-equiv=refresh content=2;url=" & url & ">"
response.end
end if
%>
<table align="center" width="98%" align="center" border="1" cellspacing="0" cellpadding="4" class=Hxcmsbk style="border-collapse: collapse">
<tr class=Hxcmsss>
<td colspan="3">订单详情</td>
</tr>
</table>
<table border="0" cellspacing="1" cellpadding="0" bgcolor="#FFFFFF" width="98%" align="center">
<TR>
<TD>
<table border="0" cellspacing="1" cellpadding="0" bgcolor="#FFFFFF" width="100%" align="center">
<tr class=Hxcmsqs>
<td height="26">商品订单信息：<%if rs("hg")=true then response.write"<font color=red>此订单有积分换购商品</font >" end if%></td>
</tr>
</table>
<table border="0" cellspacing="1" cellpadding="4" bgcolor="#FFFFFF" width="100%" align="center">
<tr class=Hxcmsds>
<td height="22" width="15%" align="right">订单号：</td>
<td width="35%"><%=rs("order_number")%></td>
<td width="15%" align="right">订购时间：</td>
<td width="35%"><%=rs("order_time")%></td>
</tr>
<tr class=Hxcmsds>
<td height="22" align="right">配送方式：</td>
<td><%=rs("sendtype")%></td>
<td align="right">支付方式：</td>
<td><%=rs("paymenttype")%></td>
</tr>
<tr class=Hxcmsds>
<td height="25" align="right">发票信息：</td>
<td><%if rs("fapiao")=1 then response.write"<font color=red>√</font>" else response.write"×" end if%></td>
<td align="right">赠送积分：</td>
<td><%=rs("jifen")%></td>
</tr>
<tr class=Hxcmsds><form action="admin_shop_viwes.asp" method="post" name="orders">
<td height="25" align="right">订单状态：</td>
<td colspan="3"><img alt='点击弹开信息框处理此定单' onClick="opencat(help_open)" style='CURSOR: hand' src="img/info.gif" hspace="0" align="absmiddle">
<input type="checkbox" name="order_zf" value="已支付" <%=order_zf%>>
已支付
<input type="checkbox" name="order_sk" value="已收款" <%=order_sk%>>
已确认
<input type="checkbox" name="order_zt" value="已发货" <%=order_zt%>>
已发货
<input type="checkbox" name="order_sh" value="已收货" <%=order_sh%>>
已收货
<input type="checkbox" name="order_cw" value="无效订单" <%=order_cw%>>
无效订单
</td>
</tr>
<tr id="help_open" style="display: none" class=Hxcmsds>
<td height="25" colspan="4">
<table width="85%" border="0" align="center" cellspacing="0" cellpadding="3" bgcolor="#F7F7F7" style='border:1px dashed #B7B7B7;margin-top:2px;'>
<tr>
<td valign="top" align="right">处理备注信息：</td>
<td><textarea name="errmsg" rows="2" cols="40"><%=errmsg%></textarea></td>
</tr>
<!--
<tr>
<td align="right">赠送积分操作：</td>
<td><input type="checkbox" name="jf_zf" value="ok" <%if jifen>0 then response.write"checked" end if%>> 选中提交时将生效。本定单赠送<font color='#FF0000'><%=user_id%></font>会员币为：<font color='#FF6600'><%=jifen%></font>。</td>
</tr>
-->
<tr>
<td align="right">发送短信息：</td>
<td><input type="checkbox" name="dx_zf" value="ok"> 选中提交时将生效。
</tr>
<tr>
<td align="right">短信息标题：</td>
<td><input type="text" name="title" size="35" value="订单处理通知"></td>
</tr>
<tr>
<td align="right">短信息内容：</td>
<td><TEXTAREA name=content rows=6 cols=59>
尊敬的<%=user_id%>朋友：您好！
非常感谢您订购我们的产品，我们已经处理了您的<%=order_number%>订单，请到“我的定单”查看详情。
再一次感谢您对我们的支持。
祝万事如意！！</TEXTAREA></td>
</tr>
<tr>
<td colspan="2"><div align="center">
<input type="submit" name="Submit" value="处理此定单" class="button">
<input type="reset" name="Submit2" value="重填" class="button">
<input type="hidden" name="id" value="<%=id%>">
<input type="hidden" name="url" value="<%=Request.ServerVariables("HTTP_REFERER")%>">
<input type="hidden" name="action" value="modi"></div></td>
</tr></form>
</table></td>
</tr></table>
<table border="0" cellspacing="1" cellpadding="4" bgcolor="#FFFFFF" width="100%" align="center">
<tr class=Hxcmsds>
<td height="22" width="10%" align="right">商品总额：</td>
<td width="15%"><%=rs("totalcash")%> 元</td>
<td width="10%" align="right">配送金额：</td>
<td width="15%"><%=rs("fei")%> 元</td>
<td width="10%" align="right">支付金额：</td>
<td width="15%"><%=rs("summoney")%> 元
<td width="10%" align="right">支付积分：</td>
<td width="15%"><font color=red><%=rs("hgjifen")%></font></td>
</tr>
</table>
<BR>
<table border="0" cellspacing="1" cellpadding="4" bgcolor="#FFFFFF" width="100%" align="center">
<tr class=Hxcmsss>
<td height="26" width="100%">订购人信息</td>
</tr>
</table>
<table border="0" cellspacing="1" cellpadding="4" bgcolor="#FFFFFF" width="100%" align="center">
<tr class=Hxcmsds>
<td height="22" width="15%" align="right">下单会员：</td>
<td width="35%"><%=rs("user_id")%></td>
<td width="15%" align="right">收货人姓名：</td>
<td width="35%"><%=rs("to_name")%></td>
</tr>
<tr class=Hxcmsds>
<td height="22" align="right">收货人邮编：</td>
<td><%=rs("postcode")%></td>
<td align="right">收货人EMAIL：</td>
<td><%=rs("email")%></td>
</tr>
<tr class=Hxcmsds>
<td height="22" align="right">收货人电话：</td>
<td><%=rs("tel")%></td>
<td align="right">收货人地址：</td>
<td><%=rs("to_adds")%></td>
</tr>
<tr class=Hxcmsds>
<td height="22" align="right">留言备注：</td>
<td colspan="3"><%
other = replace(rs("other"), chr(13), "<br>")
other = replace(other, chr(32), " ")
response.write other
rs.close
set rs=nothing%></td>
</tr>
</table>
<BR>
<table border="0" cellspacing="1" cellpadding="4" bgcolor="#FFFFFF" width="100%" align="center">
<tr class=Hxcmsss>
<td height="26" width="100%">订购商品列表</td>
</tr>
</table>
<table width="100%" border="0" align="center" cellspacing="1" bgcolor="#FFFFFF">
<tr class=Hxcmsqs align="center">
<td width="*" height="25">商品名称</td>
<td width="15%">查看此商品</td>
<td width="10%">订购数量</td>
<td width="12%">购买单价(元)</td>
<td width="12%">积分单价</td>
<td width="10%">是否换购</td>
</tr>
<%sql="select * from shop_basket where order_number='"&order_number&"'"
set rss=server.createobject("adodb.recordset")
rss.open sql, conn, 1, 1
do while not rss.eof%>
<tr class=Hxcmsds>
<td> <%=rss("product_name")%></td>
<td align="center"><a target="_blank" href="shopView.asp?s_id=<%=rss("id")%>">[点击查看]</a></td>
<td align="center"><%=rss("basket_count")%></td>
<td align="center"><%=rss("price")%></td>
<td align="center"><%=rss("hgjifen")%></td>
<td align="center"><%if rss("auct")=True then response.write"<font color=red>换购商品</font>" else response.write"——" end if%></td>
</tr>
<%rss.movenext
loop
rss.close
set rss=nothing%>
</table>
<table border="0" cellspacing="1" cellpadding="4" bgcolor="#FFFFFF" width="100%" align="center">
<tr class=Hxcmsqs align="center">
<td height="30" width="100%">
<input type="button" value="打印此定单" onClick="window.open('admin_Hxcms_err.asp')" class="button">
<input name="Submit" type="button" class="button" onClick="javascript:window.history.go(-1)" value="返回">
</td>
</tr>
</table>
<%end if
'****************************************************
%>
</td>
</tr>
</table>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -