📄 suborderok.asp
字号:
<!--#include file="../inc/function.asp"-->
<!--#include file="../inc/ChkPurview.asp"-->
<%
'分销点库管理:SubOrderok.asp
%>
<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 " <a href=""SubOrderok.asp"">库存管理</a> "
%>
</td>
</tr>
</table>
<%
if GetUserGPower=9 then
Sql = "Select * from T_SubOrder where ArriveLev_FH=9 and UserID="&GetUserID&""
elseif GetUserGPower =99 then
Sql = "Select * from V_SubOrder where ArriveLev_FH=99 and XIsCheck=1 and X_FH=0 and Usertype=0 order by intime desc;"
elseif GetUserGPower =999 then
Sql = "Select * from V_SubOrder where ArriveLev_FH=999 and SIsCheck=1 and S_FH=0 order by intime 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="title">
<td>产品名</td>
<td>型号</td>
<td>单价</td>
<td>数量</td>
<td>到货日期</td>
<td width="200" height="22"><strong> 操 作</strong></td>
</tr>
<%
For i= 1 to Rs.PageSize
If Rs.Eof Then Exit For
Dim Rst,Sqlt
Dim MC,XH,DJ
Sqlt="Select * from T_Product where Pro_ID="&Cstr(Rs("Pro_ID"))&""
Call sql_open(Rst,Sqlt,conn,1,1)
if Rst.eof and Rst.bof then
MC = "Nothing"
XH = "Nothing"
DJ = "Nothing"
else
MC = Rst("Pro_MC")
XH = Rst("Pro_XH")
DJ = Rst("Pro_DJ")
end if
%>
<tr class="tdbg" onmouseout="this.style.backgroundColor=''" onmouseover="this.style.backgroundColor='#BFDFFF'" align="center">
<td><%=MC%></td>
<td><%=XH%></td>
<td><%=DJ%>元</td>
<td><%=Rs("OrderTotal")%></td>
<td><%=Rs("ToTime")%></td>
<td align="center">
<%
Response.write "<a href='ShowSubOrder.asp?ID=" & Rs("SubOrderID") & "'>查看</a>"
%>
</td>
</tr>
<%
Rs.MoveNext
Next
%>
</table>
<table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="200" height="30"> </td>
<td width="300"><%If IsFor Then Call page_code_down(Rs,"","条记录") %></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 + -