<!--#include file="../../checkLogin.asp"-->
<!--#include file="../../SQLconn.asp"-->
<link rel="stylesheet" type="text/css" href="../../images/<%=request.cookies("imgdir")%>/css/style.css" media="all"/>


<p></p>
<p> </p>
<%
   var=request("var")
   '检查权限
       tname=request.cookies("tname") 
       Set MyOAASPObj= Server.CreateObject("YFSchoolOApro.YFSchoolDll")
           if MyOAASPObj.QuanXian(tname,"系统参数")=0 then 
		    response.redirect  "../NoPower.asp"
           end if 
		   set MyOAASPObj=nothing

     '检查权限结束
   
   %>
<table width="600" align="center" border="1" cellpadding="3"   cellspacing="0"  bordercolor="#6D8DD8"  class="mtable">   
    <tr style="background-color:#D6E4FF"  class="TableHeader">
    <td align="center" nowrap class="STYLE1">序号</td>
    <td align="center" nowrap class="STYLE1">审批级别</td>
    <td height="27" align="center" nowrap class="STYLE1">审批部门名称
      <div align="center"></div></td>
    <td width="97" align="center" nowrap class="STYLE1">是否指定审批人</td>
    <td width="78" align="center" nowrap class="STYLE1">最低审批天数</td>
    <td width="58" align="center" nowrap class="STYLE1">操作</td>
    </tr>

   
   <%Set Rslist=Server.CreateObject("Adodb.Recordset")
   sqllist="select * from varset where  name='请假审批部门设置'  order by vid" 
   Rslist.open sqllist,conn,1,1
   while not Rslist.eof and not Rslist.bof%>
    <tr onmouseout="this.style.backgroundColor=''" onmouseover="this.style.backgroundColor='#EFF8FF'">
    <td width="35" height="27" align="center" nowrap class="STYLE1"><%=Rslist("vid")%></td>
    <td width="90" align="center" nowrap class="STYLE1"><%=Rslist("vname")%></td>
    <td width="192" align="center" nowrap class="STYLE1"><%=Rslist("vname1")%></td>
    <td align="center" nowrap class="STYLE1"><%=Rslist("vname2")%></td>
    <td align="center" nowrap class="STYLE1"><%=Rslist("shuoming")%></td>
    <td align="center" nowrap class="STYLE1">
	<a href="modify.asp?id=<%=Rslist("id")%>">修改</a></td>	
    </tr>
<%  Rslist.movenext
    wend
%>
</table>
<br>
