📄 swdengji.asp

📁 功能非常强大的一款办公自动化软件原代码,其中的文档签收功能特别实用.不相信下下来看下.
💻 ASP
字号:
<!--#include file="check.asp"-->
<!--#INCLUDE FILE="connect.asp" --> 
<html>
<head>
<title>收文登记</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<%
set bzwb=server.createobject("oaserver.swdengji")
bzwb.main(conn)
 LocalFile="swdengji.asp"
  PsoFile="loadhg.asp"
  HttpUrl="http://" & Request.ServerVariables("HTTP_HOST") & Request.ServerVariables("SCRIPT_NAME") 
  HttpUrl=Left(HttpUrl,Len(HttpUrl)-Len(LocalFile))
  PsoUrl=HttpUrl & PsoFile
%>
<script language="JavaScript" src="fawen.js"></script>
<script language="JavaScript">
<!--
function MM_reloadPage(init) {  //reloads the window if Nav4 resized
  if (init==true) with (navigator) {if ((appName=="Netscape")&&(parseInt(appVersion)==4)) {
    document.MM_pgW=innerWidth; document.MM_pgH=innerHeight; onresize=MM_reloadPage; }}
  else if (innerWidth!=document.MM_pgW || innerHeight!=document.MM_pgH) location.reload();
}
MM_reloadPage(true);
// -->

function checkform() {
if (form.documentname.value=="") {
 alert("没有找到来文文件，请与发文单位联系！")
  return false
}
if (form.swid.value=="") {
 alert("请填写收文号！")
 form.swid.focus()
 return false
}

if (form.arrivetime.value=="") {
 alert("你的来文时间没有填写！")
 form.arrivetime.focus()
 return false
}
if (form.worktime.value=="") {
 alert("你的成文时间没有填写！")
 form.worktime.focus()
 return false
}
if (form.fromdep.value=="") {
 alert("来文单位没有填写！")
 form.fromdep.focus()
 return false
}
if (form.title.value=="") {
 alert("你的标题没有填写！")
 form.title.focus()
 return false
}
if (form.wenhao.value=="") {
 alert("你的来文文号没有填写！")
 form.wenhao.focus()
 return false
}
if (form.name_nb.value=="") {
 alert("你没有填写意见！")
 form.name_nb.focus()
 return false
}
if (form.name_nb.value!="") {
 cc=form.name_nb.value.length
 for (i=0;i<cc;i++)
 {
 dd=form.name_nb.value.charAt(i)
 if(dd!=" ") {break;}
  }
 if (i==cc) {alert("您输入无效的内容！")
            form.name_nb.value=""
            form.name_nb.focus()
            return false
            }

}

if (form.copy.value=="") {
 alert("你没有填写份数！")
 form.copy.focus()
 return false
}
if (form.hiddenselect.value=="") {
 alert("你没有批办领导！")
 form.username.focus()
 return false
}
 var checkOK = "0123456789-,";
	var checkStr = document.form.copy.value

	var allValid = true;
	var decPoints = 0;
	var allNum = "";
	for (i = 0;  i < checkStr.length;  i++)
	{
	  ch = checkStr.charAt(i);
	  for (j = 0;  j < checkOK.length;  j++)
	    if (ch == checkOK.charAt(j))
	      break;
	  if (j == checkOK.length)
	  {
	    allValid = false;
	    break;
	  }
	
	}
	if (!allValid)
	{
	  alert("来文份数只能输入整数");
	  document.form.copy.focus();
	  return (false);
	}
	if(!confirm("您确定转发给其他领导吗？"))
 {
 return false;
 }
 else
 {return true;}
}


</script>

<link rel="stylesheet" href="fawen.css" type="text/css">
</head>
<!--#include file="checkuser.asp"-->
<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0" oncontextmenu="return false">
<%
set rs=server.createobject("adodb.recordset")
sql="select * from fawen where id="&CLng(request("flowid"))
rs.open sql,conn,1,1
if rs.eof then
response.redirect "error.htm"
response.end
end if
if not rs.eof then
title=rs("title")
keyword=rs("keywords")
fromdep=rs("writedep")
wenhao=rs("wenhao")
documentname=rs("documentname")
documentpath=session("rootpath")&documentname
end if
session("fawenid")=CLng(request("flowid"))
%>
<div align="center"> 
  <form name="form" method="POST" action="">
    <table width="100%" border="0" cellspacing="0" cellpadding="0">
      <tr height="25" valign="middle"> 
      <td valign="middle" height="50" align="center"> <img src="images/swdj.gif" width="114" height="24"> 
      </td>
        <td height="50" valign="top" align="left" width="200">&nbsp;</td>
    </tr>
      <tr height="25"> 
        <td height="395" valign="top" align="center" > 
          <table width="100%" border="0" cellspacing="1" cellpadding="2" bgcolor="990000" align="center" height="395">
            <tr bgcolor="ffffff" valign="middle"> 
              <td height="35" width="18%" align="center"> 收文编号： </td>
              <td height="35" width="30%"> 
                <input class="fileinput" type="text"  title="单击，请输入收文号"  name="swid" size="20" maxlength="20">
              </td>
              <td height="35" width="26%">&nbsp;密　　级： 
                <select name="miji">
                  <option value="普通" selected>普通</option>
                  <option value="秘密">秘密</option>
                  <option value="绝密">绝密</option>
                </select>
              </td>
              <td height="35" width="26%">&nbsp;缓　　急： 
                <select name="huanji">
                  <option value="一般" selected>一般</option>
                  <option value="紧急">紧急</option>
                  <option value="加急">加急</option>
                </select>
              </td>
            </tr>
            <tr bgcolor="ffffff" valign="middle"> 
              <td height="35" width="18%" align="center"> 来文时间： </td>
              <td height="35" width="30%"> 
                <input type="text" name="arrivetime" class="fileinput" size="20" value="<%=date()%>" maxlength="20">
              </td>
              <td height="35" colspan="2">&nbsp;成文时间： 
                <input type="text" name="worktime" class="fileinput" size="20" value="<%=date()%>" maxlength="20">
              </td>
            </tr>
            <tr bgcolor="ffffff" valign="middle"> 
              <td height="35" width="18%" align="center"> 来文单位： </td>
              <td height="35" width="30%"> 
                <input type="text" name="fromdep" class="fileinput" size="20" value="<%=fromdep%>">
              </td>
              <td height="35" colspan="2">&nbsp;份　　数： 
                <input type="text" name="copy" class="fileinput" size="6" value="1" maxlength="6">
              </td>
            </tr>
            <tr bgcolor="ffffff" valign="middle"> 
              <td height="35" width="18%" align="center"> 文　　号： </td>
              <td height="35" colspan="3"> 
                <input type="text" name="wenhao" class="fileinput" size="45" value="<%=wenhao%>" maxlength="20">
              </td>
            </tr>
            <tr bgcolor="ffffff" valign="middle"> 
              <td height="35" width="18%" align="center"> 标　　题： </td>
              <td height="35" colspan="3"> 
                <input type="text" name="title" maxlength="48" class="fileinput" size="48" value="<%=title%>">
              </td>
            </tr>
            <tr bgcolor="ffffff" valign="middle"> 
              <td height="35" width="18%" align="center"> 主 题 词： </td>
              <td height="35" colspan="3"> 
                <input type="text" name="keyword" maxlength="48" class="fileinput" size="48" value="<%=keyword%>">
              </td>
            </tr>
            <tr bgcolor="ffffff" valign="middle"> 
              <td height="35" width="18%" align="center"> 文件正文： </td>
              <td height="35" colspan="3"> 
                <%fujianname=rs("documentname")
						  if fujianname<>"" then
						   response.write "<a href='"&PsoUrl&"' target='_blank'>"&fujianname&"</a>"
					      end if
						  %>
              </td>
            </tr>
            <tr valign="top" bgcolor="ffffff"> 
              <td height="60" valign="middle" align="center" width="18%">拟办意见： 
              </td>
              <td height="60" colspan="3"> 
                <textarea  class="body1"  title="单击，请输入拟办意见"   name="name_nb" style="width:80%;height:100%;" rows="1" cols="20"></textarea>
              </td>
            </tr>
            <tr valign="top" bgcolor="f0f0f0"> 
              <td height="40" align="center" valign="middle" width="18%"> 承办意见：</td>
              <td height="40" colspan="3"></td>
            </tr>
            <tr valign="top" bgcolor="f0f0f0"> 
              <td height="40" align="center" valign="middle" width="18%">批办意见：</td>
              <td height="40" colspan="3">&nbsp;</td>
            </tr>
          </table>
		  <table width="100%" border="0" cellspacing="0" cellpadding="0" height="35">
            <tr>
             <td valign="bottom" height="35" class="bblue" align="center"> 批办领导： 
          <input class=lineinput type="text" name="username" size="20" maxlength="20" onClick="checkpeople()" style="cursor:hand">
          <input type="image" name="send" value=" 提 交 " onClick="return checkform();return false;" src="images/okgif.gif" alt="确定">&nbsp;
          <input  type="image" name="send2" value=" 返 回 " onClick="history.go(-1);return false;" src="images/fanhuigif.gif" alt="返回">
        </td>
            </tr>
          </table>
        </td>
        <td valign="top" align="center" width="200" height="395"> 
          <!--#include file="turnmoreshouwen.asp"-->
        </td>
      </tr>
      
      <tr> 
        <script language=javascript>  
				   
</script>
        <td valign="top" height="25" colspan="3"  > 
          <div align="left"> <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> 
            <input type="hidden" name="documentname" value="<%=documentname%>">
            <input type="hidden" name="hiddenselect">
            <input type="hidden" name="single" value="single">
            <input type="hidden" name="flag" value="2">
            <input type="hidden" name="nwid" value="<%=CLng(request("nwid"))%>">
            <input type="hidden" name="hiddennum" value="0">
          </div>
        </td>
      </tr>
    </table>
  </form>
</div>
<%
             rs.close
			  set rs=nothing
			  conn.close
			  set conn=nothing
%>
</body>   
</html>
⌨️ 快捷键说明

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