<% ' TTable类 ' 未能保证独立调用可靠性 Class TTable Private FOrigin,FPage Private FTHead,FTBody,FTFoot Sub class_initialize ' End Sub Property Set Page(ByRef value) ' 初始化在这里 Set FPage = value Set FOrigin = FPage.createElement("table") Set FOrigin.Owner = me End Property Property get Origin() Set Origin = FOrigin End Property Property Get THead If Not IsObject(FTHead) Then Set FTHead = FPage.newElement("thead",FOrigin) End if Set THead = FTHead End Property Property Get TBody If Not IsObject(FTBody) Then Set FTBody = FPage.newElement("tbody",FOrigin) End if Set TBody = FTBody End Property Property Get TFoot If Not IsObject(FTFoot) Then Set FTFoot = FPage.newElement("tfoot",FOrigin) End if Set TFoot = FTFoot End Property Property Get TR(flag) Set TR = FPage.createElement("tr") If IsObject(flag) Then flag.addchild TR elseif flag = true Then TBody.Addchild TR TR.Attribute("onmouseover") = "this.className='highlight'" TR.Attribute("onmouseout") = "this.className=''" End if End Property Property Get TH(text) Set TH = FPage.createElement("th") TH.innerHTML = text End Property Property Get TD(flag) Set TD = FPage.createElement("td") TD.innerHTML = flag End Property End Class %>