x_yewu.asp

人事管理系统。。。 包括了所有的基本功能

		
		'/////////////////////////////
		select case ytime
		case "0"
		yewutime="当月"
		souselect="where datediff("&acsql_qb&",'"&DATEADD("m",0,year(now)&"-"&month(now))&"',y_stime)>0"
		case "3"
		yewutime="最近三月"
		souselect="where datediff("&acsql_qb&",'"&DATEADD("m",-3,year(now)&"-"&month(now))&"',y_stime)>0 "
		case "6"
		yewutime="最近六月"
		souselect="where datediff("&acsql_qb&",'"&DATEADD("m",-6,year(now)&"-"&month(now))&"',y_stime)>0"
		case else
		souselect="where y_zhuti<>''"
		end select
		
		'//////////////////////////////////
		
		dim yewulei()
		comlist="所有业务,?chuli=listyewu&ytime="&ytime&""
		lid=Trim(Request.QueryString("lid"))
		qrs.open ("select * from nnt_ylei where y_id in ("&replace(yewu1,"|","")&") "),conn,1,1
		if qrs.eof then call cnerror("您的业务类读取错误，请联系上级修复设置。",0)
		redim yewulei(qrs.recordcount,2)
		zongshulei=qrs.recordcount
		for qy=1 to int(qrs.recordcount)
		comlist=comlist&"||"&qrs("y_name")&",?chuli=listyewu&l="&qy&"&lid="&qrs("y_id")&"&ytime="&ytime&""
		yewulei(qy,0)=qrs("y_id")
		yewulei(qy,1)=qrs("y_name")
		qrs.movenext
		next
		qrs.close
		set qrs=nothing
		l=Trim(Request.QueryString("l"))
		if l="" then l=0
		call listsub("comlist",comlist,int(l))
		
		function yewulei_fen(fenid)
		for lff=1 to zongshulei
		if yewulei(lff,0)=int(fenid) then yewulei_fen=yewulei(lff,1)
		next
		end function
		
		 %>
        <table width="100%" border="0" cellspacing="0" cellpadding="4">
		<form action="?chuli=listyewu&lid=<%= lid %>&l=<%= l %>" method="post"><tr><td colspan="7">
		<p style="float:left"><img src="skins/sb/033hhh.png" width="30" />
			<b><font color="#000000" size="2"><%= yewutime %><% if lid<>"" then Response.Write(yewulei_fen(lid)) else Response.Write("所有业务列表")  %></font></b> </p>
			<p align="right">
                <input name="souname" type="text" class="nnt_input" id="souname" title="请在这里输入 业务名称 等关键字来查询！" value="<%= request("souname") %>" />
                <input name="Submit" type="submit" class="nnt_submit" value="搜索" /> 
                </p>
				</td></tr></form>
          <tr>
            <td class='td_heng'><b>提交人员</b></td>
            <td class='td_heng'><b>业务类</b></td>
            <td class='td_heng'><b>业务名称</b></td>
            <td class='td_heng'><b>涉及金额</b></td>
            <td class='td_heng'><b>最后更新<b><b><b>/</b></b>提交日期</b></b></td>
            <td class='td_heng'><b>状态</b></td>
          <td class='td_heng'>&nbsp;</td></tr>
		           <% If Request.QueryString("CurPage")="" or Request.QueryString("CurPage")=0 then
CurPage = 1
Else
CurPage = CINT(Request.QueryString("CurPage"))
End If

if lid<>"" then
souselect=souselect&" and y_lei="&lid&""
end if
if request("souname")<>"" then
souselect=souselect&"and (y_zhuti like '%"&request("souname")&"%' or y_user like '%"&request("souname")&"%' or y_bjie like '%"&request("souname")&"%'  or y_user_kehu like '%"&request("souname")&"%')"
end if
set drs= Server.CreateObject("adodb.recordset")
drs.open ("select * from nnt_yewu "&souselect&" "&selectquan&" order by y_stime desc "),conn,1,1

if drs.eof then
				  Response.Write("<tr><td colspan=6>没有查询到您需要的信息，请确认您要查询的信息再次输入。</td></tr>")
				  else 
				  
				  dRS.PageSize=20
	Dim TotalPages    
	TotalPages = dRS.PageCount    
    
	If CurPage>dRS.Pagecount Then     
		CurPage=dRS.Pagecount    
	end if
    
    dRS.AbsolutePage=CurPage    
    
	drs.CacheSize = dRS.PageSize    
    
	Dim Totalcount    
	Totalcount =INT(dRS.recordcount)
	do while (Not dRS.Eof) and (II<dRS.PageSize)
	y_user_kehu=split(drs("y_user_kehu"),"||")
 %>
          <tr  onMouseOver="javascript:bgColor='#C8E4FF'" onMouseOut="javascript:bgColor='#ffffff'">
            <td align="center"><a href="?lid=<%=lid %>&amp;l=<%= l %>&amp;chuli=<%= request("chuli") %>&amp;souname=<%= drs("y_user") %>&amp;ytime=<%= ytime %>"><%= drs("y_user") %> </a><font color="#999999"><%= y_user_kehu(0) %> </font><br />
              <%= request.cookies("q_"&drs("y_zuid")&"")("qname") %></td>
            
            <td><%= yewulei_fen(drs("y_lei")) %></td>
            <td width="200"><a href="?chuli=addnew&amp;editid=<%=drs("y_id")%>&see=yes&l=2"><%= drs("y_zhuti") %> </a>
			<% if drs("y_kehuid")<>0 then
			kehuname=split(drs("y_user_kehu"),"||")
			Response.Write("<br><font color='#C9C9C9'>"&kehuname(1)&"</font>")
			end if %>
			</td>
            <td align="center"><% if drs("y_money")>0 then %>
			  <font color="#FF3300"><%= FormatCurrency(drs("y_money")) %> </font>
			  <% ElseIF drs("y_money")<0 then%>
			  <font color="#006600"><%= FormatCurrency(drs("y_money")) %> </font>
			<% end if %></td>
            <td>
              <font color="#999999"><%= drs("y_stime") %></font></td>
            <td><% select case drs("y_zhuangtai")
			case 0
			Response.Write("<font color=#FFC20B>待审</font>")
			if sessquan>0 then
			keyongcaozuo=" <a href='?chuli=addnew&editid="&drs("y_id")&"&see=yes&l=2'>查看</a>  <a href='c_yewu.asp?chuli=okyewu&editid="&drs("y_id")&"&cl=2'>通过</a> <a href='c_yewu.asp?chuli=okyewu&editid="&drs("y_id")&"&cl=1'>未通过</a> "
			else
			keyongcaozuo=" <a href='?chuli=addnew&editid="&drs("y_id")&"&see=yes&l=2'>查看</a>"
			end if
			case 1
			Response.Write("<font color=#FF3300>未通过</font>")
			keyongcaozuo=" <a href='?chuli=addnew&editid="&drs("y_id")&"&see=yes&l=2'>查看</a>  <a href='c_yewu.asp?chuli=nextyewu&editid="&drs("y_id")&"'>再次提交</a> <a href='c_yewu.asp?chuli=zuofei&editid="&drs("y_id")&"'>作废</a> "
			case 2
			Response.Write("<font color=#009933>完成</font> ")
			keyongcaozuo=" <a href='?chuli=addnew&editid="&drs("y_id")&"&see=yes&l=2'>查看</a>"
			end select %></td>
            <td align="right"><%=keyongcaozuo  %></td>
          </tr>
		  <%
drs.movenext
II=II+1
loop
 end if 
%>
          <tr>
            <td colspan="7" bgcolor="#E6F0FF">
			共 <b> <font color="#FF0000">
      <% =Totalcount %>
      </font></b> 条 信息 <%= drs.PageSize %> 条/页 共 <%= TotalPages %> 页 目前为第 <%= CurPage %> 页  <a href="?lid=<%=lid %>&l=<%= l %>&chuli=<%= request("chuli") %>&souname=<%= request("souname") %>&ytime=<%= ytime %>" class="titlefont">首页</a> <a href="?lid=<%=lid %>&l=<%= l %>&Curpage=<%=CurPage-1%>&chuli=<%= request("chuli") %>&souname=<%= request("souname") %>&ytime=<%= ytime %>" class="titlefont">上一页</a>
      <% if Curpage-3>1 then
ys=Curpage-3
yb=Curpage+3
else
 ys=1
yb=7
 end if
 if yb>TotalPages then yb=TotalPages
 for xxs=ys to yb
%>
      <a href='?lid=<%=lid %>&l=<%= l %>&Curpage=<%=xxs%>&chuli=<%= request("chuli") %>&souname=<%= request("souname") %>&ytime=<%= ytime %>' class="titlefont"><% if Curpage=xxs then
	  Response.Write("<font color=#ff0000><b>"&xxs&"</b></font>")
	  else
	  Response.Write(xxs)
	  end if %></a>
      <%
 next  %>
      <a href="?lid=<%=lid %>&l=<%= l %>&Curpage=<%=CurPage+1%>&chuli=<%= request("chuli") %>&souname=<%= request("souname") %>&ytime=<%= ytime %>" class="titlefont">下一页</a> <a href="?lid=<%=lid %>&l=<%= l %>&Curpage=<%=Totalcount%>&chuli=<%= request("chuli") %>&souname=<%= request("souname") %>&ytime=<%= ytime %>" class="titlefont">尾页</a></td>
            </tr><% drs.close
		 set drs=nothing %>
        </table>
		<% case ""
		set rs= Server.CreateObject("adodb.recordset")
		'//////////////////////////////////

			rs.open ("select * from nnt_yewu where y_zhuti<>'' "&selectquan&""),conn,1,1
		yewuzongshu=int(rs.recordcount)
		rs.close
		rs.open ("select * from nnt_yewu where datediff("&acsql_qb&",'"&DATEADD("m",0,year(now)&"-"&month(now))&"',y_stime)>0 "&selectquan&" "),conn,1,1
		dangyueshu=int(rs.recordcount)
		rs.close
		rs.open ("select * from nnt_yewu where datediff("&acsql_qb&",'"&DATEADD("m",-3,year(now)&"-"&month(now))&"',y_stime)>0 "&selectquan&""),conn,1,1
		sanyueshu=int(rs.recordcount)
		rs.close
		rs.open ("select * from nnt_yewu where datediff("&acsql_qb&",'"&DATEADD("m",-6,year(now)&"-"&month(now))&"',y_stime)>0 "&selectquan&""),conn,1,1
		liuyueshu=int(rs.recordcount)
		rs.close
		rs.open ("select * from nnt_yewu where y_zhuangtai<2 "&selectquan&""),conn,1,1
		weichulishu=int(rs.recordcount)
		rs.close
		
		
		set rs=nothing %>
        <table width="100%" border="0" cellspacing="0" cellpadding="4">
          <tr>
            <td colspan="2" class="td_heng">业务中心概括</td>
          </tr>
          <tr>
            <td>业务中心总数：<a href="x_yewu.asp?chuli=listyewu"><%= yewuzongshu %> </a></td>
            <td>统计当月业务：<a href="x_yewu.asp?chuli=listyewu&amp;ytime=0"><%= dangyueshu %> </a></td>
          </tr>
          <tr>
            <td>统计三月业务：<a href="x_yewu.asp?chuli=listyewu&amp;ytime=3"><%= sanyueshu %> </a></td>
            <td>统计六月业务：<a href="x_yewu.asp?chuli=listyewu&amp;ytime=6"><%= liuyueshu %> </a></td>
          </tr>
          <tr>
            <td colspan="2">未完成业务：<%= weichulishu %> </td>
          </tr>
          <tr>
           <form action="?chuli=listyewu&lid=<%= lid %>&l=<%= l %>" method="post"> <td colspan="2"><input name="souname" type="text" class="nnt_input" id="souname" title="请在这里输入 业务名称 等关键字来查询！" value="<%= request("souname") %>" />
                <input name="Submit" type="submit" class="nnt_submit" value="搜索" /> </td></form>
          </tr>
          <tr>
            <td colspan="2">&nbsp;</td>
          </tr>
        </table>
        <table width="100%" border="0" cellspacing="0" cellpadding="4">
  <tr>
    <td class="td_heng">业务中心管理面板 功能介绍</td>
  </tr>
  <tr>
    <td><b>提交新业务</b></td>
  </tr>
  <tr>
    <td>提交各种不同类型的新业务,不在需要纸张,方便统计查阅.<br />
      如果业务需要分类 请点击 <a href="x_company.asp?chuli=ylei" target="_blank">公司业务类设置 </a>设置业务类,然后点此 <a href="x_company.asp?chuli=bumen" target="_blank">公司部门设置</a> 分配给不同的 职位人员.</td>
  </tr>
  <tr>
    <td><b>当月业务列表</b></td>
  </tr>
  <tr>
    <td>列出本月所提交的业务,并可以完成审核流程.</td>
  </tr>
  <tr>
    <td><b>最近三月业务列表</b></td>
  </tr>
  <tr>
    <td>列出最近3月内的业务</td>
  </tr>
  <tr>
    <td><b>最近六月业务列表</b></td>
  </tr>
  <tr>
    <td>列出半年内的业务</td>
  </tr>
  <tr>
    <td><b>所有业务列表</b></td>
  </tr>
  <tr>
    <td>列出所有的业务,并可以快速查询到想查阅的业务记录.</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
  </tr>
</table>
		<% end select %>
		</td>
        <td background="skins/list/l7.gif">&nbsp;</td>
      </tr>
      <tr>
        <td><img src="skins/list/l4.gif" width="7" height="8" /></td>
        <td background="skins/list/l5.gif"></td>
        <td><img src="skins/list/l6.gif" width="8" height="8" /></td>
      </tr>
    </table></td>
  </tr>
</table>
<!--#include file="x_di.asp" -->