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 的事件弱了点 最实际的好处其实是可以动态调用过程或函数
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 的事件弱了点 最实际的好处其实是可以动态调用过程或函数