liuchengsenddateindb.asp

企业办公自动化管理系统 asp+sql server 2005

<!--#include file="include/sqlstr.asp"-->
<!--#include file="include/opendb.asp"-->
<!--#include file="include/bgsub.asp"-->
<%
oabusyname=request.cookies("oabusyname")
oabusysuid=request.cookies("oabusysuid")
oabusyuserdept=request.cookies("oabusyuserdept")
oabusyuserlevel=request.cookies("oabusyuserlevel")
if oabusysuid="" then response.redirect "default.asp"
%>
<%if request("buzhoushu")>10 then
response.write "您最多只呢添加10个人"
%>
&nbsp;&nbsp;&nbsp;请<a href="javascript:history.go(-1)">返回</a>
<%response.end
end if
%>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<link rel="stylesheet" href="css/css.css" type="text/css">
<title>企业办公系统</title>
<%
call bghead()
%>
<center>
  <b>发布公文流程</b>&nbsp;&nbsp;&nbsp;&nbsp; 
</center>
<%
call bgmid()
%>
<center>
<%
'取到提交数据
baomi=request.form("select")
title=request.form("title")
content=request.form("content")
buzhoushu=request.form("buzhoushu")
mouthstop=request.form("mouth")
daystop=request.form("day")
yearstop=request.form("year")
'写入流程主表中
set conn=opendb()
sql = "Insert Into a_liuchengbeifeng (title,content,fashongren,danwei,baomi,year,mouth,day) Values( "
sql = sql & SqlStr(title) & ", "
sql = sql & SqlStr(content) & ", "
sql = sql & SqlStr(oabusyname) & ", "
sql = sql & SqlStr(oabusyuserdept) & ", "
sql = sql & SqlStr(baomi) & ", "
sql = sql & SqlStr(yearstop) & ", "
sql = sql & SqlStr(mouthstop) & ", "
sql = sql & SqlStr(daystop) & ")"
conn.Execute sql
'取得新流程ID
dim idd ,rs1 ,sql1
set rs1=server.createobject("adodb.recordset")
sql1="select top 1 * from a_liuchengbeifeng where fashongren="&SqlStr(oabusyname)&" order by inputdate desc"
rs1.open sql1,conn,1,1
idd=rs1("id")
'保存流程受理人数
sql = "Insert Into a_control (buzhuoshu,liuchengid) Values( "
sql = sql & SqlStr(buzhoushu) &  ", "
sql = sql & SqlStr(idd) &  ")"
conn.Execute sql
%>
  <br>
  <br>
  <script Language="JavaScript">
function maxlength(str,minl,maxl) {
    if(str.length <= maxl && str.length >= minl){return true;}else{return false;}
}

function form_check(){
   var l1=maxlength(document.form2.title.value,1,50);
   if(!l1){window.alert("标题的长度大于1位小于50位");document.form2.title.focus();return (false);}
}
</script>


<br>
  <table width="100%" border="0" cellspacing="0" cellpadding="0" align="left">
    <tr> 
      <td> 
        <div align="center"><font color="#FF0000">*</font>注 在此可以添加你需要的附件&nbsp; 
          &nbsp; &nbsp; 　　</div>
      </td>
    </tr>
    <tr> 
      <td> 
        <div align="center"><a href="shangchua/index.asp?id=<%=rs1("id")%>" target="_blank">添加附件</a></div>
      </td>
    </tr>
    <tr> 
      <td> 
        <div align="center"></div>
      </td>
    </tr>
    <tr> 
      <td height="19"> 
        <div align="center"></div>
      </td>
    </tr>
    <tr> 
      <td height="29" valign="bottom"> 
        <div align="center"><font color="#FF0000">*</font>注 您在此添加各个步骤的受理人</div>
      </td>
    </tr>
    <%'for i=1 to request("buzhoushu")
	'dim a
'a=a+1%>
    <tr> 
      <td> 
        <div align="center"><a href="liucheng/senddate.asp?id=<%=rs1("id")%>&num=<%=request("buzhoushu")%>" target="_blank">添加受理人<%'=a%></a></div>
      </td>
    </tr> <%'next%>
    <tr>
      <td>
        <div align="center">
          <p>&nbsp;</p>
          <hr noshade size="1">
          <p><br>
            <a href="liucheng/end.asp"><font size="2"> 下一步</font></a></p>
        </div>
      </td>
    </tr>
   
  </table>
　　　　　　　　　 
</center>
<%
call bgback()
%>

<p>&nbsp;</p>
<p>&nbsp;</p>
<p>&nbsp;</p>
</body>
</html>