遭遇ASP类的事件设计

2016-02-19 09:23 6 1 收藏

在这个颜值当道,屌丝闪边的时代,拼不过颜值拼内涵,只有知识丰富才能提升一个人的内在气质和修养,所谓人丑就要多学习,今天图老师给大家分享遭遇ASP类的事件设计,希望可以对大家能有小小的帮助。

【 tulaoshi.com - Web开发 】

作者的blog: http://blog.csdn.net/oyiboy/
我之所以还是要宣扬用MVC来开发ASP,只是想让面向过程的思考方式变成面向对象的思考方式,这个对于任何一种语言的开发员来说都是有好处的。
MVC是个标准模型,ASP要实现似乎真的是很困难,但是标准是标准,运用是运用,既然ASP要实现这个模型很难,那可以尝试着将MVC模型变形成适合自己的模型。
  “不管白猫黑猫能逮到耗子的就是好猫。”而对于我们开发者来说,不管是什么模型,能正确的指引我们的思路,完美完成项目的模型就是好模型。毕竟用户最终用是我们的程序而不是我们的模型。
  这段时间由于接触到MVC,也知道了Class的运用方式,遭遇到了事件的设计。
  其实具体的事件设计方式我也不是很明白,在QQ里newskyline跟我说了,ASP没办法作Class的事件,
只能模拟。而我呢。算是为达目的不则手段(写程序而以)的,认为模拟也好,非模拟也行,只要达到我想要的效果就是好东西。
  模拟事件的方式有两种:
  第一种:借用了execute/eval,用一个属性收取函数名的字符,然后使用execute/eval来运行函数。
    如:
      obj.OnDataUpdateStart="CheckData"
     其构造为:
      public property let OnDataUpdateStart(byval A_strValue)
      ''在此省略了对A_strValue的一些严谨的验证代码。
        p_strOnDataUpdateStart=A_strValue
      end property
    
     事件是触发为:
      public sub DataUpdate()
        ''...忽略过程...
        execute(p_strOnDataUpdateStart & "(参数变量一,参数变量二)")
        ''...忽略过程...
      end sub
    稍微提一下execute和eval的不同点。
    同样的“x=y”。execute("x=y")的结果是将y值赋给x,而eval("x=y")则会返回一个Boolean值,表示x与y的测试结果,如x等于y则返回true,反之返回false。
  第二种:借用函数指针GetRef,在vbs手册的解释上来看就是绑定事件专用的函数。具体解释如下:
    “返回一个指向一过程的引用,此过程可绑定某事件。”
    具体运用例子,如:
      obj.OnDataUpdateStart="CheckData"
      其构造则改为:
        public OnDataUpdateStart  ''其实可以使用get/let模式,想偷懒了,所以直接声明一个公开变量来传递了。
      事件触发则改为:
        public sub DataUpdate()
          ''...忽略过程...
          set me.OnDataUpdateStart=GetRef(OnDataUpdateStart)
          me.OnDataUpdateStart("参数变量一","参数变量二")
          ''...忽略过程...
        end sub
  以上两种方式可以实现事件绑定,但是,从解释上来说,我比较推崇第二种,相对于execute/eval来说更为严谨一些。 

来源:http://www.tulaoshi.com/n/20160219/1590614.html

延伸阅读
标签: Web开发
Class 声明 声明一个类的名字,就是定义一些变量,属性,方法来组成一个类。我们常常看到别的程序语言中中都有类的说明,PHP,VB,C++,这个在VBScript中的类的说明,我是第一次听到,我们的日常工作就是网站开发,在这个里面多多少少搞出点经验,像模像样也能自诩为"内行",所以我就来分享一下我所知道的这个新的东东。我们来看看下面的这个...
标签: ASP
  VBScript5中增加了许多新功能,最振奋人心的当属类和正则表达式的出现。以下是本人写的一个解析html代码的类。我是 学php的,语法有不习惯的地方,请大家多包含。 <% Class HTMLParse     ' 设置 Initialize 事件。     Private Sub Class_Initialize      &nbs...
标签: ASP
class Base64Class rem Const dim sBASE_64_CHARACTERS'转化码 dim lenString '计算字符串的长度 dim iCount '计数器 dim returnValue '返回值 dim tempChar'缓存字符 dim tempString'缓存字符串 dim paramString '参数字符串 dim temHex'缓存缓存十六进制 dim tempLow'缓存低位 dim tem...
标签: Web开发
这节,我们讲控件事件,控件因各自功能不同有不同的事件,我们不能一一赘述,看几个典型的例子! 例一 :按纽事件(command) 例二:下拉列表 例三:复选框 这个我们需要在属性里面设置 AutoPostBack的值为True,这里默认的总是 false
标签: ASP
  本文介绍如何建立基于Web的日历,同时为不熟悉Active Server Pages(ASP)、SQL和ADO的开发者提供建立Web站点的过程介绍,也为有经验的开发者提供了Web站点可伸缩性方面的技巧。 随着网络应用的发展,基于Web的日历越来越受到人们的重视,对于显示诸如最后期限或日程安排之类的重要事件,或显示谁在什么时候休假,基于Web的日历都是有用...

经验教程

697

收藏

9
微博分享 QQ分享 QQ空间 手机页面 收藏网站 回到头部