<%
bitFileExists=true
Dim strFilename,strXMLFile
strFilename = "test.xml "
strXMLFile=server.mapPath(strFilename)
set oXML = server.createObject( "Microsoft.XMLDOM ")
oXML.async = False
'oXML.load(strXMLFile)
'oXML.loadXML " <?xml version= " "1.0 " " encoding= " "gb2312 " " ?> "
If bitFileExists Then
set oXMLf=oXML.appendChild(oXML.createElement( "Server1 "))
set oXMLs2=oXMLf.appendChild(oXML.createElement( "Server2 "))
End If
for i=0 to 9
set oXMLRec = oXMLs2.appendChild(oXML.createElement( "Host "))
Set hostnameAtt = oXML.createAttribute( "id ")
hostnameAtt.Text = i
oXMLRec.attributes.setNamedItem hostnameAtt
next
set oProcess=oXML.createProcessingInstruction( "xml ", "version= '1.0 ' encoding= 'gb2312 ' ")
oXML.insertBefore oProcess,oXML.childnodes(0)
oXML.save strXMLFile
set oXML = nothing
%>
