ASP代码的对象化(3)

end if
   %></tr><%
   oRs.movenext
  loop
  %></table> 
  </center>
  <%
 end sub
end class
'****************************************
'* 类结束                               
'****************************************
'****************************************
'ASP页面开始       
'****************************************
'输出标准HTML头
glbFunc.writeHEAD
dim oWebWorkFlowLog
set oWebWorkFlowLog = new clsWebWorkFlowLog
set oWebWorkFlowLog.ActiveConnection = glbFunc.getADOConnection
oWebWorkFlowLog.main 
glbFunc.writeTail()
%>