ASP代码的对象化


提起asp很多人就认为是一堆html脚本和被括在<%和%>之中的一些代码还有就是一些javascript脚本等筹在一起的一些代码的集合,这样的代码,再加上各类的不同格式的注释,看起来就一个字:乱。也不管别人能不能看得懂,只要是能实现自己的目的就可以了,因为asp的代码也是脚本,给了客户也不可能不被人看到其中的内容,经多包容在dll中一部分业务逻辑,但是还是觉得asp代码是最不值钱的代码,没有人回去购买,可以随时从别人的网站中查看源码的形式得到别人辛辛苦苦编写出来的独特风格的东东。这些原因使asp的发展成为了一种编的快忘的也快的代码,可读性,维护性也是各种语言中最为差的代码。
其实,asp代码也可以像其他语言一样的面向对象,模块化,将很多页面集成封装到一个类中,运用类中的不同方法来显示不同的页面,这样你可以将同一业务逻辑下的页面和逻辑封装到一个类里,用不同的方法来实现。说了这么多,可能大家的思路都乱了,赶快给大家一点范例来看看:
<%
'****************************************
'* 类名:clswebworkflowlog
'* 功能:工作流日志跟踪类
'****************************************
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之后加上参数(要访问哪个函数)即可区分出来。



相关阅读:
如何在PHP中使用Oracle数据库(4)
兼容FF的设为首页与收藏网站的JS代码
在HTML中接收地址栏中传递的参数
javascript 强制弹出窗口代码-跨拦截
网易首页的新闻代码
PHP+MYSQL网站SQL Injection攻防
Confirmer JQuery确认对话框组件
如何取得中文输入的真实长度?
脚本安需导入(装载)的三种模式的对比
深入理解AJAX响应信息的处理
asp.net WebForm页面间传值方法
引用文章链接代码复制自动加链接功能
在linux操作系统下建立虚拟内存
JavaScript 类的定义和引用 JavaScript高级培训 自定义对象
快速导航

Copyright © 2016 phpStudy | 皖ICP备18014864号-4