index.asp

正版创力4.1SQL商业版!!!ASP版。

<!--#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"-->
<!--#include file="Inc/Cl_Function_Movie.asp"-->
<!--#include file="Inc/Cl_Function_Product.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
%>
<%
'==================================================
'CreateLive CMS Version 4.0
'							Powered by Aspoo.Net
'
'邮箱: [e-mail]		[e-mail]
'ＱＱ: 3315263				596197794
'网站: www.aspoo.cn			www.aspoo.com
'论坛: bbs.aspoo.cn			bbs.aspoo.com
'
'Copyright (C) 2005-2007 Aspoo.Net All Rights Reserved.
'==================================================
%>