您现在的位置是：网站首页> 编程资料编程资料
ASP 环境下 VBS 事件应用 示例代码_应用技巧_
2023-05-25
337人已围观
简介 ASP 环境下 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 的事件弱了点 最实际的好处其实是可以动态调用过程或函数
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 的事件弱了点 最实际的好处其实是可以动态调用过程或函数
相关内容
- 服务端 VBScript 与 JScript 几个相同特性的写法与示例_应用技巧_
- 实例分析之用ASP编程实现网络内容快速查找的代码_应用技巧_
- ASP中经常使用的SQL语句与教程说明_应用技巧_
- asp动态级联菜单代码_应用技巧_
- 可用的ASP无重复数字随机函数, 数组实现, 并应用于随机显示记录集_应用技巧_
- 方便的大家admin及admin888 经过 md5加密后16位和32位代码_ASP基础_
- chr(9)、chr(10)、chr(13)、chr(32)、chr(34)讲解_ASP基础_
- asp中去除内容HTML标签的三个function函数_应用技巧_
- asp中创建多级目录的两段代码_应用技巧_
- asp的一个日期格式化函数_ASP基础_
