• Home
 · 
• Active Server Pages
 · 
• Using class in ASP instead of COM

Using class in ASP instead of COM

Using class in ASP instead of COM

Rate Using class in ASP instead of COM

• 1
• 2
• 3
• 4
• 5

(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)
%>