<% 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 %>

审批人：	<%=usernametoname(rs("checkusername"))%> <% dim checkname checkname=usernametoname(rs("checkusername")) if checkname="" then response.write " " else response.write checkname end if %>
审批结果：	<% 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 %>
审批时间：	<% dim checktime if checkstate="待审批" then checktime=" " else checktime=rs("check_date") end if response.write checktime %>
审批意见：	<%=HtmlOut(rs("check_content"))%>

<% rs.movenext wend rs.close set rs=nothing end sub %>