 .Write ("<td align=""center""> <a href='?DisplayMode="&DisplayMode&"&Page=" & Page & "&Action=Edit&" &SearchParam&"&ID=" & KS_RS_Obj(15) & "' onclick='parent.frames[""BottomFrame""].location.href=""Split.asp?OpStr=編輯文章&ButtonSymbol=AddArticle&FolderID=" & ID & "&DisplayMode=" & DisplayMode & """;'>修改</a> | <a href=""?Action=DelInfo&DisplayMode=" & DisplayMode & "&Page=" & Page & "&" & SearchParam & "&NewsID=" & KS_RS_Obj(1) & """ onclick=""return (confirm('確定刪除該文章嗎?'))"">刪除</a></td>") 

替換成下列代碼:

復(fù)制代碼代碼如下:

if KSCMS.GetChannelConfig(1,"FsoHtmlTF")=1 then  
        .Write ("<td align=""center""> <a href='?DisplayMode="&DisplayMode&"&Page=" & Page & "&Action=Edit&" &SearchParam&"&ID=" & KS_RS_Obj(15) & "' onclick='parent.frames[""BottomFrame""].location.href=""Split.asp?OpStr=編輯文章&ButtonSymbol=AddArticle&FolderID=" & ID & "&DisplayMode=" & DisplayMode & """;'>修改</a> | <a href=""?Action=DelInfo&DisplayMode=" & DisplayMode & "&Page=" & Page & "&" & SearchParam & "&NewsID=" & KS_RS_Obj(1) & """ onclick=""return (confirm('確定刪除該文章嗎?'))"">刪除</a>| <a href=""Include/RefreshHtmlSave.Asp?ChannelID=1&Types=Content&RefreshFlag=ID&ArticleID=" & KS_RS_Obj(1) &""" onclick=""return (confirm('確定將該文章生成靜態(tài)文件嗎?'))"">生成</a></td>")  
       else  
       .Write ("<td align=""center""> <a href='?DisplayMode="&DisplayMode&"&Page=" & Page & "&Action=Edit&" &SearchParam&"&ID=" & KS_RS_Obj(15) & "' onclick='parent.frames[""BottomFrame""].location.href=""Split.asp?OpStr=編輯文章&ButtonSymbol=AddArticle&FolderID=" & ID & "&DisplayMode=" & DisplayMode & """;'>修改</a> | <a href=""?Action=DelInfo&DisplayMode=" & DisplayMode & "&Page=" & Page & "&" & SearchParam & "&NewsID=" & KS_RS_Obj(1) & """ onclick=""return (confirm('確定刪除該文章嗎?'))"">刪除</a></td>")  
       end if 

另外需修改列表欄目的寬度,在980行,改成下列代碼應(yīng)該可以了

復(fù)制代碼代碼如下:

  .Write ("<tr align=""center""><td height=23 width=250  class=""sort"">標(biāo) 題</td><td width=100  class=""sort"">錄 入</td><td width=130  class=""sort"">修改日期</td><td width=70 class=""sort""> 類 型 </td><td width=120  class=""sort""> 屬 性 </td><td width=120 class=""sort""> 操 作 </td></tr>") 

哦，可以生成頻道（欄目）首頁

一步搞定：

修改admin/admin_article.asp第1006行的 .Write ("<td align=""center"">---</td>")

直接替換成下面代碼:

復(fù)制代碼代碼如下:

if KSCMS.GetChannelConfig(1,"FsoHtmlTF")=1 then  
        .Write ("<td align=""center""><a href=""Include/RefreshHtmlSave.asp?Types=Folder&RefreshFlag=Folder&ChannelID=1" & "&FolderID='" & KS_RS_Obj(1) &"'"" onclick=""return (confirm('確定生成該欄目頁嗎?'))"">生成</a></td>")'俞  
       else  
       .Write ("<td align=""center"">---</td>")  
       end if 