admin_order.asp

该软件是帮助大学生更好的生活

<!-- #include file="inc/conn.asp" -->
<!--#include file="inc/Conn_User.asp"-->
<!--#include file="inc/config.asp"-->
<!--#include file="Ad_ChkPurview.asp"-->
<!--#include file="inc/func.asp"-->

<!-- #include file="inc_shop/onlogin.asp" -->
<!-- #INCLUDE file="inc_shop/jk_page_cute.asp" -->
<%
dim nid,id,types,oname,rssum,nummer,thepages,viewpage,pageurl,page,pu
tit="&nbsp;<a href='?types=0'>未处理订单</a> | " & _
    "<a href='?types=1'>有问题订单</a> | " & _
    "<a href='?types=5'>已处理订单</a>"
response.write header("订 单 管 理",tit)
nummer=15:thepages=0:viewpage=1
pu="￥"

action=trim(request.querystring("action"))
id=trim(request.querystring("id"))
types=trim(request.querystring("types"))
if not(isnumeric(types)) then types=0
select case types
case 1
  oname="有问题订单"
case 5
  oname="已处理订单"
case else
  types=0:oname="未处理订单"
end select

if action="del" and isnumeric(id) then
  sql="delete from orders where id="&id
  conn.execute(sql)
  sql="delete from oorders where id="&id
  conn.execute(sql)
  response.write "<script language=javascript>alert(""已成功删了一条订单！\n\n订单号："&id&""");</script>"
end if

select case action
case "view"
  call order_view()
case else
  call order_main()
end select

response.write ender()

sub order_view()
  dim isuser,sum,price,num,prices,accept_u,msg_topic,msg_word,msgs:num=0:msgs=""
  sql="select * from orders where id="&id
  if trim(request.form("view"))="yes" then
    set rs=server.createobject("adodb.recordset")
    response.write sql
    rs.open sql,conn,1,3
    if rs.eof and rs.bof then
      rs.close
      call order_main():exit sub
    end if
    accept_u=rs("username"):isuser=rs("isuser")
    types=trim(request.form("types"))
    if not(isnumeric(types)) then types=0
    types=int(types)
    if types<>1 and types<>5 then types=0
    rs("types")=types
    rs("dis_tim")=now_time
    rs("dis_remark")=left(request.form("dis_remark"),250)
    rs.update
    rs.close
    if isuser=true then
      msg_topic=replace(request.form("msg_topic"),"'","""")
      msg_word=left(replace(request.form("msg_word"),"'",""""),250)
      if trim(request.form("messages"))="yes" and len(msg_topic)>1 and len(msg_word)>1 then
        msgs="insert into user_mail(send_u,accept_u,topic,word,tim,types,isread) " & _
	     "values('"&login_username&"','"&accept_u&"','"&msg_topic&"','"&msg_word&"','"&now_time&"',1,0)"
	conn.execute(msgs)
	msgs="\n\n已给会员（"&accept_u&"）发送了一封站内短信！"
      end if
    end if
    response.write "<script javascript>alert(""成功处理了订单！订单号："&id&msgs&""");</script>"
  end if
  set rs=conn.execute(sql)
  if rs.eof and rs.bof then
    rs.close
    call order_main():exit sub
  end if
%>
<form action='?action=view&types=<%response.write types%>&id=<%response.write id%>' method=post>
<table width="80%" border="0" align="center" cellpadding="2" cellspacing="1" class="border">
<input type=hidden name=view value='yes'>
<tr class=title><td colspan=2 align=center height=22>处理订单　　订单号：<b><%response.write rs("ordernum")%></b></td></tr>
<tr class=tdbg><td align=right>收货人姓名：</td><td><%
response.write rs("nname")
isuser=rs("isuser")
if isuser=true then response.write "　<font class=red>（会员："&format_user_view(rs("username"),1,"")&"）</font>"%></td></tr>
<tr class=tdbg><td width=40% align=right>收货人地址：</td><td width=60%><%response.write rs("address")%></td></tr>
<tr class=tdbg><td align=right>邮政编码：</td><td><%response.write rs("code")%></td></tr>
<tr class=tdbg><td align=right>联系电话：</td><td><%response.write rs("phone")%></td></tr>
<tr class=tdbg><td align=right>电子信箱：</td><td><%response.write rs("email")%></td></tr>
<tr class=tdbg><td align=right>付款方式：</td><td><%response.write rs("payment")%></td></tr>
<tr class=tdbg><td align=right>订购时间：</td><td><%response.write rs("tim")%></td></tr>
<tr class=tdbg><td valign=top align=right>备注信息：</td><td><pre><%response.write rs("remark")%></td></tr>
<tr class=tdbg><td align=right>订单类型：</td><td><select name=types>
<option value='0'<%if int(types)=0 then response.write " selected"%>>未处理订单</option>
<option value='1'<%if int(types)=1 then response.write " selected"%>>有问题订单</option>
<option value='5'<%if int(types)=5 then response.write " selected"%>>已处理订单</option>
</select>&nbsp;&nbsp;&nbsp;&nbsp;上次处理时间：<%response.write rs("dis_tim")%></td></tr>
<tr class=tdbg><td valign=top align=right><br>处理信息：<br>(少于100个汉字)</td><td><textarea name=dis_remark cols=50 rows=5><%response.write rs("dis_remark")%></textarea></td></tr>
<tr class=tdbg><td colspan=2 align=center height=30><input type=submit value='处理该订单'>　　　<input type=reset value='重新填写'></td></tr>
</table>
</form>
<br>
<table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" class="border">
<tr height=22 align=center class=title>
<td width='8%'>产品ID</td>
<td width='22%'>产品编号</td>
<td width='35%'>产品名称</td>
<td width='12%'>产品单价</td>
<td width='11%'>产品数量</td>
<td width='12%'>产品总价</td>
</tr>
<%
  sql="select * from oorders where oid="&id&" order by id"
  set rs=conn.execute(sql)
  do while not rs.eof
    nid=rs("pid"):price=rs("price"):num=rs("num")
    prices=price*num
    sum=sum+prices
%>
<tr class=tdbg align=center>
<td><%response.write nid%></td>
<td><%response.write rs("serial")%></td>
<td><a href='shop_view.asp?id=<%response.write nid%>' title='浏览该产品信息' target=_blank><%response.write rs("name")%></a></td>
<td><%response.write pu&price%></td>
<td><%response.write num%></td>
<td><%response.write pu&prices%></td>
</tr>
<%
    rs.movenext
  loop
  rs.close
  set rs=nothing
%>
<tr class=tdbg><td colspan=6 align=right class=red>总价格：<%response.write pu&sum%>&nbsp;&nbsp;&nbsp;</td></tr>
</table>
<%
end sub

sub order_main()
  dim sqladd,sea_type,keyword:sqladd=""
  pageurl="?action="&action&"&types="&types&"&"
  sea_type=trim(request.querystring("sea_type"))
  keyword=replace(trim(request.querystring("keyword")),"'","")
  if len(keyword)>1 then
    select case sea_type
    case "ordernum"
      sqladd=" and ordernum like '%"&keyword&"%'"
    case "name"
      sqladd=" and (username like '%"&keyword&"%' or nname like '%"&keyword&"%')"
    case "payment"
      sqladd=" and payment like '%"&keyword&"%'"
    end select
    pageurl=pageurl&"sea_type="&sea_type&"&keyword="&keyword&"&"
  end if
  sql="select id,ordernum,isuser,username,nname,payment,tim from orders where types="&types&sqladd&" order by id desc"
  set rs=server.createobject("adodb.recordset")
  rs.open sql,conn,1,1
  if rs.eof and rs.bof then
    rssum=0
  else
    rssum=rs.recordcount
  end if
  call format_pagecute()
%>
<script language=JavaScript>
<!--
function Do_del_data(data1)
{
if (confirm("此操作将删除id为 "+data1+" 的订单！\n真的要删除吗？\n删除后将无法恢复！"))
  window.location="?action=del&types=<%response.write types%>&id="+data1
}
//--></script>
<table width="80%" border="0" align="center" cellpadding="2" cellspacing="1" class="border">
<tr align=center class=title>
<td height=22 width='16%'>订单号</td>
<td width='23%'>收货人帐号</td>
<td width='23%'>收货人姓名</td>
<td width='24%'>付款方式</td>
<td width='14%'>操作</td>
</tr>
<%
  if int(viewpage)<>1 then
    rs.move (viewpage-1)*nummer
  end if
  for i=1 to nummer
    if rs.eof then exit for
    nid=rs("id")
%>
<tr class=tdbg align=center>
<td><%response.write rs("ordernum")%></td>
<td><%
if rs("isuser")=true then
  response.write format_user_view(rs("username"),1,"")
else
  response.write "非会员"
end if
%></td>
<td><%response.write rs("nname")%></td>
<td><%response.write rs("payment")%></td>
<td><a href='?action=view&types=<%response.write types%>&id=<%response.write nid%>'>详细</a> 
<a href="javascript:Do_del_data('<%response.write nid%>');">删除</a></td>
</tr>
<%
    rs.movenext
  next
  rs.close:set rs=nothing
%>
<tr class=tdbg><td colspan=5 align=center height=25>现在有 <font class=red><%response.write rssum%></font> 个 <font color=red><%response.write oname%></font>　　每页 <font class=red><%response.write nummer%></font> 个</td></tr>
<tr class=tdbg align=center><td colspan=5>
  <table border=0 width='100%'>
  <tr align=center><td><%response.write pagecute_fun(viewpage,thepages,pageurl)%></td><td>
<table border=0>
<form action='?' method=get>
<input type=hidden name=action value='main'>
<input type=hidden name=types value='<%response.write types%>'>
<tr><td>关键字：<input type=text name=keyword size=10 maxlength=20></td><td>&nbsp;<select name=sea_type>
<option value='ordernum'>订单号</option>
<option value='name'>收货人</option>
<option value='payment'>付款方式</option>
</select></td><td>&nbsp;<input type=submit value='搜索'></td></tr>
</form>
</table>
  </td>  </tr>
</table>
</td></tr>
</table>
<%
end sub
%>