displayallcheckinf[1].asp.bak.htm

来自「OFFICE办公自动化」· HTM 代码 · 共 64 行

<%
sub displayallcheckinf(date_id)
 dim rs
 dim sql
 set rs=server.createobject("adodb.recordset")
 sql="select * from workflow_check_rec where date_id=" & date_id & " order by id"
 rs.open sql,oConn,1
 while not rs.eof and not rs.bof
%>
<table border=1 width="90%" bordercolor="#3F608F" style="border-collapse: collapse">
<tr>
<td width="100">审批人：</td>
<td><%=usernametoname(rs("checkusername"))%>
<%
 dim checkname
 checkname=usernametoname(rs("checkusername"))
 if checkname="" then
  response.write "&nbsp;"
 else
  response.write checkname
 end if
%> 　</td>
</tr>
<tr>
<td>审批结果：</td>
<td>
<%
 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>审批时间：</td>
<td>
<%
 dim checktime
 if checkstate="待审批" then
  checktime="&nbsp;"
 else
  checktime=rs("check_date")
 end if
 response.write checktime 
%> 　</td>
</tr>
<tr>
<td>审批意见：</td>
<td><%=HtmlOut(rs("check_content"))%>　</td>
</tr>
</table>
<br>
<%
 rs.movenext
 wend
 rs.close
 set rs=nothing
end sub
%>