<% ' 外层框架类 ' 不保证独立调用可靠性 ' 需填充Content属性 Class TFrame Private FOrigin,FPage,FTitle Private FContent Sub Class_initialize ' 转至Page属性设置时初始化 End Sub Property Let Title(value) FTitle.innerhtml = value End Property Property Set Page(value) Set FPage = value Set FOrigin = FPage.table FOrigin.Origin.Attribute("class") = "frame" Set FOrigin.Origin.Owner = me Call initFrame End Property Property Get Origin() Set Origin = FOrigin.Origin End property Property Get Content() ' return content Set Content = FContent End Property Sub initFrame() Dim tr,td Set FContent = FOrigin.td("") FContent.Attribute("class") = "content" Set FTitle = FOrigin.td("") FTitle.attribute("class") = "center_top" Set tr = FOrigin.tr(FOrigin.thead) set td = FOrigin.td(" ")' head 不可省略 td.attribute("class") = "left_top" tr.addchild td tr.addchild FTitle set td = FOrigin.td(" ") td.attribute("class") = "right_top" tr.addchild td FOrigin.tbody.addchild FOrigin.td("") FOrigin.tbody.addchild FContent FOrigin.tbody.addchild FOrigin.td("") FOrigin.tfoot.innerHtml = "<tr><td class=""left_bottom""></td><td></td><td class=""right_bottom""></td></tr>" End Sub End Class %>