您当前位置:首页 > 文章中心 > SCSCMS > 修改教程

新闻flash幻灯片效果flash图片切换效果

稿件来源: 阳光企业网站管理系统   撰稿作者: 太阳光   发表日期: 2011-6-19   阅读次数: 596   查看权限: 游客查看

一直FLASH展示图片都被视为对SEO没帮助的,在本程序里也尽量不使用FLASH。但部分朋友仍对我们以前飞腾CMS的新闻FLASH念念不忘,所以在此说一下修改方法。

阳光企业CMSv1.0新闻flash幻灯片效果修改方法:

第一步:删除default.asp最下面的一行代码

 addBtn();iBanner();setInterval('autoBanner()', 5000);

第二步:下载pixviewer.swf到 images文件夹

第三步:修改inc/scs_function.asp 的news_pic()函数。

'动态网片begin
Sql="Select Top 10 news_id,news_title,news_pic,web_url From [Scs_news] where passed=1 and news_pic<>'' Order By istop=1,news_id Desc"
.......省略部分
F_List=F_List&"</div></div>"
news_pic=F_List
End Function

//把以上代码全部修改为以下代码

'动态网片begin
Dim pics,links,texts
Sql="Select Top 10 news_id,news_title,news_pic,web_url From [Scs_news] where passed=1 and news_pic<>'' Order By istop=1,news_id Desc"
     Set Rs = Server.CreateObject("Adodb.RecordSet")
         Rs.open Sql,Conn,1,1
		 F_List=F_List&"<div id=""ibanner""><div id=""ibanner_pic"">"
            If Not ( Rs.Eof Or Rs.Bof ) Then			
               Do While Not Rs.Eof
				pics=pics&"|"&Rs(2)
				links=links&"|"&Rs(3)
				texts=texts&"|"&scscms.clear_html("<[^>]*>",Rs(1))
                 Rs.MoveNext
               Loop				
			Else
				pics="|images/no_news.jpg|images/no_news2.jpg"
				links="|#|#"
				texts="|阳光企业网站免费开源|"&webname
            End If
            Rs.Close:Set Rs=Nothing
F_List=F_List&"<script type='text/javascript'>"&vbcrlf
F_List=F_List&"var pics='"&mid(pics,2)&"';"&vbcrlf
F_List=F_List&"var links='"&mid(links,2)&"';"&vbcrlf
F_List=F_List&"var texts='"&mid(texts,2)&"';"&vbcrlf
F_List=F_List&"var focus_width=361;"&vbcrlf
F_List=F_List&"var focus_height=197;"&vbcrlf
F_List=F_List&"var text_height=20;"&vbcrlf
F_List=F_List&"var swf_height = focus_height+text_height;"&vbcrlf
F_List=F_List&"document.write('<param name=""allowScriptAccess"" value=""sameDomain""><param name=""movie"" value=""/images/pixviewer.swf""><param name=""quality"" value=""high""><param name=""bgcolor"" value=""#f2f2f2"">');"&vbcrlf
F_List=F_List&"document.write('<param name=""menu"" value=""false""><param name=""wmode"" value=""opaque"">');"&vbcrlf
F_List=F_List&"document.write('<param name=""FlashVars"" value=""pics='+pics+'&links='+links+'&texts='+texts+'&borderwidth='+focus_width+'&borderheight='+focus_height+'&textheight='+text_height+'"">');"&vbcrlf
F_List=F_List&"document.write('<embed src=""/images/pixviewer.swf"" wmode=""opaque"" FlashVars=""pics='+pics+'&links='+links+'&texts='+texts+'&borderwidth='+focus_width+'&borderheight='+focus_height+'&textheight='+text_height+'"" menu=""false"" bgcolor=""#dadada"" quality=""high"" width=""'+ focus_width +'"" height=""'+ swf_height +'"" allowScriptAccess=""sameDomain"" type=""application/x-shockwave-flash"" pluginspage=""http://www.macromedia.com/go/getflashplayer"" />');"&vbcrlf
F_List=F_List&"document.write('</object>');"&vbcrlf
F_List=F_List&"</script>"&vbcrlf
F_List=F_List&"</div></div>"
news_pic=F_List
End Function

附件下载

关键词: flash图片切换效果,flash幻灯片效果,新闻flash   编辑时间: 2012-6-7

  • 感到高兴

    0

    高兴
  • 感到支持

    0

    支持
  • 感到搞笑

    0

    搞笑
  • 感到不解

    0

    不解
  • 感到谎言

    0

    谎言
  • 感到枪稿

    0

    枪稿
  • 感到震惊

    0

    震惊
  • 感到无奈

    0

    无奈
  • 感到无聊

    0

    无聊
  • 感到反对

    0

    反对
  • 感到愤怒

    0

    愤怒
100%(1)
0%(0)
共有0 条评论 发言请遵守【相关规定

网友评论

会员头像
发 表同步腾讯微博  匿名评论  验证码:  点击更新
  • 暂无评论
关闭模块文章图片 article Pictrue
  • 代码覆盖率工具 Istanbul 入门教程
  • 全栈工程师的武器——MEAN
  • 9款超炫的 CSS3 复选框(Checkbox)
  • 微信开发在线翻译功能
  • CSS3那些不为人知的高级属性
  • 给easyui的datebox添加清空事件
  • flash写字效果
  • kendoUI系列教程之DropDownList下拉菜单
  • kendoUI系列教程之datetimepicker日期时间选择
  • kendoUI系列教程之datepicker日期选择
  • kendoUI系列教程之combobox下拉列表框
  • kendoUI系列教程之colorpicker
  • kendoUI系列教程之calendar日历表
  • kendoUI系列教程之autocomplete自动补齐
  • kendo ui简介
  • QQ登录网站实战教程