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

2005-03-24 03:15:41 189 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

abaqus 根据坐标施加载荷- Analytical Field 载荷映射在一些类型的分析中，需要将按位置分布的载荷施加到结构上，比如流体分析导出了结构的气动载荷、或者温度载荷，需要将压强分布、温度分布载荷施加到固体上。这种分析可以使用abaqus中的Analytical Field实现。 1 例子 1.1 结构一个100*100mm的面，面的载荷分布函数为p=(x2+y2)0.5/((20.5)*100) MPa，即(0, 0)的压强为0，(100, 100)的压强为1。 1.2 载荷载荷函数：p=(x^2+y^2)^0.5/((2^0.5)*100) in exce. 阅读详情

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

...全文

LWIP协议栈在STM32H7上的内存优化实战：如何用32KB RAM实现稳定千兆以太网通信本文深入探讨了在STM32H7微控制器上，如何通过内存优化策略，在仅32KB的D2 SRAM中稳定运行LWIP协议栈以实现千兆以太网通信。文章详细分析了STM32H7的内存架构、LWIP的内存消耗瓶颈，并提供了从描述符表与PBUF池精确分配、链接脚本修改到MPU区域划分的一整套实战优化方案，旨在解决大数据量传输卡死等常见配置问题。阅读详情

zhouguoyao

XML/XSL 8,906 成员 22,677 内容

+ 关注 + 加入社区

切换为时间正序

笨笨兔兔兔兔兔 2005-03-26

打赏
举报

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

笨笨兔兔兔兔兔 2005-03-25

打赏
举报

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

zhouguoyao 2005-03-25

打赏
举报

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

笨笨兔兔兔兔兔 2005-03-25

打赏
举报

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

笨笨兔兔兔兔兔 2005-03-25

打赏
举报

fso

zhouguoyao 2005-03-25

打赏
举报

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

tonton 2005-03-25

打赏
举报

生成的DOM有 Save 方法，

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

这样子就行了。

zhouguoyao 2005-03-25

打赏
举报

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

zhouguoyao 2005-03-24

打赏
举报

怎么没人回答呢？

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

相关推荐