Application of example code for VBS event in ASP environment-application Tips

<%
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)
%>
Almost forgot about the GETREF function, and I just saw it today.
Write a simple example that is interesting to apply on your own project
But the VBS event is a little bit weaker. The most practical benefit is that you can dynamically invoke a procedure or function