📄 sinlistok.asp

📁 这是去年开发的中移鼎讯手机进销存系统大家
💻 ASP
字号:
<!--#include file="../inc/function.asp"-->
<!--#include file="../inc/ChkPurview.asp"-->
<%
Dim stype,yy,mm,Pro_ID
Dim Pro_Name
stype	= trim(Request("stype"))
yy		= trim(Request("yy"))
mm		= trim(Request("mm"))
Pro_ID	= trim(Request("Pro_ID"))
if stype="" or yy="" or mm="" or Pro_ID="" then
	Response.write "非法参数"
	Response.end
end if

Dim rst,sqlt
sqlt = "Select * from T_Product where Pro_ID="&cstr(Pro_ID)&""
Call sql_open(Rst,Sqlt,Conn,1,1)
if Rst.eof and Rst.bof then
	Pro_Name = "<b><I>无此产品</I></b>"
else
	Pro_Name = Rst("Pro_MC")
end if
Call rs_end(Rst)

%>

<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"><a href="InList.asp">进货清单</a>&nbsp;|&nbsp;<a href="sInList.asp">进货搜索</a>&nbsp;|&nbsp;<a href="InList.asp?Action=Add">进货添加</a></td>
  </tr>
</table>
<br>
<%

	Select Case stype
		case 1	'按时间找
			Response.Write "您要找的是<font color='#0000FF'>"&yy&"年"&mm&"月</font>的进货情况"
			Sql = "select T_InList.*,T_Product.* from T_InList Inner join T_Product on T_InList.Pro_ID=T_Product.Pro_ID where datePart(yyyy,T_InList.InTime)="&yy&" and datePart(mm,T_InList.InTime)="&mm&" order by T_InList.InListID desc;"
		case 2	'按产品找
			Response.Write "您要找的是<font color='#0000FF'>"&Pro_Name&"</font>的进货情况"
			Sql = "select T_InList.*,T_Product.* from T_InList Inner join T_Product on T_InList.Pro_ID=T_Product.Pro_ID where T_InList.Pro_ID="&Cstr(Pro_ID)&" order by T_InList.InListID desc;"			
		case 3	'两者都
			Response.Write "您要找的是<font color='#0000FF'>"&yy&"年"&mm&"月"&Pro_Name&"</font>的进货情况"
			Sql = "select T_InList.*,T_Product.* from T_InList Inner join T_Product on T_InList.Pro_ID=T_Product.Pro_ID where datePart(yyyy,T_InList.InTime)="&yy&" and datePart(mm,T_InList.InTime)="&mm&" and T_InList.Pro_ID="&Cstr(Pro_ID)&" order by T_InList.InListID desc;"			
	end select


	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

%><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="150" height="22"><strong> 操 作</strong></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><%=rs("Pro_MC")%></td>
    <td align="center"><%=rs("Pro_Pprice")%></td>
	<td align="center"><%=rs("Pro_Num")%></td>
	<td width="150"  align="center"><%=Rs("inUserName")%></td>
	<td width="150"  align="center"><%=Rs("Pro_InTime")%></td>
	<td width="150"  align="center">
	<%
	Response.write "<a href='InList.asp?Action=Modify&ID=" & rs("InListID") & "'>修改</a>"
	if GetUserPower<>"C" then
		Response.write "&nbsp;|&nbsp;<a href='InList.asp?Action=Del&ID=" & rs("InListID") & "' onClick=""return confirm('确定要删除此进货单吗？');"">删除</a>"
	end if
	%>
	</td>
  </tr>
	<%
	Rs.MoveNext
	Next
	%>
</table>  
<table width="100%" border="0" cellpadding="0" cellspacing="0">
  <tr>
    <td width="200" height="30">&nbsp;</td>
    <td>&nbsp;	</td>
	<td width="300"><%If IsFor Then Call page_code_down(Rs,"&stype="&stype&"&yy="&yy&"&mm="&mm&"&Pro_ID="&Pro_ID&"","条记录") %></td>
  </tr>
</table>
</td>
</tr></table>
<%
call Rs_end(Rs)

%>


</body>
</html>
⌨️ 快捷键说明

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