ASP 如何在类实例下再创建类实例

[lingyun410]

　这几天在学习JSON，在创建JSON对象的时候可以这样声明，这是怎么样做到的呢？

Dim CNodeJson
Set CNodeJson=New Json_Cls
CNodeJson("ID")	= １
Set CNodeJson("ST_SeoStr") = New Json_Cls　'在这里又一次声明类实例
CNodeJson("ST_SeoStr")("Title")="Title"

[lingyun410]

类源代码地址：
http://www.cnode.cn/Cls_Json.txt
我这样不能成功，不明白主要是哪一部分起到的作用
我的测试代码：

Class CNode_Cls
	Private Sub Class_Initialize
	End Sub

	Private Sub Class_Terminate
	End Sub
	Public Function PrintString()
		PrintString="输出字符串"
	End Function
End Class
	Dim CNodeCls
	Set CNodeCls=New CNode_Cls
	Response.Write "第一个实例："&CNodeCls.PrintString()&"<br />"
	Set CNodeCls("Two")=New CNode_Cls
	Response.Write "第二个实例："&CNodeCls.PrintString()&"<br />"
	Set CNodeCls("Two")=Nothing
	Set CNodeCls=Nothing

[wansai00]

想灵活的使用“类”和“对象”

建议楼主使用jscript编写asp, jscript在这方面比vbscript要更强更灵活些

[smartcatiboy]

vbs虽然不如js，但是有些地方还是很好玩的。

Option Explicit


Class CCollection
	Private m_aanyData,m_intCount

	Private Sub class_initialize()
		ReDim m_aanyData(1,9)	'假设集合最大空间为10
		m_intCount=0
	End Sub 

	Public property Set item(anyIndex,objData)
		m_aanyData(0,m_intCount)=anyIndex
		Set m_aanyData(1,m_intCount)=objData
		m_intCount=m_intCount+1
	End property 

	Public property Let Item(anyIndex,anyData)
		m_aanyData(0,m_intCount)=anyIndex
		m_aanyData(1,m_intCount)=anyData
		m_intCount=m_intCount+1		
	End property 

	Public default property Get Item(anyIndex)
		Dim i
		For i=0 To UBound(m_aanyData,2)
			If VarType(m_aanyData(0,i))=VarType(anyIndex) Then 
				If m_aanyData(0,i)=anyIndex Then 
					If IsObject(m_aanyData(1,i)) Then 
						Set Item=m_aanyData(1,i)
					Else
						Item=m_aanyData(1,i)
					End If 
					Exit property 
				End If  '//value==
			End If 	'//vartype==
		Next 
	End property 
End Class 

Dim obj
Set obj=new CCollection
obj(1)=1
Set obj("obj")=new CCollection
MsgBox "obj(1)是" & TypeName(obj(1)) & ",obj('obj')是" & TypeName(obj("obj"))		  
'显示obj(1)是Integer,obj('obj')是CCollection
obj("obj")("how r u ?")="good,fine."
MsgBox obj("obj")("how r u ?")
'显示good,fine.