ASP代码的对象化[网站编程]

赞助商链接

分享到： QQ空间 新浪微博 腾讯微博 人人网

　　本文“ASP代码的对象化[网站编程]”是由七道奇为您精心收集，来源于网络转载，文章版权归文章作者所有，本站不对其观点以及内容做任何评价，请读者自行判断，以下是其具体内容：

提起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=))
%> <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">状况</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")%> </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"><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="具体" 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> </p></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()
%>

可以增添更多的办法,这样这一个类就可以完成从前多个ASP文件的功效.拜候的时刻,在 .ASP之后加上参数（要拜候哪个函数）便可辨别出来.

　　以上是“ASP代码的对象化[网站编程]”的内容，如果你对以上该文章内容感兴趣，你可以看看七道奇为您推荐以下文章：

判断能否是蜘蛛的asp代码

ASP代码获得真实ip的

ASP代码的对象化

asp代码实现网站目录自动跳转