ASP 环境下 VBS 事件应用 示例代码
更新时间：2007年03月24日 00:00:00 作者：
<%
Class TopicModel
Public OnView
Public Function Load(id)
IF Not(IsEvent(OnView)) Then
OnView(1)
End IF
End Function
Function IsEvent(evnet)
IsEvent = IsEmpty(evnet)
End Function
End Class
Sub UpdateViewCounter(value)
Response.Write("Counter Add "& value &" .")
End Sub
Dim topic : Set topic = new TopicModel
Set topic.OnView = GetRef("UpdateViewCounter")
topic.Load(1)
%>
差点把 GetRef 这个函数忘记了 今天刚好看到
写了个简单示例 有兴趣的可以在自己的项目上应用下
不过 VBS 的事件弱了点 最实际的好处其实是可以动态调用过程或函数
Class TopicModel
Public OnView
Public Function Load(id)
IF Not(IsEvent(OnView)) Then
OnView(1)
End IF
End Function
Function IsEvent(evnet)
IsEvent = IsEmpty(evnet)
End Function
End Class
Sub UpdateViewCounter(value)
Response.Write("Counter Add "& value &" .")
End Sub
Dim topic : Set topic = new TopicModel
Set topic.OnView = GetRef("UpdateViewCounter")
topic.Load(1)
%>
差点把 GetRef 这个函数忘记了 今天刚好看到
写了个简单示例 有兴趣的可以在自己的项目上应用下
不过 VBS 的事件弱了点 最实际的好处其实是可以动态调用过程或函数
相关文章
验证码识别技术...2007-02-02
asp中尤其是需要生产静态的cms系统中，经常需要对一些文件进行判断与创建，删除的操作，这里整理了一些，基本上满足了基本需要。2011-01-01
今天在用ASP做项目时用到了分页，其中计算页面总数时让我折腾了半天，当设置每页显示的记录数不同时，计算页面总数总是有误，于是在网上查看别人的算法，现拿来分享相关代码2012-01-01
asp 动态数组 提供Add、Insert、Remove、RemoveAt、Search等方法。
asp动态数组，提供Add、Insert、Remove、RemoveAt、Search等方法。可以在数组中存储对象不考虑效率问题2009-10-10
FpHtmlEnCode 函数之标题过滤特殊符号的代码...2007-09-09
asp下返回以千分位显示数字格式化的数值...2007-08-08
asp之日期和时间函数示例...2007-09-09
asp中用数据库生成不重复的流水号的实现代码，需要的朋友可以参考下实现原理其它程序一样。2006-09-09
asp CutStrX字符串截取函数(过滤全部HTML标记)
asp CutStrX字符串截取函数(过滤全部HTML标记),比较不错，需要的朋友可以参考下。2011-07-07
获取字符中中文首字字符...2006-10-10
最新评论