XML如何读取数据库内容！！！求帮忙！！！

[peter_so]

下面的XML里的url个imgerurl我想从数据库读取，
例如table表里面的T1个T2两个字段吧，
如何从数据库读取出来
求详细代码！

<?xml version="1.0" encoding="utf-8"?>
<root imageWidth='440' imageHeight='250'>
<menu url="" frame="_blank" imageUrl="images/001.jpg"/>
</root>

[peter_so]

[Quote=引用 1 楼 net_yuhai 的回复:]
从数据库中循环读出数据,并生成xml文件
[/Quote]
哥、能给点代码吗！！

[hookee]

<%
Set oDoc = CreateObject("Msxml2.DOMDocument")
With oDoc
    .async              = False
    .validateOnParse    = False
    .preserveWhiteSpace = False
    .resolveExternals   = False
End With

Set oRoot = oDoc.createElement("root")
oRoot.setAttribute "imageWidth", "440"
oRoot.setAttribute "imageHeight", "250"

sql = "SELECT T1, T2 FROM table"
Set oRS = CreateObject("ADODB.Recordset")
oRS.CursorLocation = 3
oRS.Open sql, conn, 1, 1
Do While Not oRS.EOF
    Set oNode = oDoc.createElement("menu")
    oNode.setAttribute "url", oRS("T1")
    oNode.setAttribute "frame", "_blank"
    oNode.setAttribute "imageUrl", oRS("T2")
    oRoot.appendChild oNode
    Set oNode = Nothing
    oRS.MoveNext
Loop
oRS.Close
Set oRS = Nothing
conn.Close
Set conn = Nothing

Set oDoc.documentElement = oRoot
oDoc.save "D:\xxxx\xxxx.xml"
Response.Write oDoc.xml
Set oRoot = Nothing
Set oDoc = Nothing

%>

[net_yuhai]

从数据库中循环读出数据,并生成xml文件

[hookee]

Connstr = "Provider=SQLOLEDB;Data source=61.151.239.140;Initial Catalog=cqwl68;User ID=xxx;Password=xxx;"

连接后 输出 Conn.Errors.Count 看看是不是等于0

[peter_so]

[Quote=引用 3 楼 hookee 的回复:]
VBScript code

<%
Set oDoc = CreateObject("Msxml2.DOMDocument")
With oDoc
.async = False
.validateOnParse = False
.preserveWhiteSpace = False
.resolveExternals ……
[/Quote]

谢谢楼上 这段啥意思 oDoc.save "D:\xxxx\xxxx.xml"

[hookee]

保存成xml文件, 不需要就删除.

[peter_so]

[Quote=引用 5 楼 hookee 的回复:]
保存成xml文件, 不需要就删除.
[/Quote]
还想问您另一个问题
我在网上挡下一个投票的系统的程序。
他用的是acees数据库我把他换成了SQL数据库 ，可是运行是出错，错误是缺少对象。
我想是不是数据库连接问题啊，烦请帮忙看下
数据库连接代码

Dim Conn,Connstr

Sub OpenDb()
	'On Error Resume Next
	Set Conn = Server.CreateObject("ADODB.Connection")
	Connstr = "driver={SQLServer};server=61.151.239.140;uid=xxxx;database=cqwl68;pwd=xxx"
	Conn.Open Connstr
	'If Err.Number<>0 Then Response.Write = "数据库连接出错！"
End Sub

Sub CloseDb()
	Set Conn = Nothing
End Sub

 OpenDb()
 
 
 
 

代码如下

<table width="100%" border="0" cellspacing="0" cellpadding="0">
      <tr><%
	  
		set rs=conn.execute("SELECT * from vote where IsChecked=1 ") 
		if rs.eof then
	    response.Write "暂无投票"
		else%>
        <td><div align="center"><b> <%=rs("Title")%></b></div></td>
      </tr>
      <tr>
        <td><table border="0" width="100%" cellspacing="2" cellpadding="2">
              <form action="vote.asp" target="newwindow" method=post name=research>
               <tr>
                <td valign=top width="100%"><%
for i=1 to 8
	if rs("Select"&i)<>"" then
%>
            <input style="border: 0" <%if i=1 then%>checked<%end if%> name=Options type=radio value=<%=i%>>
              <%=i%>.<%=rs("Select"&i)%><br>
  <%
	end if
next
%>               </td>
               </tr>
              <tr>
         <td width="100%" height=30 align=center><input type="image" border="0" name="submit" src="images/vote1.gif" width="59" height="19" style="cursor:hand"onClick="window.open('vote.asp?stype=view ','basket','menubar=no,toolbar=no,location=no,directories=no,status=no,scrollbars=0,resizable=0,width=510,top=50,left=100,height=370')">
        <a href=# onClick="window.open('vote.asp?stype=view ','basket','menubar=no,toolbar=no,location=no,directories=no,status=no,scrollbars=0,resizable=0,width=510,top=50,left=100,height=370')"><img src="images/vote.gif" width="59" height="19" border="0" /> </a></td>
            </tr>
              </form>
         </table>
   <%end if%> </td>
      </tr>
    </table>

[peter_so]

[Quote=引用 3 楼 hookee 的回复:]
VBScript code

<%
Set oDoc = CreateObject("Msxml2.DOMDocument")
With oDoc
.async = False
.validateOnParse = False
.preserveWhiteSpace = False
.resolveExternals ……
[/Quote]

<%

Dim Conn,ConnStr,Db
Db = "../Db/#$shsh#wwwibdkei.mdb"				

Set Conn = Server.CreateObject("Adodb.Connection")
ConnStr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(Db)
Conn.Open ConnStr

%>
<%
Set oDoc = CreateObject("Msxml2.DOMDocument")
With oDoc
    .async              = False
    .validateOnParse    = False
    .preserveWhiteSpace = False
    .resolveExternals   = False
End With

Set oRoot = oDoc.createElement("root")
oRoot.setAttribute "imageWidth", "440"
oRoot.setAttribute "imageHeight", "250"

sql = "SELECT T1, T2 FROM table"
Set oRS = CreateObject("ADODB.Recordset")
oRS.CursorLocation = 3
oRS.Open sql, conn, 1, 1
Do While Not oRS.EOF
    Set oNode = oDoc.createElement("menu")
    oNode.setAttribute "url", oRS("T1")
    oNode.setAttribute "frame", "_blank"
    oNode.setAttribute "imageUrl", oRS("T2")
    oRoot.appendChild oNode
    Set oNode = Nothing
    oRS.MoveNext
Loop
oRS.Close
Set oRS = Nothing
conn.Close
Set conn = Nothing


%>

导入没反映字段不显示