在线等，如何从access数据库中用ASP提取一个xml文档并保存为XML文件？

[zhouguoyao]

网上很多介绍都是采用asp连接数据库动态生成XML文件格式显示，但并没有介绍如何最终以XML格式存储到指定位置，请大家指教，谢谢，

[zhouguoyao]

怎么没人回答呢？

[zhouguoyao]

确实没用过，我是新手，asp也没用那么深，还是你告诉我吧，谢了

[tonton]

生成的DOM有 Save 方法，

Dom.Save Server.MapPath("aaa.xml")

这样子就行了。

[zhouguoyao]

我刚才用fso方式创建了文件，但不知道如何rs数据流按格式写入文件

[笨笨兔兔兔兔兔]

fso

[笨笨兔兔兔兔兔]

以前我也以为不是，后来看asp 与xml 高级编程一书中都这么用的

[zhouguoyao]

我现在要的是XML后缀的文件，并不需要它显示出来，不知道为什么，所有的程序都一样就是没写怎么保存的

[笨笨兔兔兔兔兔]

不是跟你说了用FSO就能保存么?你不会没用过FSO吧??很简单的啊

[笨笨兔兔兔兔兔]

class blogwrite
dim blogfsowrite
Private Sub Class_Initialize
set blogfsowrite=new blogfso
end sub
function blogsetup( blogname1,blogfolder1,blogxsltvalue,shownumpage1,sourcef)
dim theyear,themonth
xmlstr="<?xml version='1.0' encoding='gb2312' ?>"
xmlstr=xmlstr & "<blogbasicinfo>"
xmlstr=xmlstr & "<blogname>"
xmlstr=xmlstr & blogname1
xmlstr=xmlstr & "</blogname>"
xmlstr=xmlstr & "<blogfolder>"
xmlstr=xmlstr & blogfolder1
xmlstr=xmlstr & "</blogfolder>"
xmlstr=xmlstr & "<blogxsltname>"
select case blogxsltvalue
case 1
xmlstr=xmlstr & "<blogxslt name='blueone' selected='yes'>" & blogfolder1 & "blueone.xsl" & "</blogxslt>"
end select
xmlstr=xmlstr & "</blogxsltname>"
xmlstr=xmlstr & "<blogindex>"
xmlstr=xmlstr & blogfolder1 & "index.htm"
xmlstr=xmlstr & "</blogindex>"
xmlstr=xmlstr & "<blogpagenumshow>"
xmlstr=xmlstr & shownumpage1
xmlstr=xmlstr & "</blogpagenumshow>"
xmlstr=xmlstr & "<blogstart>"
xmlstr=xmlstr & date
xmlstr=xmlstr & "</blogstart>"
xmlstr=xmlstr & "<blogall>"
xmlstr=xmlstr & "</blogall>"
xmlstr=xmlstr & "</blogbasicinfo>"

blogfsowrite.fsocreatef "c:\bloginfo.xml",1
blogfsowrite.fsowrite xmlstr,"c:\bloginfo.xml"

xmlstr="<?xml version='1.0' encoding='gb2312' ?>"
xmlstr=xmlstr & "<?xml-stylesheet type='text/xsl' href='blueone.xsl' ?>"
xmlstr=xmlstr & "<blogrecent>"
xmlstr=xmlstr & "</blogrecent>"
blogfsowrite.fsocreatef blogfolder1 & "blogrecent.xml",1
blogfsowrite.fsowrite xmlstr,blogfolder1 & "blogrecent.xml"

fsooprsrc=sourcef & "fsooperation.vbs"
fsooprdes=blogfolder1 & "fsooperation.vbs"

fsoblogwrsrc=sourcef & "blogwrite.vbs"
fsoblogwrdes=blogfolder1 & "blogwrite.vbs"

fsoxmlhttpsrc=sourcef & "xmlhttprequest.vbs"
fsoxmlhttpdes=blogfolder1 & "xmlhttprequest.vbs"

fsoblueonesrc=sourcef & "blueone.xsl"
fsoblueonedes=blogfolder1 & "blueone.xsl"

fsocalendarsrc=sourcef & "calendar.vbs"
fsocalendardes=blogfolder1 & "calendar.vbs"

fsoxmldomsrc=sourcef & "xmldom.vbs"
fsoxmldomdes=blogfolder1 & "xmldom.vbs"

fsoblogxmldomsrc=sourcef & "blogxmldom.vbs"
fsoblogxmldomdes=blogfolder1 & "blogxmldom.vbs"

fsomainsrc=sourcef & "main.vbs"
fsomaindes=blogfolder1 & "main.vbs"

fsoindexsrc=sourcef & "index.htm"
fsoindexdes=blogfolder1 & "index.htm"

blogfsowrite.fsocopyf fsooprsrc,fsooprdes,1
blogfsowrite.fsocopyf fsoblogwrsrc,fsoblogwrdes,1
blogfsowrite.fsocopyf fsoxmlhttpsrc,fsoxmlhttpdes,1
blogfsowrite.fsocopyf fsoblueonesrc,fsoblueonedes,1
blogfsowrite.fsocopyf fsocalendarsrc,fsocalendardes,1
blogfsowrite.fsocopyf fsoxmldomsrc,fsoxmldomdes,1
blogfsowrite.fsocopyf fsomainsrc,fsomaindes,1
blogfsowrite.fsocopyf fsoblogxmldomsrc,fsoblogxmldomdes,1
blogfsowrite.fsocopyf fsoindexsrc,fsoindexdes,1
end function

function newblog(blogtitle,blogcontent,blogshownum,blogfolder1)
xmlstr="<?xml version='1.0' encoding='gb2312' ?>"
xmlstr=xmlstr & "<blog date='"
xmlstr=xmlstr & date
xmlstr=xmlstr & "' time='"
xmlstr=xmlstr & time
xmlstr=xmlstr & "'>"
xmlstr=xmlstr & "<blogtitle>"
xmlstr=xmlstr & blogtitle
xmlstr=xmlstr & "</blogtitle>"
xmlstr=xmlstr & "<blogcontent>"
xmlstr=xmlstr & blogcontent
xmlstr=xmlstr & "</blogcontent>"
xmlstr=xmlstr & "<comment>"
xmlstr=xmlstr & "</comment>"
xmlstr=xmlstr & "</blog>"

datey=year(now())
datem=month(now())
dated=day(now())
dateh=hour(now())
datemin=minute(now())
dates=second(now())
random1=cint(rnd()*1000)
blogfilename=datey & datem & dated & dateh & datemin & dates & ".xml"
foldername=blogfolder1 & datey
flag=blogfsowrite.existsf(foldername,2)
blogfilename=blogfolder1 & datey & "\" & datem & "\" & blogfilename
if flag=2 then
blogfsowrite.fsocreatef foldername,2
blogfsowrite.fsocreatef foldername & "\" & datem & ".xml" ,1
foldername1=foldername & "\" & datem
xmlstr1="<?xml version='1.0' encoding='gb2312' ?>"
xmlstr1=xmlstr1 & "<blogmonth month='"
xmlstr1=xmlstr1 & datem
xmlstr1=xmlstr1 & "'>"
xmlstr1=xmlstr1 & "<blog date='"
xmlstr1=xmlstr1 & date
xmlstr1=xmlstr1 & "' time='"
xmlstr1=xmlstr1 & time
xmlstr1=xmlstr1 & "'>"
xmlstr1=xmlstr1 & "<blogtitle>"
xmlstr1=xmlstr1 & blogtitle
xmlstr1=xmlstr1 & "</blogtitle>"
xmlstr1=xmlstr1 & "<blogcontent>"
xmlstr1=xmlstr1 & blogcontent
xmlstr1=xmlstr1 & "</blogcontent>"
xmlstr1=xmlstr1 & "<link>"
xmlstr1=xmlstr1 & blogfilename
xmlstr1=xmlstr1 & "</link>"
xmlstr1=xmlstr1 & "<comment>"
xmlstr1=xmlstr1& "</comment>"
xmlstr1=xmlstr1 & "</blog>"
xmlstr1=xmlstr1 & "</blogmonth>"
blogfsowrite.fsocreatef foldername,2
blogfsowrite.fsowrite xmlstr1,foldername & "\" & datem & ".xml"
set blogrecxml=new xmldom
blogrecxml.openxml blogfolder1 & "blogrecent.xml"
blogrecxml.addrecentxml blogtitle,blogcontent,blogfilename,blogfolder1 & "blogrecent.xml",blogshownum
set blogmxml=nothing
flag=blogwrite.existsf(foldername1,2)
if flag=2 then
blogfsowrite.fsocreatef foldername1,2
end if
else
foldername1=foldername & "\" & datem & "\"
flag=blogfsowrite.existsf(foldername1,2)
if flag=2 then
blogfsowrite.fsocreatef foldername1,2
xmlstr1="<?xml version='1.0' encoding='gb2312' ?>"
xmlstr1=xmlstr1 & "<blogmonth month='"
xmlstr1=xmlstr1 & datem
xmlstr1=xmlstr1 & "'>"
xmlstr1=xmlstr1 & "<blog date='"
xmlstr1=xmlstr1 & date
xmlstr1=xmlstr1 & "' time='"
xmlstr1=xmlstr1 & time
xmlstr1=xmlstr1 & "'>"
xmlstr1=xmlstr1 & "<blogtitle>"
xmlstr1=xmlstr1 & blogtitle
xmlstr1=xmlstr1 & "</blogtitle>"
xmlstr1=xmlstr1 & "<blogcontent>"
xmlstr1=xmlstr1 & blogcontent
xmlstr1=xmlstr1 & "</blogcontent>"
xmlstr1=xmlstr1 & "<link>"
xmlstr1=xmlstr1 & blogfilename
xmlstr1=xmlstr1 & "</link>"
xmlstr1=xmlstr1 & "<comment>"
xmlstr1=xmlstr1& "</comment>"
xmlstr1=xmlstr1 & "</blog>"
xmlstr1=xmlstr1 & "</blogmonth>"
blogfsowrite.fsocreatef foldername & "\" & datem & ".xml",1
blogfsowrite.fsowrite xmlstr1,foldername & "\" & datem & ".xml"
set blogrecxml=new xmldom
blogrecxml.openxml folder1 & "blogrecent.xml"
blogrecxml.addrecentxml blogtitle,blogcontent,blogfilename,blogfolder1 & "blogrecent.xml",blogshownum
set blogmxml=nothing
else
set blogmxml=new xmldom
blogmxml.openxml foldername & "\" & datem & ".xml"
blogmxml.additemblogm blogtitle,blogcontent,blogfilename,foldername & "\" & datem & ".xml"
set blogmxml=nothing
set blogrecxml=new xmldom
blogrecxml.openxml blogfolder1 & "blogrecent.xml"
blogrecxml.addrecentxml blogtitle,blogcontent,blogfilename,blogfolder1 & "blogrecent.xml",blogshownum
set blogmxml=nothing

set blogbasxml=new xmldom
blogbasxml.openxml "c:\bloginfo.xml"
blogbasxml.ebloginfo blogtitle,blogfilename
set blogmxml=nothing
end if
end if
blogfsowrite.fsocreatef blogfilename,1
blogfsowrite.fsowrite xmlstr,blogfilename

end function

end class