请问如何去掉"循环文章栏目列表"外的边框?-领先建站CMS提供服务商我们专注于CMS建站产品的研发

4043 查看	9 回复

主题：请问如何去掉"循环文章栏目列表"外的边框? [收藏主题]

转到：

孤风大虾当前离线

1700 主题	7 广播	118 粉丝

级别:高一年

用户积分:10218 分
登录次数:451 次
注册时间:2006/3/28
最后登录:2022/3/10
官方认证：仿站大师

孤风大虾发表于：2008/10/5 15:21:00 | 显示全部帖子查看该作者主题楼主

做线上考试培训就选#科汛网校

参考效果见：http://www.hezewangzhan.com/hezeqiye/

做考试题库就用#科汛在线考试系统!

支持(27) |

反对(26)

顶端

底部

孤风大虾当前离线

1700 主题	7 广播	118 粉丝

级别:高一年

用户积分:10218 分
登录次数:451 次
注册时间:2006/3/28
最后登录:2022/3/10
官方认证：仿站大师

孤风大虾发表于：2008/10/5 15:20:00 | 显示全部帖子查看该作者主题沙发

做官网就用科汛智能建站系统!

修改KS_Cls文件夹下Kesion.Label.FunctionCls.asp内容第817行到 '取得Ajax分页函数之间的内容。修改内容如下：注意，修改之前请做好文件备份工作。

  '循环列出文章栏目函数
  Function GetCirArticleList(ChannelID,Col, FolderCss, MenuBgType, MenuBg, S_C_N, OpenType, num, R_H, T_Len, S_Str, NavType, Nav, MoreType, MoreLink, SplitPic, DateRule, DateAlign, T_Css, PicTF,NewTF,HotTF,P_T,DivID,DivCss,UlID,ULCss,LiID,LICss,LabelID)
      If LabelID<>"ajax" and P_T>2 Then
     GetCirArticleList="<span id=""ks" & LabelID & "_-1_" &FCls.RefreshFolderID & "_0""></span>":Exit Function
    ElseIf P_T>2 Then
     P_T=P_T-2
    End If
     Dim FolderID, SqlStr,ID,SQL,K,N,TotalNum
     FolderID = FCls.RefreshFolderID
     Dim RS:Set RS=Conn.Execute("Select ID From KS_Class Where ChannelID=" & ChannelID & " And DelTF=0 AND TN='" & FolderID & "' ORDER BY FolderOrder")
     If RS.EOF And RS.BOF Then RS.Close:Set RS = Nothing:GetCirArticleList = "": Exit Function
     SQL=RS.GetRows(-1):RS.Close:Set RS=Nothing
     TotalNum=Ubound(SQL,2)
     Dim TempStr, I, MenuBgStr, ArticleListStr, O_T_S
     TempStr = "<div>" & vbCrLf
     MenuBgStr = KS.GetMenuBg(MenuBgType, MenuBg, Col):O_T_S = KS.G_O_T_S(OpenType)
      For K=0 To TotalNum
             TempStr = TempStr & ""
       For I = 1 To Col
            ID = Trim(SQL(0,N))

        ' TempStr = TempStr & "<td valign=""top"" style=""width:" & CInt(100 / CInt(Col)) & "%;"">" & vbCrLf
         TempStr = TempStr & "<div class=""xxxx"">"
         TempStr = TempStr & "<div class=""class_list""><div class=""class_list_title"">" & KS.GetClassNP(ID) & "</div><div class=""class_list_more""><a href=""" & KS.GetFolderPath(ID) & """>更多</a></div></div>" & vbCrLf
         TempStr = TempStr & "<div class=""class_list_list"">" & vbCrLf

         ArticleListStr = GetArticleList(ChannelID,ID, True, S_C_N, OpenType, 0, num, R_H, T_Len, S_Str, 1, PicTF, NavType, Nav, MoreType, MoreLink, SplitPic, DateRule, DateAlign, T_Css, 0,"",NewTF,HotTF,P_T,DivID,DivCss,UlID,ULCss,LiID,LICss,"ajax")
         If Trim(ArticleListStr) = "" Then ArticleListStr = "<li>此栏目下没有信息</li>"
         TempStr = TempStr & ArticleListStr
         TempStr = TempStr & "</div>" & vbCrLf
         TempStr = TempStr & "</div>" & vbCrLf
        N=N+1
        If N>=TotalNum+1 Then Exit For
       Next
       TempStr = TempStr & "" & vbCrLf
      If N>=TotalNum+1 Then Exit For
      Next
        TempStr = TempStr & "</div>" & vbCrLf
        GetCirArticleList = TempStr
  End Function

在CSS中插入：

/* 布局 - 循环栏目页面 */
.xxxx{ padding:1px;border:1px solid #B8CDE3; margin-bottom:10px;}
.class_list{background:#B8CDE3; width:535px; height:24px;}
.class_list_title{ float:left; width:460px;}
  .class_list_title a:link,.class_list_title a:visited,.class_list_title a:active{font-size:14px; color:#003770; line-height:24px; padding:0 0 0 15px; font-weight:bold;}
  .class_list_title a:hover{font-size:14px; color:#f60; line-height:24px; padding:0 0 0 15px; font-weight:bold;}
.class_list_more{ float:right; width:40px; padding:5px 0 0 0}
.class_list_list{ clear:both;}
.class_list_list ul { padding:4px;}
  .class_list_list ul li { line-height:24px; color:#f60;}
  .class_list_list ul li span{ margin-top:-24px; float:right;}
  .class_list_list a:link,.class_list_list a:visited,.class_list_list a:active{font-size:14px;}
  .class_list_list a:hover{font-size:14px; }

这段控制代码。

至于样式的转变，请再修改其中内容即可。我这是一列到底。可以在CSS中控制的，具体请自行研究。

如果看不懂以上代码，请勿随便修改程序内容。

做考试题库就用#科汛在线考试系统!

支持(13) |

反对(13)

顶端

底部

＜上一主题 | 下一主题＞

首页 1