📄 showsuboutorderlist.asp

📁 这是去年开发的中移鼎讯手机进销存系统大家
💻 ASP
字号:
<!--#include file="../inc/function.asp"-->
<!--#include file="../inc/ChkPurview.asp"-->
<%
'查看发货列表
Dim Action,crs,csql,Pro_Name
Dim ID
Dim CountyID
ID = Trim(request("ID"))
If ID="" then
	Call Msg("非法参数",1,"")
end if
Action	=	Trim(request("Action"))
CountyID	=	Trim(request("CountyID"))

%>
<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 language="JavaScript">
<!--
	function ShowPro(id) {
    var url = "../product/ShowProInfo.asp?ID=" + id ;
  	window.open(url,"","scrollbars=yes,resizable=no, width=800,height=500");
  }
	function ShowUser(id) {
    var url = "../User/ShowUserInfo.asp?ID=" + id ;
  	window.open(url,"","scrollbars=yes,resizable=no, width=800,height=500");
  }
	function ShowSubOutOrder(id,kk) {
    var url = "ShowSubOutOrderInfo.asp?ID=" + id +"&kk=" + kk;
	//alert(url);
  	window.open(url,"","scrollbars=yes,resizable=no, width=800,height=500");
  }
//-->
</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">发货管理</td>
  </tr>
  <tr class="tdbg"> 
    <td width="70" height="30"><strong>管理导航：</strong></td>
    <td height="30">

<%
if GetUserGPower=9999 then			'省公司
	Response.write "<a href=""P_subOutOrder.asp"">发货列表</a>"
	Response.write "&nbsp;|&nbsp;<a href=""P_subOutOrder_s.asp"">发货统计</a>"	
	Response.write "&nbsp;|&nbsp;<a href=""P_subOutOrder_wrt.asp"">我要发货</a>"
end if

if GetUserGPower=999 then			'市公司
	Response.write "<a href=""S_subOutOrder.asp"">发货列表</a>"
	Response.write "&nbsp;|&nbsp;<a href=""S_subOutOrder_s.asp"">发货统计</a>"	
	Response.write "&nbsp;|&nbsp;<a href=""S_subOutOrder_wrt.asp"">我要发货</a>"
end if 
if GetUserGPower=99 then
	Response.write "<a href=""X_subOutOrder.asp"">发货列表</a>"
	Response.write "&nbsp;|&nbsp;<a href=""X_subOutOrder_s.asp"">发货统计</a>"	
	Response.write "&nbsp;|&nbsp;<a href=""X_subOutOrder_wrt.asp"">我要发货</a>"
end if

%>

	</td>
  </tr>
</table>


<%
if Action="Del" then				
	call main()
else
	call main()
end if

Call Conn_End(Conn)

sub main()
'/////////////////////////////////////////////
if GetUserGPower = 9999 then
	Sql = "Select * from T_SubOutOrder where SubOrderID="&Cstr(ID)&" order by InTime desc;"
elseif GetUserGPower = 999 then
	Sql = "Select * from T_SubOutOrder where SubOrderID="&Cstr(ID)&" and CityID="&cstr(GetCityID)&" order by InTime desc;"
elseif GetUserGPower = 99 then
	Sql = "Select * from T_SubOutOrder where SubOrderID="&Cstr(ID)&" and CountyID="&cstr(GetCountyID)&" order by InTime desc;"
elseif GetUserGPower = 9 then
	Sql = "Select * from T_SubOutOrder where SubOrderID="&Cstr(ID)&" and InChk_UserID="&cstr(GetUserID)&" order by InTime desc;"
end if


Call sql_open(Rs,Sql,Conn,1,1)
Call page_code(Rs,200000)
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>确认</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'"> 
    <td align="center"><a href="javascript:ShowPro('<%=Rs("Pro_ID")%>')" title="查看产品信息"><%=Rs("Pro_Name")%></a></td>
    <td align="center"><%=Rs("Pro_Price")%></td>
	<td align="center"><%=Rs("Pro_Num")%></td>
	<td align="center"><%=Rs("Pro_Money")%></td>
	<td align="center">
	<%
	Dim CityName,CountyName
	Dim crs,csql
	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)
	Response.write CityName
'县级收货
	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 = "&nbsp;"
	else
		CountyName = crs("CountyName")
	end if
	call rs_end(crs)
	Response.write "&nbsp;"&CountyName		


	csql = "Select * from T_User where UserID="&Cstr(Rs("InChk_UserID"))&""
	call sql_open(crs,csql,Conn,1,1)
		if crs.eof and crs.bof then
			Response.write "&nbsp;<font color='#FF0000'>&nbsp;</font>"
		else
			Response.write "&nbsp;<a href=""javascript:ShowUser('"&Rs("InChk_UserID")&"')"" title='查看用户信息'><font color='#0000FF'>"&crs("UserName")&"</font></a>"
		end if
	call rs_end(crs)
	%></td>
	<td align="center"><%=Format_Time(Rs("InTime"), 8)%></td>
	<td align="center"><%
	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>
    <td align="center">
<%
	response.write "<a href=""javascript:ShowSubOutOrder('"&Rs("OutOrder_ID")&"','0')"" title=""查看订单"">查看</a>"

%>	
	</td>
  </tr>
	<%
	Rs.MoveNext
	Next
	%>
</table>  
<table width="100%" border="0" cellpadding="0" cellspacing="0">
  <tr>
    <td width="200" height="30">&nbsp;</td>
    <td width="300">&nbsp;</td>
  </tr>
</table>
</td>
</tr></table><br>

<br>
<%

end sub

%>
⌨️ 快捷键说明

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