function.asp

功能齐全的oa系统

<%
	Sub DrawNode(Title,Body,IsAllPass,NodeState,IsMust)
		Dim StrColor,NodeType
		StrColor = "Red"
		If IsMust Then
			StrColor = "#FF9900"
		Else
			StrColor = "#8080FF"
		End If
		
		If IsAllPass Then
			NodeType = 1
		Else
			NodeType = 0
		End If
%>
<table border="0" cellpadding="0" cellspacing="0" bgcolor="<%=StrColor%>">
  <tr>
    <td><img border="0" src="<%=Application("RootPath")%>Images/OA/work/flow/A<%=NodeType%>1.gif" width="7" height="7"></td>
    <td style="border-top: 1 solid #000000"><img border="0" src="<%=Application("RootPath")%>Images/OA/work/flow/blank.gif" width="1" height="1"></td>
    <td><img border="0" src="<%=Application("RootPath")%>Images/OA/work/flow/A<%=NodeType%>2.gif" width="7" height="7"></td>
  </tr>
  <tr>
    <td style="border-left: 1 solid #000000"><img border="0" src="<%=Application("RootPath")%>Images/OA/work/flow/blank.gif" width="1" height="1"></td>
    <td>
      <table border="0" cellpadding="0" cellspacing="0" width="100">
        <tr>
          <td><img border="0" src="<%=Application("RootPath")%>Images/OA/work/flow/B<%=NodeState%>.gif" width="28" height="35"></td>
          <td><font color="#FFFFFF">[<%=Title%>]</font></td>
        </tr>
        <tr>
          <td></td>
          <td width="100" height="60" valign=top>
            <p style="line-height: 120%"><font color="#FFFFFF"><%=Body%></font></td>
        </tr>
      </table>
    </td>
    <td style="border-right: 1 solid #000000"><img border="0" src="<%=Application("RootPath")%>Images/OA/work/flow/blank.gif" width="1" height="1"></td>
  </tr>
  <tr>
    <td><img border="0" src="<%=Application("RootPath")%>Images/OA/work/flow/A<%=NodeType%>3.gif" width="7" height="7"></td>
    <td style="border-bottom: 1 solid #000000"><img border="0" src="<%=Application("RootPath")%>Images/OA/work/flow/blank.gif" width="1" height="1"></td>
    <td><img border="0" src="<%=Application("RootPath")%>Images/OA/work/flow/A<%=NodeType%>4.gif" width="7" height="7"></td>
  </tr>
</table>
<%
	End Sub
%>


<%
	Sub DrawCutline()
%>
  <table border="0" cellpadding="1" cellspacing="1">
    <tr>
      <td align="center"><img border="0" src="<%=Application("RootPath")%>Images/OA/work/flow/C1.gif" width="69" height="69"></td>
      <td align="center"><img border="0" src="<%=Application("RootPath")%>Images/OA/work/flow/C2.gif" width="69" height="69"></td>
      <td align="center"><img border="0" src="<%=Application("RootPath")%>Images/OA/work/flow/D1.gif" width="74" height="26"></td>
      <td align="center"><img border="0" src="<%=Application("RootPath")%>Images/OA/work/flow/D2.gif" width="74" height="26"></td>
      <td align="center"><img border="0" src="<%=Application("RootPath")%>Images/OA/work/flow/B0.gif" width="28" height="35"></td>
      <td align="center"><img border="0" src="<%=Application("RootPath")%>Images/OA/work/flow/B1.gif" width="28" height="35"></td>
    </tr>
    <tr>
      <td align="center">需节点内<br>
        所有人处理</td>
      <td align="center">不需节点内<br>
        所有人处理</td>
      <td align="center">不需等待</td>
      <td align="center">需等待</td>
      <td align="center">不需审批</td>
      <td align="center">需审批</td>
    </tr>
  </table>
<%
	End Sub
%>