|
'创建并向文档添加根元素
Set rootEl = xmlDoc.createElement("customer")
xmlDoc.appendChild rootEl
'循环遍历Form集
for i = 1 To Request.Form.Count
'除去表单中的button元素
if instr(1,Request.Form.Key(i),"btn_")=0 then
'创建field 和 value 元素，以及 id 属性
Set fieldName = xmlDoc.createElement("field")
Set fieldValue = xmlDoc.createElement("value")
Set attID = xmlDoc.createAttribute("id")
'把当前表单域的名称设置为id属性的值
attID.Text = Request.Form.Key(i)
'把id属性添加到field元素
fieldName.setAttributeNode attID
'把当前表单域的值设置为value元素的值
fieldValue.Text = Request.Form(i)
'将field元素作为根元素的子元素进行添加
rootEl.appendChild fieldName
'将value元素作为field元素的子元素进行添加
fieldName.appendChild fieldValue
end if
next
'添加XML processing instruction
'并把它加到根元素之前
Set p = xmlDoc.createProcessingInstruction("xml","version='1.0'")
xmlDoc.insertBefore p,xmlDoc.childNodes(0)
'保存XML文件
xmlDoc.save "c:\Customer.xml"
'释放所有的对象引用
set xmlDoc=nothing
set rootEl=nothing
set fieldName=nothing
set fieldValue=nothing
set attID=nothing
set p=nothing
'测试是否有错误发生
if err.number<>0 then
response.write("Error: No information saved.")
else
response.write("Your information has been saved.")
end if
%>
注释：假如被指定的XML文件名已经存在，那个文件会被覆盖！XML文件会由上面的代码生成，大致的样子是这样的：("Customer.xml"): <?xml version="1.0" ?>
<customer>
<field id="firstName">
<value>Hege</value>
</field>
<field id="lastName">
<value>Refsnes</value>
</field>
<field id="country">
<value>Norway</value>
</field>
<field id="email">
<value>mymail@myaddress.com</value>
</field> </customer> (负责编辑：blank )
|
| 共2页: 上一页 [1] 2 下一页 |
评论加载中…
