📄 drawtoolbar.asp
字号:
<%
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)%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -