Directly generate HTML static pages in the article management list! (Exquisite)

I hope everyone can use this effect

Pictures related to this topic are as follows:

One step to complete: modify admin/admin_article.asp

Put 1062 lines of

Copy the codeThe code is as follows:

.Write ("<td align=""center""> <a href='?DisplayMode="&DisplayMode&"&Page=" & Page & "&Action=Edit&" &SearchParam&"&ID=" & KS_RS_Obj(15) & "' onclick='[""BottomFrame""].=""?OpStr=Edit Article&ButtonSymbol=AddArticle&FolderID=" & ID &"  &DisplayMode=" & DisplayMode & """;'>Modify</a> | <a href=""?Action=DelInfo&DisplayMode=" & DisplayMode & "&Page=" & Page & "&" &" & SearchParam & "&NewsID=" & KS_RS_Obj(1) & """ onclick=""return (confirm('Are you sure to delete the article?'))"">Delete</a></td>")

Replace with the following code:

Copy the codeThe code is as follows:

if (1,"FsoHtmlTF")=1 then  
Write ("<td align=""center""> <a href='?DisplayMode="&DisplayMode&"&Page=" &Page &Action=Edit&" &SearchParam&"&ID=" & KS_RS_Obj(15) & "' on  click='[""BottomFrame""].=""?OpStr=Edit article&ButtonSymbol=AddArticle&FolderID=" & ID & "&DisplayMode=" & DisplayMode & """;'>Modify</a> |<a href=""?Action=DelInf  o&DisplayMode=" & DisplayMode & "&Page=" & Page & "&" & SearchParam & "&NewsID=" & KS_RS_Obj(1) & "" onclick=""return (confirm('Are you sure to delete the article?'))"">Delete</a>|  <a href=""Include/?ChannelID=1&Types=Content&RefreshFlag=ID&ArticleID=" & KS_RS_Obj(1) &""" onclick=""return (confirm('Are you sure that this article will be generated by a static file?'))"">Generate</a></td>")
       else  
Write ("<td align=""center""> <a href='?DisplayMode="&DisplayMode&"&Page=" &Page &Action=Edit&" &SearchParam&"&ID=" & KS_RS_Obj(15) & "' onclick='[""BottomFrame""].=""?OpStr=Edit Article&ButtonSymbol=AddArticle&FolderID=" & ID  & "&DisplayMode=" & DisplayMode & """;'>Modify</a> | <a href=""?Action=DelInfo&DisplayMode=" & DisplayMode & "&Page=" & Page & "&" &" & SearchParam & "&NewsID=" & KS_RS_Obj(1) & """ onclick=""return (confirm('Are you sure to delete the article?'))"">Delete</a></td>")
       end if 

In addition, you need to modify the width of the list column, at 980 lines, and it should be OK to change it to the following code.

Copy the codeThe code is as follows:

Write ("<tr align=""center""><td height=23 width=250  class=""sort"">Title</td><td width=100  class=""sort"">Record </td><td width=130  class=""sort"">Modification date</td><td width=70 class=""sort"">Class </td><td width=120  class=""sort"">Attribute </td><td width=120 class=""sort""> Operation </td></tr>")

Oh, you can generate the channel (column) homepage

One step to get it done:

Modify the .Write ("<td align=""center"">---</td>") on line 1006 of admin/admin_article.asp

Replace it directly with the following code:

Copy the codeThe code is as follows:

if (1,"FsoHtmlTF")=1 then  
Write ("<td align=""center""><a href=""Include/?Types=Folder&RefreshFlag=Folder&ChannelID=1" & "&FolderID='" & KS_RS_Obj(1) &"'" onclick=""return (confirm('Are you sure to generate this column page?'))"">Generate</a></td>")' Yu
       else  
       .Write ("<td align=""center"">---</td>")  
       end if 