Using class in ASP instead of COM
Using class in ASP instead of COM
Rate Using class in ASP instead of COM
(2(2 Vote))
Class Records
Dim L_id
Public Property Let UserID(tempUser)
L_id = tempUser
End Property
Public Property Get ID()
ID = L_id
End Property
End Class
%>
Sub clsUsage(ByRef n)
Dim person(), counter
Redim preserve person(n)
For counter = 0 to n
set person(counter) = new Records
With person(counter)
.UserID = counter & 10 & "A"
End with
Next
For counter = 0 to n
With person(counter)
response.Write .ID & "<br>"
End with
Next
For counter = 0 to n
set person(counter) = nothing
Next
End Sub
%>
Response.write "Try Class <br>"
Call clsUsage(20)
%>
Using class in ASP instead of COM Comments
No comments yet — be the first to post one!
Post a Comment