43、对数据库操作ASP和DTD（Schema）的具体实现：
ASP：
<% @language = "VBScript" %>
<% Response.ContentType = "text/xml" %>
<?xml version="1.0" encoding="GB2312" ?>
<%’动态构建XML文档
set xmlDoc = Server.CreateObject(Microsoft.XMLDOM)
set root = xmlDoc.createNode("element","联系人列表","")
xmlDoc.appendChild(root)
’查询数据库
sqlStr = "select * from clientList"
set cConn = Server.CreateObject("ADODB.Connection")
cConn.Open "CLIENTS","sa", ""
set rsData = cConn.Execute(sqlStr)
rsData.MoveFirst()
while (not rsData.EOF )
’构建联系人子节点
set tmpNode = xmlDoc.createNode("element","联系人","")
xmlDoc.documentElement.appendChild(tmpNode)
’构建姓名、ID、公司、Email子节点
for I = 0 to rsData.Fields.Count - 1
set childNode = xmlDoc.createNode("element",rsData.Fields(i).Name,"")
childNode.text = rsData.Fields(i)
tmpNode.appendChild(childNode)
next
rsData.MoveNext()
wend
Response.Write(xmlDoc.xml)
%>
DTD：
<% Response.ContentType="text/xml" %>
<?xml version="1.0" encoding="GB2312" ?>
<联系人列表>
<% Set cConn = Server.CreateObject("ADODB.Connection")
cConn.Open "CLIENTS","sa", ""
Set rsData = cConn.Execute("select * from clientList")
do while not rsData.Eof
%>
<联系人>
<姓名><%=rsData("Name")%></姓名>
<ID><%=rsData("ID")%></ID>
<公司><%=rsData("Company")%></公司>
<Email><%=rsData("Email")%></Email>
</联系人>
<% rsData.MoveNext
Loop
rsData.Close
Set rsData = nothing
%>
</联系人列表>
最终生成XML文档为：
<?xml version = "1.0" encoding="GB2312" standalone = "no"?>
<联系人列表>
<联系人>
<姓名>张三</姓名>
<ID>1</ID>
<公司>A公司</公司>
<EMAIL>zhang@aaa.com</EMAIL>
</联系人>
<联系人>
<姓名>李四</姓名>
<ID>2</ID>
<公司>B公司</公司>
<EMAIL>li@bbb.org</EMAIL>
</联系人>
</联系人列表>
[返回] 中文XML论坛 - 专业的XML技术讨论区 →
XML.ORG.CN讨论区 - XML技术 → 『 XML基础 』 → XML初学进阶学习笔记[原创](续14)[原创]
(订阅本版)
2004/8/12 9:12:00
新浪微博
XML初学进阶学习笔记[原创](续14)[原创]