displayflowstep.asp

来自「OFFICE办公自动化」· ASP 代码 · 共 232 行

<%
'文件名：displayflowstep.asp
'作者：展亮
'功能：显示公文流程表
'参数：form_name'表单名,flow_name'流程名
'开发时间：2003-11-2 20:49
%>
<%
'--------------------------------------------------------------------
sub displayflow(flow_name)
 dim rs
 dim sql
  set rs=server.createobject("adodb.recordset")
 sql="select * from workflow_flow_construction where flow_name='" & cString(flow_name) & "' and action_type='开始'"
 rs.open sql,oConn,1
 if not rs.eof and not rs.bof then
  call displayflowunit(flow_name,rs("flow_no"))
  call displaynextflow(flow_name,rs("flow_no"))
 end if
 rs.close
 set rs=nothing
end sub
'-------------------------------------------------------------------
sub displaynextflow(flow_name,flow_no)
 dim rs
 dim sql
 dim rscount
  set rs=server.createobject("adodb.recordset")
 sql="select * from workflow_flow_construction where flow_name='" & cString(flow_name) & "' and parent_no=" & flow_no
 rs.open sql,oConn,1
 rscount=0
 if not rs.eof and not rs.bof then
  rscount=rs.recordcount
  if rscount>1 then
%>
↓
<%
  end if
%>
<table border="0" cellspacing="0" cellpadding="0">
<tr>
<%
  tdno=0
  while not rs.eof and not rs.bof
   tdno=tdno+1
%>
<td align=center valign=top>
<%
   if rscount>1 then
    if tdno=1 then
%>
<table border="0"  cellspacing="0" cellpadding="0" width="100%" height=1>
<tr>
<td width="50%"></td><td width="50%" bgcolor="#000000"></td>
</tr>
</table>
<%
    else
     if tdno=rscount then
%>
<table border="0"  cellspacing="0" cellpadding="0" width="100%" height=1>
<tr>
<td width="50%" bgcolor="#000000"></td><td width="50%"></td>
</tr>
</table>
<%
     else
%>
<table border="0"  cellspacing="0" cellpadding="0" width="100%" height=1>
<tr>
<td width="50%" bgcolor="#000000"></td><td width="50%" bgcolor="#000000"></td>
</tr>
</table>
<%
     end if
    end if
   end if
%>
↓
<%
   call displayflowunit(flow_name,rs("flow_no"))
   call displaynextflow(flow_name,rs("flow_no"))
%>
</td>
<%
   rs.movenext
  wend
%>
</tr>
</table>
<%
 end if
 rs.close
 set rs=nothing
end sub
'-----------------------------------------------------------------
sub displayflowunit(flow_name,flow_no)
 dim rs
 dim sql
  set rs=server.createobject("adodb.recordset")
 sql="select * from workflow_flow_construction where flow_name='" & cString(flow_name) & "' and flow_no=" & flow_no
 rs.open sql,oConn,1
%>
<table cellspacing="1">
<tr>
<td class="tdBottom" style="border: 1 solid #000000">
<a href="" onclick="
document.form2.id.value='<%=rs("id")%>';

document.form2.flow_no.value='<%=rs("flow_no")%>';

var optionlen=document.form2.parent_no.options.length;
for(var i=optionlen-1;i>=0;--i){
  if(document.form2.parent_no.options(i).value=='<%=rs("parent_no")%>'){
    document.form2.parent_no.options(i).selected=true;
  }
};

document.form2.flow_title.value='<%=rs("flow_title")%>';

var optionlen1=document.form2.action_type.options.length;
for(var i=optionlen1-1;i>=0;--i){
  if(document.form2.action_type.options(i).value=='<%=rs("action_type")%>'){
    document.form2.action_type.options(i).selected=true;
  }
};

var optionlen2=document.form2.form_unit.options.length;
for(var i=optionlen2-1;i>=0;--i){
  if(document.form2.form_unit.options(i).value=='<%=rs("form_unit")%>'){
    document.form2.form_unit.options(i).selected=true;
  }
};

var optionlen3=document.form2.judge_symbol.options.length;
for(var i=optionlen3-1;i>=0;--i){
  if(document.form2.judge_symbol.options(i).value=='<%=rs("judge_symbol")%>'){
    document.form2.judge_symbol.options(i).selected=true;
  }
};

document.form2.judge_value.value='<%=rs("judge_value")%>';

var optionlen4=document.form2.tell_type.options.length;
for(var i=optionlen4-1;i>=0;--i){
  if(document.form2.tell_type.options(i).value=='<%=rs("tell_type")%>'){
    document.form2.tell_type.options(i).selected=true;
  }
};

var optionlen5=document.form2.judge_type.options.length;
for(var i=optionlen5-1;i>=0;--i){
  if(document.form2.judge_type.options(i).value=='<%=rs("judge_type")%>'){
    document.form2.judge_type.options(i).selected=true;
  }
};

var optionlen6=document.form2.judge_result.options.length;
for(var i=optionlen6-1;i>=0;--i){
  if(document.form2.judge_result.options(i).value=='<%=rs("judge_result")%>'){
    document.form2.judge_result.options(i).selected=true;
  }
};

var optionlen7=document.form2.check_member.options.length;

document.form2.blrylb.value='<%=rs("blrylb")%>'; 
document.form2.blryxmlb.value='<%=GetUserNames(rs("blrylb"),",")%>';
		
for(var i=optionlen7-1;i>=0;--i){
  if(document.form2.check_member.options(i).value=='<%=rs("check_member")%>'){
    document.form2.check_member.options(i).selected=true;
		
		
		
	}
};

var optionlen8=document.form2.company_member.options.length;
for(var i=optionlen8-1;i>=0;--i){
  if(document.form2.company_member.options(i).value=='<%=rs("company_member")%>'){
    document.form2.company_member.options(i).selected=true;
  }
};


document.form2.submit1.disabled='';
document.form2.submit2.disabled='';
chang();
return false;
">
序号：<%=rs("flow_no")%><br>
动作：<%=rs("action_type")%><br>
说明：<%=rs("flow_title")%>
</a>
</td>
</tr>
</table>
<%
 rs.close
 set rs=nothing
end sub
'--------------------------------------------------------------------------
%>
<%
sub displayformoption(flow_name)
 dim rs
 dim sql
 dim rs1
  set rs=server.createobject("adodb.recordset")
 sql="select form_name from workflow_form_name where flow_name='" & cString(flow_name)&"'"
 rs.open sql,oConn,1
 if not rs.eof and not rs.bof then
  set rs1=server.createobject("adodb.recordset")
  sql="select * from workflow_form_construction where form_name='" & cString(rs("form_name"))&"'"
  rs1.open sql,oConn,1
  while not rs1.eof and not rs1.bof
%>
<option value="<%=rs1("form_arrno")%>"><%=rs1("form_title")%></option>
<%
   rs1.movenext
  wend
  rs1.close
  set rs1=nothing
 end if
 rs.close
 set rs=nothing
end sub
%>


<html></html>