<%
dim conn
set conn = server.createobject("adodb.connection")
conn.open = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source =" & server.mappath("db1.mdb")
Set rs=server.createobject("adodb.recordset")
sqlstr="select * from [Category Sales for 1997] "
rs.open sqlstr,conn,1,3
%>
<table border=1>
<%While not rs.EOF%>
<tr><td><%=rs(0)%><td><%=rs(1)%><td><%'=rs(2)%><td><%'=rs(3)%>
<%
rs.MoveNext
Wend
rs.Movefirst
%>
建立一个XML文件，包含一些人员的相关信息。
<%
Set objDom=Server.CreateObject("Microsoft.XMLDOM") '
'实际上这个文件可以暂时没有，
Set Newnode = objDom.CreateElement("CategorySales")
'----循环语句写数据--------------------------------
While not rs.EOF
Set NewnodeChild = objDom.CreateElement("Category")
Newnode.appendChild NewnodeChild
Set NewAttribute0 = objDom.CreateNode("attribute",rs(0).name,"")
NewAttribute0.Text = rs(0)
NewnodeChild.SetAttributeNode NewAttribute0
Set NewAttribute1 = objDom.CreateNode("attribute",rs(1).name,"")
NewAttribute1.Text = rs(1)
NewnodeChild.SetAttributeNode NewAttribute1
rs.MoveNext
Wend
objDom.appendChild Newnode
objDom.save("f:\test.xml")
%>
错误信息如下
------------------------------------------------------------------------------------------------
无法显示网页
试图访问的网页出现问题，无法显示。
--------------------------------------------------------------------------------
请尝试执行下列操作：
单击刷新按钮，或稍后重试。
打开 localhost 主页，然后查找与所需信息相关的链接。
HTTP 错误 500.100 - 内部服务器错误 - ASP 错误
Internet 信息服务
--------------------------------------------------------------------------------
技术信息（用于支持人员）
错误类型：
msxml3.dll (0x80070005)
拒绝访问。
/asp2xml.asp, 第 44 行
浏览器类型：
Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; InfoPath.2; MAXTHON 2.0)
网页：
GET /asp2xml.asp
时间：
2008年2月22日, 下午 12:33:56
详细信息：
Microsoft 支持
就这句 objDom.save("f:\test.xml") 一写上就出错 小弟不懂求助各位大侠
[返回] 中文XML论坛 - 专业的XML技术讨论区 →
XML.ORG.CN讨论区 - XML技术 → 『 XML基础 』 → [求助]诚心请教各位大哥 小弟急求
(订阅本版)
2008/2/22 12:52:00
新浪微博
[求助]诚心请教各位大哥 小弟急求
