ASP中的ArrayList类_ASP教程-查字典教程网
ASP中的ArrayList类
ASP中的ArrayList类
发布时间:2015-06-05 来源:查字典编辑
摘要:使用方法如下:程序代码ClassArrayListPrivatem_array()Privatem_countPrivateSubClass...

使用方法如下:

程序代码
<%
dim arr : set arr=new ArrayList
arr.add "a" : arr.add "b" : arr.add "c"
Response.Write arr.count & "<br>"
for i=0 to arr.count-1
Response.Write arr.item(i) & "<br>"
next
set arr=nothing
%>

Class ArrayList
Private m_array()
Private m_count
Private Sub Class_Initialize()
Redim m_array(0)
m_count=0
End Sub
Private Sub Class_Terminate()
Redim m_array(0)
m_count=0
End Sub
Public Property Get Count()
Count=m_count
End Property
Public Property Get Item(index)
Item=m_array(index)
End Property
Public Function Add(arrItem)
Redim Preserve m_array(m_count)
m_array(m_count)=arrItem
m_count=m_count+1
End Function
End Class
%>

相关阅读
推荐文章
猜你喜欢
附近的人在看
推荐阅读
拓展阅读
  • 大家都在看
  • 小编推荐
  • 猜你喜欢
  • 最新ASP教程学习
    热门ASP教程学习
    编程开发子分类