快捷導(dǎo)航

ASP代碼的對象化

更新時間：2006年08月26日 00:00:00 作者：

提起ASP很多人就認(rèn)為是一堆HTML腳本和被括在<%和%>之中的一些代碼還有就是一些JAVASCRIPT腳本等籌在一起的一些代碼的集合，這樣的代碼，再加上各類的不同格式的注釋，看起來就一個字：亂。也不管別人能不能看得懂，只要是能實現(xiàn)自己的目的就可以了。
因為ASP的代碼也是腳本，給了客戶也不可能不被人看到其中的內(nèi)容，經(jīng)多包容在DLL中一部分業(yè)務(wù)邏輯，但是還是覺得ASP代碼是最不值錢的代碼，沒有人回去購買，可以隨時從別人的網(wǎng)站中查看源碼的形式得到別人辛辛苦苦編寫出來的獨特風(fēng)格的東東。這些原因使ASP的發(fā)展成為了一種編的快忘的也快的代碼，可讀性，維護性也是各種語言中最為差的代碼。
其實，ASP代碼也可以像其他語言一樣的面向?qū)ο?，模塊化，將很多頁面集成封裝到一個類中，運用類中的不同方法來顯示不同的頁面，這樣你可以將同一業(yè)務(wù)邏輯下的頁面和邏輯封裝到一個類里，用不同的方法來實現(xiàn)。說了這么多，可能大家的思路都亂了，趕快給大家一點范例來看看：

復(fù)制代碼代碼如下:

 
<% 
'**************************************** 
'* 類名：clsWebWorkFlowLog      
'* 功能：工作流日志跟蹤類 
'* History：        
'*  作成：doface      
'*  日期：2003/10/24 Ver 1.0   
'*  改動：                 
'*  日期： 
'**************************************** 
class clsWebWorkFlowLog 
 '定義公開屬性存放Connection對象 
 public ActiveConnection 

 private oResponse 

 '======================================== 
 '= 過程名：main 
 '= 參  數(shù)： 
 '= 功　能：主調(diào)函數(shù) 
 '=   根據(jù)不同動作參數(shù)執(zhí)行不同的操作 
 '= 返回值： 
 '======================================== 
 sub main() 
  select case Request("act") 
  case "list" 
    list() 
   case else 
    list() 
  end select 
 end sub 

 '======================================== 
 '= 過程名：list 
 '= 參  數(shù)： 
 '= 功　能：顯示列表畫面 
 '= 返回值： 
 '======================================== 
 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=)) 
  %>  <p align="left"><img border="0" src="../images/desk/workflow-new.gif" WIDTH="32" HEIGHT="32"><font color="#FF0000"><b>待辦事宜：</b></font></p> 
  <center> 
  <table bgColor="#FFFFFF" border="1" borderColorDark="#ffffff" borderColorLight="#c0c0c0" cellSpacing="0" width="99%" height="25"> 
   <tr> 
    <td bgColor="#808080" height="15"><font color="#FFFFFF">流程名稱</font></td> 
    <td bgColor="#808080" height="15"><font color="#FFFFFF">申請人</font></td> 
    <td bgColor="#808080" height="15"><font color="#FFFFFF">申請時間</font></td> 
    <td bgColor="#808080" height="15"><font color="#FFFFFF">完成時間</font></td> 
    <td bgColor="#808080" height="15"><font color="#FFFFFF">狀態(tài)</font></td> 
    <td bgColor="#808080" height="15"><font color="#FFFFFF">操作</font></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")%>&nbsp;</td> 
   <td bgColor="#ffffff" height="19"><%=oRs("exetime")%>&nbsp;</td> 
   <td bgColor="#ffffff" height="19">&nbsp;</td> 
   <td bgColor="#ffffff" height="19"><%=glbFunc.getCurZT(oRs("id").value,ActiveConnection)%></td> 
   <td bgColor="#ffffff" height="19"><p align="left"><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="詳細(xì)" WIDTH="16" HEIGHT="16"></a>&nbsp;<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>&nbsp;</p></td><% 
end if 
   %></tr><% 
   oRs.movenext 
  loop 
  %></table>  
  </center> 
  <% 
 end sub 
end class 
'**************************************** 
'* 類結(jié)束                                
'**************************************** 
'**************************************** 
'ASP頁面開始        
'**************************************** 
'輸出標(biāo)準(zhǔn)HTML頭 
glbFunc.writeHEAD 
dim oWebWorkFlowLog 
set oWebWorkFlowLog = new clsWebWorkFlowLog 
set oWebWorkFlowLog.ActiveConnection = glbFunc.getADOConnection 
oWebWorkFlowLog.main  
glbFunc.writeTail() 
%> 