admin_create_movie.asp

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

	else
		RefreshHtml "生成推荐列表（"&strFileUrl&"）完成！",m,AllMakeNum
	end if
	Err=0
	RefreshHtml2 "txt1","<font color=blue>恭喜您，所有"&Cl.ChannelItemName&"推荐列表生成完毕！</font>"
End Sub

Sub Create_Movie_Hot()
	m=1:Err=0
	AllMakeNum=1
	RefreshHtml2 "txt1","<font color=#ff0033>正在生成"&Cl.ChannelItemName&"热门列表页面，请稍候......</font>"
	Movie_Setting
	CurrentPage=1
	TotalPut=0
	DefaultPage="Index"
	PageData.Movie_Hot
	If (TotalPut Mod PageSize) = 0 Then
		TotalPageNum = TotalPut \ PageSize
	Else
		TotalPageNum = TotalPut \ PageSize + 1
	End If
	strFileUrl=Cl.GetItemIndexPath(Cl.CreatePathType, Cl.HtmlDir, Cl.ChannelDir) & "Hot/Index."&Cl.CreateFileExt
	MakeData=Template.ReplaceAllFlag(TempStr)
	Set Make = Fso.CreateTextFile(Server.MapPath(Cl.WebDir&strFileUrl), True)
	Make.Write MakeData & vbNewLine & _
			"<!--Powered by:"& ClCMS_Version & "(As"&"poo.n"&"et) " &_
					"CreateDate:"&Now&"--> "
	Set Make = Nothing
	apn=apn+1
	if TotalPageNum>=2 then  '多页面
		AllMakeNum=TotalPageNum
		RefreshHtml "生成热门列表的第 <font color=red><b>1</b></font> 个页面（"&strFileUrl&"）完成！",CurrentPage,AllMakeNum
		for CurrentPage=2 to TotalPageNum
			PageData.Movie_Hot
			strFileUrl=Cl.GetItemIndexPath(Cl.CreatePathType, Cl.HtmlDir, Cl.ChannelDir) & "Hot/List_"&CurrentPage&"."&Cl.CreateFileExt
			MakeData=Template.ReplaceAllFlag(TempStr)
			Set Make = Fso.CreateTextFile(Server.MapPath(Cl.WebDir&strFileUrl), True)
			Make.Write MakeData & vbNewLine & _
			"<!--Powered by:"& ClCMS_Version & "(As"&"poo.n"&"et) " &_
					"CreateDate:"&Now&"--> "
			Set Make = Nothing
			RefreshHtml "生成热门列表的第 <font color=red><b>"&CurrentPage&"</b></font> 个页面（"&strFileUrl&"）完成！",CurrentPage,AllMakeNum
			apn=apn+1
			if Not Response.IsClientConnected then Exit For
		next
	else
		RefreshHtml "生成推荐列表（"&strFileUrl&"）完成！",m,AllMakeNum
	end if
	Err=0
	RefreshHtml2 "txt1","<font color=blue>恭喜您，所有"&Cl.ChannelItemName&"热门列表生成完毕！</font>"
End Sub

Sub Create_Movie_Movie(strType)
	Dim TempID
	Dim SqlMake,sTopNew,sBeginDate,sEndDate,sBeginID,sEndID
	m=0:Err=0:AllMakeNum=0
	RefreshHtml2 "txt1","<font color=#ff0033>正在生成"&Cl.ChannelItemName&"，请稍候.....</font>"

	Set RsMake = Server.CreateObject("ADODB.Recordset")
	if strType=1 then
		TempClassID=Trim(Request("ClassID"))
		TempID=Trim(Request("InfoID"))
		if TempID<>"" then
			if TempID="" or Not IsNumeric(Replace(Replace(TempID,",","")," ","")) then
				RefreshHtml2 "txt1","<font color=red>生成HTML文件失败，参数中含有非法ID！</font>"
				Exit Sub
			end if
			TempID=Replace(TempID," ","")
			SqlMake="Select InfoID,ClassID,IsHtml,HtmlFileUrl,UpdateTime from Cl_Movie where Status=1 and Deleted="&FalseType&" and InfoID In ("&TempID&") and ChannelID="&ChannelID&" order by UpDateTime desc,InfoID desc"
		elseif TempClassID<>"" then
			if TempClassID="" or Not IsNumeric(Replace(Replace(TempClassID,",","")," ","")) then
				RefreshHtml2 "txt1","<font color=red>生成HTML文件失败，参数中含有非法ID！</font>"
				Exit Sub
			end if
			TempClassID=Replace(TempClassID," ","")
			SqlMake="Select InfoID,ClassID,IsHtml,HtmlFileUrl,UpdateTime from Cl_Movie where Status=1 and Deleted="&FalseType&" and ClassID In ("&TempClassID&") and ChannelID="&ChannelID&" order by UpDateTime desc,InfoID desc"
		else
			RefreshHtml2 "txt1","<font color=red>生成HTML文件失败，请指定参数！</font>"
			Response.end
		end if
	else
		Select Case CreateType
		Case "2"
			sTopNew=Trim(Request("TopNew"))
			if Not isNumeric(sTopNew) then Call Cl.OutMsg(0,"参数错误，请重新输入！","javascript:history.go(-1)")
			SqlMake="Select Top "&Clng(sTopNew)&" InfoID,ClassID,IsHtml,HtmlFileUrl,UpdateTime from Cl_Movie where Status=1 and Deleted="&FalseType&" and ChannelID="&ChannelID&" order by UpDateTime desc,InfoID desc"
		Case "3"
			sBeginDate=Trim(Request("BeginDate"))
			sEndDate=Trim(Request("EndDate"))
			if Not IsDate(sBeginDate) or Not IsDate(sEndDate) then Call Cl.OutMsg(0,"参数错误，请重新输入！","javascript:history.go(-1)")
			If IsSqlDataBase=1 Then
				SqlMake="Select InfoID,ClassID,IsHtml,HtmlFileUrl,UpdateTime from Cl_Movie where Status=1 and Deleted="&FalseType&" and datediff(d,UpDateTime,"&SqlNowString&")<=datediff(d,'"&sBeginDate&"',"&SqlNowString&") and datediff(d,UpDateTime,"&SqlNowString&")>=datediff(d,'"&sEndDate&"',"&SqlNowString&") and ChannelID="&ChannelID&" order by UpDateTime desc,InfoID desc"
			else
				SqlMake="Select InfoID,ClassID,IsHtml,HtmlFileUrl,UpdateTime from Cl_Movie where Status=1 and Deleted="&FalseType&" and datediff('d',UpDateTime,"&SqlNowString&")<=datediff('d','"&sBeginDate&"',"&SqlNowString&") and datediff('d',UpDateTime,"&SqlNowString&")>=datediff('d','"&sEndDate&"',"&SqlNowString&") and ChannelID="&ChannelID&" order by UpDateTime desc,InfoID desc"
			end if
		Case "4"
			sBeginID=Trim(Request("BeginID"))
			sEndID=Trim(Request("EndID"))
			if Not Isnumeric(sBeginID) or Not Isnumeric(sEndID) then Call Cl.OutMsg(0,"参数错误，请重新输入！","javascript:history.go(-1)")
			SqlMake="Select InfoID,ClassID,IsHtml,HtmlFileUrl,UpdateTime from Cl_Movie where Status=1 and Deleted="&FalseType&" and InfoID>"&Clng(sBeginID)&" and InfoID<"&Clng(sEndID)&" and ChannelID="&ChannelID&" order by UpDateTime desc,InfoID desc"
		Case else
			SqlMake="Select InfoID,ClassID,IsHtml,HtmlFileUrl,UpdateTime from Cl_Movie where Status=1 and Deleted="&FalseType&" and ChannelID="&ChannelID&" order by UpDateTime desc,InfoID desc"
		end Select
	end if
	RsMake.open SqlMake,Conn,1,3
	if RsMake.Bof and RsMake.Eof then
		RefreshHtml "当前无任何"&Cl.ChannelItemName&"！",0,100
		RefreshHtml2 "txt1","<font color=red>当前无任何"&Cl.ChannelItemName&"！</font>"
		exit sub
	End if
	SqlMake=RsMake.GetRows(-1)
	RsMake.Close:Set RsMake=Nothing
	AllMakeNum=Ubound(SqlMake,2)+1'RsMake.recordcount
	RefreshHtml2 "txt4","共有 <b>"&AllMakeNum&"</b> "&Cl.ChannelItemUnit&Cl.ChannelItemName&"要生成！"
	Dim Mi
	On Error Resume Next
	For Mi=0 to AllMakeNum-1
		if SqlMake(2,Mi) then Fso.DeleteFile(server.MapPath(Cl.WebDir & SqlMake(3,Mi)))
		m=m+1:InfoID=SqlMake(0,Mi)
		Movie_Setting
		sInfoFileName = Cl.GetItemFileName(Cl.CreateFileType,SqlMake(1,Mi),SqlMake(0,Mi),SqlMake(4,Mi))
		strFileUrl=Cl.GetItemPath(Cl.CreatePathType,Cl.HtmlDir,Cl.ChannelDir,ParentPath,ClassID,ParentDir,ClassDir) & sInfoFileName &"."&Cl.CreateFileExt
		PageData.Movie_Show
		MakeData=Template.ReplaceAllFlag(TempStr)
		Set Make = Fso.CreateTextFile(Server.MapPath(Cl.WebDir&strFileUrl), True)
		Make.Write MakeData & vbNewLine & "<!--Powered by:"& ClCMS_Version & "(As"&"poo.n"&"et) " &_
						"CreateDate:"&Now&"--> "
		Set Make = Nothing
		'RsMake("IsHtml")=TrueType
		'RsMake("HtmlFileUrl")=strFileUrl
		'RsMake.Update
		Cl.Execute("UpDate Cl_Movie Set IsHtml="&TrueType&",HtmlFileUrl='"&strFileUrl&"' where InfoID="&InfoID&"")
		RefreshHtml "生成第 <font color=red><b>"&m&"</b></font> "&Cl.ChannelItemUnit&Cl.ChannelItemName&"（"&strFileUrl&"）完成！",m,AllMakeNum
		apn=apn+1
		if Not Response.IsClientConnected then Exit For
	Next
	SqlMake=Empty
	RefreshHtml2 "txt1","<font color=blue>恭喜您，所有文件生成完毕！</font>"
	Err=0
End Sub

Sub Del_Movie_Movie(strType)
	Dim TempID,RsDelHtml,SQLDelHtml
	m=0:Err=0:AllMakeNum=0
	RefreshHtml2 "txt1","<font color=#ff0033>正在清除HTML，请稍候.....</font>"
	if strType=1 then
		TempID=Request("InfoID")
		if TempID="" or Not IsNumeric(Replace(Replace(TempID,",","")," ","")) then
			RefreshHtml2 "txt1","<font color=#ff0033>清除HTML文件失败，参数中含有非法ID！</font>"
			Exit Sub
		end if
		SQLDelHtml="Select InfoID,IsHtml,HtmlFileUrl From Cl_Movie Where InfoID In ("&TempID&") and ChannelID="&ChannelID&" and IsHtml="&TrueType&" Order By InfoID Desc"
	else
		SQLDelHtml="Select InfoID,IsHtml,HtmlFileUrl From Cl_Movie Where IsHtml="&TrueType&" and ChannelID="&ChannelID&" Order By InfoID Desc"
	end if
	Set RsDelHtml=Server.CreateObject("Adodb.RecordSet")
	RsDelHtml.Open SQLDelHtml,Conn,1,3
	AllMakeNum=RsDelHtml.recordcount
	RefreshHtml2 "txt4","共有 "&AllMakeNum&" "&Cl.ChannelItemUnit&Cl.ChannelItemName&"要清除HTML！"
	if AllMakeNum=0 then
		RefreshHtml "当前无要清除HTML的"&Cl.ChannelItemName&"！",1,1
		RefreshHtml2 "txt1","<font color=red>当前无要清除HTML的"&Cl.ChannelItemName&"！</font>"
		exit sub
	end if
	Do While Not RsDelHtml.Eof
		strFileUrl=Replace(Cl.WebDir & RsDelHtml(2),"//","/")
		RsDelHtml("IsHtml")=False
		RsDelHtml("HtmlFileUrl")=""
		RsDelHtml.Update
		m=m+1
		if fso.FileExists(server.MapPath(strFileUrl)) then
			fso.DeleteFile(server.MapPath(strFileUrl))
			RefreshHtml "清除第 <font color=red><b>"&m&"</b></font> 个HTML文件（"&strFileUrl&"）完成！",m,AllMakeNum
		else
			RefreshHtml "<font color=red>清除第 <b>"&m&"</b> 个HTML文件（"&strFileUrl&"）失败！</font>",m,AllMakeNum
		end if
		RsDelHtml.MoveNext
	Loop
	RsDelHtml.Close:Set RsDelHtml=Nothing
	Set Fso = Nothing
	RefreshHtml "所有文件清除HTML完毕！",1,1
	RefreshHtml2 "txt1","<font color=blue>恭喜您，所有文件清除HTML完毕！</font>"
	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.	 │
'└───────────────────────────────────────────────────────┘
'-->
%>