| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 874 人关注过本帖
标题:ASP生成XML的问题,版主请进!
只看楼主 加入收藏
wwl1982
Rank: 1
等 级:新手上路
帖 子:18
专家分:0
注 册:2008-7-21
结帖率:33.33%
收藏
 问题点数:0 回复次数:7 
ASP生成XML的问题,版主请进!
<!--#include file="date/conn.asp"-->
<%
strC = "<?xml version=""1.0"" encoding=""utf-8""?> " & vbcrlf
strC = strC&"<settings    totalWidth=""650"" playerWidth=""420"" playerHeight=""300"" slideTime=""5""    titleBack=""0x000000"" titleText=""0xffffff""    navButtonsBack=""0x000000""    navButtonsText=""0xffffff""    videoBack=""0x000000""    videoButtons=""0xffffff""    videoButtonsRoll=""0xf129b0""    videoSeekBack=""0xffffff""    videoSeekBuffered=""0xfcd8f3""    videoSeekPlayed=""0xf129b0""    videoSeekHandle=""0x000000""    videoCurrentTime=""0xffffff""    videoTotalTime=""0xf129b0"">" & vbcrlf  
strC = strC&"<folio>"& vbcrlf

set rs = server.CreateObject("adodb.recordset")
sql="select * from pro where bclass=87 and sclass=88 order by id desc"
rs.open sql,conn,1,1
do while not rs.eof


strC = strC&"<project>"& vbcrlf
strC = strC&"<title><![CDATA["&rs("nam")&"]]></title>"& vbcrlf
strC = strC&"<description><![CDATA["&rs("content")&"]]></description>"& vbcrlf
strC = strC&"<assets type=""photo"">"& vbcrlf
strC = strC&"<item src='"&rs("pica")&"' />"& vbcrlf
strC = strC&"<item src='"&rs("picb")&"' />"& vbcrlf
strC = strC&"<item src='"&rs("picc")&"' />"& vbcrlf
strC = strC&"<item src='"&rs("picd")&"' />"& vbcrlf
strC = strC&"<item src='"&rs("pice")&"' />"& vbcrlf
strC = strC&"<item src='"&rs("picf")&"' />"& vbcrlf
strC = strC&"<item src='"&rs("picg")&"' />"& vbcrlf
strC = strC&"<item src='"&rs("pich")&"' />"& vbcrlf
strC = strC&"</project>"& vbcrlf
rs.movenext
loop
rs.close

strC = strC&"</folio>"& vbcrlf
strC = strC&" </settings>" & vbcrlf   


call saveXml(strC,"folio_rp_settings.xml")

Function saveXml(Text,FileName)   
dim xmldoc,path
set xmldoc= server.CreateObject("MSXML.DOMDocument")
path = Server.MapPath(FileName)
xmldoc.LoadXML(Text)
xmldoc.save(path)
set xmldoc= nothing
End Function


%>



以上代码是用FSO生成xml


生成的的格式如下

<?xml version="1.0" encoding="utf-8"?>
<settings totalWidth="650" playerWidth="420" playerHeight="300" slideTime="5" titleBack="0x000000" titleText="0xffffff" navButtonsBack="0x000000" navButtonsText="0xffffff" videoBack="0x000000" videoButtons="0xffffff" videoButtonsRoll="0xf129b0" videoSeekBack="0xffffff" videoSeekBuffered="0xfcd8f3" videoSeekPlayed="0xf129b0" videoSeekHandle="0x000000" videoCurrentTime="0xffffff" videoTotalTime="0xf129b0">
    <folio>
        <project>
            <title><![CDATA[test]]></title>
            <description><![CDATA[1111]]></description>
            <assets type="photo">
                <item src="UploadFiles/2009121621264316931.jpg"/>
                <item src="UploadFiles/2009121621264714641.jpg"/>
                <item src="UploadFiles/2009121621265115831.jpg"/>
                <item src="UploadFiles/2009121621265612641.jpg"/>
                <item src="UploadFiles/200912162127610141.jpg"/>
                <item src="UploadFiles/200912162127610141.jpg"/>
                <item src=""/>
                <item src=""/>

            </assets>
        </project>
    </folio>
</settings>

红色部分是数据库该字段为空的结果,我想当字段为空的时候可不可以让该节点不显示,就是有几张图片显示几个节点。



希望高手指教

最好给我修改的代码,本人初学者,谢谢大家!
搜索更多相关主题的帖子: 版主 ASP XML 
2009-12-17 13:35
wwl1982
Rank: 1
等 级:新手上路
帖 子:18
专家分:0
注 册:2008-7-21
收藏
得分:0 
咋没人管呀!
2009-12-17 14:13
yms123
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:版主
威 望:209
帖 子:12488
专家分:19042
注 册:2004-7-17
收藏
得分:0 
strC = strC&"<project>"& vbcrlf
strC = strC&"<title><![CDATA["&rs("nam")&"]]></title>"& vbcrlf
strC = strC&"<description><![CDATA["&rs("content")&"]]></description>"& vbcrlf
strC = strC&"<assets type=""photo"">"& vbcrlf
strC = strC&"<item src='"&rs("pica")&"' />"& vbcrlf
strC = strC&"<item src='"&rs("picb")&"' />"& vbcrlf
strC = strC&"<item src='"&rs("picc")&"' />"& vbcrlf
strC = strC&"<item src='"&rs("picd")&"' />"& vbcrlf
strC = strC&"<item src='"&rs("pice")&"' />"& vbcrlf
strC = strC&"<item src='"&rs("picf")&"' />"& vbcrlf
strC = strC&"<item src='"&rs("picg")&"' />"& vbcrlf
strC = strC&"<item src='"&rs("pich")&"' />"& vbcrlf
strC = strC&"</project>"& vbcrlf
这里改为
strC = strC&"<project>"& vbcrlf
strC = strC&"<title><![CDATA["&rs("nam")&"]]></title>"& vbcrlf
strC = strC&"<description><![CDATA["&rs("content")&"]]></description>"& vbcrlf
strC = strC&"<assets type=""photo"">"& vbcrlf
Dim Asc
For Asc=97 To 104
    Dim tField
    tField="pic"&Chr(Asc)
    IF rs(tField)<>"" Then
       strC = strC&"<item src='"&rs("picd")&"' />"& vbcrlf
    End IF
Next
strC = strC&"</project>"& vbcrlf
2009-12-17 14:16
wwl1982
Rank: 1
等 级:新手上路
帖 子:18
专家分:0
注 册:2008-7-21
收藏
得分:0 
strC = strC&"<project>"& vbcrlf
strC = strC&"<title><![CDATA["&rs("nam")&"]]></title>"& vbcrlf
strC = strC&"<description><![CDATA["&rs("content")&"]]></description>"& vbcrlf
strC = strC&"<assets type=""photo"">"& vbcrlf
Dim Asc
For Asc=97 To 104
    Dim tField
    tField="pic"&Chr(Asc)
    IF rs(tField)<>"" Then
       strC = strC&"<item src='"&rs("picd")&"' />"& vbcrlf
    End IF
Next
strC = strC&"</project>"& vbcrlf


红色部分还需要改动吗?


还有do while not rs.eof   XXXXXXXXXXXXXXX   rs.movenext
loop
rs.close 这个循环体代码还需要吗?
2009-12-17 14:37
yms123
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:版主
威 望:209
帖 子:12488
专家分:19042
注 册:2004-7-17
收藏
得分:0 
以下是引用wwl1982在2009-12-17 14:37:05的发言:

strC = strC&"<project>"& vbcrlf
strC = strC&"<title><![CDATA["&rs("nam")&"]]></title>"& vbcrlf
strC = strC&"<description><![CDATA["&rs("content")&"]]></description>"& vbcrlf
strC = strC&"<assets ty ...
不需要改动
do循环还需要的
2009-12-17 14:38
wwl1982
Rank: 1
等 级:新手上路
帖 子:18
专家分:0
注 册:2008-7-21
收藏
得分:0 
那红色部分呢只调“picd”这个字段吗?
希望版主把代码写全一点,我是新手
2009-12-17 14:44
wwl1982
Rank: 1
等 级:新手上路
帖 子:18
专家分:0
注 册:2008-7-21
收藏
得分:0 
strC = strC&"<item src='"&rs("picd")&"' />"& vbcrlf
我把rs("picd")换成rs(tField)就OK了
2009-12-17 14:58
anlige
Rank: 3Rank: 3
等 级:新手上路
威 望:7
帖 子:401
专家分:0
注 册:2006-11-3
收藏
得分:0 
strC = strC&"<assets type=""photo"">"& vbcrlf
strC = strC&"<item src='"&rs("pica")&"' />"& vbcrlf
strC = strC&"<item src='"&rs("picb")&"' />"& vbcrlf
strC = strC&"<item src='"&rs("picc")&"' />"& vbcrlf
strC = strC&"<item src='"&rs("picd")&"' />"& vbcrlf
strC = strC&"<item src='"&rs("pice")&"' />"& vbcrlf
strC = strC&"<item src='"&rs("picf")&"' />"& vbcrlf
strC = strC&"<item src='"&rs("picg")&"' />"& vbcrlf
strC = strC&"<item src='"&rs("pich")&"' />"& vbcrlf
strC = strC&"</project>"& vbcrlf
判断字段值是不是空,是空就不连接了

http://www.
zhanghuiguoanlige@
2009-12-21 13:24
快速回复:ASP生成XML的问题,版主请进!
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.018925 second(s), 9 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved