欢迎您访问程序员文章站本站旨在为大家提供分享程序员计算机编程知识!
您现在的位置是: 首页  >  IT编程

ASP 环境下 VBS 事件应用 示例代码

程序员文章站 2023-01-03 22:13:29
<% class topicmodel  public onview  public function l...
<%
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 的事件弱了点 最实际的好处其实是可以动态调用过程或函数