📄 documentsnopass.asp

📁 OFFICE办公自动化
💻 ASP
字号:
<%
'功能：文档解锁
%>
<!--#include file="../inc/Secure.asp"-->
<!--#include file="../inc/conn.asp"-->
<!--#include file="../inc/Const.asp"-->
<%
  Response.buffer=true
  stype=request("type") '公文类别
  mScriptName="DocumentsNopass.asp"
  mServerName="../inc/OfficeServer.asp"
  mClientName="iWebOffice2003.ocx#version=6,4,0,4"
  mHttpUrl="http://" & Request.ServerVariables("HTTP_HOST") & Request.ServerVariables("SCRIPT_NAME")
  mHttpUrl=Left(mHttpUrl,Len(mHttpUrl)-Len(mScriptName))
  mServerUrl=mHttpUrl & mServerName
  mClientUrl=mHttpUrl & mClientName

  mRecordID=Request("RecordID")
  mFileType=Request("FileType")
  mEditType="1"
  mUserName="Administrator"


  '取得模式
  if ( mEditType="") then
    mEditType="1"		' 0 显示  1 起草 2 批改 3 审核
  end if

  '取得类型
  if ( mFileType="") then
    mFileType=".doc"	' 默认为.doc文档
  end if

  '取得用户名
  if (mUserName="") then
    mUserName="匿名用户"
  end if

  session("UserName")=mUserName

  '取得编号
  if ( mRecordID="") then
     mRecordID=""	'编号为空
  end if


  mSql="Select * From tbioaOffice_Template Where RecordID='"+ mRecordID + "'"
  Set TbMainRs=Server.CreateObject("ADODB.RecordSet")
  TbMainRs.Open mSql,oconn,1,3
  If Not TbMainRs.Eof then
        mRecordID=TbMainRs("RecordID")
        mFileName=TbMainRs("FileName")
        mFileType=TbMainRs("FileType")
        mDescript=TbMainRs("Descript")
        mLCBH=TbMainRs("LCBH")
  end if
  TbMainRs.Close
  Set TbMainRs=Nothing

%>
<html>
<head>
<title>iWebOffice2003</title>
<link rel='stylesheet' type='text/css' href='../css/main.css'>
<style type="text/css">
<!--
.style1 {color: #FF0000}
-->
</style>
<script src="../js/iweboffice_template_func.js" type="text/javascript"></script>
<script language=javascript>
function Load(){
  try{
  webform.WebOffice.WebUrl="<%=mServerUrl%>";
  webform.WebOffice.RecordID="<%=mRecordID%>";
  webform.WebOffice.Template="<%=mRecordID%>";
  webform.WebOffice.FileName="<%=mFileName%>";
  webform.WebOffice.FileType="<%=mFileType%>";
  webform.WebOffice.EditType="<%=mEditType%>";
  webform.WebOffice.UserName="<%=mUserName%>";
  webform.WebOffice.WebOpen();  	//打开该文档
  StatusMsg(webform.WebOffice.Status);
  }catch(e){}
}
</script>
</head>
<body bgcolor="#ffffff" onload="Load()" onunload="UnLoad()">
<table width=98% class=tabletoolbar border=0 align=center>
	<tr valign=center><td align=left nowrap><img src="../images/icon_title.gif" align="absmiddle"> 公文解锁　<span class="style1">(在打开本页面的弹出窗口时,选择[是]按钮,才能正常运行。)</span></td>
	<td align=right valign=bottom nowrap>
		<input type=button class="button0" onmouseout=className="button0" onmouseover=className="button1" value="解锁Word公文" id=bZJ name=bZJ onclick="window.location='DocumentsNopass.asp?FileType=.doc';">
		<input type=button class="button0" onmouseout=className="button0" onmouseover=className="button1" value="解锁Excel公文" id=bZJ name=bZJ onclick="window.location='DocumentsNopass.asp?FileType=.xls';">
	</td></tr>
</table>
<form name="webform" method="post" action="TemplateSave.asp" onsubmit="return SaveDocument();">
  <input type=hidden name=RecordID value="<%=mRecordID%>">
  <input name="type" type="hidden" id="type" value="<%=stype%>">
  <table border=0  cellspacing='1' cellpadding='2' width=100% height=92% align=center class=tab>
    <tr>
      <!--td align=right valign=top  class="TDTitleStyle" width=64>内容</td-->
      <td colspan=2 class="TD1" height=100%>
            <table border=0 cellspacing='0' cellpadding='0' width='100%' height='100%' >
            <tr>
              <td height="28">
                <iframe id="toolbar" src="../inc/toolbar_Nopass.asp" frameBorder="0" width="100%" height="28" marginHeight="0" marginWidth="0" scrolling="no"></iframe>
              </td>
            </tr>
            <tr>
              <td bgcolor=menu >
                <OBJECT id="WebOffice" width="100%" height="100%" classid="clsid:23739A7E-5741-4D1C-88D5-D50B18F7C347" codebase="<%=mClientUrl%>" >
                </OBJECT>
              </td>
            </tr>
            <tr>
              <td bgcolor=menu height='20'>
    		<div id=StatusBar>状态栏</div>
              </td>
            </tr>
            </table>
      </td>
    </tr>
  </table>
</form>

</body>
</html>
⌨️ 快捷键说明

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