displaycheckinf.asp

OFFICE办公自动化

<%
sub displaycheckinf(flow_name,flow_no,date_id)
 dim check_flow_no
 'check_flow_no=flow_no_check(flow_name,flow_no)
 if check_flow_no<>"" then
  
  dim rs
  dim sql
  set rs=server.createobject("adodb.recordset")
  sql="select * from workflow_check_rec where flow_no=" & flow_no & " and flow_name='" & cString(flow_name) & "' and date_id=" & date_id
  rs.open sql,oConn,1
  if not rs.eof and not rs.bof then
%>
<table width="500" border=0 cellpadding="2" cellspacing="1" class="tab">
<tr>
<td class=tdtop nowrap width="100" height="30">审批人：</td>
<td class=td2>
<%
   dim checkname
   checkname=usernametoname(rs("checkusername"))
   if checkname="" then
    response.write "&nbsp;"
   else
    response.write checkname
   end if
%> 　</td>
</tr>
<tr>
<td class=tdtop nowrap width="100" height="30">审批结果：</td>
<td class=td2>
<%
   dim checkstate
   checkstate=""
   if rs("ifcheck")<>"yes" then
    checkstate="待审批"
   else
    if rs("ifagree")="yes" then checkstate="同意"
    if rs("ifagree")="no" then checkstate="不同意"
   end if
   response.write checkstate
%> 　</td>
</tr>
<tr>
<td class=tdtop nowrap width="100" height="30">审批时间：</td>
<td class=td2>
<%
   dim checktime
   if checkstate="待审批" then
    checktime="&nbsp;"
   else
    checktime=rs("check_date")
   end if
   response.write checktime 
%> 　</td>
</tr>
<tr>
<td class=tdtop nowrap width="100" height="30">审批意见：</td>
<td class=td2><%=HtmlOut(check_content)%>　</td>
</tr>
</table>
<br>
<%
   call displaycheckinf(flow_name,check_flow_no,date_id)
  end if
  rs.close
  set rs=nothing
 end if
end sub
%>