func_comm_apply.asp

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

<%

set rsapply = Server.CreateObject("ADODB.Recordset")

%>

  
<table width="100%" align="center" cellpadding="1" cellspacing="1" class=tableborder1>
  <form name="theform" method="post" action="">

    <tr>
      <td width="90" align="center" class=TopLighNav><b>审批部门</b></td>
      <td width="100" align="center" class=TopLighNav><%
	  
	  sql="select deptname from cci_dept where id=" & session("deptid")
	  rsapply.open sql,connobj,1,1
	  if not rsapply.eof then
	  	response.Write rsapply("deptname")
	  end if
	  rsapply.close
	  
	  %></td>
	  <td width="80" align="center" class=TopLighNav><b>审批人</b></td>
      <td width="70" align="center" class=TopLighNav><%=session("name")%></td>
	  <td width="80" align="center" class=TopLighNav><b>职务</b></td>
      <td align="center" class=TopLighNav><%
	  
	  sql="select stationname from cci_station where id=" & session("stationid")
	  rsapply.open sql,connobj,1,1
	  if not rsapply.eof then
	  	response.Write rsapply("stationname")
	  end if
	  rsapply.close
	  
	  %></td>
    </tr>
	
	 <tr >
      <td class=tablebody1 align="center"><b>审批意见</b></td>
      <td colspan="5" class=tablebody1 align="left"><select name="notion">
          <option value="1">同意</option>
          <option value="2">不同意</option>
        </select> </td>
    </tr>
	 
    <tr >
      <td class=tablebody1 align="center"><b>审批说明</b></td>
      <td colspan="5" class=tablebody1 align="left"><textarea name="reason" cols="75" rows="8" id="reason"></textarea></td>
    </tr>
	
	
    <tr>
      <td colspan="6" align="center" class=tablebody1><input type="submit" name="Submit" value=" 审 批 "></td>
    </tr>	
	<input type=hidden name=wfid value="<%=request("wfid")%>">
	<input type=hidden name=saveflag value="1">
  </form>
</table>