XML数据源.docVIP

html headtitle显示3层的xml/title/head body xml id=xmlEmployees workgroups workgroup employee lastName Smith /lastName firstName Jill /firstName title President /title department All /department extension 160 /extension /employee employee lastName Roberts /lastName firstName William /firstName title Vice President /title department Marketing /department extension 175 /extension /employee /workgroup /workgroups /xml H3显示3层的xml/H3BR table datasrc=#xmlEmployees border=1 DATAFLD= employee thead thlastName/th thfirstName/th thtitle/th thdepartment/th thextension/th /thead tr tddiv datafld=lastName/div/td tddiv datafld=firstName/div/td tddiv datafld=title/div/td tddiv datafld=department/div/td tddiv datafld=extension/div/td /tr /table /body /html html headtitle更换数据源/title/head body SCRIPT Language=VBScript Sub ChangeDocElem() Msgbox Records in xmlPeople before replacing documentElement : xmlPeople.recordset.recordcount set xmlPeople.documentElement = xmlEmployees.documentElement Msgbox Records in xmlPeople after replacing documentElement : xmlPeople.recordset.recordcount End Sub /SCRIPT xml id=xmlPeople People Person NameJohn/Name Phone727-879-8765/Phone Emailjohn@/Email /Person /People /xml xml id=xmlEmployees Employees Employee NameJohn/Name Phone727-879-8765/Phone Emailjohn@/Email /Employee Employee NameJack/Name Phone727-879-8765/Phone Emailjack@/Email /Employee /Employees /xml H3List of People/H3BR table datasrc=#xmlpeople border=1 thead thName/th thPhone/th thEmail/th /thead tr tddiv datafld=Name/div/td tddiv datafld=Phone/div/td tddiv datafld=Email/div/td /tr /table pinput id=ChangeDocElem type=Button value=Change Document Element of xmlPeople onClick=ChangeDocElem /body /html