<!--#include file="Conn.asp"-->
<!--#include file="Inc/Cl_Const.asp"-->
<!--#include file="Inc/Cl_Function_Public.asp"-->
<!--#include file="Inc/Cl_Function_Article.asp"-->
<!--#include file="Inc/Cl_Function_Soft.asp"-->
<!--#include file="Inc/Cl_Function_Photo.asp"-->



<%
Dim ChannelID
ChannelID=0
Call Cl.Get_ChannelSetting(ChannelID)
if Cl.IsCreateHtml=1 Then
	Rem 定时生成首页（待测试）
	Dim CurrentHour,IndexFileUrlStr
	CurrentHour		= Hour(Now())
	IndexFileUrlStr = Cl.WebDir & Cl.HtmlDir & "Index."&Cl.CreateFileExt
	If InStr(","&Cl.Web_Info(17)&",",","&CurrentHour&",")>0 Then
		Cl.Name = "CreateIndex"
		If InStr(","&Cl.value&",",","&ChannelID&"_"&CurrentHour&",")=0 Then
		PageData.Web_Index
		TempStr=Template.ReplaceAllFlag(TempStr)
		Cl.MakeHtml TempStr,IndexFileUrlStr
		Cl.Name	= "CreateIndex"
		Cl.Value= Cl.Value & ","&ChannelID&"_" & CurrentHour
		End If
	End If
	Response.redirect(IndexFileUrlStr)
End If
PageData.Web_Index
Response.write Template.ReplaceAllFlag(TempStr)
CloseAllObj
%>