📄 hegao.asp

📁 功能非常强大的一款办公自动化软件原代码,其中的文档签收功能特别实用.不相信下下来看下.
💻 ASP
字号:
<!--#include file="check.asp"-->
<!--#INCLUDE FILE="connect.asp" --> 
<html>
<head>
<title>办公自动化（OA）</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<% 

LocalFile="hegao.asp"
  DocFile="loadhg.asp"
  SaveFile="savehg.asp"
  PsoFile="loadpso.asp"
  HttpUrl="http://" & Request.ServerVariables("HTTP_HOST") & Request.ServerVariables("SCRIPT_NAME") 
  HttpUrl=Left(HttpUrl,Len(HttpUrl)-Len(LocalFile))
  DocUrl=HttpUrl & DocFile
  SaveUrl=HttpUrl & SaveFile
  PsoUrl=HttpUrl & PsoFile
if  Request.ServerVariables("Request_Method")="POST" and request("flag")="2" then
set bzwb=server.createobject("oaserver.hegao")
bzwb.main(conn)
response.write("<script language=javascript>alert('提交意见成功！')</script>")
response.write("<script>document.location='right.asp'</script>")
response.end
end if
%>
<script language="javascript" src="fawen.js"></script>
<script language="JavaScript">
function checkform() {
if (form.name_hg.value=="") {
 alert("您还没有批署意见呢！")
 form.name_hg.focus()
 return false
}
if (form.hiddenselect.value=="") {
 alert("你没有选择办理人！")
 form.username.focus()
 return false
}
FileName=document.form.opendoc.value
if (!confirm("您是否要提交公文呢？"))
  {return false;} 
  else   {
  if(FileName!="") {    //如果修改公文则保存公文 
    SaveUrl="<%=SaveUrl%>"
 	FileSize="<%=session("MaxSize")%>"
	FilePath=""                             //为空表示文件在默认位置
	result=form.web.upload(SaveUrl,FileName,FilePath,FileSize) //上传公文到数据库
       if (!result)
	      { 
	 alert("找不到公文或与服务器连接失败！")
    return false;
	      }  	            //公文上传失败，返回起草公文页面
     form.web.delfile()              //删除临时文件
	}                    //上传公文完毕
	}
  
}
function sendback() {
   if (form.name_hg.value=="") {
 alert("您还没填写返回给拟稿人理由！")
 form.name_hg.focus()
 return false
  }
if (!confirm("您确定要把这稿件返回给拟稿人重新拟稿吗？"))
{return false;}
else
{
document.location="sendback.asp?backtype=name_hg&reason="+document.form.name_hg.value+"&nwid="+document.form.nwid.value
return false;
}
}

</script>

<link rel="stylesheet" href="fawen.css" type="text/css">
</head>

<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0" oncontextmenu="return false">
<!--#include file="checkuser.asp"-->
<%

if CLng(request("flowid"))="" then response.end
flowid=CLng(request("flowid"))
session("fawenid")=CLng(request("flowid"))
set rs=server.createobject("adodb.recordset")
sql="select * from fawen where id="&flowid
rs.open sql,conn,1,3
if rs.eof then
response.redirect "error.htm"
response.end
end if
DocumentName=rs("documentname")
%>
<form name="form" method="POST" action="">
<table width="100%" border="0" cellspacing="0" cellpadding="0" height="400">
  <tr height="25" valign="middle"> 
      <td valign="middle" height="50" align="center"> <img src="images/gwhg.gif" width="113" height="25"></td>
      <td height="50" valign="top" align="left">&nbsp;</td>
    </tr>
  <tr height="25"> 
      <td valign="top" align="center" > 
        <table width="100%" border="0" cellspacing="1" cellpadding="2" bgcolor="990000">
        <tr bgcolor="f5f5f5" valign="middle"> 
            <td height="35" width="46%">&nbsp;文　　号： <font class="bblue"><%=rs("wenhao")%></font></td>
            <td height="35" width="27%">&nbsp;密　　级： <font class="bblue"><%=rs("miji")%></font></td>
            <td height="35" width="27%">&nbsp;保密期限： <font class="bblue"><%=rs("baomiqx")%></font></td>
        </tr>
        <tr bgcolor="f5f5f5" valign="middle"> 
            <td height="35" width="46%">&nbsp;缓　　急： <font class="bblue"><%=rs("huanji")%></font> 
            </td>
          <td height="35" colspan="2">&nbsp;定密依据： <font class="bblue"><%=rs("dingmiyj")%></font> 
          </td>
        </tr>
        <tr bgcolor="f5f5f5" valign="top"> 
            <td height="60" width="46%"> 
              <table width="100%" border="0" cellspacing="0" cellpadding="0" height="100%">
              <tr bgcolor="ffffff"> 
                  <td valign="top" width="27%" bgcolor="f5f5f5">&nbsp;核稿意见： </td>
                <td valign="top" width="73%"> 
            <textarea class="body1" title="单击，请输入核稿意见"  name="name_hg" style="width:100%;height:100%" rows="1" cols="20"></textarea>
                </td>
              </tr>
            </table>
          </td>
          <td height="60" colspan="2">&nbsp;审核意见：</td>
        </tr>
        <tr bgcolor="f5f5f5" valign="top"> 
            <td height="60" width="46%">&nbsp;签　　发：</td>
            <td height="60" colspan="2">&nbsp;会　　签：</td>
        </tr>
        <tr bgcolor="f5f5f5" valign="middle"> 
            <td height="35" colspan="3">&nbsp;主　　送： <font class="bblue"><%=rs("mainsend")%></font> 
            </td>
        </tr>
        <tr bgcolor="f5f5f5" valign="middle"> 
            <td height="35" colspan="3">&nbsp;抄　　送： <font class="bblue"><%=rs("tosend")%></font> 
            </td>
        </tr>
        <tr bgcolor="f5f5f5" valign="middle"> 
          <td height="35" width="46%">&nbsp;拟稿单位：<font class="bblue"><%=rs("writedep")%></font></td>
            <td height="35" width="27%">&nbsp;拟 稿 人：<font class="bblue"><%=rs("writename")%></font></td>
            <td height="35" width="27%">&nbsp;核 稿 人：<font class="bblue"><%=session("username")%></font></td>
        </tr>
        <tr bgcolor="ffffff" valign="middle"> 
            <td height="35" width="46%" bgcolor="f5f5f5">&nbsp;印　　制：<font class="bblue"><%=rs("name_print")%></font> 
            </td>
            <td height="35" bgcolor="f5f5f5" width="27%">&nbsp;校　　对：<font class="bblue"><%=rs("name_correct")%></font> 
            </td>
            <td height="35" bgcolor="f5f5f5" width="27%">&nbsp;份　　数：<font class="bblue"><%=rs("copy")%></font> 
            </td>
        </tr>
        <tr bgcolor="f5f5f5" valign="middle"> 
            <td height="35" width="46%">&nbsp;附　　件： 
              <%fujianname=rs("fujianname")
						  if fujianname<>"" then
						   response.write "<a href='"&PsoUrl&"' target='_blank'>"&fujianname&"</a>"
					      end if
						%>
            </td>
          <td height="35" colspan="2">公文正文： 
		  <a href="readword.asp" onClick="return OpenWindows('this.href')">
		  <%=rs("documentname")%></a> 
          </td>
        </tr>
        <tr bgcolor="f5f5f5" valign="middle"> 
            <td height="35" colspan="3">&nbsp;标　　题： <font class="bblue"><%=rs("title")%></font> 
            </td>
        </tr>
        <tr bgcolor="f5f5f5" valign="middle"> 
            <td height="35" colspan="3">&nbsp;主 题 词： <font class="bblue"><%=rs("keywords")%></font> 
            </td>
        </tr>
      </table>
    </td>
      <td valign="top" align="center" width="180" height="25" > 
        <!--#include file="turnonefawen.asp"-->
      </td>
  </tr>
  <tr> 
      <td valign="bottom" height="35" class="bblue" align="center"> 下一流程： 
        <select name="typed">
          <option value="2">审核</option>
          <option value="4">签发</option>
        </select>
        <input class=lineinput type="text" name="username" size="14" maxlength="20" value="请选择办理人" onClick="checkpeople()" style="cursor:hand">
          <input  type="image" name="send" value="提交公文" onClick="return checkform()" src="images/addpapergif.gif" alt="提交公文">
        <input  type="image" name="send2" value=" 返 回 " onClick="history.go(-1);return false;" src="images/fanhuigif.gif" alt="返回">
          <input  type="image" name="sendfileback" value="重新拟稿" onClick="return sendback();return false;" src="images/renigaogif.gif" alt="重新拟稿">
      </td>
    <td valign="bottom" height="35"  > 
      <input type="hidden" name="hiddenselect">
      <input type="hidden" name="hiddennum" value="0">
      <input type="hidden" name="single" value="1">
      <input type="hidden" name="flag" value="2">
      <input type="hidden" name="flowid" value="<%=request("flowid")%>">
      <input type="hidden" name="nwid" value="<%=request("nwid")%>">
      <input type="hidden" name="opendoc">
      <input type="hidden" name="clicknum">
    </td>
  </tr>
  <tr> 
    <script language=javascript>  
				   
</script>
    <td valign="top" height="25" colspan="3"  > 
      <div align="left"> 
        <table width="100%" border="0" cellspacing="0" cellpadding="0" height="100%">
          <tr> 
            <td width="90%">&nbsp; </td>
            <td width="10%">
	<object classid="clsid:8C9AA244-AC33-47F9-8968-CC114654A6EC" codebase="web.ocx" id="web" width="1" height="1">
                <param name="_ExtentX" value="847">
                <param name="_ExtentY" value="847">
              </object></td>
          </tr>
        </table>
      </div>
    </td>
  </tr>
</table>
</form>
<%rs.close
set rs=nothing
conn.close
set conn=nothing
%>
<script language=javascript>
 function OpenWindows()                 //下载打开公文函数
{  
var DocumentName="<%=DocumentName%>"
if(document.form.opendoc.value=="")    //如果opendoc的值为空说明还没有下载公文
      {
var result
HTTPURL="<%=DocUrl%>"
result=form.web.download(HTTPURL,DocumentName); //判断下载文件是否成功
 if (!result)
 {
  alert("打开公文失败，请与管理员联系！")
  return false;
 }
  else {
  document.form.opendoc.value=DocumentName
      }
 }
 
   var url="readword.asp?documentname="+DocumentName    //调用readword.asp来打开文件
   OpenWord(url)
   return false;
 }
</script>

</body>
</html>
💿 文件大小 4213 K
👤 上传用户 evenxyz
📂 所属分类 OA系统
🏷️ 相关标签

#办公自动化 #代码 #软件 #文档
⌨️ 快捷键说明

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