<% 

'**************************************** 

'* 類(lèi)名：clswebworkflowlog      

'* 功能：工作流日志跟蹤類(lèi) 

'**************************************** 

class clswebworkflowlog 

 '定義公開(kāi)屬性存放connection對(duì)象 

 public activeconnection 



 private oresponse 



 '======================================== 

 '= 過(guò)程名：main 

 '= 參  數(shù)： 

 '= 功　能：主調(diào)函數(shù) 

 '=   根據(jù)不同動(dòng)作參數(shù)執(zhí)行不同的操作 

 '= 返回值： 

 '======================================== 

 sub main() 

  select case request("act") 

  case "list" 

    list() 

   case else 

    list() 

  end select 

 end sub 



 '======================================== 

 '= 過(guò)程名：list 

 '= 參  數(shù)： 

 '= 功　能：顯示列表畫(huà)面 

 '= 返回值： 

 '======================================== 

 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=)) 

  %>  


 

   <% 

 end sub 

end class 

'**************************************** 

'* 類(lèi)結(jié)束                                

'**************************************** 

'**************************************** 

'asp頁(yè)面開(kāi)始        

'**************************************** 

'輸出標(biāo)準(zhǔn)html頭 

glbfunc.writehead 

dim owebworkflowlog 

set owebworkflowlog = new clswebworkflowlog 

set owebworkflowlog.activeconnection = glbfunc.getadoconnection 

owebworkflowlog.main  

glbfunc.writetail() 

%>