user_create_index.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"-->
<!--#include file="Inc/Function.asp"-->
<%
Header
Call CreateIndex()
Footer

Sub CreateIndex()
	if Cl.ChkIsOuter then
		Call Cl.OutErr(0,"<p align=center><font color='red'>对不起，为了系统安全，不允许直接或从外部链接地址访问本系统的后台管理页面。</font></p>")
	end if
	if Not Cl.ChkUserLogin then
		Response.write "<br /><li>您未登录或者您无此操作权限！</li>"
		Response.end
	end if
	if Not Cl.TrueChannelPurview_U(5,ChannelID) Then
		Response.write "<br /><li>您无此操作权限！</li>"
		Response.end
	End if
	Const ChannelID=0
	Call Cl.Get_ChannelSetting(ChannelID)
	if Clng(Cl.IsCreateHtml)=0 then
		Response.write "<font color=#ff0033>首页未开启HTML生成，不用生成HTML！</font>"
		Exit Sub
	end if
	Cl.Web_Setting(0)="No"
	Response.write "正在生成首页，请稍候......"
	Response.Flush
	PageData.Web_Index
	TempStr	= Template.ReplaceAllFlag(TempStr)
	PageBeginTime = Timer
	Cl.MakeHtml TempStr,Cl.WebDir & Cl.HtmlDir & "Index." & Cl.CreateFileExt
	Response.write "<br />生成首页("&Cl.WebDir & "Index." & Cl.CreateFileExt & ")完成。"
	Response.Flush
	Cl.SaveAdminLog
	CloseAllObj
End Sub
'<!--
'┌───────────────────────────────────────────────────────┐
'│														 │
'│		CreateLive CMS Version 4.0						 │
'│　　　　　　　　				Powered by Aspoo.CN	 	 │
'│　		　　　　　　　　　　						 │
'│　	邮箱: [e-mail]		[e-mail]　　	 │
'│		ＱＱ: 3315263				596197794			 │
'│		网站: www.aspoo.cn			www.aspoo.com		 │
'│		论坛: bbs.aspoo.cn			bbs.aspoo.com		 │
'│														 │
'│	Copyright (C) 2005-2007 Aspoo.CN All Rights Reserved.	 │
'└───────────────────────────────────────────────────────┘
'-->
%>