📄 list.asp

📁 具有计划、任务、通告、公文、员工档案、等网络办公功能

💻 ASP

字号:

<script>
</script>
<!--#include file="const.inc"-->
<%
if meal_Admin<>1 then
	Response.Write "对不起，您没有权限！"
	Response.End 
end if
%>
<html>
<head>
<title>人员列表</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="../css/eintrdemo.css">
</head>
<body>
<center>
<%	
	set rs=server.CreateObject ("adodb.recordset")

		str="select a.username,c.mealname from userinf a,submeal b,adminmeal c where a.username=b.userid and b.lunch=c.mealid and b.lunch<>0 and b.vdate=#" & vdate & "# order by a.username"
		sql="午餐"

	rs.Open str,conn,3,1
	%>
<table width="100%" border="0" cellpadding="1" cellspacing="1" bgcolor="#666666" >    
	<tr><td colspan=5 bgcolor="#000000" class="heading"><font color="#ffffff"><b>（<%=sql%>）用餐人员列表</b></font>&nbsp;&nbsp;<a href="" onclick="window.print();window.close();"><font color="#FFFFFF"><b>打印</b></font></a></td></tr>
	
	<%
	i=0
	k=0
	do while not rs.EOF 
	i=i+1
	if i=5*k+1 then
	k=k+1
	%>	
	<tr>
	<%end if%>
	<td bgcolor="#FFFFFF"><%=rs(0)%>(<%=rs(1)%>)</td>
	
	<%  if i=5*k then
	%>
	</tr>
	<%	
	end if
	rs.MoveNext 
	loop
	%>
	</table>
<%	
	set rs=server.CreateObject ("adodb.recordset")
		str="select a.username,c.mealname from userinf a,submeal b,adminmeal c where a.username=b.userid and b.supper=c.mealid and b.supper<>0 and b.vdate=#" & vdate & "# order by a.username"	
		sql="晚餐"
	rs.Open str,conn,3,1
	%>
<table width="100%" border="0" cellpadding="1" cellspacing="1" bgcolor="#666666" >    
	<tr><td colspan=5 bgcolor="#000000" class="heading"><font color="#ffffff"><b>（<%=sql%>）用餐人员列表</b></font>&nbsp;&nbsp;<a href="" onclick="window.print();window.close();"><font color="#FFFFFF"><b>打印</b></font></a></td></tr>
	
	<%
	i=0
	k=0
	do while not rs.EOF 
	i=i+1
	if i=5*k+1 then
	k=k+1
	%>	
	<tr>
	<%end if%>
	<td bgcolor="#FFFFFF"><%=rs(0)%>(<%=rs(1)%>)</td>
	
	<%  if i=5*k then
	%>
	</tr>
	<%	
	end if
	rs.MoveNext 
	loop
	%>
	</table>
 </center>
 </body>
</HTML>
<script language="javascript">
 
	function DelChk(mealid)
	{
		if(confirm("您确信删除该记录吗？"))
			document.location="delmeal.asp?channelid=<%=channelid%>&mealid="+mealid ;
	}
</script>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -