toolbar.asp

来自「OFFICE办公自动化」· ASP 代码 · 共 107 行

ASP
107 行
字号 
<%
'------------------------------------------------设置参数
sStatus	= Request("Status") : if ( sStatus="") then sStatus="0"	'取得模式, 0显示 1起草 2批改 3审核
sType	= Request("Type") : if ( sType="") then sType=".doc" 	'取得类型,默认为.doc文档
sDYZWBB	= Request("DYZWBB") : if ( sDYZWBB="") then sDYZWBB="1" '是否允许调用正文版本,默认为允许
'------------------------------------------------
'------------------------------------------------编辑框显示函数
Sub input_mod(func,mStatus,mType)
	if instr(mStatus,sStatus)<1 or (mType<>"" and mType<>sType) then
		response.write "style='display:none'"
	else
		response.write "onclick='"&func&"' class='inputreadonly'"
	end if
End Sub
'------------------------------------------------
%>
<html>
<head>
<link rel="STYLESHEET" type="text/css" href="../css/edit.css">
<script src="../js/toolbar.js" type="text/javascript"></script>
<Script Language="javascript">
function WebProtect(value){
  try{
    parent.webform.WebOffice.WebSetProtect(value,""); //参数""：表示密码为空，可由自已指定
  }catch(e){}
}
function mark_OpenSignature_doc(){
    WebProtect(false);
    parent.webform.WebOffice.WebSetMsgByName("POINT",mark_point_select.value);
    parent.WebOpenSignature();
    //parent.webform.WebOffice.WebObject.Shapes.Item(parent.webform.WebOffice.WebObject.Shapes.Count).ZOrder(5);
    WebProtect(true);
}
function mark_OpenSignature_xls(){
    WebProtect(false);
    parent.WebOpenSignature();
    WebProtect(true);
}
</Script>
</head>

<body bgcolor="#C0D6F3" onload="ShowBar()">
	<div class="yToolbar">
	  <div class="TBHandle"></div>
	  <div class="Btn" TITLE="打开本地文件" LANGUAGE="javascript" <%Call input_mod("parent.WebOpenLocal()","123","")%>>
	    <img class="Ico" src="../images/openfile.gif" WIDTH="16" HEIGHT="16">
	  </div>
	  <div class="Btn" TITLE="存为本地文件" LANGUAGE="javascript" <%Call input_mod("parent.WebSaveLocal()","0123","")%>>
	    <img class="Ico" src="../images/save.gif" WIDTH="16" HEIGHT="16">
	  </div>
	  <div class="Btn" TITLE="重调文档" LANGUAGE="javascript" <%Call input_mod("parent.LoadDocument()","0123","")%>>
	    <img class="Ico" src="../images/reload.gif" WIDTH="16" HEIGHT="16">
	  </div>
	  <div class="Btn" TITLE="生成HTML文档" LANGUAGE="javascript" <%Call input_mod("parent.WebSaveAsHtml()","2","")%>>
	    <img class="Ico" src="../images/htmlicon.gif" WIDTH="16" HEIGHT="16">
	  </div>
	  <%if ( sDYZWBB="1") then%>
	  <div class="TBSep"></div>
	  <div class="Btn" TITLE="打开版本" LANGUAGE="javascript" <%Call input_mod("parent.WebOpenVersion()","0123","")%>>
	    <img class="Ico" src="../images/openver.gif" WIDTH="16" HEIGHT="16">
	  </div>
	  <%end if%>
	  <div class="Btn" TITLE="保存版本" LANGUAGE="javascript" <%Call input_mod("parent.WebSaveVersion()","123","")%>>
	    <img class="Ico" src="../images/SaveVer.gif" WIDTH="16" HEIGHT="16">
	  </div>
	  <div class="TBSep" <%Call input_mod("","3","")%>></div>
	  <div class="Btn" TITLE="显示/隐藏修改痕迹" LANGUAGE="javascript" <%Call input_mod("parent.ShowRevision(ShowRevisionMod)","3","")%>>
	    <input type="hidden" id="ShowRevisionMod" value="显示痕迹">
	    <img class="Ico" src="../images/Changes.gif" WIDTH="16" HEIGHT="16">
	  </div>
	  <div class="TBSep"></div>
	  <div class="Btn" TITLE="页面设置" LANGUAGE="javascript" <%Call input_mod("parent.WebOpenPageSetup()","0123","")%>>
	    <img class="Ico" src="../images/PageSetup.gif" WIDTH="16" HEIGHT="16">
	  </div>
	  <div class="Btn" TITLE="打印文档" LANGUAGE="javascript" <%Call input_mod("parent.WebOpenPrint()","0123","")%>>
	    <img class="Ico" src="../images/print.gif" WIDTH="16" HEIGHT="16">
	  </div>
	  <div class="TBSep" <%Call input_mod("","123","")%>></div>
	  <div class="Btn" TITLE="插入签名印章" LANGUAGE="javascript" <%Call input_mod("parent.WebOpenSignature()","123","")%>>
	    <img class="Ico" src="../images/AddSignature.gif" WIDTH="16" HEIGHT="16">
	  </div>
	  <div class="Btn" TITLE="显示签名印章" LANGUAGE="javascript" <%Call input_mod("parent.WebShowSignature()","0123","")%>>
	    <img class="Ico" src="../images/ShowSignature.gif" WIDTH="16" HEIGHT="16">
	  </div>
	  <div class="Btn" TITLE="验证签名印章" LANGUAGE="javascript" <%Call input_mod("parent.WebCheckSignature()","0123","")%>>
	    <img class="Ico" src="../images/CheckSignature.gif" WIDTH="16" HEIGHT="16">
	  </div>
	  <div class="TBSep" <%Call input_mod("","123","")%>></div>
	  <div class="Btn" TITLE="插入图片" LANGUAGE="javascript" <%Call input_mod("parent.WebOpenPicture()","123","")%>>
	    <img class="Ico" src="../images/insertimg.gif" WIDTH="16" HEIGHT="16">
	  </div>
	  <div class="TBSep" <%Call input_mod("","123","")%>></div>
	  <div class="Btn" TITLE="插入页眉" LANGUAGE="javascript" <%Call input_mod("parent.webform.WebOffice.WebObject.ActiveWindow.ActivePane.View.SeekView=9","123",".doc")%>>
	    <img class="Ico" src="../images/isthead.gif" WIDTH="16" HEIGHT="16">
	  </div>
	  <div class="Btn" TITLE="插入页脚" LANGUAGE="javascript" <%Call input_mod("parent.webform.WebOffice.WebObject.ActiveWindow.ActivePane.View.SeekView=10","123",".doc")%>>
	    <img class="Ico" src="../images/istbottom.gif" WIDTH="16" HEIGHT="16">
	  </div>
	  <div class="Btn" TITLE="插入页码" LANGUAGE="javascript" <%Call input_mod("parent.webform.WebOffice.WebObject.Application.Dialogs(294).Show()","123",".doc")%>>
	    <img class="Ico" src="../images/istpage.gif" WIDTH="16" HEIGHT="16">
	  </div>
	  <div class="Btn" TITLE="插入目录" LANGUAGE="javascript" <%Call input_mod("parent.webform.WebOffice.WebObject.Application.Dialogs(171).Show()","123",".doc")%>>
	    <img class="Ico" src="../images/istmulu.gif" WIDTH="16" HEIGHT="16">
	  </div>
	</div>
</body>
</html>

toolbar.asp - 源码说明

本页面展示了「OFFICE办公自动化」中的 toolbar.asp 源码文件，采用 ASP 编程语言编写，共 107 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫开发者社区收录了大量与Office自动化相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?