📄 choosecb.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")
   peoplelist=""
  nexttyped="3"
  typenamed="收文承办"
  url="chengban.asp"
  nextpeople=request("hiddenselect")
writetime=CDate(now())
ipaddress=request.servervariables("remote_addr")
sql="select * from swflow where id=1"
rs.open sql,conn,1,3
rs.addnew
rs("flowid")=session("shouwenid")
rs("handlename")=session("username")
rs("handleid")=session("uid")
rs("nextid")=nextpeople
rs("handletime")=writetime
rs("ipaddress")=ipaddress
rs("remark")="转发成功"
rs("handletype")="2"
rs("nexttype")=nexttyped
rs.update
rs.close

sql="select title from shouwen where id="&CLng(session("shouwenid"))
rs.open sql,conn,1,1
title=rs("title")
rs.close

sql="select * from newwork where id=1"
rs.open sql,conn,1,3
rs.addnew
rs("userid")=nextpeople
rs("userlist")=peoplelist
rs("title")=title
rs("url")=url
rs("baseid")=session("shouwenid")
rs("applytime")=writetime
rs("typed")=typenamed
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
session("shouwenid")=""
response.write("<script language=javascript>alert('提交信息成功！')</script>")
response.write("<script>document.location='right.asp'</script>")
response.end
end if
 LocalFile="choosecb.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 checkform() {
if (form.hiddenselect.value=="") {
 alert("您还没选择承办人！")
  form.username.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">
<%
if CLng(request("flowid"))="" then response.end
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 valign="middle" height="50" align="center"> <img src="images/swzf.gif"> 
      </td>
        <td height="50" valign="top" align="left" width="200">&nbsp;</td>
    </tr>
    <tr height="25"> 
      <td height="25" valign="top" align="center" > 
        <table width="100%" border="0" cellspacing="1" cellpadding="2" bgcolor="990000" height="395" align="center">
          <tr bgcolor="f0f0f0" valign="middle">
            <td height="35" width="18%" align="center" bgcolor="f0f0f0"> 收文编号： 
            </td>
            <td height="35" width="30%"><font class="bblue"><%=rs("swid")%></font> 
            </td>
            <td height="35" width="26%">&nbsp;密　　级： <font class="bblue"><%=rs("miji")%></font></td>
            <td height="35" width="26%">&nbsp;缓　　急： <font class="bblue"><%=rs("huanji")%></font></td>
          </tr>
          <tr bgcolor="f0f0f0" valign="middle">
            <td height="35" width="18%" align="center" bgcolor="f0f0f0"> 来文时间： 
            </td>
            <td height="35" width="30%"> <font class="bblue"><%=rs("arrivetime")%></font></td>
            <td height="35" colspan="2">&nbsp;成文时间： <font class="bblue"><%=rs("writetime")%></font> 
            </td>
          </tr>
          <tr bgcolor="f0f0f0" valign="middle">
            <td height="35" width="18%" align="center" bgcolor="f0f0f0"> 来文单位： 
            </td>
            <td height="35" width="30%"><font class="bblue"><%=rs("fromdep")%></font> 
            </td>
            <td height="35" colspan="2" bgcolor="f0f0f0">&nbsp;份　　数：<font class="bblue"><%=rs("copy")%></font></td>
          </tr>
          <tr bgcolor="f0f0f0" valign="middle">
            <td height="35" width="18%" align="center" bgcolor="f0f0f0"> 文　　号： 
            </td>
            <td height="35" colspan="3"> <font class="bblue"><%=rs("wenhao")%></font> 
            </td>
          </tr>
          <tr bgcolor="f0f0f0" valign="middle">
            <td height="35" width="18%" align="center" bgcolor="f0f0f0"> 标　　题： 
            </td>
            <td height="35" colspan="3"><font class="bblue"><%=rs("title")%></font> 
            </td>
          </tr>
          <tr bgcolor="f0f0f0" valign="middle">
            <td height="35" width="18%" align="center" bgcolor="f0f0f0"> 主 题 词： 
            </td>
            <td height="35" colspan="3"><font class="bblue"><%=rs("keyword")%></font></td>
          </tr>
          <tr bgcolor="f0f0f0" valign="middle">
            <td height="35" width="18%" align="center" bgcolor="f0f0f0"> 文件正文： 
            </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="f0f0f0"> 
            <td height="40" valign="middle" align="center" width="18%">拟办意见： </td>
            <td height="40" colspan="3" valign="middle"><font class="bblue"><%=rs("name_nb")%></font> 
            </td>
          </tr>
          <tr valign="top" bgcolor="f0f0f0"> 
            <td height="60" align="center" valign="middle" width="18%"> 批办意见：</td>
            <td height="60" colspan="3" bgcolor="f0f0f0" valign="middle"> <font class="bblue"><%=rs("name_pb")%></font> 
            </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="15" 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 height="25" valign="top" align="center" width="200" >
	  <!--#include file="turnoneshouwen.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="flag" value="2">
          <input type="hidden" name="nwid" value="<%=CLng(request("nwid"))%>">
          <input type="hidden" name="flowid" value="<%=CLng(request("flowid"))%>">
          <input type="hidden" name="hiddenselect">
          <input type="hidden" name="single" value="1">
          <input type="hidden" name="hiddennum" value="0">
        </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 + -