标题: [原创] 教你首页FLASH调用的技巧
zhengxulei
初级会员
Rank: 1



UID 6543
精华 0
积分 0
帖子 12
威望 0
金钱 76
阅读权限 1
注册 2008-4-13
来自 中国
发表于 2008-4-29 09:53  资料  个人空间  短消息  加为好友 
教你首页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)

顶部
bcde677
初级会员
Rank: 1



UID 6704
精华 0
积分 0
帖子 525
威望 0
金钱 1575
阅读权限 1
注册 2008-5-12
发表于 2008-5-31 03:21  资料  个人空间  主页 短消息  加为好友  QQ
足球直播网

支持!!呵呵
   















致力于足球直播网英超直播, 足球比分直播等体育赛事直播





[url=http://www.google.com.cn]google排名[/url]
顶部
dzmms36
初级会员
Rank: 1



UID 7001
精华 0
积分 0
帖子 561
威望 0
金钱 1683
阅读权限 1
注册 2008-7-15
发表于 2008-7-18 01:07  资料  个人空间  主页 短消息  加为好友  QQ
做笑话系统

副总统&小组出版者,西部的Metroland

他看来是一个良性祖父图,平静地住在过去二十年的Brantford。 马哈茂德Mohammad Issa Mohammad也许现在是那。 但是他也是在1987年时说谎关于他的恐怖分子行动和加入,当申请进入投资移民的一个被判罪的恐怖分子。

他和同事在1968年猛冲了以色列班机,投掷的手榴弹和射击的子弹,杀害乘客。 作为与另一个巴勒斯坦恐怖分子的一个人质成加拿大移民交一部分他从监狱被判了罪,然后释放了。

虽然他提到他自己作为“自由战斗机”,事实遗骸他被判了罪。 当他没有承认那个事实和没有注意他的与已知的恐怖小组的移民加拿大加入,他做了,因此知道两件那些事将导致他的驱逐出境。

移民加拿大捉住了他他的谎言的并且定购了他在1988年递解了。 今天,当他准备标记他的第65个生日,他在和平和相对繁加拿大投资移民荣仍然居住这里。 通过使用许多不同的呼吁,他的律师能反对合法的命令。 到现在,没有他的驱逐出境很快将发生的征兆和可能不。

有要求加拿大的移民,并且难民系统是摇晃不稳的评论家,那上千群众居住这里非法地和在大,当合法的移民和难民请诉人等待几年安排他们的要求听见由一个进度落后的系统时。

那极端写照也许服务一些政治议程和为反移民宣传员提供饲料。 幸运地,它不是准确的。 我们的国家的移民系统合理地很好投资移民加拿大
运作,有一些例外。 这是那些案件之一,并且它是足够严厉的担保调查和提示行为。

任何管理系统,成交以人安全保卫,必须有固定制约与平衡、权利喜欢和权利一个实时性反应使呼吁合法的特别是一。 我们的系统有那个安全网,并且它典型地运作。 但是在驱逐出境的这不确定的延迟是远在所有合理的过程之外。 在其他上下文您可能想象延迟一个合法的法令20年什么的一系列的呼吁? 它清晰地是可笑的





[url=http://www.jease.cn]北京google优化[/url]
顶部
 



当前时区 GMT+8, 现在时间是 2008-12-2 21:44
京ICP备06001907号


    Powered by Discuz! 5.5.0  © 2001-2007 Comsenz Inc.
Processed in 0.082035 second(s), 6 queries , Gzip enabled

清除 Cookies - 联系我们 - 倍儿地道! - Archiver - WAP