📄 createbytemplate.asp.bak
字号:
<%@ Language=VBScript %>
<!--#include file="conn.asp"-->
<HTML>
<HEAD>
<meta http-equiv="content-type" content="text/html;charset=gb2312">
<SCRIPT LANGUAGE="JavaScript" src="ntkoocx.js"></SCRIPT>
<TITLE>NTKO Office文档控件ASP示例-编辑文档</TITLE>
</HEAD>
<%
docid = Request.querystring("tid")
filename = month(now()) & year(now()) & day(now()) & Minute(now()) & _
Second(now()) '缺省文件名
htmlfile = Mid(filename,1,instrrev(filename,".")) & "html" '缺省html文件名
%>
<BODY onLoad='javascript:TANGER_OCX_OpenDoc(true,"<% = docid %>")'>
<center>
<h3>NTKO Office文档控件ASP示例</h3>
<TABLE BORDER=0 width = 700>
<tr>
<td align="center">
<INPUT type=BUTTON VALUE="保存文档到数据库" onclick="TANGER_OCX_SaveEditToServer();">
</td>
<td align="center">
<INPUT type=BUTTON VALUE="保存为HTML" onclick="TANGER_OCX_SaveAsHTML();">
</td>
<td align="center">
<INPUT type=BUTTON VALUE="刷新" onclick="window.location.reload();">
</td>
<td align="center">
<INPUT type=BUTTON VALUE="关闭窗口" onclick="javascript:window.close();">
</td>
</tr>
</TABLE>
<FORM id="myForm" METHOD="POST" ENCTYPE="multipart/form-data" ACTION="uploadedit.asp">
<TABLE BORDER=0 width = 100%>
<tr>
<td>文件名:</td>
<td><input id="filename" name="filename" MAXLENGTH=50 size=50 value="<% = filename %>"></td>
</tr>
</TABLE>
<style>
button.op{
width:90px;
background-color:#9DC2DB;
border:1px #EEEEEE solid;
cursor: hand;
}
</style>
<table width=100% height=700 border=1 cellpadding=0 cellspacing=0 style="border:1px #9dc2db solid">
<tr height=26><td colspan=2><font color="red">提示:本地印章需要使用专门的印章制作工具,<a href="seals.asp">印章制作</a></font></td>
</tr>
<tr height=26><td colspan=2><font color="red">提示:所有远程印章(财务章,合同章,行政章)的口令是8个1:11111111</font></td>
</tr>
<tr height=26 width=100%>
<td class="opinfo" width=90>文档相关操作:</td>
<td width=100%>
<BUTTON class="op1" onclick="TANGER_OCX_SetDocUser(document.all('TANGER_OCX_Username').value);">设置演示用户</button>
<INPUT id="TANGER_OCX_Username" type=text size=8 VALUE="用户49">
<button class="op" onclick='var selObj = document.all("TaoHongSelect");var tempurl=selObj.options[selObj.selectedIndex].value;try{TANGER_OCX_OBJ.ActiveDocument.Application.Selection.HomeKey(6);}catch(err){};TANGER_OCX_OBJ.AddTemplateFromURL(tempurl)'>选择模板套红</BUTTON><select id="TaoHongSelect">
<option value="fawenT.doc">发文套红
<option value="gongwenpicT.doc">公文套红2
<option value="gongwenT.doc">公文套红
<option value="shouwenT.doc">收文套红
</select>
<button class="op" onclick="TANGER_OCX_AddDocHeader('某某政府机关红头文件')">编程动态套红</BUTTON>
<button class="op" onclick="TANGER_OCX_SetMarkModify(true)">保留痕迹</button>
<button class="op" onclick="TANGER_OCX_SetMarkModify(false)">不留痕</button>
<button class="op" onclick="TANGER_OCX_ShowRevisions(true)">显示痕迹</button>
<button class="op" onclick="TANGER_OCX_ShowRevisions(false)">隐藏痕迹</button><BR>
<button class="op" onclick="TANGER_OCX_AcceptAllRevisions()">接受所有修订</button>
<button class="op" onClick="AddPictureFromLocal()">添加本地图片</button>
<button class="op" onclick="DoHandDraw()">手工绘图</button>
<button class="op" onclick='var selObj = document.all("ImageSelect");var tempurl=selObj.options[selObj.selectedIndex].value;AddPictureFromURL(tempurl)'>从URL添加图片</button><select id="ImageSelect">
<option value="200_80Logo.jpg">图像2
<option value="200_80Logo.jpg">图像1
<option value="200_80Logo.jpg">图像3</select>
</td></tr>
<tr width=100%>
<td valign=top width=90>
<span class="opinfo" onclick="">[打印控制]</span>
<button class="op" onclick="TANGER_OCX_ChgLayout()">页面布局</button>
<button class="op" onclick="TANGER_OCX_PrintDoc(true)">后台打印</button>
<button class="op" onclick="TANGER_OCX_PrintDoc(false)">前台打印</button>
<button class="op" onclick="TANGER_OCX_EnableFilePrintMenu(false)">禁止打印</button>
<button class="op" onclick="TANGER_OCX_EnableFilePrintMenu(true)">允许打印</button>
<span class="opinfo" onclick="">[签字盖章]</span>
<button class="op" onclick="AddSignFromLocal()">添加本地印章</button>
<button class="op" onclick='var selObj = document.all("SignSelect");var sid=selObj.options[selObj.selectedIndex].value;AddSignFromURL("readseal.asp?sid="+sid)'>添加所选章</button>
<select id = "SignSelect" style="WIDTH: 90px">
<%
set RS = Server.CreateObject("ADODB.Recordset")
RS.Open "seals", conn, adOpenForwardOnly, adLockReadOnly 'forward only,read only
while not RS.EOF
response.write "<option value =" & RS("sid") & ">"&RS("sname")&"</option>"
RS.MoveNext
wend
RS.Close
Set Rs= Nothing
%></select>
<button class="op" onclick="DoHandSign()">手写签名</button>
<button class="op" onclick="DoCheckSign()">印章验证</button>
<span class="opinfo" onclick="">[界面相关]</span>
<button class="op" onclick="TANGER_OCX_OBJ.Menubar=!TANGER_OCX_OBJ.Menubar;">切换菜单</button>
<button class="op" onclick="TANGER_OCX_OBJ.Titlebar=!TANGER_OCX_OBJ.Titlebar;">切换标题栏</button>
<button class="op" onclick="TANGER_OCX_OBJ.Toolbars=!TANGER_OCX_OBJ.Toolbars;">切换工具栏</button>
<button class="op" onclick="TANGER_OCX_OBJ.Statusbar=!TANGER_OCX_OBJ.Statusbar;">切换状态栏</button>
<span class="opinfo" onclick="">[其它控制]</span>
<button class="op" onclick="TANGER_OCX_OBJ.IsShowToolMenu=!TANGER_OCX_OBJ.IsShowToolMenu;">切换工具菜单</button>
<button class="op" onclick="TANGER_OCX_OBJ.IsNoCopy=true;">禁止拷贝</button>
<button class="op" onclick="TANGER_OCX_OBJ.IsNoCopy=false;">允许拷贝</button>
<button class="op" onclick="TANGER_OCX_EnableFileNewMenu(false)">禁止新建</button>
<button class="op" onclick="TANGER_OCX_EnableFileNewMenu(true)">允许新建</button>
<button class="op" onclick="TANGER_OCX_EnableFileOpenMenu(false)">禁止打开</button>
<button class="op" onclick="TANGER_OCX_EnableFileOpenMenu(true)">允许打开</button>
<button class="op" onclick="TANGER_OCX_EnableFileSaveMenu(false)">禁止保存</button>
<button class="op" onclick="TANGER_OCX_EnableFileSaveMenu(true)">允许保存</button>
<button class="op" onclick="TANGER_OCX_EnableFileSaveAsMenu(false)">禁止另存</button>
<button class="op" onclick="TANGER_OCX_EnableFileSaveAsMenu(true)">允许另存</button>
</td>
<SPAN ID="TANGER_OCX_key" style="display:none">MAIR-63N9S6</SPAN>
<td width=100%>
<object id="TANGER_OCX" classid="clsid:C9BC4DFF-4248-4a3c-8A49-63A7D317F404" codebase="officecontrol.cab#version=2,5,1,2" width="100%" height="100%">
<param name="BorderStyle" value="1">
<param name="BorderColor" value="14402205">
<param name="TitlebarColor" value="14402205">
<param name="TitlebarTextColor" value="0">
<param name="Caption" value="NTKO OFFICE文档控件ASP示例。V2.5.0.1版本。http://www.ntko.com">
<param name="IsShowToolMenu" value="-1">
<param name="IsNoCopy" value="-1">
<SPAN STYLE="color:red">不能装载文档控件。请在检查浏览器的选项中检查浏览器的安全设置。</SPAN>
</object>
<!-- 以下函数相应控件的两个事件:OnDocumentClosed,和OnDocumentOpened -->
<script language="JScript" for=TANGER_OCX event="OnDocumentClosed()">
TANGER_OCX_OnDocumentClosed();
</script>
<script language="JScript" for=TANGER_OCX event="OnDocumentOpened(TANGER_OCX_str,TANGER_OCX_obj)">
TANGER_OCX_OnDocumentOpened(TANGER_OCX_str,TANGER_OCX_obj);
</script>
</td>
</tr></table>
</FORM>
</center>
</BODY>
</HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -