<!--#include file="../Include/Channel_Article.asp"-->
<!-- #Include File="../Include/Cls_FileSys.asp" -->
<!-- #Include File="Include/AdminCheck.asp" -->
<HTML>
<head>
<title>生成首页</title>
<meta http-equiv=Content-Type content=text/html; charset=gb2312>
<link type=text/css href='Images/admin.Css' rel=stylesheet>
</head>
<body align=center>
<%
'=======================================================
' 欢迎使用《阿赛大型门户网站系统V2.0》，简称“AsaiMHV2”
' 技术支持、商业版咨询、官方唯一指定联系QQ“4941172”
' 官方网站：http://77ya.com      程序负责人：阿赛
'=======================================================

If Not Cls.Web_IsCreatIndex=True then
	Call Cls.Out_Msg("对不起~！当前网站首页没开通生成HTML功能\n请先在配制管理中打开首页HTML生成功能。","")
	Response.End
End If
Dim ShowPage,FilePath,p
	p=2
	response.Write("<div id=""prompt""><ul>")
	Cls.progress_init
	Cls.progress int(1/p*100),"读取首页数据,开始生成首页..."
	CreateSiteIndex
	Cls.progress int(p/p*100),"<a href=" & FilePath & " target=_blank>生成首页（HTML）完成</a> "
        Response.Write "<b>恭喜您！网站首页（HTML）生成完毕,请返回进行其它操作!</b><br />耗时："& FormatNumber((timer()-Cls.timer_start), 2,-1)&"秒"
Set HTML = Nothing
Public Sub CreateSiteIndex()
    Dim CF
    On Error Resume Next
    Set Cf=New Cls_FileSystem
 	HtmlContent = HTML.ShowIndex(True)
	FilePath = "../" & Cls.Web_IndexFile
	Cf.Create_File FilePath,HtmlContent
End Sub
%>
</body>
