ASP代码的对象化

一大波猴子

一大波猴子

2016-01-29 18:45

ASP代码的对象化,ASP代码的对象化
 

doface(原作)

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

<%
'****************************************

'* 类名:clsWebWorkFlowLog    

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

'* History:      

'*  作成:doface    

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

'*  改动:               

(本文来源于图老师网站,更多请访问http://m.tulaoshi.com/asp/)

'*  日期:

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

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="http://img.jcwcn.com/attachment/portal/jcwcj/2005-12/10/05121000463720667.gif" WIDTH="32" HEIGHT="32"<font color="#FF0000"<b待办事宜:</b</font</p
  <center

(本文来源于图老师网站,更多请访问http://m.tulaoshi.com/asp/)

  <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"&

展开更多 50%)
分享

猜你喜欢

ASP代码的对象化

ASP
ASP代码的对象化

将html源代码规范化 转换成XSL代码的asp工具

ASP
将html源代码规范化 转换成XSL代码的asp工具

s8lol主宰符文怎么配

英雄联盟 网络游戏
s8lol主宰符文怎么配

ASP内置对象 Request对象 详解

ASP
ASP内置对象 Request对象 详解

js使用对象直接量创建对象的代码

Web开发
js使用对象直接量创建对象的代码

lol偷钱流符文搭配推荐

英雄联盟 网络游戏
lol偷钱流符文搭配推荐

JavaScript中的对象化编程

Web开发
JavaScript中的对象化编程

ASP中的内建对象Server

ASP
ASP中的内建对象Server

lolAD刺客新符文搭配推荐

英雄联盟
lolAD刺客新符文搭配推荐

linux磁盘管理命令--dd

linux磁盘管理命令--dd

Photoshop CS3教程:把冷冷的月亮打造成浪漫梦幻效果

Photoshop CS3教程:把冷冷的月亮打造成浪漫梦幻效果
下拉加载更多内容 ↓