刚在使用区发现有用户需要这个功能，现整理了一下提供上来

具体就稍修改一下index.asp即可实现

打开index.asp,加以下红色代码

    Dim Template,FsoIndex:FsoIndex=KS.Setting(5)
   
    '================================判断自动生成==============================
   
    Const PerTime=1                             '自动生成间隔的时间数，单位为分钟。
      
    If PerTime>0 and Split(FsoIndex,".")(1)<>"asp" Then

     Dim fs:set   fs=Server.CreateObject(KS.Setting(99))  
     Dim f:set    f=fs.getfile(server.MapPath(KS.Setting(5)))
     Dim LastModified:LastModified=f.DateLastModified
    
     if datediff("n",LastModified,Now)>=PerTime Then
        Template = KSR.LoadTemplate(KS.Setting(110))
       FCls.RefreshType = "INDEX" '设置刷新类型，以便取得当前位置导航等
       FCls.RefreshFolderID = "0" '设置当前刷新目录ID 为"0" 以取得通用标签
       Template=KSR.KSLabelReplaceAll(Template)
       Call KS.WriteTOFile(KS.Setting(5),Template)
     End If
    End If
    '===================================自动生成结束======================================

IF Split(FsoIndex,".")(1)<>"asp" Then
              Response.Redirect KS.Setting(5):Exit Sub
    Else
       Template = KSR.LoadTemplate(KS.Setting(110))
       FCls.RefreshType = "INDEX" '设置刷新类型，以便取得当前位置导航等
       FCls.RefreshFolderID = "0" '设置当前刷新目录ID 为"0" 以取得通用标签
       Template=KSR.KSLabelReplaceAll(Template)
   End IF
   Response.Write Template 

请在iis里,将默认文档index.asp执行优先级设置为最高

下载信息  [文件大小：1.05 KB 下载次数： 次]

点击下载文件:index

二级域名的话，要把index.asp里自动生成的部分移到default.asp文件里