📄 showsuborder.asp
字号:
<!--#include file="../inc/function.asp"-->
<!--#include file="../inc/ChkPurview.asp"-->
<%
Dim SubOrderID
Dim Action
Action = Request("Action")
SubOrderID = Request("ID")
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="../css/mobile_sale.css" rel="stylesheet" type="text/css">
<title>查看订单</title>
</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><br>
<%
Sql="Select * from T_SubOrder where SubOrderID="&Cstr(SubOrderID)&""
Call sql_open(Rs,Sql,Conn,1,1)
If Rs.Eof and Rs.Bof then
Call Msg("您所要查找的内容不存在", 1,"")
Else
%>
<table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" class="border" >
<tr class="title">
<td height="22" colspan="2">
<div align="center">查看订单</div></td>
</tr>
<!--
<tr class="tdbg">
<td width="120" class="tdbg">流水号</td>
<td width="856" class="tdbg"><%=Rs("DDNo")%></td>
</tr>
-->
<tr class="tdbg">
<td class="tdbg">主题</td>
<td class="tdbg"><%=Rs("SubOrderTitle")%></td>
</tr>
<tr class="tdbg">
<td class="tdbg">数量</td>
<td class="tdbg"><%=Rs("OrderTotal")%></td>
</tr>
<tr class="tdbg">
<td class="tdbg">到货日期</td>
<td class="tdbg"><%=Rs("toTime")%></td>
</tr>
<tr class="tdbg">
<td class="tdbg">说明</td>
<td class="tdbg"><%=Rs("SubOrderInfo")%></td>
</tr>
<tr class="tdbg">
<td class="tdbg">填写日期</td>
<td class="tdbg"><%=Rs("InTime")%></td>
</tr>
<tr class="tdbg">
<td class="tdbg"> </td>
<td class="tdbg"> </td>
</tr>
<tr class="title">
<td height="22" colspan="2"><div align="center">提交人信息</div></td>
</tr>
<%
Dim Rst,Sqlt
Sqlt="Select * from T_User where UserID="&Cstr(Rs("UserID"))&""
Call sql_open(Rst,Sqlt,Conn,1,1)
If Rst.Eof and Rst.Bof then
%>
<tr class="tdbg">
<td height="23" colspan="2"><div align="center">此人信息不存在</div></td>
</tr>
<%Else%>
<tr class="tdbg">
<td class="tdbg">单位名称</td>
<td class="tdbg"><%=Rst("UserUnit")%></td>
</tr>
<tr class="tdbg">
<td class="tdbg">用户名</td>
<td class="tdbg"><%=Rst("UserName")%></td>
</tr>
<tr class="tdbg">
<td class="tdbg">姓名</td>
<td class="tdbg"><%=Rst("UserTrueName")%></td>
</tr>
<tr class="tdbg">
<td class="tdbg">Email</td>
<td class="tdbg"><%=Rst("UserEmail")%></td>
</tr>
<tr class="tdbg">
<td class="tdbg">电话</td>
<td class="tdbg"><%=Rst("UserTEL")%></td>
</tr>
<tr class="tdbg">
<td class="tdbg">传真</td>
<td class="tdbg"><%=Rst("UserFax")%></td>
</tr></table><br>
<%if Rs("UserType")=0 and (Rs("XIsCheck")=1 or Rs("XIsCheck")=2) then%>
<table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" class="border" >
<tr class="title" align="center">
<td height="22" colspan="2">县级审核</td>
</tr>
<tr class="tdbg">
<td width="120" class="tdbg">状态</td>
<td width="856" class="tdbg"><%
if Rs("XIsCheck")=1 then
Response.write "<font color='#0000FF'>通过审核</font>"
elseif Rs("XIsCheck")=2 then
Response.write "<font color='#FF0000'>拒绝</font>"
end if
%></td>
</tr>
<tr class="tdbg">
<td width="120" class="tdbg">内容</td>
<td width="856" class="tdbg"><%=rs("XInfo")%></td>
</tr>
<tr class="tdbg">
<td width="120" class="tdbg">时间</td>
<td width="856" class="tdbg"><%=Rs("XCheckTime")%></td>
</tr>
</table>
<%end if%>
<%if Rs("SIsCheck")=1 or Rs("SIsCheck")=2 then%>
<table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" class="border" >
<tr class="title" align="center">
<td height="22" colspan="2">市级审核</td>
</tr>
<tr class="tdbg">
<td width="120" class="tdbg">状态</td>
<td width="856" class="tdbg"><%
if Rs("SIsCheck")=1 then
Response.write "<font color='#0000FF'>通过审核</font>"
elseif Rs("SIsCheck")=2 then
Response.write "<font color='#FF0000'>拒绝</font>"
end if
%></td>
</tr>
<tr class="tdbg">
<td width="120" class="tdbg">内容</td>
<td width="856" class="tdbg"><%=rs("SInfo")%></td>
</tr>
<tr class="tdbg">
<td width="120" class="tdbg">时间</td>
<td width="856" class="tdbg"><%=Rs("SCheckTime")%></td>
</tr>
</table>
<%end if%>
<%if Rs("PIsCheck")=1 or Rs("PIsCheck")=2 then%>
<table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" class="border" >
<tr class="title" align="center">
<td height="22" colspan="2">省级审核</td>
</tr>
<tr class="tdbg">
<td width="120" class="tdbg">状态</td>
<td width="856" class="tdbg"><%
if Rs("PIsCheck")=1 then
Response.write "<font color='#0000FF'>通过审核</font>"
elseif Rs("PIsCheck")=2 then
Response.write "<font color='#FF0000'>拒绝</font>"
end if
%></td>
</tr>
<tr class="tdbg">
<td width="120" class="tdbg">内容</td>
<td width="856" class="tdbg"><%=rs("PInfo")%></td>
</tr>
<tr class="tdbg">
<td width="120" class="tdbg">时间</td>
<td width="856" class="tdbg"><%=Rs("PCheckTime")%></td>
</tr>
</table>
<%end if%>
<%
End if
call Rs_End(Rst)
if GetUserGPower > 9 then '分销点以上的用户才可以操作
'//////////////////////////////////////////////////////////
if Rs("UserType")=0 then
if Rs("XIsCheck")=0 or Rs("XIsCheck")=2 or Rs("SIsCheck")=2 then
if GetUserGPower = 99 then
Response.write "<div align=""center""><input type=""submit"" name=""S1"" value="" 审核 "" onClick=""location.href ='CorR.asp?id="&SubOrderID&"&Action=CheckList';""> "
Response.write "<input type=""submit"" name=""S2"" value="" 拒绝 "" onClick=""location.href ='CorR.asp?id="&SubOrderID&"&Action=RefuseList';""></div>"
end if
else
if Rs("SIsCheck")=0 or Rs("SIsCheck")=2 or Rs("PIsCheck")=2 then
if GetUserGPower = 999 then
Response.write "<div align=""center""><input type=""submit"" name=""S1"" value="" 审核 "" onClick=""location.href ='CorR.asp?id="&SubOrderID&"&Action=CheckList';""> "
Response.write "<input type=""submit"" name=""S2"" value="" 拒绝 "" onClick=""location.href ='CorR.asp?id="&SubOrderID&"&Action=RefuseList';""></div>"
end if
else
if Rs("PIsCheck")=0 or Rs("PIsCheck")=2 then
if GetUserGPower = 9999 then
Response.write "<div align=""center""><input type=""submit"" name=""S1"" value="" 审核 "" onClick=""location.href ='CorR.asp?id="&SubOrderID&"&Action=CheckList';""> "
Response.write "<input type=""submit"" name=""S2"" value="" 拒绝 "" onClick=""location.href ='CorR.asp?id="&SubOrderID&"&Action=RefuseList';""></div>"
end if
end if
end if
end if
else
if Rs("XIsCheck")=0 or Rs("XIsCheck")=2 or Rs("SIsCheck")=2 then
if GetUserGPower = 99 then
Response.write "<div align=""center""><input type=""submit"" name=""S1"" value="" 审核 "" onClick=""location.href ='CorR.asp?id="&SubOrderID&"&Action=CheckList';""> "
Response.write "<input type=""submit"" name=""S2"" value="" 拒绝 "" onClick=""location.href ='CorR.asp?id="&SubOrderID&"&Action=RefuseList';""></div>"
end if
else
if Rs("SIsCheck")=0 or Rs("SIsCheck")=2 or Rs("PIsCheck")=2 then
if GetUserGPower = 999 then
Response.write "<div align=""center""><input type=""submit"" name=""S1"" value="" 审核 "" onClick=""location.href ='CorR.asp?id="&SubOrderID&"&Action=CheckList';""> "
Response.write "<input type=""submit"" name=""S2"" value="" 拒绝 "" onClick=""location.href ='CorR.asp?id="&SubOrderID&"&Action=RefuseList';""></div>"
end if
else
if Rs("PIsCheck")=0 or Rs("PIsCheck")=2 then
if GetUserGPower = 9999 then
Response.write "<div align=""center""><input type=""submit"" name=""S1"" value="" 审核 "" onClick=""location.href ='CorR.asp?id="&SubOrderID&"&Action=CheckList';""> "
Response.write "<input type=""submit"" name=""S2"" value="" 拒绝 "" onClick=""location.href ='CorR.asp?id="&SubOrderID&"&Action=RefuseList';""></div>"
end if
end if
end if
end if
end if
if Rs("ArriveLev")=9999 then
if Rs("ArriveLev_FH")=9999 then '省发货（市级,县级）
If GetUserGPower=9999 and Rs("P_FH")=0 then
if Rs("UserType")=0 then '发到县分销点
Response.write "<div align=""center""><input type=""submit"" name=""S1"" value="" 省公司审核通过，确认已发货 "" onClick=""location.href ='FH.asp?id="&SubOrderID&"&UserID="&Rs("SUserID")&"&ALev="&Rs("ArriveLev_FH")&"&Lev=99';""> </div>"
else
Response.write "<div align=""center""><input type=""submit"" name=""S1"" value="" 省公司审核通过，确认已发货 "" onClick=""location.href ='FH.asp?id="&SubOrderID&"&UserID="&Rs("SUserID")&"&ALev="&Rs("ArriveLev_FH")&"&Lev=999';""> </div>"
end if
end if
end if
if Rs("ArriveLev_FH")=999 then '市发货到，市分销点
If GetUserGPower=999 and Rs("S_FH")=0 then
Response.write "<div align=""center""><input type=""submit"" name=""S1"" value="" 市公司审核通过，确认已发货 "" onClick=""location.href ='FH.asp?id="&SubOrderID&"&UserID="&Rs("UserID")&"&ALev="&Rs("ArriveLev_FH")&"&Lev=9';""> </div>"
end if
end if
if Rs("ArriveLev_FH")=99 then '县发货
If GetUserGPower=99 and Rs("X_FH")=0 then
Response.write "<div align=""center""><input type=""submit"" name=""S1"" value="" 县公司审核通过，确认已发货 "" onClick=""location.href ='FH.asp?id="&SubOrderID&"&UserID="&Rs("UserID")&"&ALev="&Rs("ArriveLev_FH")&"&Lev=9';""> </div>"
end if
end if
end if
'//////////////////////////////////////////////////////////
end if
End If
%>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -