📄 piban.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")
 sql="select userlist from newwork where id="&CLng(request("nwid"))
 rs.open sql,conn,1,1
 if rs.eof then
response.redirect "error.htm"
 response.end
 end if
   peoplelist=rs("userlist")
    rs.close
  if peoplelist="" then
   peoplelist=""
  nexttyped="2"
  typenamed="选择承办单位"
  url="choosecb.asp"
   sql="select writeid from shouwen where id="&session("shouwenid")
  rs.open sql,conn,1,1
  nextpeople=rs("writeid")
  rs.close
  else
  postion=instr(peoplelist,";")
  nextpeople=left(peoplelist,postion-1)
         if postion=len(peoplelist) then 
         peoplelist=""
         else
         peoplelist=mid(peoplelist,postion+1) 
         end if
  nexttyped="1"
  typenamed="收文批办"
  url="piban.asp"
  end if
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_pb")=rs("name_pb")&request("name_pb")&"<br>"&session("username")&"&nbsp;"&date()&"<br>"
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")=nextpeople
rs("handletime")=writetime
rs("ipaddress")=ipaddress
rs("remark")=request("name_pb")
rs("handletype")="1"
rs("nexttype")=nexttyped
rs.update
rs.close
set rs=server.createobject("adodb.recordset")
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")=flowid
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="piban.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">
function checkform() {
if (form.name_pb.value=="") {
 alert("您还没有填写意见呢！")
  form.name_pb.focus();
 return false;
}
if (form.name_pb.value!="") {
 cc=form.name_pb.value.length
 for (i=0;i<cc;i++)
 {
 dd=form.name_pb.value.charAt(i)
 if(dd!=" ") {break;}
  }
 if (i==cc) {alert("您输入无效的内容！")
            form.name_pb.value=""
            form.name_pb.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 shouwen where id="&CLng(request("flowid"))
rs.open sql,conn,1,1
if rs.eof then
response.redirect "error.htm"
response.end
end if
session("shouwenid")=CLng(request("flowid"))
%>
 <form name="form" method="POST" action="">
  <table width="100%" border="0" cellspacing="0" cellpadding="0">
    <tr height="25" valign="middle"> 
      <td height="50" valign="middle" align="center" colspan="2"><img src="images/swpb.gif"> 
      </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 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">&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" bgcolor="f0f0f0" width="18%">拟办意见： 
            </td>
            <td height="40" colspan="3" bgcolor="f0f0f0" valign="middle"> <font class="bblue"><%=rs("name_nb")%></font> 
            </td>
          </tr>
          <tr valign="top" bgcolor="ffffff"> 
            <td height="60" align="center" valign="middle" width="18%"> 批办意见：</td>
            <td height="60" colspan="3" bgcolor="ffffff"> 
              <textarea  class="body1"  title="单击，请输入批办意见"   name="name_pb" 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">&nbsp;</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> 

      <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="<%=request("nwid")%>">
          <input type="hidden" name="flowid" value="<%=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 + -