📄 suborder_show.asp
字号:
<!--#include file="../inc/function.asp"-->
<!--#include file="../inc/ChkPurview.asp"-->
<%
'订单管理:SubOrder.asp
'用户限权检查
Dim Action,crs,csql,Pro_Name
Dim ID,Sel
ID = Trim(Request("ID"))
If ID = "" then
Call Msg("非法参数",1,"")
end if
Sel = Trim(Request("Sel"))
If Sel = "" 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>
<%
select case Sel
case 1
Sql = "Select * from T_SubOrder where UserGPower=9 and CountyID="&GetCountyID&" and UserType=0 and SubOrderID="&Cstr(ID)&""
case 2
Sql = "Select * from T_SubOrder where UserGPower=9 and CityID="&GetCityID&" and UserType=1 and SubOrderID="&Cstr(ID)&""
case 3
Sql = "Select * from T_SubOrder where UserGPower=99 and CityID="&GetCityID&" and SubOrderID="&Cstr(ID)&""
case 4
Sql = "Select * from T_SubOrder where UserGPower=999 and SubOrderID="&Cstr(ID)&""
case 5
Sql = "Select * from T_SubOrder where UserID="&cstr(GetUserID)&" and SubOrderID="&Cstr(ID)&""
case 6
Sql = "Select * from T_SubOrder where SubOrderID="&Cstr(ID)&""
end select
'Response.Write sql
'Response.End()
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><%=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><%=Rs("RecAddress")%></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>"
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%>
<tr class="tdbg">
<td>发货次数</td>
<td><%=Rs("OutNum")%>次 <a href="../SubOutOrder/ShowSubOutOrderList.asp?ID=<%=Rs("SubOrderID")%>"><查看发货情况></a></td>
</tr>
<%end if%>
</table>
<br>
<%
if Rs("IsChk")<>1 or isnull(Rs("IsChk")) then
if Rs("SupChk_UserGPower")=trim(GetUserGPower) then
%>
<form name="form1" method="post" action="SubOrder_Showsave.asp">
<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><input name="IsChk" type="radio" value="1" checked <%if rs("IsChk")<>2 then response.Write("checked")%>>
审批
<input type="radio" name="IsChk" value="2" <%if rs("IsChk")=2 then response.Write("checked")%>>
拒绝</td>
</tr>
<tr class="tdbg">
<td>内容</td>
<td><textarea name="ChkInfo" cols="60" rows="8" id="ChkInfo"><%=Rs("ChkInfo")%></textarea>
<input name="SubOrderID" type="hidden" id="SubOrderID" value="<%=Rs("SubOrderID")%>">
<input name="Sel" type="hidden" id="Sel" value="<%=Sel%>">
</td>
</tr>
<tr class="tdbg">
<td> </td>
<td><input type="submit" name="Submit" value="提交"></td>
</tr>
</table>
</form>
<%
end if
end if
%>
<br>
<%
end if
Call Rs_end(rs)
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -