📄 sx_suborder_show.asp
字号:
<!--#include file="../inc/function.asp"-->
<!--#include file="../inc/ChkPurview.asp"-->
<%
'省公司查看订单：
if GetUserGPower<>9999 then
Call Msg("您没有权限访问此页",1,"")
end if
Dim Action,crs,csql,Pro_Name
Dim ID
ID = Trim(Request("ID"))
If ID = "" then
Call Msg("非法参数",1,"")
end if
%>
<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">
</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">订单管理</td>
</tr>
<tr class="tdbg">
<td width="70" height="30"><strong>管理导航：</strong></td>
<td height="30">
<%
if GetUserGPower = 9999 then
Response.write "<a href=""SX_Chk_SubOrder.asp"">订单审批</a>"
Response.write " | <a href=""SX_SubOrder_List.asp"">订单列表</a>"
end if
if GetUserGPower = 999 then
Response.write "<a href=""SubOrder_wrt.asp"">添加订单</a>"
Response.write " | <a href=""My_SubOrder_List.asp"">市公司订单</a>"
Response.write " | <a href=""X_Chk_SubOrder.asp"">县级待审批订单</a>"
Response.write " | <a href=""X_SubOrder_List.asp"">县级订单列表</a>"
Response.write " | <a href=""SF_SubOrder_List.asp?Chk=0"">分销点待审批订单</a>"
Response.write " | <a href=""SF_SubOrder_List.asp?Chk=1"">分销点订单列表</a>"
end if
if GetUserGPower = 99 then
Response.write "<a href=""SubOrder_wrt.asp"">添加订单</a>"
Response.write " | <a href=""My_SubOrder_List.asp"">县公司订单</a>"
Response.write " | <a href=""XF_SubOrder_List.asp?Chk=0"">分销点待审批订单</a>"
Response.write " | <a href=""XF_SubOrder_List.asp?Chk=1"">分销点订单列表</a>"
end if
if GetUserGPower = 9 then
Response.write "<a href=""SubOrder_wrt.asp"">添加订单</a>"
Response.write " | <a href=""My_SubOrder_List.asp"">我的订单</a>"
end if
%>
</td>
</tr>
</table>
<br>
<%
Sql = "Select * from T_SubOrder where SubOrderID="&Cstr(ID)&""
Call sql_open(Rs,Sql,conn,1,1)
if Rs.eof and Rs.bof then
response.write "内容不存在"
else
csql = "select * from T_Product where Pro_ID="&Cstr(Rs("Pro_ID"))&""
Call sql_open(crs,csql,conn,1,1)
if crs.eof and crs.bof then
Pro_Name = "<font color='#FF0000'>产品不存在</font>"
else
Pro_Name= crs("Pro_MC")
end if
call rs_end(crs)
%>
<table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" class="border">
<tr align="center" class="title">
<td height="22" colspan="2">订单管理</td>
</tr>
<tr class="tdbg">
<td width="15%"> 订单主题 </td>
<td><%=Rs("SubOrderTitle")%></td>
</tr>
<tr class="tdbg">
<td> 产品名 </td>
<td><%=Pro_Name%></td>
</tr>
<tr class="tdbg">
<td> 订购数量 </td>
<td><%=Rs("SubOrderTotal")%></td>
</tr>
<tr class="tdbg">
<td>审批数</td>
<td><font color="#0000FF"><%=Rs("Chk_SubOrderTotal")%></font></td>
</tr>
<tr class="tdbg">
<td>要求到货日期 </td>
<td><%=Rs("toTime")%></td>
</tr>
<tr class="tdbg">
<td> 说明 </td>
<td><%=Rs("SubOrderInfo")%></td>
</tr>
<!--
<tr class="tdbg">
<td> 是否现款现货 </td>
<td>
%
if Rs("IsMoney")=true then
response.write "<font color='#FF0000'>是</font>"
else
response.write "<font color='#0000FF'>否</font>"
end if
%>
</td>
</tr>
<tr class="tdbg">
<td> 款货金额 </td>
<td>%=Rs("SubMoney")%></td>
</tr>
-->
<tr class="tdbg">
<td> 填写日期</td>
<td><%=Rs("InTime")%></td>
</tr>
<tr class="tdbg">
<td>填报人</td>
<td>
<%'UserID,UserName,CityID,CountyID,UserGPower,UserType,
Dim CityName,CountyName
csql = "select * from City where CityID="&cstr(Rs("CityID"))&""
call sql_open(crs,csql,conn,1,1)
if crs.eof and crs.bof then
CityName = "市名不存在"
else
CityName = crs("CityName")
end if
call rs_end(crs)
if Rs("CountyID")=0 then
CountyName = " "
else
csql = "select * from County where CountyID="&cstr(Rs("CountyID"))&""
call sql_open(crs,csql,conn,1,1)
if crs.eof and crs.bof then
CountyName = "县名不存在"
else
CountyName = crs("CountyName")
end if
call rs_end(crs)
end if
response.write CityName&"-"&CountyName&"-"&Rs("UserName")
if rs("userGPower")=999 then
response.write "<font color='#0000FF'>(市级用户)</font>"
elseif rs("userGPower")=99 then
response.write "<font color='#0000FF'>(县级用户)</font>"
elseif rs("userGPower")=9 then
if Rs("Usertype")=1 then
response.write "<font color='#0000FF'>(市分销点用户)</font>"
else
response.write "<font color='#0000FF'>(县分销点用户)</font>"
end if
end if
%>
</td>
</tr>
<tr class="tdbg">
<td>收货人</td>
<td><%=Rs("RecName")%></td>
</tr>
<tr class="tdbg">
<td>状态</td>
<td>
<%
if Rs("IsChk")=0 then
Response.write "<font color='#0000FF'>未审批</font>"
elseif rs("IsChk")=1 then
Response.write "审批"
elseif rs("IsChk")=2 then
Response.write "<font color='#FF0000'>拒绝</font>"
elseif rs("IsChk")=3 then
Response.write "<font color='#FF0000'>部分审批</font>"
end if
%>
</td>
</tr>
<tr class="tdbg">
<td>内容</td>
<td><%=Rs("ChkInfo")%></td>
</tr>
<tr class="tdbg">
<td>审批日期</td>
<td><%=Rs("ChkTime")%></td>
</tr>
<%if Rs("IsOutOrder")<>0 then%>
<%end if%>
</table>
<br>
<br>
<%
end if
Call Rs_end(rs)
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -