📄 makeindex.asp
字号:
<!--#include file="../ACT.Function.asp"-->
<!--#include file="../../act_inc/ACT.Code.asp"-->
<%
Dim MakeIndex,TemplateContent
Set MakeIndex =New ACT_Code
If Split(ACTCMS.ActCMS_Sys(4),".")(1)="asp" Then Call actcms.Alert("ACTCMS系统提醒您:\n\n1、站点首页文件以.ASP结尾的不能生成静态HTML\n\n2、请到系统设置->基本信息设置->改成Index.html","../ACT.Sys.asp"):Response.end
Application(AcTCMSN & "ACTCMS_TCJ_Type") = "Index"
TemplateContent = MakeIndex.LoadTemplate(ACTCMS.ActCMS_Sys(9))
TemplateContent = MakeIndex.LabelReplaceAll(TemplateContent)
IF TemplateContent = "" Then Response.Write "error":Response.End
Call MakeIndex.FSOSaveFile(TemplateContent,ACTCMS.ActSys&ACTCMS.ActCMS_Sys(4))
response.Write "<a href=""" & ACTCMS.ActSys&ACTCMS.ActCMS_Sys(4) & """target=""_blank""" & ">首页生成成功,点击浏览</a>"
Set MakeIndex=Nothing:Set ACTCMS=Nothing
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -