这个效果希望大家用得着


此主题相关图片如下：



一步搞定:修改admin/admin_article.asp

将1062行的复制代码 代码如下:
.Write("<tdalign=""center""><ahref='?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>|<ahref=""?Action=DelInfo&DisplayMode="&DisplayMode&"&Page="&Page&"&"&SearchParam&"&NewsID="&KS_RS_Obj(1)&"""onclick=""return(confirm('确定删除该文章吗?'))"">删除</a></td>")

替换成下列代码:

复制代码 代码如下:
ifKSCMS.GetChannelConfig(1,"FsoHtmlTF")=1then
.Write("<tdalign=""center""><ahref='?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>|<ahref=""?Action=DelInfo&DisplayMode="&DisplayMode&"&Page="&Page&"&"&SearchParam&"&NewsID="&KS_RS_Obj(1)&"""onclick=""return(confirm('确定删除该文章吗?'))"">删除</a>|<ahref=""Include/RefreshHtmlSave.Asp?ChannelID=1&Types=Content&RefreshFlag=ID&ArticleID="&KS_RS_Obj(1)&"""onclick=""return(confirm('确定将该文章生成静态文件吗?'))"">生成</a></td>")
else
.Write("<tdalign=""center""><ahref='?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>|<ahref=""?Action=DelInfo&DisplayMode="&DisplayMode&"&Page="&Page&"&"&SearchParam&"&NewsID="&KS_RS_Obj(1)&"""onclick=""return(confirm('确定删除该文章吗?'))"">删除</a></td>")
endif


另外需修改列表栏目的宽度,在980行,改成下列代码应该可以了

复制代码 代码如下:
.Write("<tralign=""center""><tdheight=23width=250class=""sort"">标题</td><tdwidth=100class=""sort"">录入</td><tdwidth=130class=""sort"">修改日期</td><tdwidth=70class=""sort"">类型</td><tdwidth=120class=""sort"">属性</td><tdwidth=120class=""sort"">操作</td></tr>")

哦，可以生成频道（栏目）首页

一步搞定：

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

直接替换成下面代码:

复制代码 代码如下:
ifKSCMS.GetChannelConfig(1,"FsoHtmlTF")=1then
.Write("<tdalign=""center""><ahref=""Include/RefreshHtmlSave.asp?Types=Folder&RefreshFlag=Folder&ChannelID=1"&"&FolderID='"&KS_RS_Obj(1)&"'""onclick=""return(confirm('确定生成该栏目页吗?'))"">生成</a></td>")'俞
else
.Write("<tdalign=""center"">---</td>")
endif