给JTBC(ASP)(1_0 Final)CMS添加Bcastr 4.0 Beta FLASH幻灯片

给JTBC(ASP)(1_0 Final)CMS添加Bcastr 4.0 Beta FLASH幻灯片

[b]Bcastr 4.0 Beta[/b] 是一款很强悍的、开源(Open Source)的flash image silde show 图片轮换播放效果 ！

网址：http://www.ruochigroup.com/main/2008 /03/19/bcastr-40/

[img][attach]255[/attach][/img]

[separator]
[quote]
[color=#FF4500]更多实例[/color]

    * [url=http://www.ruochigroup.com/main/bcastr-example/]Bcastr Example[/url]

[color=#FF4500]更新[/color]
2008-06-09

    * 使用as3.0重写,效率有所提高
    * 增加了几种变换方式
    * 新参数和bcastr3.x不同,xml格式采用rss2.0的格式,可以直接读取rss中的图片(不能跨域)
    * 可以通过xml对播放器设置
    * 等多参数可以设置

[color=#FF4500]下载[/color]

    * [url=http://bcastr.googlecode.com/svn/trunk/bcastr4/release/example/example.zip]实例[/url]
    * [url=http://bcastr.googlecode.com/svn/trunk/bcastr4/release/src.zip]源代码[/url]
    * [url=http://code.google.com/p/bcastr/]Google Code Project Hosting[/url]
[/quote]

[b]开始讲正题：[/b]

首先把原bcastr4.swf放到网站的可以找到的位置，然后在[color=#4169E1]模板管理->调用模板->增加一个新的节点[/color]
name:      [color=#FF0000]flashpic[/color]
tpl_default:
[code]
<data>
    <channel>{$}{$$}
<item>
  <link>{$baseurl}redir.asp?id={$id}</link>
  <image>{$baseurl}{$=split('{$content_images_list}', '|')(0)}</image>
  <title>{$topic}</title>
</item>{$$}{$}
    </channel>
</data>
[/code]
================================================
common/incfiles/module.asp 里修改一下
---------------------------------
在110行左右, Case Else 上面加:
[code]
    Case "pics"
        tsqlstr = "select top " & ttopx & " * from " & tdatabase & " where " & tfpre & "hidden=0 and a_content_images_list NOT LIKE '' and a_content_images_list not like '%.doc%'"
        tsqlorder =" order by " & tfpre & "time desc"
[/code]  
－－－－－－－－－－
在165行左右, If tmpc >= ttopx Then Exit Do 上面加:
[code]
    If itype="pics" Then
      tmpstrd = Replace(tmpstrd, "{$id}", trs(tidfield))
    tmpstrd = Replace(tmpstrd, "{$baseurl}", tbaseurl)
    tmpstrd = Replace(tmpstrd, "{$urltype}", turltype)
    tmpstrd = Replace(tmpstrd, "{$a_content_images_list}", trs("a_content_images_list"))
    'response.write "<br/>" & trs("a_content_images_list")
    tmpstre = tmpstre & creplace(tmpstrd)
    trs.movenext
    tmpc = tmpc + 1
  end if
[/code]

在想要调用的模板处加上：
[code]<object type="application/x-shockwave-flash" data="{$global.images}swf/bcastr4.swf?xml={$=itransfer('pics', 'flashpic', 'topx=6;tnum=13;genre=article;osql= and a_class=2;')}"  width="300" height="280" id="vcastr3"><param name="movie" value="{$global.images}swf/bcastr4.swf?xml={$=itransfer('pics', 'flashpic', 'topx=6;tnum=13;genre=article')}" /></object>[/code]
===========================
OK 看看有标题有图片的幻灯片:)

[b]说明一下:[/b]

这个redir.asp文件是要重新创建的,文件放在相应的模块内,跟index.asp同级路径(具体解释：并非JTBC根目录，而是需要参看第二步中相应调用路径所在的文件夹，譬如调用article文章系统图片，那么就要将这个文件复制到article文件夹目录下)
redir.asp 文件代码内容为:
[code]
<%
response.redirect "./?type=detail&id=" & request("id")
%>
[/code]


PHP版请看这里：JTBC(php版)：  [url=http://www.husw.net/blog/JTBC_php-FLASH-slide-call/]FLASH幻灯片完美调用方法[/url]