📄 func_workdefine.asp

📁 企业办公简单管理系统,可以发布信息以及论坛
💻 ASP
字号:
<SCRIPT LANGUAGE="JavaScript">
<!--
	function MM_jumpMenu(targ,selObj,restore)
	{ //v3.0
	  	eval(targ+".location='"+selObj.options[selObj.selectedIndex].value+"'");
	  	if (restore) selObj.selectedIndex=0;
	}
	function DoSubmit0(value)
	{
		document.selectform.wfid.value=value;
		document.selectform.submit();
	}

	function DoSubmit1(value1,value2,value3)
	{
		if(!confirm("删除后将无法恢复，一定要删除吗？"))
			return;
		document.deleform.deleteid.value=value1;
		document.deleform.wfid.value=value2;
		document.deleform.deleteflag.value=value3;
		document.deleform.submit();
	}
	
	function DoSubmit2(value1,value2)
	{
		document.selectform2.selectid.value=value1;
		document.selectform2.wfid.value=value2;
		document.selectform2.selectflag.value=2;
		document.selectform2.submit();
	}
function CheckInput()
{
	if(!confirm("工作流名称录入一经确认，便无法更改，确认吗？"))
		return false;
		
	return true;
}	

	
//-->
</SCRIPT>
<!-- #include file="func_verify.asp" -->
<%


function CheckInfo(str)
	dim i
	CheckInfo=""
	if not isnull(str) then 
		for i=1 to len(str)
			if mid(str,i,1)=" " then
				CheckInfo=CheckInfo&"&nbsp;"
			elseif mid(str,i,1)=chr(13) and mid(str,i+1,1)=chr(10) then
				CheckInfo=CheckInfo&"<br>"
				i=i+1
			else
				CheckInfo=CheckInfo&mid(str,i,1) 
			end if
		next
	end if
end function


dim sumcount,saveserial

set rs = Server.CreateObject("ADODB.Recordset")

if request("deleteflag")="1" then
	sql="delete from cci_oa_workflow where wfid=" & request("wfid")
	ConnObj.execute(sql)
	msg="信息删除成功，编号为:" & request("deleteid")
	response.Write("<div align=center><font color=#FF0000>" &msg & "</font></div>")
elseif request("deleteflag")="2" then
	sql="delete from cci_oa_wfdefine where id=" & request("deleteid")
	ConnObj.execute(sql)
	sql="delete from cci_oa_workflow where wfid=" & request("deleteid")
	ConnObj.execute(sql)
	msg="信息删除成功，编号为:" & request("deleteid")
	response.Write("<div align=center><font color=#FF0000>" &msg & "</font></div>")
	
end if

dim msg
saveserial=1
msg=""

if request("saveflag")="1" or request("saveflag")="2" then

	if trim(request("deptid"))="" then
		msg=msg & saveserial & "、请选择部门!<br>"
		saveserial=saveserial+1
	end if
	
	if trim(request("stationid"))="" then
		msg=msg & saveserial & "、请选择岗位!<br>"
		saveserial=saveserial+1
	end if
	if trim(request("iorder"))="" then
		msg=msg & saveserial & "、请输入顺序号!<br>"
		saveserial=saveserial+1
	end if
	
	if saveserial<=1 then
		if request("saveflag")="2" then
			sql="select * from cci_oa_workflow where id=" & request("selectid")
		else
			sql="select * from cci_oa_workflow"
		end if
		rs.open sql,connobj,3,3
		
		if request("saveflag")<>"2" then
			rs.addnew
		end if
		rs("deptid")=request("deptid")
		rs("stationid")=request("stationid")
		rs("iorder")=request("iorder")
		rs("wfid")=request("wfid")
		
		rs.update
		rs.close
		
		msg="工作流节点"
		if request("saveflag")="2" then
			msg=msg & "修改"
		else
			msg=msg & "添加"
		end if
		msg=msg & "成功！" & site_title & "谢谢您的支持!"
	end if
	response.Write("<div align=center><font color=#FF0000>" &msg & "</font></div>")
elseif request("saveflag")="3" then
	if trim(request("wfname"))="" then
		msg=msg & saveserial & "、请输入工作流名称，工作流名称不能为空!<br>"
		saveserial=saveserial+1
	end if
	if saveserial<=1 then
		sql="select * from cci_oa_wfdefine"
		rs.open sql,connobj,3,3
		rs.addnew
		rs("taskid")=request("taskid")
		rs("wfname")=request("wfname")
		rs.update
		rs.close
		msg="工作流名称添加成功,"& site_title & "谢谢您的支持,请继续定义该工作流的工作流节点!"
	end if	
	response.Write("<div align=center><font color=#FF0000>" &msg & "</font></div>")
end if


SQL = "select a.id,a.wfName,b.taskname From cci_oa_wfdefine a,cci_oa_tasklist b where a.taskid=b.id order by a.id desc"
Rs.Open Sql,connObj,1,1
sumcount=rs.recordcount
%>				
<table width="100%" align="center" cellpadding="1" cellspacing="1" class=tableBorder1>
        <tr> 
		
    <th  height="25" align="center"> <b><%=site_title%>工作流维护</b> 
      <div align="right"></div></th>
        </tr>
   
        <tr> 
          <td  align="center" valign="top" bgcolor="#FFFFFF" > 
                  
             <table width="100%" cellpadding="1" cellspacing="1" class=tableborder1>
              <tr align="center" height=25> 
              <td width="50" class=TopLighNav><b>编号</b></td>  
          <td class=TopLighNav><b>工作流名称</b></td>
		   <td width="120" class=TopLighNav><b>对应任务</b></td>
		  <td width="50" class=TopLighNav><b>定义</b></td>
		  <td width="50" class=TopLighNav><b>删除</b></td>
         </tr>
              <%
				If (Not Rs.Eof) And (Not Rs.Bof) Then
					page_size = 5
					Rs.pagesize = page_size
					page_count = Rs.pagecount
					Page = Request.QueryString("page")
					If Isnull(Page) or (Not Isnumeric(Page)) Then
						aPage = 1
					Else
						aPage = Cint(page)
						If aPage < 1 Then
							aPage = 1
						ElseIf aPage > Cint(page_count) Then
							aPage = page_count
						End If
					End If
					Rs.Absolutepage = aPage
					Ars = Rs.Getrows(page_size)
			  
					For i = 0 To Ubound(Ars,2)
				%>
              <tr bgcolor=#FFFFFF align="center" height= 20> 
			  <td><%=Ars(0,i)%></td>
                <td><%=Ars(1,i)%></td>
               <td><%=Ars(2,i)%></td>
				<td><input type=radio name=abc <%if request("wfid")=cstr(ars(0,i)) then 
													response.Write("checked")
												 end if	
													%> onclick="DoSubmit0(<%=trim(Ars(0,i))%>)"></td>
				<td><input type=radio name=bcd onclick="DoSubmit1(<%=ars(0,i)%>,0,2)"></td>									
				
              </tr>
              <%
			    
				Next
			Else
				Response.Write("<tr><td bgcolor=#FFFFFF align=center colspan=5>目前没有工作流纪录!</td></tr>")
			End If
			rs.close
				%>
            </table>
                
                </td>
              </tr>
              
                <tr bgcolor="#EEEEEE">  <form name="form1">
                  <td height="24" align="right" bgcolor="#ffffff" >
                    <%
						If sumcount > 0 Then
					%>
                            [共有 
                            <% = sumcount %>
                            条记录 页: 
                            <% = aPage %>
                            / 
                            <% = page_count %>
                            ] 
<%
	if Cint(aPage) > 1 then	
%>
                            [<a href="workdefine.asp?page=<% = aPage - 1 %>">上一页</a>] 
<%
	else
	response.write "[上一页]"
	end if
	if (Cint(aPage) < Cint(page_count)) then
%>
                            [<a href="workdefine.asp?page=<% = aPage + 1 %>">下一页</a>] 
<%
	else
	response.write "[下一页]"
	end if
%>
                            跳到
							<select name="menu1" onChange="MM_jumpMenu('parent',this,0)">
<%
		For i = 1 to page_count
		If i = aPage Then			
%>
		<option value="workdefine.asp?page=<% = i %>" selected><% = i %></option>
<%
		else
%>
		<option value="workdefine.asp?page=<% = i %>"><% = i %></option>
<%
		End If
		Next
%>
                            </select>页
<%
	Else
	Response.Write("&nbsp;")
	End If
%>
                  </td> </form>
                </tr>
             
          
      </table>

<%
if request("wfid")<>"" then
%>
<table width="100%" align="center" cellpadding="1" cellspacing="1" class=tableborder1>
  <form name="theform" method="post" action="">
    <tr > 
      <td height="20" colspan="5" align="center" class=TopLighNav><b>工作流定义栏</b></td>
    </tr>
	<tr>
      <td class=tablebody1 align="center">部门名称</td>
      <td width="150" class=tablebody1 align="center">岗位名称</td>
	   <td width="100" class=tablebody1 align="center">顺序号</td>
	   <td width="50" class=tablebody1  align="center">修改</td>
	   <td width="50" class=tablebody1  align="center">删除</td>
    </tr>
	<%
	
		sql="select a.id,b.wfname,c.deptname,d.stationname,a.iorder from cci_oa_workflow a,cci_oa_wfdefine b,cci_dept c,cci_station d where a.wfid=b.id and a.deptid=c.id and a.stationid=d.id and a.wfid=" & request("wfid") & " order by a.iorder"
		Rs.Open Sql,connObj,1,1
		do while not rs.eof
	%>	
    <tr>
      <td class=tablebody1 align="center"><%=rs("deptname")%></td>
      <td class=tablebody1 align="center"><%=rs("stationname")%></td>
	  <td class=tablebody1 align="center"><%=rs("iorder")%></td>
	  <td class=tablebody1 align="center"><input type=radio name=abc <%if request("selectid")=cstr(rs("id")) then response.Write "checked"%> onclick="DoSubmit2(<%=rs("id")%>,<%=request("wfid")%>)"></td>
	  <td class=tablebody1 align="center"><input type=radio name=bcd onclick="DoSubmit1(<%=rs("id")%>,<%=request("wfid")%>,1)"></td>
    </tr>
<%
		rs.movenext
	loop
	rs.close
	if request("selectflag")="2" then
		sql="select * from cci_oa_workflow where id=" & request("selectid")
		'response.Write(sql)
		'if t>0 then
		rs.Open Sql,connObj,1,1
		if not rs.eof then
			deptid=rs("deptid")
			stationid=rs("stationid")
			iorder=rs("iorder")
			wfid=rs("wfid")
		end if
		rs.close
	else
		wfid=request("wfid")
	end if
%>
	  
    <tr>
      <td class=tablebody1 align="center"><input type=hidden name=selectid value="<%=request("selectid")%>"><select name="deptid" id="deptid">
	  <%
	  	iflag=0
	  	sql="select * from cci_dept"
		Rs.Open Sql,connObj,1,1
		do while not rs.eof
			if rs("id")=deptid then
				response.Write "<option value=" & rs("id") & " selected>" & rs("deptname")& "</option>"
				iflag=1
			end if
			response.Write "<option value=" & rs("id") & ">" & rs("deptname")& "</option>"
			rs.movenext
	  	loop
		rs.close
		if iflag=0 then
			response.Write("<option selected></option>")
		else
			response.Write("<option></option>")
		end if
	  %>
	  </select></td>
	  <td class=tablebody1 align="center"><select name="stationid" id="stationid">
	  <%
	  	iflag=0
	  	sql="select * from cci_station"
		Rs.Open Sql,connObj,1,1
		do while not rs.eof
			if rs("id")=stationid then
				response.Write "<option value=" & rs("id") & " selected>" & rs("stationname")& "</option>"
				iflag=1
			end if
			response.Write "<option value=" & rs("id") & ">" & rs("stationname")& "</option>"
			rs.movenext
	  	loop
		rs.close
		if iflag=0 then
			response.Write("<option selected></option>")
		else
			response.Write("<option></option>")
		end if
	  %>
	  </select></td>
	  <td class=tablebody1 align="center"><input name="iorder" type="text" value="<%=iorder%>" size="5"></td>
	  <td class=tablebody1 align="center">&nbsp;</td>
      <td align="center" class=tablebody1><input type="submit" name="Submit" value="保存"></td>
    </tr>	
	
	<input type=hidden name=saveflag value="<%
	if request("selectflag")=2 then
		response.Write("2")
	else
		response.Write("1")
	end if
	%>">
	<input type=hidden name=wfid value="<%=request("wfid")%>">
  </form>
</table>
<%
else
%>
<table width="100%" align="center" cellpadding="1" cellspacing="1" class=tableborder1>
  <form name="tform" method="post" action="" onSubmit="CheckInput()">
   <tr > 
      <td height="20" colspan="2" align="center" class=TopLighNav><b>新增工作流</b></td>
    </tr>
	<tr>
      <td width="31%" align="right" class=tablebody1>工作流名称</td>
	  <td width="69%" class=tablebody1><input name="wfname" type="text"  size="30"></td>
	</tr>
	<tr>
      <td class=tablebody1 align="right">任务名称</td>
	  <td class=tablebody1><select name="taskid">
	  <%
	  	sql="select * from cci_oa_tasklist"
		Rs.Open Sql,connObj,1,1
		do while not rs.eof
			response.Write "<option value=" & rs("id") & ">" & rs("taskname")& "</option>"
			rs.movenext
	  	loop
		rs.close
	  %></select></td>
	</tr>
	<tr>
	<td align="center" class=tablebody1>&nbsp;</td>
	<td class=tablebody1><input type="submit" name="Submit" value=" 保 存 "></td>
	</tr>
	  <input type=hidden name=saveflag value="3">
  </form>
 </table> 
<%

end if
%>
<form name=deleform action="" method=post>
<input type=hidden name=deleteid>
<input type=hidden name=wfid>
<input type=hidden name=deleteflag>
</form>
<form name=selectform action="" method=post>
<input type=hidden name=wfid>
<input type=hidden name=selectflag value="1">
</form>

<form name=selectform2 action="" method=post>
<input type=hidden name=selectid>
<input type=hidden name=wfid>
<input type=hidden name=selectflag>
</form>
⌨️ 快捷键说明

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