📄 html2xml.asp

📁 本套光盘提供了本书各章实例的所需的部分源程序文件以及数据库文件。读者需要使用JDK 1.4(必需）版

💻 ASP

字号:

<%@ Language=VBScript %>
<html>
	<head>
		<meta name="GENERATOR" Content="Microsoft Visual Studio .NET 7.1">
	</head>
	<body>
	<% 
'函数 "ConverttoXML"接收传递的参数。 
'strXMLFilePath - XML存放的物理地址。 
'strFileName - 要保存的XML文件的名字。 
Function ConverttoXML(strXMLFilePath, strFileName) 
'定义本地变量。
Dim objDom 
Dim objRoot 
Dim objField 
Dim objFieldValue 
Dim objattID 
Dim objattTabOrder 
Dim objPI 
Dim x 

'实例化Microsoft XMLDOM对象. 
Set objDom = server.CreateObject("Microsoft.XMLDOM") 
objDom.preserveWhiteSpace = True 

'创建XML文档的根元素contact,并追加到XML文档中。 
Set objRoot = objDom.createElement("通讯录") 
objDom.appendChild objRoot 

'遍历Request对象Form元素的集合。 
For x = 1 To Request.Form.Count 

If instr(1,Request.Form.Key(x),"btn") = 0 Then 


'创建元素 "field". 
Set objField = objDom.createElement("field") 

'创建属性 "id". 
Set objattID = objDom.createAttribute("id") 

'设定id属性的值等于Form中各元素的值。 
objattID.Text = Request.Form.Key(x) 
'objattID.Text = "张晓东"

'setAttributeNode 方法把id属性值追加到field元素。 
objField.setAttributeNode objattID 

'创建属性taborder。 
Set objattTabOrder = objDom.createAttribute("taborder") 

'设定taborder的属性值 
objattTabOrder.Text = x 

'把taborder的属性值追加到field元素中去。 
objField.setAttributeNode objattTabOrder 

'创建一个新的元素field_value. 
Set objFieldValue = objDom.createElement("field_value") 

'赋值 
'objFieldValue.Text = Request.Form(x) 

'追加field元素为根元素的子元素。 
objRoot.appendChild objField 

'追加field_value做为子元素的内容 
objField.appendChild objFieldValue 
End If 
Next  


'创建xml声明 
Set objPI =objDom.createProcessingInstruction("xml", "version='1.0' encoding='gb2312'") 

'把xml生命追加到xml文档 
objDom.insertBefore objPI, objDom.childNodes(0) 

'保存xml文件 
objDom.save strXMLFilePath & "\" & strFileName 

'释放所有对象所引用的值 
Set objDom = Nothing 
Set objRoot = Nothing 
Set objField = Nothing 
Set objFieldValue = Nothing 
Set objattID = Nothing 
Set objattTabOrder = Nothing 
Set objPI = Nothing 
End Function 

'发生错误时继续执行 
On Error Resume Next 

'调用函数ConverttoXML把文件存放到指定的文件目录和文件名。 
ConverttoXML "C:\Inetpub\wwwroot","Contact.xml" 

'如果发生错误,提示用户,否则报告成功。 
If err.number <> 0 then 
Response.write("保存form值出现错误！！！") 
Else 
Response.write("提交成功！！") 
End If 
%>

	</body>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -