createxml.asp

来自「本套光盘提供了本书各章实例的所需的部分源程序文件以及数据库文件。读者 需要使用」· ASP 代码 · 共 29 行

ASP
29
字号
<%@ Language=VBScript %>
<html>
	<head>
		<meta name="GENERATOR" Content="Microsoft Visual Studio .NET 7.1">
	</head>
	<body>
		<% 
Dim objDom 
Dim objRoot 
Dim objChild1 
Dim objChild2 
Dim objPI 
Set objDom = Server.CreateObject("Microsoft.XMLDOM") 
Set objRoot = objDom.createElement("rootElement") 

objDom.appendChild objRoot 
Set objChild1 = objDom.createElement("childElement1") 

objRoot.appendChild objChild1 
Set objChild2 = objDom.createElement("childElement2") 

objRoot.appendChild objChild2 
Set objPI = objDom.createProcessingInstruction("xml","version='1.0'") 
objDom.insertBefore objPI, objDom.childNodes(0) 
objDom.Save "d:\MyXMLDoc.xml" 
%>
	</body>
</html>

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?