scscms插件－公告向左右滚动

先看看效果：http://www.scscms.com/scscms/gg_hor.asp?hor=2

第一步：在inc/scs_function.asp加入函数

'**************************************************
'函 数 名：Horizontal_diary(i_top)
'作    用：左右滚动的公告
'参    数：i_top表示选择多少条公告显示，建议为10
'**************************************************
Function Horizontal_diary(i_top)
Dim F_List
	Sql="Select Top "&i_top&" diary_date,diary_title,diary_good,web_url From [Scs_diary] Order By index_diary=1,diary_id Desc"
	Set Rs=Server.Createobject("adodb.recordset")
	Rs.open Sql,Conn,1,1
	If Rs.Eof and Rs.Bof Then
	F_List="正在更新之中……"
	Else
		Do While Not Rs.Eof
		i_Good=Split("紧急|重要|普通","|")(Rs(2))
		F_List=F_List&"<strong class=""scs_font"">["&i_Good&"]</strong> <a href=""" &Rs(3)& """ target=""_blank"">"&Rs(1)&"</a> <span class=disable_font>" &Rs(0)& "</span> &nbsp; "    
			Rs.MoveNext
		Loop
	End If 
	Rs.Close:Set Rs=Nothing
	Horizontal_diary=F_List
End Function

第二步：在inc/top.asp适当的位置插入HTML代码

<div class="maindiv">
<div class="div_title0"><div class="head_title0">&nbsp;</div><a href="/diary/">最新公告</a>  Announcements</div>
	<div id="horizontal" style="width:976px;height:18px;overflow:hidden">
	<%=Horizontal_diary(10)%>
	</div>
</div>
<div class="line"></div>

第三步：在inc/foot.asp的<script>内插入JS代码

new Marquee("horizontal",2,1,976,18,30,0,0); //向左滚动公告，注意m是大写
//或者
new Marquee("horizontal",3,1,976,18,30,0,0);//向右滚动公告注意m是大写
//上面的代码任选一行,不能两行都使用

说明：如果只是想在首页有此功能，那么第二、三步的代码就全部放在首页(default.asp)文件里

关键词: scscms,插件,公告滚动   编辑时间: 2010-11-05

• 

  1

  高兴
• 

  0

  支持
• 

  0

  搞笑
• 

  0

  不解
• 

  0

  谎言
• 

  0

  枪稿
• 

  0

  震惊
• 

  0

  无奈
• 

  0

  无聊
• 

  0

  反对
• 

  0

  愤怒