user_create_photo.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_ClsUbb.asp"-->
<!--#include file="Inc/Function.asp"-->
<%
Dim ChannelID
ChannelID = Cl.GetClng(Request("ChannelID"))
Cl.Get_ChannelSetting(ChannelID)

Dim action,CreateType,apn
Dim m,Fso,Make,MakeData,strFileUrl,AllMakeNum
Dim RsMake,TempClassID,SQLCreate,TotalPageNum
Dim sInfoFileName
if Cl.ChkIsOuter then
	Call Cl.OutErr(0,"<p align=center><font color='red'>对不起，为了系统安全，不允许直接或从外部链接地址访问本系统的后台管理页面。</font></p>")
end if
if ChannelID=0 then Cl.ShowErr("参数错误！")
if Not Cl.ChkUserLogin then Cl.ShowErr("<li>您未登录或者您无此操作权限！</li>")
if Not Cl.TrueChannelPurview_U(5,ChannelID) then Cl.ShowErr("<br /><li>您无此操作权限！</li>")
Cl.Web_Setting(0)="No"
CreateHtmlIng=True
action=","&Lcase(Trim(Request("action")))&","
CreateType=Trim(Request("CreateType"))
Header
	Server.ScriptTimeOut=999
	apn=0
	On Error Resume Next
	Set Fso = CreateObject(Trim(Cl.Web_Info(13)))
	If 0 <> Err Then
		Response.write "<font color=#ff0033>生成"&Cl.ChannelItemName&"栏目失败，请检查你的服务器是否有FSO(FileSystemObject)！</font>"
		Response.end
	End if
	On Error GoTo 0
	OpenConn
	'如未启用HTML功能，则……
	if Clng(Cl.IsCreateHtml)=0 then
		Response.write "<font color=#ff0033>此频道未开启HTML生成！请先在频道管理中开启后操作！</font>"
		Response.end
	end if
	'先生成内容页
	if Instr(action,",createinfo,")>0 then Create_Photo_Photo()
	'最后才到首页
	if Instr(action,",createindex,")>0 then Create_Photo_Index
	Set Fso=Nothing
	Cl.SaveAdminLog
	if Instr(action,",createwebindex,")>0 then Response.write "<iframe width='100%' height='100' frameborder='0' src='User_Create_Index.asp' name='Make2'></iframe>"

Response.Write "</body>" & Vbcrlf & "</html>"
CloseAllObj

Sub Create_Photo_Index()
	Response.write "<font color=#ff0033>正在生成"&Cl.ChannelItemName&"首页，请稍候......</font><br />"
	Photo_Setting
	Cl.Path = CurrentPath & " &gt;&gt; 首页"
	If CLng(Cl.Channel.selectSingleNode("@index_projectid").text)>0 Then
		Template.ProjectID = CLng(Cl.Channel.selectSingleNode("@index_projectid").text)
		Template.TemplateID = CLng(Cl.Channel.selectSingleNode("@index_templateid").text)
		Template.CssID = CLng(Cl.Channel.selectSingleNode("@index_cssid").text)
	End if
	Call Template.Load(3,1)
	TempStr = Template.Html
	Dim strMakeData
	strMakeData=Template.ReplaceAllFlag(TempStr)
	Cl.Load_ChannelSetting(ChannelID)
	Cl.MakeHtml strMakeData,Cl.WebDir & Cl.GetItemIndexPath(Cl.CreatePathType, Cl.HtmlDir, Cl.ChannelDir) & "Index." & Cl.CreateFileExt
	Response.write ""&Cl.ChannelItemName&"首页("&Cl.WebDir & Cl.GetItemIndexPath(Cl.CreatePathType, Cl.HtmlDir, Cl.ChannelDir) & "Index." & Cl.CreateFileExt&")生成完毕！<br />"
	apn=apn+1
End Sub

Sub Create_Photo_Photo()
	Dim TempID
	Dim SqlMake,sTopNew,sBeginDate,sEndDate,sBeginID,sEndID
	m=0:Err=0:AllMakeNum=0
	TempID=Cl.GetClng(Request("InfoID"))
	if TempID<1 then
		Response.write "<font color=red>生成HTML文件失败，参数中含有非法ID！</font>"
		Response.end
	end if
	SqlMake="Select InfoID,ClassID,IsHtml,HtmlFileUrl,UpdateTime from Cl_Photo where Status=1 and Deleted="&FalseType&" And InfoID="&TempID&" and ChannelID="&ChannelID&" order by UpDateTime desc,InfoID desc"
	Response.write "<font color=#ff0033>正在生成"&Cl.ChannelItemName&"，请稍候......</font><br />"
	Set RsMake = Server.CreateObject("ADODB.Recordset")
	RsMake.open SqlMake,Conn,1,3
	if RsMake.Bof and RsMake.Eof then
		RsMake.Close:Set RsMake=Nothing
		Response.write "<font color=red>当前无任何"&Cl.ChannelItemName&"！</font>"
		Exit Sub
	End if
	On Error Resume Next
		if RsMake(2) then Fso.DeleteFile(server.MapPath(Cl.WebDir & RsMake(3)))
		InfoID=RsMake(0)
		Photo_Setting
		sInfoFileName = Cl.GetItemFileName(Cl.CreateFileType,RsMake(1),RsMake(0),RsMake(4))
		strFileUrl=Cl.GetItemPath(Cl.CreatePathType,Cl.HtmlDir,Cl.ChannelDir,ParentPath,ClassID,ParentDir,ClassDir) & sInfoFileName &"."&Cl.CreateFileExt
		PageData.Photo_Show
		MakeData=Template.ReplaceAllFlag(TempStr)
		Set Make = Fso.CreateTextFile(Server.MapPath(Cl.WebDir&strFileUrl), True)
		Make.Write MakeData & vbNewLine & "<!--Powered by:"& ClCMS_Version & "(http://www.as"&"poo.c"&"n/) " &_
						"CreateDate:"&Now&"--> "
		Set Make = Nothing
		'RsMake("IsHtml")=TrueType
		'RsMake("HtmlFileUrl")=strFileUrl
		'RsMake.Update
		Cl.Execute("UpDate Cl_Photo Set IsHtml="&TrueType&",HtmlFileUrl='"&strFileUrl&"' where InfoID="&InfoID&"")
		Response.write "生成（"&strFileUrl&"）完成！"
		apn=apn+1
	RsMake.Close:Set RsMake=Nothing
	Err=0
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.	 │
'└───────────────────────────────────────────────────────┘
'-->
%>