在调用“循环列出文章栏目”时

默认的版式是

栏目标题

栏目内文章列表

更多

我想要改成

栏目标题                     更多

栏目内文章列表

这种样式，我改怎么修改呢？

我看了一下，是不是需要修改 /syscls/KS_RefreshFunctionCls.asp 文件呀，可我还是不会改

请知道的朋友指教，谢谢！

对了，就是改成这种样式

此主题相关图片如下：

循环列出文章栏目函数
  Function GetCirArticleList(ColNumber, FolderCss, MenuBgType, MenuBg, ShowClassName, OpenType, ArticleListNumber, RowHeight, TitleLen, ArticleSort, NavType, Nav, MoreLinkType, MoreLink, SplitPic, DateRule, DateAlign, TitleCss, ShowPicFlag)

   If Application(Cstr(KSCMS.SiteSN & "RefreshType")) = "ArticleFolder" Then
     
     Call KSCMS.DelApplication           '刷新前,移除缓存Application
     Dim FolderID, SqlStr,FolderRS,ID
    Set FolderRS=Server.CreateObject("ADODB.RECORDSET")
    
     FolderID = Trim(Application(Cstr(KSCMS.SiteSN & "RefreshFolderID")))
     SqlStr = "Select ID From KS_Class Where DelTF=0 AND TN='" & FolderID & "' ORDER BY FolderOrder"
     FolderRS.Open SqlStr, Conn, 1, 1
     If FolderRS.EOF And FolderRS.BOF Then
       FolderRS.Close:Set FolderRS = Nothing:GetCirArticleList = "": Exit Function
     Else
     
       Dim TempStr, I, MenuBgStr, ArticleListStr, OpenTypeStr
        TempStr = "<TABLE BORDER=""0"" Cellpadding=""0"" Cellspacing=""2"" Width=""100%"">" & vbCrLf
        MenuBgStr = GetMenuBg(MenuBgType, MenuBg, ColNumber):OpenTypeStr = GetOpenTypeStr(OpenType)
       Do While Not FolderRS.EOF
       TempStr = TempStr & "<TR>" & vbCrLf
       For I = 1 To ColNumber
        ID = Trim(FolderRS("ID"))
        TempStr = TempStr & "<TD WIDTH=""" & CInt(100 / CInt(ColNumber)) & "%"" HEIGHT=""150"" VALIGN=""top"">" & vbCrLf
        TempStr = TempStr & "<table height=""100%"" width=""98%"" border=""0"" align=""center"" cellPadding=""0"" cellSpacing=""0"">" & vbCrLf
        TempStr = TempStr & "<tr><td style=""height: 29;padding-left:30;""" & MenuBgStr & "><strong>"
        
        TempStr = TempStr & KSCMS.GetFolderNameAndLink(ID, OpenTypeStr, FolderCss) & "</strong></td></tr>" & vbCrLf

        TempStr = TempStr & "<tr><td style=""line-height: 150%;text-align: left;padding-left:5;padding-right:5;"" vAlign=""top"" colspan=""2"">" & vbCrLf
                
        '调用文章栏目函数
        ArticleListStr = GetArticleList(ID, True, ShowClassName, OpenType, 0, ArticleListNumber, RowHeight, TitleLen, ArticleSort, 1, ShowPicFlag, NavType, Nav, MoreLinkType, MoreLink, SplitPic, DateRule, DateAlign, TitleCss, "")
        If Trim(ArticleListStr) = "" Then ArticleListStr = "<li>此栏目下没有文章</li>"
        
        TempStr = TempStr & ArticleListStr
        
        TempStr = TempStr & "</td></tr>" & vbCrLf
        TempStr = TempStr & "</table>" & vbCrLf
        TempStr = TempStr & "</TD>" & vbCrLf
        FolderRS.MoveNext
        If FolderRS.EOF Then Exit For
       Next
       TempStr = TempStr & "</TR>" & vbCrLf
         'TempStr = TempStr & "<TR><TD HEIGHT=""5"" COLSPAN=""" & ColNumber & """></TD></TR>"
       Loop
        TempStr = TempStr & "</TABLE>" & vbCrLf
        GetCirArticleList = TempStr
     End If
   Else
    GetCirArticleList = ""
   End If
  
  End Function

应该是这些吧，怎么改呀，请详细说明一下吧，谢谢了！