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

搜索

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

【修改教程】

下载

新闻

文章

一直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