makeindex.asp

PDA,若你死昂师傅你说的附件是打开附件上课的附件四度空间就大方快速减肥

<!--#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
 %>