📄 o_alllist.asp
字号:
<!--#include file="../../showsort/showsort(bangong).asp"-->
<%
set rsa=server.createobject("ADODB.Recordset")
rsa.open "select deptname,id from manage_dept order by id",source,3,3
if request("yy")<>"" then
mm=request("mm")
if mm<10 then
domm="0"&mm
end if
yy=request("yy")
dodate=yy&"."&domm
else
yy=year(date)
mm=month(date)
if mm<10 then
domm="0"&mm
end if
dodate=yy&"."&domm
end if
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>PMIS</title>
<LINK href="../../<%=session("color")%>.css" rel=stylesheet type=text/css>
</head>
<body topmargin="0" leftmargin="0">
<div align="center">
<center>
<!-- #include File=../../include/title2.asp -->
</center>
</div>
<div align="center">
<center>
<table width="100%" cellspacing cellpadding>
<tr>
<td width="20%" class="Titletd1" height="365" valign="top">
<table width="158" cellspacing cellpadding class="L2">
<tr>
<td height="10" colspan="3" class="bgcolor4"></td>
</tr>
<tr class="bgcolor4">
<td width="18%"></td>
<td width="82%" colspan="2"><font color="#FFFFFF">::::</font> <a href="#"><font color="#FFFFFF">办公用品</font></a></td>
</tr>
<tr class="bgcolor2">
<td width="18%"></td>
<td width="16%"></td>
<td width="66%"><a href="../office/o_index.asp"><font color="#FFFFFF">>
办公用品列表</font></a></td>
</tr>
<tr class="bgcolor2">
<td></td>
<td></td>
<td><a href="../office/o_pathlist.asp"><font color="#FFFFFF">>
申请流程设定</font></a></td>
</tr>
<tr class="bgcolor2">
<td></td>
<td></td>
<td><a href="../office/o_deptwait.asp"><font color="#FFFFFF">>
待批办公用品</font></a></td>
</tr> <tr class="bgcolor2"> <td></td> <td></td> <td><a href="../office/o_deptlist.asp"><font color="#FFFFFF">> 部门办公用品</font></a></td> </tr> <tr class="bgcolor4"> <td width="18%"></td> <td width="82%" colspan="2"><font color="#FFFFFF">::::</font> <a href="#"><font color="#FFFFFF">文档管理</font></a></td> </tr>
<tr class="bgcolor2">
<td width="18%"></td>
<td width="16%"></td>
<td width="66%"><a href="../file/f_index.asp"><font color="#FFFFFF">>
查看文档</font></a><a href="allforums.asp?action=all"></a><a href="../schedule/s_menu_wait.asp"></a></td>
</tr>
<tr class="bgcolor2">
<td></td>
<td></td>
<td><a href="../file/f_adddept.asp"><font color="#FFFFFF">> 新建文档</font></a></td>
</tr>
<tr class="bgcolor2">
<td></td>
<td></td>
<td align="left"><a href="../file/f_setsort.asp"><font color="#FFFFFF">>
设置文档</font></a><font color="#FFFFFF"></font></td>
</tr>
<tr class="bgcolor2">
<td></td>
<td></td>
<td><a href="../file/f_search.asp"><font color="#FFFFFF">> 检索文档</font></a></td>
</tr>
<tr class="bgcolor4">
<td width="18%"></td>
<td width="82%" colspan="2"><font color="#FFFFFF">::::</font> <a href="#"><font color="#FFFFFF">图书管理</font></a></td>
</tr>
<tr class="bgcolor2">
<td width="18%"></td>
<td width="16%"></td>
<td width="66%"><a href="../book/b_index.asp"><font color="#FFFFFF">>
查看图书</font></a></td>
</tr>
<tr class="bgcolor2">
<td></td>
<td></td>
<td><a href="../book/b_add1.asp"><font color="#FFFFFF">> 添加图书</font></a></td>
</tr>
<tr class="bgcolor2">
<td></td>
<td></td>
<td align="left"><a href="../book/b_doapply1.asp"><font color="#FFFFFF">>
管理图书</font></a><a href="findplacard.asp"></a></td>
</tr>
<tr class="bgcolor4">
<td width="18%"></td>
<td width="82%" colspan="2"><font color="#FFFFFF">::::</font> <a href="#"><font color="#FFFFFF">车辆管理</font></a></td>
</tr>
<tr class="bgcolor2">
<td width="18%"></td>
<td width="16%"></td>
<td width="66%"><a href="../car/c_list.asp"><font color="#FFFFFF">>
查看车辆</font></a></td>
</tr>
<tr class="bgcolor2">
<td></td>
<td></td>
<td><a href="../car/c_add.asp"><font color="#FFFFFF">> 添加车辆</font></a></td>
</tr>
<tr class="bgcolor2">
<td></td>
<td></td>
<td align="left"><a href="../car/c_manage.asp"><font color="#FFFFFF">>
管理车辆</font></a></td>
</tr>
<tr class="bgcolor4">
<td width="18%"></td>
<td width="82%" colspan="2"><font color="#FFFFFF">::::</font> <a href="#"><font color="#FFFFFF">会议室管理</font></a></td>
</tr>
<tr class="bgcolor2">
<td width="18%"></td>
<td width="16%"></td>
<td width="66%"><a href="../meeting/m_list.asp"><font color="#FFFFFF">>
查看会议室</font></a></td>
</tr>
<tr class="bgcolor2">
<td></td>
<td></td>
<td><a href="../meeting/m_add.asp"><font color="#FFFFFF">> 添加会议室</font></a></td>
</tr>
<tr class="bgcolor2">
<td></td>
<td></td>
<td align="left"><a href="../meeting/m_manage.asp"><font color="#FFFFFF">>
管理会议室</font></a></td>
</tr>
<tr class="bgcolor4">
<td colspan="3" height="80"></td>
</tr>
</table>
</td>
<td width="1%" bgcolor="#FFFFFF"></td>
<td width="79%" bgcolor="#FFFFFF" valign="top">
<table width="100%" cellspacing cellpadding>
<tr>
<td width="100%" height="10"></td>
</tr>
<tr>
<td width="100%">
<table width="100%" cellspacing cellpadding>
<tr>
<td width="100%" height="25" style="background-image: url('../../images/<%=session("color")%>/resource.gif'); background-repeat: no-repeat">
<font color="#000080"> 企业资源</font>
<%=yy%>年<%=mm%>月份部门办公用品</td>
</tr>
<tr>
<td width="100%" height="10"></td>
</tr>
<tr>
<td width="100%">
<form name="form1" action="o_alllist.asp">
<table border="1" cellspacing="0" cellpadding="0" bordercolorlight="#CCCCCC" bordercolordark="#ffffff" width="98%" align="center">
<tr>
<td colspan="13">
<div align="center">
<select name="yy" classname="5" size="1" >
<%for i=year(date)-5 to year(date)%>
<option value="<%=i%>"<%if i=cint(yy) then%> selected<%end if%>><%=i%></option>
<%next%>
</select>
年
<select name="mm" classname="5" size="1" onchange="submit()">
<%for i=1 to 12%>
<option value="<%=i%>"<%if i=cint(mm) then%> selected<%end if%>><%=i%></option>
<%next%>
</select>
月各部门费用 单位:(元)</div>
</td>
</tr>
<tr align="center">
<td width="13%">
<div align="center">部门</div>
</td>
<td>
<div align="center">清洁费</div>
</td>
<td>
<div align="center">花木费</div>
</td>
<td>
<div align="center">空调保养</div>
</td>
<td>
<div align="center">维修费</div>
</td>
<td>
<div align="center">传真</div>
</td>
<td>
<div align="center">文具</div>
</td>
<td>卫生纸</td>
<td>名片</td>
<td>纸杯</td>
<td>茶叶</td>
<td>水电费</td>
<td width="9%">合计</td>
</tr>
<%
while not rsa.eof
deptid=rsa("id")
set rs1=server.createobject("ADODB.Recordset")
rs1.open "select * from office_deptmain where deptid="&deptid&" and dodate='"&dodate&"'",source,3,3
if not rs1.eof then
id=rs1("id")
set rs=server.createobject("ADODB.Recordset")
rs.Open "select a.price,b.d_quantity from office_setup as a,office_deptlist as b where a.id=b.setup_id and b.main_id="&id,source,3,3
allamount=0
while not rs.eof
if isnull(rs("d_quantity")) then
spnum=0
else
spnum=rs("d_quantity")
end if
allamount=allamount+rs("price")*spnum
rs.movenext
wend
rs.close
end if
rs1.close
if allamount="" then
allamount=0
end if
%>
<tr>
<td width="13%" align="center"><a href="o_mdeptlist.asp?deptid=<%=trim(deptid)%>"><%=rsa("deptname")%></a></td>
<td align="center" width="7%">0</td>
<td align="center" width="7%">0</td>
<td align="center" width="7%">0</td>
<td align="center" width="7%">0</td>
<td width="7%" align="center">0</td>
<td width="7%" align="center"><%=allamount%></td>
<td width="7%" align="center">0</td>
<td width="7%" align="center">0</td>
<td width="7%" align="center">0</td>
<td width="7%">0</td>
<td width="7%">0</td>
<td width="9%" align="center"><%=allamount%></td>
</tr>
<%
allamount=0
rsa.movenext
wend
rsa.close
%>
</table>
</form>
</td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
</center>
</div>
<div align="center">
<!-- #include File=../../include/last2.asp -->
</div>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -