📄 suboutorder.asp

📁 这是去年开发的中移鼎讯手机进销存系统大家
💻 ASP
字号:
<!--#include file="../inc/function.asp"-->
<!--#include file="../inc/ChkPurview.asp"-->
<%
Dim Pro_ID
Pro_ID = Request("Pro_ID")
%>
<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"><strong>发货库管理</strong></td>
  </tr>
  <tr class="tdbg"> 
    <td width="70" height="30"><strong>管理导航：</strong></td>
    <td height="30">

<%
	Response.write "&nbsp;<a href=""SubOutOrder.asp"">发货管理</a>"

	Response.write "&nbsp;|&nbsp;<a href=""../order/SubOrder.asp?Check=4"" title='有未发货订单'>我要发货</a>&nbsp;"	
%>

	</td>
  </tr>
</table>
<%
'发货ID号
if GetUserGPower=9999 then
	if Pro_ID="" then 
		Sql = "Select * from T_SubOutOrder where OutOrder_Lev=9999 order by OutOrder_Time desc;"
	else
		Sql = "Select * from T_SubOutOrder where Pro_ID="&Pro_ID&" and OutOrder_Lev=9999 order by OutOrder_Time desc;"
	end if
elseif GetUserGPower = 999 then
	Sql = "Select * from T_SubOutOrder where OutOrder_Lev=999 and OutOrder_UserID="&GetUserID&" order by OutOrder_Time desc;"
elseif GetUserGPower = 99 then
	Sql = "Select * from T_SubOutOrder where OutOrder_Lev=99 and OutOrder_UserID="&GetUserID&" order by OutOrder_Time desc;"
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>
     <td>
<table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" class="border">
  <tr align="center" class="topbg"> 
    <td>产品名</td>
    <td>发货数量</td>
    <td>单价</td>
    <td>发货日期</td>
	<td>发货人</td>
	<td>收货人</td>
	<td  width="200" height="22"> 操 作</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'" align="center"> 
    <td><%=Rs("Pro_Name")%></td>
    <td><%=Rs("OutOrder_Num")%></td>
    <td><%=Rs("OutOrder_dj")%></td>
    <td><%=Rs("OutOrder_Time")%></td>
	<td align="center">
<%
Dim crs,csql
csql="Select * from T_User where UserID = "&Rs("OutOrder_UserID")&""
Call sql_open(crs,csql,Conn,1,1)
If crs.eof and crs.bof then
	response.Write("<font color='#0000FF'>无发货人</font>")
else
	Response.write crs("UserName")
end if
Call rs_end(crs)
%>	
	</td>
	<td align="center">
	<%
	Dim Rst,Sqlt,Sub_XUserName,Sub_SUserName,Sub_UserID
	
	if Rs("OutOrder_Lev")=9999 then
		if Rs("Sub_UserType")=0 then
			Sqlt = "Select * from T_User where UserID="&Cstr(Rs("Sub_XUserID"))&""
			Call sql_open(Rst,Sqlt,Conn,1,1)
			if Rst.eof and Rst.bof then
				Sub_XUserName = "无"
			else
				Sub_XUserName = Rst("UserName")
			end if
			Response.write "<a href='../user/ShowUser.asp?ID="&Rs("Sub_XUserID")&"'>"&Rst("UserName")&"</a>"
			Call Rs_end(Rst)
		else
			Sqlt = "Select * from T_User where UserID="&Cstr(Rs("Sub_SUserID"))&""
			Call sql_open(Rst,Sqlt,Conn,1,1)
			if Rst.eof and Rst.bof then
				Sub_SUserName = "无"
			else
				Sub_SUserName = Rst("UserName")
			end if
			Response.write "<a href='../user/ShowUser.asp?ID="&Rs("Sub_SUserID")&"'>"&Rst("UserName")&"</a>"
			Call Rs_end(Rst)
		end if
	elseif Rs("OutOrder_Lev")=999 then		'市级。市分
		Sqlt = "Select * from T_User where UserID="&Cstr(Rs("Sub_UserID"))&""
		Call sql_open(Rst,Sqlt,Conn,1,1)
		if Rst.eof and Rst.bof then
			Sub_UserID = "无"
		else
			Sub_UserID = Rst("UserName")
		end if
		Response.write "<a href='../user/ShowUser.asp?ID="&Rs("Sub_UserID")&"'>"&Rst("UserName")&"</a>"
		Call Rs_end(Rst)
	elseif Rs("OutOrder_Lev")=99 then		'县级，县分
		Sqlt = "Select * from T_User where UserID="&Cstr(Rs("Sub_UserID"))&""
		Call sql_open(Rst,Sqlt,Conn,1,1)
		if Rst.eof and Rst.bof then
			Sub_UserID = "无"
		else
			Sub_UserID = Rst("UserName")
		end if
		Response.write "<a href='../user/ShowUser.asp?ID="&Rs("Sub_UserID")&"'>"&Rst("UserName")&"</a>"
		Call Rs_end(Rst)
	end if
	%>
	</td>
	<td align="center">
<%
Response.write "<a href='SubOutOrderShow.asp?OutOrder_ID="&Rs("OutOrder_ID")&"&SubOrder_ID="&Rs("SubOrder_ID")&"'>查看</a>"
%>
</td>
  </tr>
	<%
	Rs.MoveNext
	Next
	%>
</table>  
<table width="100%" border="0" cellpadding="0" cellspacing="0">
  <tr>
    <td height="30">&nbsp;</td>
    <td width="300"><%If IsFor Then Call page_code_down(Rs,"&Pro_ID="&Pro_ID&"","条记录") %></td>
  </tr>
</table>
</td>
</tr></table>
<%
	Call Rs_End(Rs)



%>

</body>
</html>
<%


Call CONN_End(Conn)

%>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -