func_comm_dispapply.asp

企业办公简单管理系统,可以发布信息以及论坛

<%

set rsapply = Server.CreateObject("ADODB.Recordset")
sql="select a.notion,a.reason,b.name,c.deptname,d.stationname from cci_oa_approve a,cci_user b,cci_dept c,cci_station d where a.deptid=c.id and a.userid=b.id and b.stationid=d.id and a.wfid="& request("wfid")
rs.open sql,connobj,1,1
do while not rs.eof
%>

  
<table width="100%" align="center" cellpadding="1" cellspacing="1" class=tableborder1>
    <tr>
      <td width="90" align="center" class=TopLighNav1><b>审批部门</b></td>
      <td width="100" align="center" class=TopLighNav1><%=rs("deptname")%></td>
	  <td width="80" align="center" class=TopLighNav1><b>审批人</b></td>
      <td width="70" align="center" class=TopLighNav1><%=rs("name")%></td>
	  <td width="80" align="center" class=TopLighNav1><b>职务</b></td>
      <td align="center" class=TopLighNav1><%=rs("stationname")%></td>
    </tr>
	
	 <tr >
      <td class=tablebody1 align="center"><b>审批意见</b></td>
      <td colspan="5" class=tablebody1 align="left"><%if rs("notion")=1 then
	  													response.Write("同意")	
													  else
													  	response.Write("不同意")
													  end if	
	  %>
	  </td>
    </tr>
	 
    <tr >
      <td class=tablebody1 align="center"><b>审批说明</b></td>
      <td colspan="5" class=tablebody1 align="left"><%=rs("reason")%></td>
    </tr>

</table>
<%
rs.movenext
loop
rs.close
%>