ASP编码的对象化

发布时间：2023-04-20 13:56:58 所属栏目：Asp教程来源：

导读：提起ASP很多人就认为是一堆HTML脚本和被括在<%和%>之中的一些代码还有就是一些JAVASCRIPT脚本等筹在一起的一些代码的集合，这样的代码，再加上各类的不同格式的注释，看起来就一个字：乱。也不管别人能不能看得懂，只

提起ASP很多人就认为是一堆HTML脚本和被括在<%和%>之中的一些代码还有就是一些JAVASCRIPT脚本等筹在一起的一些代码的集合，这样的代码，再加上各类的不同格式的注释，看起来就一个字：乱。也不管别人能不能看得懂，只要是能实现自己的目的就可以了。

 因为ASP的代码也是脚本，给了客户也不可能不被人看到其中的内容，经多包容在DLL中一部分业务逻辑，但是还是觉得ASP代码是最不值钱的代码，没有人回去购买，可以随时从别人的网站中查看源码的形式得到别人辛辛苦苦编写出来的独特风格的东东。这些原因使ASP的发展成为了一种编的快忘的也快的代码，可读性，维护性也是各种语言中最为差的代码。

 其实，ASP代码也可以像其他语言一样的面向对象，模块化，将很多页面集成封装到一个类中，运用类中的不同方法来显示不同的页面，这样你可以将同一业务逻辑下的页面和逻辑封装到一个类里，用不同的方法来实现。说了这么多，可能大家的思路都乱了，赶快给大家一点范例来看看：

复制代码代码如下:

<%

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

'* 类名：clsWebWorkFlowLog

'* 功能：工作流日志跟踪类

'* History：

'* 作成：doface

'* 日期：2003/10/24 Ver 1.0

'* 改动：

'* 日期：

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

class clsWebWorkFlowLog

'定义公开属性存放Connection对象

public ActiveConnection

private oResponse

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

'= 过程名：main

'= 参数：

'= 功　能：主调函数

'= 根据不同动作参数执行不同的操作

'= 返回值：

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

sub main()

 select case Request("act")

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

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

%>

（编辑：聊城站长网）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!