教你首页FLASH调用的技巧

昨天李长生版主给发来的一个效果，我将这个改为论坛首页的调用，其实就是一个FLASH图片调用，大家可以套用到现在的三格或者四格调用中，最终效果图(要正常显示，必须保证展区图片集中有五个图片)：
此主题相关图片如下：未命名.gif

具体调用设置如下：
1、FLASH调用当然需要一个FLASH文件了，先将压缩包中的透明flash.swf文件传到论坛的images目录(如果更改文件名或者路径的话，请与首页调用代码中保持一致)：

下载信息  [文件大小：[url=]1.8 KB[/url]  下载次数：[url=]1382[/url]]

点击浏览该文件:flash.rar

2、因为图片调用的大小不一会影响FLASH播放器的效果，这里必须统一图片大小，我们使用AspJpeg组件的缩位图功能，缩位图大小为306*200，选等比例缩放，到后台进行上传设置(如图)：
此主题相关图片如下：上传设置.gif

3、开始设置后台的首页调用，新建一个调用，调用标识名称为flashpic，具体设置如下图：
此主题相关图片如下：首页调用管理.gif

模板_开始标记部分：
<script type="text/javascript">
var varText = "";
function addInfo(title,photourl,link){
if(varText!=""){
varText+="|||";
}
varText+=title+"|_|"+photourl+"|_|"+link;
}
linkarr = new Array();
picarr = new Array();
textarr = new Array();
展区特殊设置这里留空，如图所示：
此主题相关图片如下：展区特殊设置.gif

模板_主体循环标记部分：
linkarr = "dispbbs.asp?boardid={$Boardid}%26id={$RootID}%26replyID={$ReplyID}";
picarr = "{$TrueFilename}";
textarr = "{$Readme}";
addInfo(textarr,picarr,linkarr);
模板_结束标记部分：
document.write('<object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=7,0,19,0" width="410" height="200" id="01" align="middle">');
document.write('<param name="allowScriptAccess" value="sameDomain" />');
document.write('<param name="movie" value="images/flash.swf?info='+varText+'" />');
document.write('<param name="quality" value="high" />');
document.write('<param name="bgcolor" value="#ffffff" /><param name="wmode" value="transparent" />');
document.write('<embed src="images/flash.swf" quality="high" bgcolor="#ffffff" width="410" height="200" name="01" align="middle" allowScriptAccess="sameDomain" type="application/x-shockwave-flash" pluginspage="http://www.macromedia.com/go/getflashplayer" />');
document.write('</object>');
</script>
4、dv_news.asp文件做如下修改：
  If SQL(9,i)<>"" Then
   Filename = Bbsurl & SQL(9,i)
  Else
   Filename = SQL(4,i)
   If InStr(Filename,":") = 0 Or InStr(Filename,"//") = 0 Then
    Filename = Bbsurl & Dvbbs.Forum_Setting(76) & Filename
   End If
  End If
下面添加一行代码：
  Skin_Main = Replace(Skin_Main,"{$TrueFilename}",Filename)