ASP中查询数据库记录写入XML文件示例-ASP教程,XML相关

把下面代码保存为asp_xml.asp运行即可:   
<%   
’by dicky 2005-03-22 21:52:18 am qq:25941 e-mail:applebbs@gmail.com   
const issql = 1    ’定义数据库类型为sql server   
call openconn(conn) ’打开数据库连接   
   
dim rs,sql   
set rs = server.createobject(“adodb.recordset”)   
sql = “select * from products order by productname”   
rs.open sql,conn,1,1 ’以只读方式查询数据记录   
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(“xml”) ’创建根节点   
    objxmldom.documentelement = objrootnode   
   
    do while not rs.eof       ’循环出所有记录   
’        response.write rs(“productname”) &”<br>”   
        set objrownode = objxmldom.createelement(“row”) ’创建父节点    
        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)”   
        connstr = “provider = sqloledb; user id = ” & sqlusername & “; password = ” & sqlpassword & “; initial catalog = ” & sqldatabasename & “; data source = ” & sqllocalname & “;”   
    else  ’如果是access数据库   
        dim db   
        ’第一次使用请修改本处数据库地址并相应修改数据库名称，如将dicky.mdb修改为dicky.asp(防止恶意下载access数据库)   
        db = “dicky.mdb”   
        connstr = “provider = microsoft.jet.oledb.4.0;data source = ” & 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   
%>