先看看具体实现的代码:
折叠展开ASP/Visual Basic Code <!--#include file="../Conn.asp" --> <% filename="../Flash.txt" ‘为摸班文件 filename2="Flash.txt" ’要生成的文件 set fso = Server.CreateObject("Scripting.FileSystemObject") set f2= fso.OpenTextFile(server.mappath(""&filename2"")) If Not fso.FileExists(server.mappath(""&filename2"")) Then mb1="Flash.txt不存在" else mb1=f2.ReadAll End If f2.close set f2=nothing set fso=nothing set fso=server.createobject("scripting.filesystemobject") set ffile=fso.createtextfile(server.mappath(""&filename"")) set rs=server.createobject("adodb.recordset") sql="select * from flash order by px_id asc" rs.open sql,conn,1,1 if not rs.eof then do while not rs.eof tj=tj"<item title='"&rs("title")"' img='"&rs("img")"' url='"&rs("link")"' />" rs.movenext loop end if rs.close set rs=nothing mb1=replace(mb1,"[piclist]",tj) ffile.write""&mb1"" ffile.close set ffile=nothing set fso=nothing %>
conn.asp为数据库连接文件,里面具体的数据表,大家可以根据自己的数据来修改成自己需要的,在例子中涉及到一个[piclist],这个就是摸班中的标签,我们看看摸班flax.txt文件的内容
XML/HTML Code <?xml version="1.0" encoding="gb2312" ?> <viewer interval="4000" isRandom="0"> [piclist] </viewer>
最后生成代码如下:
XML/HTML Code <?xml version="1.0" encoding="gb2312" ?> - <viewer interval="4000" isRandom="0"> <item title="plant pic" img="/uploadfile/201009/20100913233342273.jpg" url=http://www.ccap168.cn /> <item title="plant pic" img="/uploadfile/201009/20100913233550104.jpg" url="#" /> <item title="plant pic" img="/uploadfile/201009/20100913233628472.jpg" url=http://www.ccap168.cn /> </viewer> 这需修改数据表和字段,以及摸班,和生成文件的名字,就可以显示你的ASP也可以生成html或者txt, 忘告诉了,如果把txt改成html,就生成的html文件了。如果有不理解的,可以留言,和大家一起探讨。
|