Find Code:
All Words
Any of the Words
Exact Phrase
Home
:
Code
:
Forums
:
Submit
:
Mailing List
:
About
:
Contact
Code
All
VB.NET
ASP.NET
C#
VB Classic
ASP Classic
Snippets
Popular
Resources
Submit Code
Forums
Articles
Tips
Links
Books
Contest
Link to us
Use class in ASP instead of COM. ...
Author:
Anton Oey
E-mail:
Click to e-mail author
Submitted:
4/24/2001
Version:
ASP
Compatibility:
ASP
Category:
ASP
Views:
14639
Use class in ASP instead of COM.
Declarations:
'see below
Code:
<% 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 & "
" End with Next For counter = 0 to n set person(counter) = nothing Next End Sub %> <% Response.write "Try Class" Call clsUsage(20) %>
Home
|
Forums
|
Submit
|
Books
|
Mailing List
|
Advertising
|
About
|
Contact
© 2024 A1VBCode. All rights reserved.
Legal disclaimer & terms of use
Privacy statement