displayalltellinf.asp

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

<%
sub displayalltellinf(date_id)
 dim rs
 dim sql
 set rs=server.createobject("adodb.recordset")
 sql="SELECT workflow_tell_user.flow_no, workflow_flow_construction.flow_title FROM workflow_tell_user INNER JOIN workflow_flow_construction ON workflow_tell_user.flow_name = workflow_flow_construction.flow_name AND workflow_tell_user.flow_no = workflow_flow_construction.flow_no where date_id=" & date_id & "GROUP BY workflow_tell_user.flow_no,workflow_flow_construction.flow_title order by workflow_tell_user.flow_no"
 rs.open sql,oConn,1
 while not rs.eof and not rs.bof
%>

<table width="500" border=0 cellpadding="2" cellspacing="1" class="tab">
<tr>
  <td class=tdtop nowrap width="100" height="30">流程步骤名：</td>
  <td class=td2>
    <%=rs("flow_title")%>
  </td>
  </tr>
  <tr>
  <td class=tdtop nowrap width="100" height="30">
    通知结果：
  </td>
  <td class=td2>
    <%
    set rs1=server.createobject("adodb.recordset")
    sql="select * from workflow_tell_user where date_id=" & date_id &" and flow_no=" & rs("flow_no")
    rs1.open sql,oConn,1
    while not rs1.eof and not rs1.bof
      if rs1("ifsee")="yes" then color="green" else color="red"
      response.write "<font color="&color&">"
      response.write " ("&UserNameToName(rs1("username"))&") "
      response.write "</font>"
    rs1.movenext
    wend
    set rs1=nothing
    %>
  </td>
</tr>
</table>
<br>
<%
 rs.movenext
 wend
 rs.close
 set rs=nothing
end sub
%>