📄 suborder.asp
字号:
<!--#include file="../inc/function.asp"-->
<!--#include file="../inc/ChkPurview.asp"-->
<%
'订单管理:SubOrder.asp
'用户限权检查
dim Action,check
Action = Trim(request("Action"))
check = Trim(request("check"))
if check="" then check=10000
%>
<html>
<head>
<title>订单管理</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="../css/mobile_sale.css" rel="stylesheet" type="text/css">
<script src="../js/ListOp.js " language=javascript></script>
<SCRIPT language=javascript>
function getCorrectDateString(time)
{
var fbeg = time.indexOf("-", 0);
var fend = time.indexOf("-",fbeg + 1);
var fh = time.substring(0, fbeg);
var fm = time.substring(fbeg + 1, fend);
var fe = time.substring(fend + 1);
var fhLen = fh.length;
var fmLen = fm.length;
var feLen = fe.length;
if (fhLen < 4)
fh = "20" + fh;
if (fmLen < 2)
fm = "0" + fm;
if (feLen < 2)
fe = "0" + fe;
var tmp = fh + "-" + fm + "-" + fe;
return tmp;
}
function CheckAdd()
{
if(document.Myfrom.SubOrderTitle.value=="")
{
alert("请填写主题名称");
document.Myfrom.SubOrderTitle.focus();
return false;
}
if(document.Myfrom.OrderTotal.value=="")
{
alert("请填写发货数量");
document.Myfrom.OrderTotal.focus();
return false;
}
if(document.Myfrom.toTime.value=="")
{
alert("请填写发货日期");
document.Myfrom.toTime.focus();
return false;
}
////////////////////////
/*
var toTime = getCorrectDateString(document.all.toTime.value);
if(NowTime < toTime){
alert('起始时间不能大于终止时间，请重新输入！');
return false;
}
*/
}
</script>
</head>
<body leftmargin="2" topmargin="0" marginwidth="0" marginheight="0">
<table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" class="border">
<tr class="topbg">
<td height="22" colspan="2" align="center"><strong>订 单 管 理</strong></td>
</tr>
<tr class="tdbg">
<td width="70" height="30"><strong>管理导航：</strong></td>
<td height="30">
<%
if GetUserGPower>=99 then
Response.write " <a href='SubOrder.asp?Check=1'>未审核订单</a>"
Response.write " | <a href='SubOrder.asp?Check=2'>已审核订单</a>"
Response.write " | <a href='SubOrder.asp?Check=3'>已拒绝订单</a>"
Response.write " | <a href='SubOrder.asp?Check=4'>未发货订单</a> |"
end if
if GetUserGPower=9 then
Response.write " <a href=""SubOrder.asp"">订单管理</a> | "
Response.write " <a href=""SubOrder.asp?check=5"">到货订单</a> | "
Response.write " <a href=""SubOrder.asp?Action=Add"">添加订单</a> | "
end if
%>
</td>
</tr>
</table>
<%
if Action="Add" then '添加
If GetUserGPower=9 then
call AddAdmin()
Else
Call Msg("您没有权限",1,"")
end if
elseif Action="SaveAdd" then '保存添加
If GetUserGPower=9 then
call SaveAdd()
Else
Call Msg("您没有权限",1,"")
end if
elseif Action="Modify" then '修改
If GetUserGPower=9 then
call Modify()
Else
Call Msg("您没有权限",1,"")
end if
elseif Action="SaveModify" then '保存修改
If GetUserGPower=9 then
call SaveModify()
Else
Call Msg("您没有权限",1,"")
end if
elseif Action="Del" then '删除
If GetUserGPower=9 then
call DelAdmin()
Else
Call Msg("您没有权限",1,"")
end if
else
call main()
end if
Call CONN_End(Conn)
sub main()
'/////////////////////////////////////////////
if GetUserGPower=9999 then '省
Select Case check
case 1 '未审核订单
Sql = "Select * from V_SubOrder where ArriveLev=999 and PIsCheck=0 order by intime desc;"
case 2 '已审核订单
Sql = "Select * from V_SubOrder where ArriveLev=9999 and PIsCheck=1 order by intime desc;"
case 3 '已拒绝订单
Sql = "Select * from V_SubOrder where ArriveLev=999 and PIsCheck=2 order by intime desc;"
case 4 '未发货
Sql = "Select * from V_SubOrder where ArriveLev_FH=9999 and PIsCheck=1 and P_FH=0 order by intime desc;"
end select
elseif GetUserGPower=999 then '市
Select Case check
case 1 '未审核订单
Sql = "Select * from V_SubOrder where ArriveLev=99 and SIsCheck=0 order by intime desc;"
case 2 '已审核订单
Sql = "Select * from V_SubOrder where ArriveLev>=999 and SIsCheck=1 order by intime desc;"
case 3 '已拒绝订单
Sql = "Select * from V_SubOrder where ArriveLev=99 and SIsCheck=2 order by intime desc;"
case 4 '未发货
Sql = "Select * from V_SubOrder where ArriveLev_FH=999 and SIsCheck=1 and S_FH=0 order by intime desc;"
end select
elseif GetUserGPower=99 then '县
Select Case check
case 1 '未审核订单
Sql = "Select * from V_SubOrder where ArriveLev=9 and XIsCheck=0 and Usertype=0 order by intime desc;"
case 2 '已审核订单
Sql = "Select * from V_SubOrder where ArriveLev>=99 and XIsCheck=1 and Usertype=0 order by intime desc;"
case 3 '已拒绝订单
Sql = "Select * from V_SubOrder where ArriveLev=9 and XIsCheck=2 and Usertype=0 order by intime desc;"
case 4 '未发货
Sql = "Select * from V_SubOrder where ArriveLev_FH=99 and XIsCheck=1 and X_FH=0 and Usertype=0 order by intime desc;"
end select
elseif GetUserGPower=9 then
if check=5 then
Sql = "Select * from V_SubOrder where ArriveLev_FH=9 and UserID="&GetUserID&" order by intime desc;"
'Sql = "Select * from T_SubOrder where ArriveLev=9 and UserID="&GetUserID&""
else
Sql = "Select * from V_SubOrder where UserID="&GetUserID&" order by intime desc;"
'Sql = "Select * from T_SubOrder where UserID="&GetUserID&""
end if
end if
Call sql_open(Rs,Sql,Conn,1,1)
Call page_code(Rs,20)
If Not Rs.Eof Then
IsFor=True
Else
IsFor=False
Response.write "<center><b><font color=red>暂无内容！</font></b></center>"
End IF
%>
<br>
<table width='100%' border="0" cellpadding="0" cellspacing="0">
<tr>
<form name="myform" method="Post" action="SubOrder.asp" onsubmit="return confirm('确认这样操作吗？');">
<td>
<table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" class="border">
<tr align="center" class="title">
<td>主题</td>
<td>产品名</td>
<td>数量</td>
<td>要求到货日期</td>
<td>状态</td>
<td>日期</td>
<td width="200" height="22"><strong> 操 作</strong></td>
</tr>
<%
For i= 1 to Rs.PageSize
If Rs.Eof Then Exit For
%>
<tr class="tdbg" onmouseout="this.style.backgroundColor=''" onmouseover="this.style.backgroundColor='#BFDFFF'">
<td><%=Rs("SubOrderTitle")%></td>
<td><%=Rs("Pro_ID")%></td>
<td><%=Rs("OrderTotal")%></td>
<td><%=Rs("ToTime")%></td>
<td>
<%
if Rs("UserType")=0 then
if Rs("ArriveLev") = 9 then
if Rs("XIsCheck")=0 then
Response.write "尚未审核"
elseif Rs("XIsCheck")=2 then
Response.write "<font color='#FF0000'>县级已拒绝</font>"
end if
Elseif Rs("ArriveLev")=99 then
if Rs("SIsCheck")=2 then
Response.write "<font color='#FF0000'>市级已拒绝</font>"
elseif Rs("XIsCheck")=1 then
Response.write "<font color='#0000FF'>县级已审核</font>"
end if
Elseif Rs("ArriveLev")=999 then
if Rs("PIsCheck")=2 then
Response.write "<font color='#FF0000'>省级已拒绝</font>"
elseif Rs("SIsCheck")=1 then
Response.write "<font color='#0000FF'>市级已审核</font>"
end if
Elseif Rs("ArriveLev")=9999 then
if Rs("PIsCheck")=1 then
Response.write "<font color='#0000FF'>省级已审核</font>"
elseif Rs("PIsCheck")=2 then
Response.write "<font color='#FF0000'>省级已拒绝</font>"
end if
end if
else
if Rs("ArriveLev") = 9 then
Response.write "尚未审核"
Elseif Rs("ArriveLev")=99 then
if Rs("SIsCheck")=0 then
Response.write "市级未审核"
elseif Rs("SIsCheck")=1 then
Response.write "<font color='#0000FF'>市级已审核</font>"
elseif Rs("SIsCheck")=2 then
Response.write "<font color='#FF0000'>市级已拒绝</font>"
end if
Elseif Rs("ArriveLev")=999 then
if Rs("PIsCheck")=0 then
Response.write "省级未审核"
elseif Rs("PIsCheck")=1 then
Response.write "<font color='#0000FF'>省级已审核</font>"
elseif Rs("PIsCheck")=2 then
Response.write "<font color='#FF0000'>省级已拒绝</font>"
end if
Elseif Rs("ArriveLev")=9999 then
if Rs("PIsCheck")=0 then
Response.write "省级未审核"
elseif Rs("PIsCheck")=1 then
Response.write "<font color='#0000FF'>省级已审核</font>"
elseif Rs("PIsCheck")=2 then
Response.write "<font color='#FF0000'>省级已拒绝</font>"
end if
end if
end if
%>
</td>
<td><%=Rs("InTime")%></td>
<td align="center">
<%
'审核是级级审核，
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -