在文章管理列表直接生成HTML静态页面!(精)
更新时间:2007年02月15日 00:00:00 作者:
这个效果希望大家用得着
此主题相关图片如下:
一步搞定:修改admin/admin_article.asp
将1062行的
.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>")
替换成下列代码:
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('确定将该文章生成静态文件吗?'))"">生成</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行,改成下列代码应该可以了
.Write ("<tr align=""center""><td height=23 width=250 class=""sort"">标 题</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>")
直接替换成下面代码:
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
此主题相关图片如下:
一步搞定:修改admin/admin_article.asp
将1062行的
复制代码 代码如下:
.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>")
替换成下列代码:
复制代码 代码如下:
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('确定将该文章生成静态文件吗?'))"">生成</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行,改成下列代码应该可以了
复制代码 代码如下:
.Write ("<tr align=""center""><td height=23 width=250 class=""sort"">标 题</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>")
直接替换成下面代码:
复制代码 代码如下:
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
最新评论