Flash網站一般都需要調用XMl文件來實現方便的修改網站內容操作，而Flash網站模板則通常都會有后臺來更新網站內容，也就是我們常說的ASP+FLASH+XML做的flash網站，一般是采用ASP生成XML文件方法來解決這一問題，下面就分享一些方法：
程序代碼如下：
<!–#include file=”conn.asp”–>
<%’從數據庫中讀數據
dim i
dim TopicID(7),BoardID(7),Caption(7),LastTime(7)
‘——————-讀數據
set rs = Server.CreateObject(“Adodb.recordset”)
sql = “Select * from new order by new_id desc”
rs.open sql,conn,1,1
i=1
do while not rs.eof
TopicID(i)=rs(“New_ID”)
BoardID(i)=rs(“new_topic”)
Caption(i)=rs(“new_stype”)
LastTime(i)=rs(“new_date”)
rs.movenext
i=i+1
if i > 7 then exit do
loop
‘——————生成xml
Set f = Server.CreateObject(“Scripting.FileSystemObject”)
‘Set myfile = f.Createtextfile(server.mappath(file),true)
files = “output.xml” ‘文件輸出路徑
Set myfile = f.Createtextfile(server.mappath(files),true)
myfile.writeline “<?xml version=”"1.0″” encoding=”"gb2312″”?>”
myfile.writeline “<data>”
for i=1 to 7
myfile.writeline “<gong>”
myfile.writeline “<TopicID>”&TopicID(i)&”</TopicID>”
myfile.writeline “<BoardID>”&BoardID(i)&”</BoardID>”
myfile.writeline “<Caption>”&Caption(i)&”</Caption>”
myfile.writeline “<LastTime>”&LastTime(i)&”</LastTime>”
myfile.writeline “</gong>”
next
myfile.writeline “</data>”
myfile.close
%>
項目中使用：
程序代碼如下：
<!–#include file=”conn.asp”–>
<%’從數據庫中讀數據
dim i
dim New_ID(10),New_topic(10),New_stype(10),New_pic(10)
‘——————-讀數據
set rs = Server.CreateObject(“Adodb.recordset”)
sql = “Select * from new order by new_id desc”
rs.open sql,conn,1,1
i=1
do while not rs.eof
New_ID(i)=rs(“New_ID”)
New_topic(i)=rs(“new_topic”)
New_stype(i)=rs(“new_stype”)
New_pic(i)=rs(“new_pic”)
rs.movenext
i=i+1
if i > 10 then exit do
loop
‘——————生成xml
Set f = Server.CreateObject(“Scripting.FileSystemObject”)
‘Set myfile = f.Createtextfile(server.mappath(file),true)
files = “swf/imgList.xml” ‘文件輸出路徑
Set myfile = f.Createtextfile(server.mappath(files),true)
myfile.writeline “<?xml version=”"1.0″” encoding=”"gb2312″”?>”
myfile.writeline “<imgList>”
myfile.writeline “<pic>”
for i=1 to 10
myfile.writeline “<list path=’uploadfile/”&New_pic(i)&”‘ smallpath=’uploadfile/”&New_pic(i)&”‘ smallinfo=’”&New_stype(i)&”‘ news.asp?bigCate=今創工程&smallCate=”&New_stype(i)&” /list>”
next
myfile.writeline “</pic>”
myfile.writeline “<rollTime fade_in=”"10″”>4</rollTime>”
myfile.writeline “<text font=”"黑體”" size=”"12″” bold=”"true”" color=”"0xfffffff”"></text>”
myfile.writeline “</imgList>”
myfile.close
%>
|
