FLASHL+XML相册的XML写入问题?

像这样的相册:ttp://www.yihuayuan.com/work/works.shtml

ACCESS数据库.    表: pic   字段:num_id  jpgURL    bigpic  title  technology  url

ASP如何从数据库写入XML:

XML如下的:

<?xml version="1.0" encoding="utf-8"?>
<data>
<picture>
<pic num_id="09" jpgURL="img/9.jpg" bigpic="img/9b.jpg" title="web" technology="2006-8-17" url="photoshop"/>
<pic num_id="08" jpgURL="img/8.jpg" bigpic="img/8b.jpg" title="web" technology="2006-8-17" url="photoshop"/>
<pic num_id="07" jpgURL="img/7.jpg" bigpic="img/7b.jpg" title="web" technology="2006-8-17" url="photoshop"/>
<pic num_id="06" jpgURL="img/6.jpg" bigpic="img/6b.jpg" title="web" technology="2006-8-17" url="photoshop"/>
<pic num_id="05" jpgURL="img/5.jpg" bigpic="img/5b.jpg" title="web" technology="2006-8-17" url="photoshop"/>
<pic num_id="04" jpgURL="img/4.jpg" bigpic="img/4b.jpg" title="web" technology="2006-8-17" url="photoshop"/>
<pic num_id="03" jpgURL="img/3.jpg" bigpic="img/3b.jpg" title="web" technology="2006-8-17" url="photoshop"/>
<pic num_id="02" jpgURL="img/2.jpg" bigpic="img/2b.jpg" title="web" technology="2006-8-17" url="photoshop"/>
<pic num_id="01" jpgURL="img/1.jpg" bigpic="img/1b.jpg" title="web" technology="2006-8-17" url="photoshop"/>
</picture>
</data>

有哪位高手可以指点下...!

我找到一个这样的..可惜不适合上面的那个..谁可以帮我改一下??多谢




<%
'==================数据库路
Dim DatabasePath
    DatabasePath="Dicky.mdb"
'==================数据库连接
Dim Conn,ConnStr
On error resume next
Set Conn=Server.CreateObject("Adodb.Connection")
C&Server.MapPath(DatabasePath)
Conn.open ConnStr
if err then
   err.clear
   Set Conn = Nothing
   Response.Write "数据库连接出错，请检查数据库连接文件中的数据库参数设置。"
   Response.End
end if
%>
<%
   
Dim Rs,Sql   
Set Rs = Server.CreateObject("ADODB.RecordSet")   
Sql = "SELECT * FROM Products ORDER BY picid"   
Rs.Open Sql,Conn,3,3 '以只读方式查询数据记录   
If Rs.Eof Then   
    Response.Write "Sorry,no record!" '如果没有记录   
Else   
    Dim objXMLDOM, objRootNode, objNode   
    Set objXMLDOM = Server.CreateObject("MSXML2.DOMDocument") '创建XML文档对象   
    Set objRootNode = objXMLDOM.createElement("Date") '创建根节点   
    objXMLDOM.documentElement = objRootNode   
   
    Do While Not Rs.Eof       '循环出所有记录   
        Response.Write Rs("ProductName") &"<br>"   
        Set objRowNode = objXMLDOM.createElement("picture") '创建父节点     
        Set objNode = objXMLDOM.createElement("ProductName") '创建子节点   
        objNode.text = Rs("ProductName")   
        objRowNode.appendChild(objNode)   
      
        Set objNode = objXMLDOM.createElement("UnitPrice")   
        objNode.text = Rs("UnitPrice")   
        objRowNode.appendChild(objNode)   
      
        Set objNode = objXMLDOM.createElement("UnitsInStock")   
        objNode.text = Rs("UnitsInStock")   
        objRowNode.appendChild(objNode)   
      
        objRootNode.appendChild(objRowNode)   
    Rs.MoveNext : Loop '循环结束   
        
    objXMLDOM.Save "D:\MyXMLDoc.xml" '写入XML文件 可以用变量让用户在页面上自定义文件名   
    Response.Write "<script>alert('恭喜，写入XML文件成功！');</script>"   
    Set objNode = Nothing      '销毁对象   
    Set objRowNode = Nothing  '销毁对象   
    Set objRootNode = Nothing '销毁对象   
End If   
Rs.Close   
Set Rs = Nothing   
   
Call CloseConn() '关闭数据库连接   
   
Function OpenConn(Conn)     '打开数据库连接   
    Dim ConnStr   
    If IsSql = 1 Then '如果是SQL Server数据库   
        'SQL Server数据库连接参数:用户名、用户密码、数据库名、连接名（本地用local，外地用IP）   
        Dim SqlUsername,SqlPassword,SqlDatabaseName,SqlLocalName   
        SqlUsername = "sa"   
        SqlPassword = ""   
        SqlDatabaseName = "Northwind"   
        SqlLocalName = "(local)"   
        C & SqlUsername & "; Password = " & SqlPassword & "; Initial Catalog = " & SqlDatabaseName & "; Data Source = " & SqlLocalName & ";"   
    Else  '如果是Access数据库   
        Dim Db   
        '第一次使用请修改本处数据库地址并相应修改数据库名称，如将Dicky.mdb修改为Dicky.asp(防止恶意下载Access数据库)   
        Db = "Dicky.mdb"   
        C & Server.MapPath(Db)   
    End If   
    On Error Resume Next   
    Set Conn = Server.CreateObject("ADODB.Connection")   
    Conn.Open ConnStr   
    If Err Then   
'        Err.Clear   
        Set Conn = Nothing   
        Response.Write "数据库连接出错，请检查连接字串。"   
        Response.End   
    End If   
    Set Rs = Server.CreateObject("Adodb.RecordSet")   
End Function   
   
Function CloseConn()  '关闭数据库连接   
    Conn.Close   
    Set Conn = Nothing   
End Function   
%>

[[i] 本帖最后由 解静幽翊 于 2007-8-31 17:57 编辑 [/i]]

???
只能在XML文件修改??
有人回答吗?