bcastr4.0通过xml文件来读取flash的数据,由于本例中数据在后台是存在access数据库中,用fso或者xmldom都可以生成xml文件,这里我们使用比较流行的fso组件生成,大部分服务器都支持fso.
首先看下要生成的xml文件
xml 語法
- <?xml version="1.0" encoding="utf-8"?>
- <data>
- <channel>
- <item>
- <link>http://www.ruochi.com</link>
- <image>../Include/images/image1.jpg</image>
- <title>Bell Tower,Xi'an,China</title>
- </item>
- <item>
- <link>http://www.ruochigroup.com</link>
- <image>../Include/images/image2.jpg</image>
- <title>Greater Wild Goose Pagoda,Xi'an,China</title>
- </item>
- <item>
- <link>http://www.ruochi.com</link>
- <image>../Include/images/image3.jpg</image>
- <title>Terra Cotta Warriors,Xi'an,China</title>
- </item>
- <item>
- <link>http://www.ruochigroup.com</link>
- <image>../Include/images/image4.jpg</image>
- <title>The Forest of Steles ,Xi'an,China</title>
- </item>
- <item>
- <link>http://www.ruochi.com</link>
- <image>../Include/images/image5.jpg</image>
- <title>The Qian Tomb,Xi'an,China</title>
- </item>
- </channel>
- <config>
- <roundCorner>8</roundCorner>
- <autoPlayTime>8</autoPlayTime>
- <isHeightQuality>false</isHeightQuality>
- <blendMode>normal</blendMode>
- <transDuration>1</transDuration>
- <windowOpen>_self</windowOpen>
- <btnSetMargin>auto 5 5 auto</btnSetMargin>
- <btnDistance>20</btnDistance>
- <titleBgColor>0x66a54a</titleBgColor>
- <titleTextColor>0xffffff</titleTextColor>
- <titleBgAlpha>.75</titleBgAlpha>
- <titleMoveDuration>1</titleMoveDuration>
- <btnAlpha>.7</btnAlpha>
- <btnTextColor>0xffffff</btnTextColor>
- <btnDefaultColor>0x1B3433</btnDefaultColor>
- <btnHoverColor>0xff9900</btnHoverColor>
- <btnFocusColor>0xff6600</btnFocusColor>
- <changImageMode>click</changImageMode>
- <isShowBtn>true</isShowBtn>
- <isShowTitle>true</isShowTitle>
- <scaleMode>noBorder</scaleMode>
- <transform>blur</transform>
- <isShowAbout>true</isShowAbout>
- <titleFont>微软雅黑</titleFont>
- </config>
- </data>
接下来就是一个asp片断,用fso方法,只需存为asp文件,插入要放flash的页面即可.
vb 語法
-
- <%
- dim xmlfile,fso,Myfile
- sql="select * from XX_Flash order by picorder asc"
- set rs=server.createobject("adodb.recordset")
- rs.open sql,conn,1,3
-
- xmlfile=server.mappath("../Include/bcastr.xml")
- Set fso = CreateObject("Scripting.FileSystemObject")
- Set MyFile = fso.CreateTextFile(xmlfile,True,-1)
- MyFile.WriteLine("<?xml version=""1.0"" encoding=""UTF-8""?>")
- MyFile.WriteLine("<data>")
- MyFile.WriteLine("<channel>")
-
- rs.movefirst
-
- while not rs.eof
- MyFile.WriteLine("<item>")
- MyFile.WriteLine("<link>" & rs("piclink") & "</link>")
- MyFile.WriteLine("<image>" & rs("pic") & "</image>")
- MyFile.WriteLine("<title>" & rs("title") & "</title>")
- MyFile.WriteLine("</item>")
-
-
- rs.movenext
-
- wend
- rs.close
- Set rs = Nothing
- MyFile.WriteLine("</channel>")
- MyFile.WriteLine("<config>")
- MyFile.WriteLine("<roundCorner>8</roundCorner>")
- MyFile.WriteLine("<autoPlayTime>8</autoPlayTime>")
- MyFile.WriteLine("<isHeightQuality>false</isHeightQuality>")
- MyFile.WriteLine("<blendMode>normal</blendMode>")
- MyFile.WriteLine("<transDuration>1</transDuration>")
- MyFile.WriteLine("<windowOpen>_self</windowOpen>")
- MyFile.WriteLine("<btnSetMargin>auto 5 5 auto</btnSetMargin>")
- MyFile.WriteLine("<btnDistance>20</btnDistance>")
- MyFile.WriteLine("<titleBgColor>0x66a54a</titleBgColor>")
- MyFile.WriteLine("<titleTextColor>0xffffff</titleTextColor>")
- MyFile.WriteLine("<titleBgAlpha>.75</titleBgAlpha>")
- MyFile.WriteLine("<titleMoveDuration>1</titleMoveDuration>")
- MyFile.WriteLine("<btnAlpha>.7</btnAlpha>")
- MyFile.WriteLine("<btnTextColor>0xffffff</btnTextColor>")
- MyFile.WriteLine("<btnDefaultColor>0x1B3433</btnDefaultColor>")
- MyFile.WriteLine("<btnHoverColor>0xff9900</btnHoverColor>")
- MyFile.WriteLine("<btnFocusColor>0xff6600</btnFocusColor>")
- MyFile.WriteLine("<changImageMode>click</changImageMode>")
- MyFile.WriteLine("<isShowBtn>true</isShowBtn>")
- MyFile.WriteLine("<isShowTitle>true</isShowTitle>")
- MyFile.WriteLine("<scaleMode>noBorder</scaleMode>")
- MyFile.WriteLine("<transform>blur</transform>")
- MyFile.WriteLine("<isShowAbout>true</isShowAbout>")
- MyFile.WriteLine("<titleFont>微软雅黑</titleFont>")
- MyFile.WriteLine("</config>")
- MyFile.WriteLine("</data>")
- MyFile.Close
- %>
这样就在include文件夹下生成bcastr.xml文件,每次刷新都会盖掉上次的.
有的人在以上环节后发现页面上的flash中的中文字会乱码,原因是fso不支持utf-8。只支持ansi、unicode等
Set MyFile = fso.CreateTextFile(xmlfile,True,-1) 这句的第三个参数就非常重要-1是boolean值的true;
下面是对CreateTextFile的参数的详细说明:
object.CreateTextFile(filename[, overwrite[, unicode]])
参数
object
必选项。应为 FileSystemObject 或 Folder 对象的名称。
filename
必选项。指明所要创建文件的字符串表达式。
overwrite
可选项。Boolean 值，指明能否覆盖已有文件。如果文件可以覆盖，则值为 true ，否则为 false。如果忽略，则已有文件不能被覆盖。
unicode
可选项。Boolean 值，指明文件是否以 Unicode 或 ASCII 文件方式创建。如果文件作为 Unicode 文件创建，则值为 true ，如果作为 ASCII 文件创建，则为 false。如果忽略，则假定为 ASCII 文件。
fso生成xml文件应用及乱码问题解决.
