scscms插件－滑动标签1

先查看效果：http://www.scscms.com/scscms/tab_1.asp

步骤一：在inc/scs_function.asp添加以下代码

'**************************************************
'函 数 名：div_tab(str,s_cat,id,lr)
'作    用：滑动标签
'说    明：str是类别(如news,Article,software等),s_cat:分类集(如1,2 多个分类ID用,隔开),id:区别ID(只要保证同函数中字符是唯一性) lr:是浮左还是浮右(left或right)
'*************************************************
Function div_tab(str,s_cat,id,lr)
Dim F_List,B_List
F_List="<div class=""article_div_"&lr&"""><div class=""div_tab"">"
B_List="</div>"
	s_Sql="Select cat_id,cat_name From [Scs_cat] where Cat_id in("&s_cat&")"
    Set s_Rs=Server.CreateObject("Adodb.RecordSet")
    s_Rs.open s_Sql,Conn,1,1
    If Not ( s_Rs.Eof Or s_Rs.Bof ) Then
        s_Array_List=s_Rs.GetRows
    Else
        s_Array_List=""
    End If
    s_Rs.Close:Set s_Rs=Nothing
	If IsArray(s_Array_List) Then
        i_Total=UBound(s_Array_List,2)
        For i=0 To i_Total
			F_List=F_List&"<div id='dtab_"&id&s_Array_List(0,i)&"'"
			B_List=B_List&"<div id='list_"&id&s_Array_List(0,i)&"'"
			If i=0 Then
				F_List=F_List&" class='div_on' "
				B_List=B_List&" style='display:'"
			Else
				F_List=F_List&" class='div_off' "
				B_List=B_List&" style='display:none'"
			End If
			F_List=F_List&"onmouseover=""div_tab('"&id&"',"&s_Array_List(0,i)&",'"&s_cat&"')""><a href=""/"&str&"/CatList_"&s_Array_List(0,i)&".html"">"&s_Array_List(1,i)&"</a></div>"
			B_List=B_List&">"

			s_Sql="Select Top 6 "&str&"_id,"&str&"_date,"&str&"_title,user_view,"&str&"_pic,"&str&"_summary,web_url From [Scs_"&str&"] where passed=1 and cat_id in("&s_Array_List(0,i)&ReadSubId(s_Array_List(0,i))&") Order By "&str&"_pic<>'',istop=1,"&str&"_id desc"
            Set s_Rs = Server.CreateObject("Adodb.RecordSet")
            s_Rs.open s_Sql,Conn,1,1
            If s_Rs.Eof Then
				B_List=B_List&"<ul class=""article_ul""><li>暂无内容</li>"
			Else
			i_Total=0
         Do While Not s_Rs.Eof
			   s_PicURl=s_Rs(4)
			   s_Title=scscms.clear_html("<[^>]*>",s_Rs(2))
			   If i_Total=0 Then
					B_List=B_List&"<div class=""article_div_pic"">"&scs_getpic(s_PicURl,s_Title,"/images/scscms.jpg",130,90,"align='left'")
					B_List=B_List&"<a href="""&s_Rs(6)&"""><strong>"&s_Title&"</strong></a><br/>"&scscms.clear_html("<[^>]*>",s_Rs(5))&"</div><ul class=""article_ul"">"
			   Else
					B_List=B_List&"<li><img src=""/images/ico/article_pt.gif"" width=11 height=11 align=""absmiddle"" />&nbsp;<a href="""&s_Rs(6)&""">"&s_Title&"</a> "&s_Rs(1)
						If DateDiff("d",s_Rs(1),Now())<CInt(newtime) Then B_List=B_List&"&nbsp;<img src=""/images/ico/new.gif"" border=""0"" width=30 height=10 />"
					B_List=B_List&"</li>"
			   End If
			   i_Total=i_Total+1
			   s_Rs.MoveNext
               Loop
            End If
            s_Rs.Close:Set s_Rs=Nothing
            B_List=B_List&"</ul></div>"           
        Next
    End If    
    div_tab=F_List&B_List&"</div>"
End Function

步骤二：在images/xzy_css.css添加代码

.div_on,.div_off{
	width:80px;
	float:left;
	height:21px;
	color:#999999;
	cursor:pointer;
	padding-top:6px;
	text-align:center;	
	font-size:14px;
	background-image: url(/images/scs_bg.png);
	background-repeat:repeat-x;
	background-position:0px -200px;
	border-right:1px solid #99CC99;
}
.div_on{
	background-position:0px -230px;
	border-bottom:0px solid #99CC99;
}

步骤三：在inc/index.js添加代码

function div_tab(s,n,a){
	var arr=a.split(",");
	for(var i=0;i<arr.length;i++){
		$("dtab_"+s+arr[i]).className="div_off";
		$("list_"+s+arr[i]).style.display="none";
	}
	$("dtab_"+s+n).className="div_on";
	$("list_"+s+n).style.display="";
}

步骤四：在default.asp首页或者需要的地方添加代码

<div class="artdiv_left">
	<%=div_tab("software","36","soft","left")%>	
	<%=div_tab("media","61,66","media","right")%>	
	<%=div_tab("article","5,17,23","artl","left")%>	
	<%=div_tab("article","5,9,17,23","artr","right")%>	
</div>

重复说明div_tab(str,s_cat,id,lr)函数的参数：
str：可以是news(新闻)或article(文章)或media(影音)或software(下载)或picture(图片)或product(产品)
s_cat：有多少个分类就有多少个滑动标签，分类之间用,符号隔开
id：主要是用来区分ID用，建议取不同的英文字符串即可。
lr：指排版时是在左还是在右，left与right两者选一。最好是交替使用！

强烈建议使用第二版：http://www.scscms.com/article/2010-11/315237428.html

关键词: scscms,插件开发,滑动标签   编辑时间: 2010-11-03

• 

  1

  高兴
• 

  0

  支持
• 

  0

  搞笑
• 

  0

  不解
• 

  1

  谎言
• 

  0

  枪稿
• 

  0

  震惊
• 

  0

  无奈
• 

  0

  无聊
• 

  0

  反对
• 

  0

  愤怒