📄 wjlb_table.asp
字号:
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>文件拟办单</title>
<link rel="stylesheet" type="text/css" href="../css/css.css">
</head>
<body>
<div align="center">
<center>
<table border="0" cellpadding="0" cellspacing="0" width="630">
<tr>
<td>
<p align="center"><SPAN
style="COLOR: red; FONT-FAMILY: 黑体; FONT-SIZE: 22pt; mso-ascii-font-family: 'Times New Roman'"><%=application("UnitName")%>文件拟办单</SPAN></p></td>
</tr>
</table>
</center>
</div>
<br>
<div align="center">
<center>
<table border="1" cellpadding="0" cellspacing="0" width="630" bordercolorlight="#FF0000" bordercolordark="#FFFFFF" height="586">
<tr>
<td height="38" width="79"><font color="#FF0000" style="font-size:12pt"> 来文单位</font></td>
<td height="38" width="157"><font color="#FF0000"> </font></td>
<td height="38" width="77"><font style="font-size: 12pt" color="#FF0000"> 文件字号</font></td>
<td height="38" width="126"><font style="font-size: 12pt" color="#FF0000"> </font></td>
<td height="38" width="75"><font style="font-size: 12pt" color="#FF0000"> 收文日期</font></td>
<td height="38" width="102"><font style="font-size: 12pt" color="#FF0000"> </font></td>
</tr>
<tr>
<td height="38" width="79"><font style="font-size: 12pt" color="#FF0000"> 文件标题</font></td>
<td height="38" width="537" colspan="5"><font style="font-size: 12pt" color="#FF0000"> </font></td>
</tr>
<tr>
<td height="249" width="445" colspan="4" valign="top" rowspan="2"><font style="font-size: 12pt" color="#FF0000"><br>
拟办意见：<br>
</font></td>
<td height="121" width="177" valign="top" colspan="2"><font style="font-size: 12pt" color="#FF0000"><br>
承办人：<br>
</font></td>
</tr>
<tr>
<td height="128" width="177" valign="top" colspan="2"><font style="font-size: 12pt" color="#FF0000"><br>
办公室意见：<br>
</font></td>
</tr>
<tr>
<td height="91" width="79"><font color="#FF0000"><font style="font-size: 12pt"> 领导审核</font></font></td>
<td height="91" width="537" colspan="5"><font style="font-size: 12pt" color="#FF0000"> </font></td>
</tr>
<tr>
<td height="87" width="79"><font style="font-size: 12pt" color="#FF0000"> 领导批示</font></td>
<td height="87" width="537" colspan="5"><font style="font-size: 12pt" color="#FF0000"> </font></td>
</tr>
<tr>
<td height="111" width="79"><font style="font-size: 12pt" color="#FF0000"> 办理结果</font></td>
<td height="111" width="537" colspan="5"><font style="font-size: 12pt" color="#FF0000"> </font></td>
</tr>
</table>
</center>
</div>
<div align="center">
<table border="0" cellpadding="0" cellspacing="0" width="630">
<tr>
<td height="35" valign="bottom" width="575">
<p align="right"><font color="#FF0000" size="3">年 月
日</font></td>
<center>
<td height="35" valign="bottom" width="55"></td>
</tr>
</table>
</center>
</div>
<script language="vbscript">
'替换文本过程
Sub ReplaceText(OldText,NewText)
Set myRange = App.ActiveDocument.Content
myRange.Find.Execute OldText, , , , , , , , ,NewText,1
Set myRange=nothing
End Sub
public msginfo,App
msginfo=msgbox("按“是”按钮直接打印，按“否”按钮输出到Word！",3,"打印文件拟办单")
select case msginfo
case 6
window.print()
case 7
set App=createobject("Word.Application")
App.visible=true
App.Documents.Open "http://<%=request.servervariables("SERVER_NAME")%>/Electron_Doc/WordTemplate/文件拟办单.doc"
call ReplaceText("文件拟办单","<%=application("UnitName")%>文件拟办单")
set App=nothing
end select
</script>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -