drawtoolbar.asp

来自「功能齐全的oa系统」· ASP 代码 · 共 41 行

<%
	Sub DrawComMessageToolBar(NameList,OpenItem)
%>
<style>
.T_A {font-size:12px;background-color: #808080; color: #FFFFFF; border-top: 1 solid #000000; border-bottom: 1 solid #000000}
.T_B {font-size:12px;background-color: #D6D3CE; border-bottom: 1 solid #000000}
</style>

<%

Dim k,n

k = Spilt(NameList,",")

n = UBound


IF 
%>
<table border="0" cellpadding="0" cellspacing="0">
  <tr>
    <td><img border="0" src="<%=Application("RootPath")%>Images/OA/work/commessage/A01.gif"></td>
    <td class=T_A width="50" align=center>批复</td>
    <td><img border="0" src="<%=Application("RootPath")%>Images/OA/work/commessage/C01.gif"></td>
    <td class=T_B width=50 align=center>内容</td>
    <td><img border="0" src="<%=Application("RootPath")%>Images/OA/work/commessage/C02.gif"></td>
    <td Class=T_A width=50 align=center>工作流</td>
    <td><img border="0" src="<%=Application("RootPath")%>Images/OA/work/commessage/D01.gif"></td>
    <td Class=T_A width=50 align=center>附件</td>
    <td><img border="0" src="<%=Application("RootPath")%>Images/OA/work/commessage/D01.gif"></td>
    <td class=T_A width=50 align=center>历史批复</td>
    <td><img border="0" src="<%=Application("RootPath")%>Images/OA/work/commessage/A02.gif"></td>
  </tr>
</table>

<%
	End Sub
%>

<%Call DrawComMessageToolBar("1,1,1,1",2)%>