📄 chengban.asp

📁 功能非常强大的一款办公自动化软件原代码,其中的文档签收功能特别实用.不相信下下来看下.
💻 ASP
字号:
<!--#include file="check.asp"-->
<!--#INCLUDE FILE="connect.asp" --> 
<html>
<head>
<title>承办单</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<% if  Request.ServerVariables("Request_Method")="POST" and request("flag")="2" then
 set rs=server.createobject("adodb.recordset")
writetime=CDate(now())
ipaddress=request.servervariables("remote_addr")
sql="select * from shouwen where id="&Clng(request("flowid"))
rs.open sql,conn,1,3
rs("name_cb")=request("name_cb")&"&nbsp;"&session("username")&"&nbsp;"&date()
rs("status")="1"
rs("donetime")=writetime
rs.update
title=rs("title")
flowid=Clng(request("flowid"))
rs.close
sql="select * from swflow where id=1"
rs.open sql,conn,1,3
rs.addnew
rs("flowid")=flowid
rs("handlename")=session("username")
rs("handleid")=session("uid")
rs("nextid")=""
rs("handletime")=writetime
rs("ipaddress")=ipaddress
rs("remark")=request("name_cb")
rs("handletype")="3"
rs("nexttype")="4"
rs.update
rs.close
sql="select donetime,status from newwork where id="&Clng(request("nwid"))
rs.open sql,conn,1,3
rs("donetime")=writetime
rs("status")="1"
rs.update
rs.close
response.write("<script language=javascript>alert('提交意见成功！')</script>")
response.write("<script>document.location='right.asp'</script>")
response.end
end if
 LocalFile="chengban.asp"
  PsoFile="swload.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.name_cb.value=="") {
 alert("您还没有填写意见呢！")
 form.name_cb.focus()
 return false
}
if (form.name_cb.value!="") {
 cc=form.name_cb.value.length
 for (i=0;i<cc;i++)
 {
 dd=form.name_cb.value.charAt(i)
 if(dd!=" ") {break;}
  }
 if (i==cc) {alert("您输入无效的内容！")
            form.name_cb.value=""
            form.name_cb.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 text="#000000" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0" oncontextmenu="return false">
<%
set rs=server.createobject("adodb.recordset")
sql="select * from shouwen where id="&Clng(request("flowid"))
rs.open sql,conn,1,1
if rs.eof then
response.redirect "error.htm"
rs.close
response.end
end if
session("shouwenid")=Clng(request("flowid"))
%>
<form name="form" method="POST" action="">
  <table width="100%" border="0" cellspacing="0" cellpadding="0" height="400">
    <tr height="25" valign="middle"> 
      <td height="50" valign="middle" align="center" colspan="2"> <img src="images/swcb.gif" width="113" height="25"></td>
    </tr>
    <tr height="25"> 
      <td height="25" valign="top" align="center" > 
        <table width="80%" border="0" cellspacing="1" cellpadding="2" bgcolor="990000" height="100%" align="center">
          <tr valign="middle"> 
            <td height="35" width="18%" align="center" bgcolor="f0f0f0"> 收文编号： 
            </td>
            <td height="35" width="30%" bgcolor="f0f0f0"><font class="bblue"><%=rs("swid")%></font> 
            </td>
            <td height="35" width="26%" bgcolor="f0f0f0">&nbsp;密　　级： <font class="bblue"><%=rs("miji")%></font></td>
            <td height="35" width="26%" bgcolor="f0f0f0">&nbsp;缓　　急： <font class="bblue"><%=rs("huanji")%></font></td>
          </tr>
          <tr valign="middle"> 
            <td height="35" width="18%" align="center" bgcolor="f0f0f0"> 来文时间： 
            </td>
            <td height="35" width="30%" bgcolor="f0f0f0"> <font class="bblue"><%=rs("arrivetime")%></font></td>
            <td height="35" colspan="2" bgcolor="f0f0f0">&nbsp;成文时间： <font class="bblue"><%=rs("writetime")%></font> 
            </td>
          </tr>
          <tr valign="middle"> 
            <td height="35" width="18%" align="center" bgcolor="f0f0f0"> 来文单位： 
            </td>
            <td height="35" width="30%" bgcolor="f0f0f0"><font class="bblue"><%=rs("fromdep")%></font> 
            </td>
            <td height="35" colspan="2" bgcolor="f0f0f0">&nbsp;份　　数：<font class="bblue"><%=rs("copy")%></font></td>
          </tr>
          <tr valign="middle"> 
            <td height="35" width="18%" align="center" bgcolor="f0f0f0"> 文　　号： 
            </td>
            <td height="35" colspan="3" bgcolor="f0f0f0"> <font class="bblue"><%=rs("wenhao")%></font> 
            </td>
          </tr>
          <tr valign="middle"> 
            <td height="35" width="18%" align="center" bgcolor="f0f0f0"> 标　　题： 
            </td>
            <td height="35" colspan="3" bgcolor="f0f0f0"><font class="bblue"><%=rs("title")%></font> 
            </td>
          </tr>
          <tr valign="middle"> 
            <td height="35" width="18%" align="center" bgcolor="f0f0f0"> 主 题 词： 
            </td>
            <td height="35" colspan="3" bgcolor="f0f0f0"><font class="bblue"><%=rs("keyword")%></font></td>
          </tr>
          <tr valign="middle"> 
            <td height="35" width="18%" align="center" bgcolor="f0f0f0"> 文件正文： 
            </td>
            <td height="35" colspan="3" bgcolor="f0f0f0"> 
              <%fujianname=rs("documentname")
						  if fujianname<>"" then
						   response.write "<a href='"&PsoUrl&"' target='_blank'>"&fujianname&"</a>"
					      end if
						  %>
            </td>
          </tr>
          <tr valign="top"> 
            <td height="40" valign="middle" align="center" width="18%" bgcolor="f0f0f0">拟办意见： 
            </td>
            <td height="40" colspan="3" bgcolor="f0f0f0" valign="middle"> <font class="bblue"><%=rs("name_nb")%></font> 
            </td>
          </tr>
          <tr valign="top"> 
            <td height="60" align="center" valign="middle" width="18%" bgcolor="f0f0f0"> 
              批办意见：</td>
            <td height="40" colspan="3" valign="middle" bgcolor="f0f0f0"> <font class="bblue"><%=rs("name_pb")%></font> 
            </td>
          </tr>
          <tr valign="top"> 
            <td height="40" align="center" valign="middle" width="18%" bgcolor="ffffff">承办意见：</td>
            <td height="40" colspan="3" bgcolor="ffffff"> 
              <textarea class="body1" name="name_cb" style="width:80%;height:98%"></textarea>
            </td>
          </tr>
        </table>
      </td>
    </tr>
    <tr> 
      <td valign="bottom" height="35" class="3black"> 
        <div align="center"> 
          <input type="image" name="send" value=" 提 交 " onClick="return checkform();return false;" src="images/okgif.gif" alt="确定">
          &nbsp;&nbsp; 
          <input  type="image" name="send2" value=" 返 回 " onClick="history.go(-1);return false;" src="images/fanhuigif.gif" alt="返回">
        </div>
      </td>
    </tr>
    <tr> 
      <script language=javascript>  
				   
</script>
      <td valign="top" height="25" colspan="2"  > 
        <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="flag" value="2">
          <input type="hidden" name="nwid" value="<%=Clng(request("nwid"))%>">
          <input type="hidden" name="flowid" value="<%=Clng(request("flowid"))%>">
        </div>
      </td>
    </tr>
  </table>
</form>
<%
             rs.close
			  set rs=nothing
			  conn.close
			  set conn=nothing
%>
</body>
</html>
💿 文件大小 4213 K
👤 上传用户 evenxyz
📂 所属分类 OA系统
🏷️ 相关标签

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

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