两步实现网站首页的自动生成

第一步：

删除根目录下的index.asp 建立一个 idx.asp 内容如下

<!--#include file="common/incfiles/web.asp"-->
<!--#include file="common/incfiles/config.asp"-->
<!--#include file="passport/common/api/user.asp"-->
<!--#include file="common/incfiles/module.asp"-->
<!--#include file="common/incfiles/module_config.asp"-->
<%
Response.Expires = 0
Response.CacheControl = "no-cache"
Response.AddHeader "Pragma", "no-cache"

Dim myupdate: myupdate = False
Dim myappdate: myappdate = get_application("index_update_date")
If check_null(myappdate) Then
  myupdate = True
Else
  If DateDiff("n", get_date(myappdate), Now()) > 20 Then myupdate = True
End If
If myupdate Then
  Dim myhtml: myhtml = jtbc_cms_module
  If save_file_text("index.html", myhtml) Then
    Call set_application("index_update_date", Now())
  End If
End If
Call jtbc_cms_close()
%>

第二步：

在后台的系统管理/模板管理/首页模板中加入如下代码，加入之后在系统管理/缓存管理中删除缓存

<script type="text/javascript">igets("idx.asp", nll);</script>

自动生成首页的功能就完成了，需要先生成一个index.html，可以先手动执行 idx.asp

© jtbc.cn All Rights Reserved.