Sample Code of vbs event application in ASP environment

<%
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)
%>
I almost forgot the getref function. Today I saw it.
If you have written a simple example, you can apply it to your project.
However, the vbs event is weaker. The most practical advantage is that it can call a process or function dynamically.