|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
asp可以轻松地实现对页面内容的动态控制,根据不同的浏览者,显示不同的页面内容。而浏览者一点觉察不出来,就像为他专门制作的页面一样。使用各种各样的组件,asp可以完成无比强大的功能。提起ASP良多人就以为是一堆HTML剧本和被括在<%和%>当中的一些代码另有就是一些javascript剧本等筹在一同的一些代码的汇合,如许的代码,再加上各种的分歧格局的正文,看起来就一个字:乱。也不论他人能不克不及看得懂,只需是能完成本人的目标就能够了。由于ASP的代码也是剧本,给了客户也不成能不被人看到个中的内容,经多包涵在DLL中一部分营业逻辑,可是仍是以为ASP代码是最不值钱的代码,没有人归去购置,能够随时从他人的网站中检察源码的情势失掉他人辛辛劳苦编写出来的共同作风的东东。这些缘故原由使ASP的开展成了一种编的快忘的也快的代码,可读性,保护性也是各类言语中最为差的代码。
实在,ASP代码也能够像其他言语一样的面向工具,模块化,将良多页面集成封装到一个类中,使用类中的分歧办法来显现分歧的页面,如许你能够将统一营业逻辑下的页面和逻辑封装到一个类里,用分歧的办法来完成。说了这么多,大概人人的思绪都乱了,从速给人人一点典范来看看:
<%
****************************************
*类名:clsWebWorkFlowLog
*功效:事情流日记跟踪类
*History:
*作成:doface
*日期:2003/10/24Ver1.0
*修改:
*日期:
****************************************
classclsWebWorkFlowLog
界说公然属性寄存Connection工具
publicActiveConnection
privateoResponse
========================================
=历程名:main
=参数:
=功 能:主调函数
=依据分歧举措参数实行分歧的操纵
=前往值:
========================================
submain()
selectcaseRequest("act")
case"list"
list()
caseelse
list()
endselect
endsub
========================================
=历程名:list
=参数:
=功 能:显现列表画面
=前往值:
========================================
sublist()
dimoRs
setoRs=ActiveConnection.execute("select*,(selectnamefromwf_configwhereid=w.wf_id)aswfnamefromwf_logwwherestep_id=1anduser_id="&session("usr")("uid"))
(select*fromwf_logwhereidin(selectmax(id),wf_id,tab_id,rec_idfromwf_loggroupbywf_id,tab_id,rec_idwherewf_id=andtab_id=))
%><palign="left"><fontcolor="#FF0000"><b>待做事宜:</b></font></p>
<center>
<tablebgColor="#FFFFFF"border="1"borderColorDark="#ffffff"borderColorLight="#c0c0c0"cellSpacing="0"width="99%"height="25">
<tr>
<tdbgColor="#808080"height="15"><fontcolor="#FFFFFF">流程称号</font></td>
<tdbgColor="#808080"height="15"><fontcolor="#FFFFFF">请求人</font></td>
<tdbgColor="#808080"height="15"><fontcolor="#FFFFFF">请求工夫</font></td>
<tdbgColor="#808080"height="15"><fontcolor="#FFFFFF">完成工夫</font></td>
<tdbgColor="#808080"height="15"><fontcolor="#FFFFFF">形态</font></td>
<tdbgColor="#808080"height="15"><fontcolor="#FFFFFF">操纵</font></td>
</tr><%
dowhilenotoRs.eof
dimmaxID,Next_id
ifglbFunc.getMaxID(oRs("id").value,ActiveConnection,maxID,Next_id)then
%><tr>
<tdbgColor="#ffffff"height="19"><%=oRs("wfname")%></a></td>
<tdbgColor="#ffffff"height="19"><%=session("usr")("name")%></td>
<tdbgColor="#ffffff"height="19"><%=oRs("exetime")%></td>
<tdbgColor="#ffffff"height="19"></td>
<tdbgColor="#ffffff"height="19"><%=glbFunc.getCurZT(oRs("id").value,ActiveConnection)%></td>
<tdbgColor="#ffffff"height="19"><palign="left"><ahref="../PubExeTab/PubExeTab.asp?act=view&tab_id=<%=oRs("tab_id")%>&id=<%=oRs("rec_id")%>"></a></p></td><%
endif
%></tr><%
oRs.movenext
loop
%></table>
</center>
<%
endsub
endclass
****************************************
*类停止
****************************************
****************************************
ASP页面入手下手
****************************************
输入尺度HTML头
glbFunc.writeHEAD
dimoWebWorkFlowLog
setoWebWorkFlowLog=newclsWebWorkFlowLog
setoWebWorkFlowLog.ActiveConnection=glbFunc.getADOConnection
oWebWorkFlowLog.main
glbFunc.writeTail()
%>
能够增加更多的办法,如许这一个类就可以完成之前多个ASP文件的功效。会见的时分,在.ASP以后加上参数(要会见哪一个函数)便可辨别出来。
想法是和程序员的想法不一样的.至于为什么.大家去想一想.跟心理学有关的 |
|