正在阅读：ASP代码的对象化ASP代码的对象化

2004-06-01 10:14 出处：CSDN 作者：doface 责任编辑：linjixiong

case "list"
 list()
 case else
 list()
end select
end sub

'========================================
'= 过程名：list
'= 参数：
'= 功　能：显示列表画面
'= 返回值：
'========================================
sub list()
dim oRs
set oRs = ActiveConnection.execute("select *,(select name from wf_config where id=w.wf_id) as wfname from wf_log w where step_id=1 and user_id=" & session("usr")("uid"))
'(select * from wf_log where id in (select max(id),wf_id,tab_id,rec_id from wf_log group by wf_id,tab_id,rec_id where wf_id= and tab_id=))
%> <img border="0" src="../images/desk/workflow-new.gif" WIDTH="32" HEIGHT="32">待办事宜：
<center>

<table bgColor="#FFFFFF" border="1" borderColorDark="#ffffff" borderColorLight="#c0c0c0" cellSpacing="0" width="99%" height="25">
 <tr>
 <td bgColor="#808080" height="15">流程名称</td>
 <td bgColor="#808080" height="15">申请人</td>
 <td bgColor="#808080" height="15">申请时间</td>
 <td bgColor="#808080" height="15">完成时间</td>
 <td bgColor="#808080" height="15">状态</td>
 <td bgColor="#808080" height="15">操作</td>
 </tr><%
do while not oRs.eof
 dim maxID,Next_id
 if glbFunc.getMaxID(oRs("id").value,ActiveConnection,maxID,Next_id) then
 %><tr>
 <td bgColor="#ffffff" height="19"><%=oRs("wfname")%></a></td>
 <td bgColor="#ffffff" height="19"><%=session("usr")("name")%> </td>
 <td bgColor="#ffffff" height="19"><%=oRs("exetime")%> </td>
 <td bgColor="#ffffff" height="19"> </td>
 <td bgColor="#ffffff" height="19"><%=glbFunc.getCurZT(oRs("id").value,ActiveConnection)%></td>
 <td bgColor="#ffffff" height="19"><a href="../PubExeTab/PubExeTab.asp?act=view&tab_id=<%=oRs("tab_id")%>&id=<%=oRs("rec_id")%>"><img src="../images/action/view.gif" border="0" alt="详细" WIDTH="16" HEIGHT="16"></a> <a href="javascript:newin('wfimage.asp?act=list&id=<%=oRs("wf_id")%>&bz=1&step_id=<%=next_id%>',true,false,false,false,true);"><img src="../images/action/lcchuli.gif" border="0" alt="流程追踪" WIDTH="16" HEIGHT="16"></a> </td><%