岁月留声QtAsp

调用代码, flash中的参数 bcastr_xml_url=xml.asp 就是xml实际上会通过读取数据库生成真正的xml文件

flash http://www.qtasp.cn/images/banner.swf

</p><div class="Header_banner" align="center"><object id="scriptmain" height="220" width="1003" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,29,0" name="scriptmain" classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000"><param value="banner.swf?bcastr_xml_url=xml.asp" name="movie" /><param value="high" name="quality" /><param value="noscale" name="scale" /><param value="false" name="LOOP" /><param value="false" name="menu" /><param value="transparent" name="wmode" /><embed height="220" width="860" name="scriptmain" wmode="transparent" menu="false" salign="T" type="application/x-shockwave-flash" pluginspage="http://www.macromedia.com/go/getflashplayer" quality="high" loop="false" src="banner.swf?bcastr_xml_url=xml.asp"></embed></object></div><p>

关键，读取数据库生成xml的代码 xml.asp

Response.contentType="text/xml" dim i '定义ConnectionString的值 i=1 set rs = server.createobject("adodb.recordset") '本句的意思是到word数据表内按id字段值的升序取出前100个song1name，dong1url字段的值。值被附加到数据集对象上被当作数据集的一个属性。 sql="select top 5 [id],[BigPic] from [Qianbo_Products] where ViewFlag order by id desc" '游标类型和锁定类型都设置为1，这是一个只能向前的只读行为，读取速度最快 rs.open sql,conn,1,1 If rs("id") <> "" Then Response.Write("<!--l version='1.0' encoding='utf-8-->") Response.Write("<bcaster autoplaytime="10"></bcaster>") '进行do while循环，条件循环到符合条件的最后一项 do while not rs.eof Response.Write("<item itemtitle="" link="" item_url=""></item>") '记录下移 rs.movenext i=i+1 '与do while呼应的loop方法，为主循环体 loop Response.Write("") End if rs.close set rs=nothing