admin_create_article.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"-->
<!--#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.ChkAdminLogin then Cl.ShowErr("<li>您未登录或者您无此操作权限！</li>")
if Not Cl.TrueChannelPurview(3,ChannelID) then Cl.ShowErr("<br /><li>您无此操作权限！</li>")
Cl.Web_Setting(0)= "No"
CreateHtmlIng	= True
action			= ","&Lcase(Trim(Request("action")))&","
CreateType		= Trim(Request("CreateType"))
Header
if Instr(action,",createindex,")=0 and Instr(action,",createwebindex,")=0 and Instr(action,",createclass,")=0 and Instr(action,",createspecial,")=0 and Instr(action,",createupdate,")=0 and Instr(action,",createelite,")=0 and Instr(action,",createhot,")=0 and Instr(action,",createinfo,")=0 and Instr(action,",createinfoall,")=0 and Instr(action,",delinfohtml,")=0 and Instr(action,",delinfohtmlall,")=0 then
	call ShowCreateMain()
Else
	Server.ScriptTimeOut=999999
	apn=0
	ShowCreateWindow "请稍候......",Cl.ScriptName & "?ChannelID=" & ChannelID
	On Error Resume Next
	Set Fso = CreateObject(Trim(Cl.Web_Info(13)))
	If 0 <> Err Then
		RefreshHtml2 "txt1","<font color=#ff0033>生成"&Cl.ChannelItemName&"栏目失败，请检查你的服务器是否有FSO(FileSystemObject)！</font>"
		Response.end
	End if
	On Error GoTo 0
	OpenConn
	if Instr(action,",delinfohtml,")>0 then Del_Article_Article(1)
	if Instr(action,",delinfohtmlall,")>0 then Del_Article_Article(0)
	'如未启用HTML功能，则……
	if Clng(Cl.IsCreateHtml)=0 then
		RefreshHtml2 "txt1","<font color=#ff0033>此频道未开启HTML生成！请先在频道管理中开启后操作！</font>"
		Response.end
	end if
	'先生成内容页
	if Instr(action,",createinfo,")>0 then Create_Article_Article(1)
	if Instr(action,",createinfoall,")>0 then Create_Article_Article(0)
	'再至栏目
	if Instr(action,",createclass,")>0 then Create_Article_Class
	if Instr(action,",createspecial,")>0 then Create_Article_Special
	if Instr(action,",createupdate,")>0 then Create_Article_Update
	if Instr(action,",createelite,")>0 then Create_Article_Elite
	if Instr(action,",createhot,")>0 then Create_Article_Hot
	'最后才到首页
	if Instr(action,",createindex,")>0 then Create_Article_Index
	RefreshHtml "所有页面生成完毕，本次共生成了 <font color=red>"&apn&"</font> 个页面！",1,1

	Set Fso=Nothing
	Cl.SaveAdminLog
	if Instr(action,",createwebindex,")>0 then Response.write "<iframe width='100%' height='100' frameborder='0' src='Admin_Create_Index.asp' name='Make2'></iframe>"
end If

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

Sub ShowCreateMain()
%>
<script language="JavaScript" src="../inc/Js/selectdate.js"></script>
<table border="0" align="center" cellpadding="0" cellspacing="1" class="border">
	<tr><td class="title" align="center"><%=Cl.ChannelItemName%>生成管理</td></tr>
	<tr><td class="tdbg" align="center"><font color=red><b>生成HTML的先后顺序应为：先生成内容页-->再生成栏目列表-->再到频道首页-->网站首页</b></font></td></tr>
	<tr><td align="center" class="tdbg">
		<table width="500" border="0" align="center" cellpadding="0" cellspacing="0"> 
			<tr><td height="40" align="center">
			<form name="form" method="post" action="Admin_Create_Article.asp?ChannelID=<%=ChannelID%>"><br />
			<input name="Action" type="hidden" id="Action" value="CreateIndex">
			<input name="submit" type="submit" id="submit" value=" 生成<%=Cl.ChannelItemName%>首页 ">
			</form></td>
			<td align="center">
			<form name="form" method="post" action="Admin_Create_Article.asp?ChannelID=<%=ChannelID%>"><br />
			<input name="Action" type="hidden" id="Action" value="CreateClass">
			<input name="submit" type="submit" id="submit" value=" 生成<%=Cl.ChannelItemName%>栏目 ">
			</form></td>
			<td align="center">
			<form name="form" method="post" action="Admin_Create_Article.asp?ChannelID=<%=ChannelID%>"><br />
			<input name="Action" type="hidden" id="Action" value="CreateSpecial">
			<input name="submit" type="submit" id="submit" value=" 生成专题列表 ">
			</form></td></tr>
		</table>
		<table width="500" border="0" align="center" cellpadding="0" cellspacing="0"> 
			<tr><td height="40" align="center">
			<form name="form" method="post" action="Admin_Create_Article.asp?ChannelID=<%=ChannelID%>"><br />
			<input name="Action" type="hidden" id="Action" value="CreateUpdate">
			<input name="submit" type="submit" id="submit" value=" 生成更新列表 ">
			</form></td>
			<td align="center">
			<form name="form" method="post" action="Admin_Create_Article.asp?ChannelID=<%=ChannelID%>"><br />
			<input name="Action" type="hidden" id="Action" value="CreateElite">
			<input name="submit" type="submit" id="submit" value=" 生成推荐列表 ">
			</form></td>
			<td align="center">
			<form name="form" method="post" action="Admin_Create_Article.asp?ChannelID=<%=ChannelID%>"><br />
			<input name="Action" type="hidden" id="Action" value="CreateHot">
			<input name="submit" type="submit" id="submit" value=" 生成热门列表 ">
			</form></td></tr>
		</table>
		</td>
	</tr>
</table>
<br />
<table border="0" align="center" cellpadding="0" cellspacing="1" class="border">
	<tr>    <td class="title" align="center" Colspan=2><%=Cl.ChannelItemName%>内容页生成操作</td>  </tr>
	<tr>
	<td class="tdbg" width="210" align="center"><b>按栏目生成：</b>
		<form name="formclass" method="post" action="Admin_Create_Article.asp?ChannelID=<%=ChannelID%>">
		<select name="ClassID" size="2" multiple style="height:300px;width:200px;">
          <%=ShowClass_Option(ChannelID,0,0,3)%>
        </select><br /><font color='red'>提示：</font>可以按住“Shift”<br />或“Ctrl”键进行多个栏目的选择<br /><input name="Action" type="hidden" id="Action" value="CreateInfo">
		<input name="submit" type="submit" id="submit" value="生成列表&gt;&gt;" onClick="document.formclass.Action.value='CreateClass';">
		<input name="submit" type="submit" id="submit" value="生成内容&gt;&gt;">
		</form></td>
	<td class="tdbg">
		<table width="500" border="0" align="center" cellpadding="0" cellspacing="0"> 
			<tr><td>
				<form name="form4" method="post" action="Admin_Create_Article.asp?ChannelID=<%=ChannelID%>">
				生成最新 <input name="TopNew" id="TopNew" value="50" size=8 maxlength="10"> <%=Cl.ChannelItemUnit&Cl.ChannelItemName%>&nbsp;
				<input name="Action" type="hidden" id="Action" value="CreateInfoAll">
				<input name="CreateType" type="hidden" id="CreateType" value="2">
				<input name="submit" type="submit" id="submit" value="开始生成&gt;&gt;">            </form></td>
			</tr>
			<tr><td>
				<form name="form5" method="post" action="Admin_Create_Article.asp?ChannelID=<%=ChannelID%>">
				生成更新时间为 <input name="BeginDate" type="text" id="BeginDate" size=10 maxlength="20" onfocus="show_cele_date(BeginDate,'','',BeginDate)"> 到 <input name="EndDate" type="text" id="EndDate" size=10 maxlength="20" onfocus="show_cele_date(EndDate,'','',EndDate)"> 的<%=Cl.ChannelItemName%>
					<input name="Action" type="hidden" id="Action" value="CreateInfoAll">
					<input name="CreateType" type="hidden" id="CreateType" value="3">
					<input name="submit" type="submit" id="submit" value="开始生成&gt;&gt;">
				</form></td>
			</tr>
			<tr><td>
				<form name="form6" method="post" action="Admin_Create_Article.asp?ChannelID=<%=ChannelID%>">
				生成ID号为 <input name="BeginID" type="text" id="BeginID" value="1" size=8 maxlength="10"> 到 <input name="EndID" type="text" id="EndID" value="100" size=8 maxlength="10"> 的<%=Cl.ChannelItemName%>
				<input name="Action" type="hidden" id="Action" value="CreateInfoAll">
				<input name="CreateType" type="hidden" id="CreateType" value="4">
				<input name="submit" type="submit" id="submit" value="开始生成&gt;&gt;">
				</form></td>
			</tr>
			<tr><td>
				<form name="form1" method="post" action="Admin_Create_Article.asp?ChannelID=<%=ChannelID%>">
				生成指定ID的<%=Cl.ChannelItemName%>（多个ID可用逗号隔开）：<br />&nbsp;&nbsp;<input name="InfoID" type="text" id="InfoID" value="1,3,5,7,9" size="50">
				<input name="Action" type="hidden" id="Action" value="CreateInfo">
				<input name="submit" type="submit" id="submit" value="开始生成&gt;&gt;">
				</form></td>
			</tr>
			<tr><td>
				<form name="form1" method="post" action="Admin_Create_Article.asp?ChannelID=<%=ChannelID%>">
				生成所有已审核的<%=Cl.ChannelItemName%>：<input name="Action" type="hidden" id="Action" value="CreateInfoAll">
				<input name="submit" type="submit" id="submit" value="开始生成&gt;&gt;">
				</form></td>
			</tr>
			<tr><td>&nbsp;</td></tr>
			<tr><td>
				<form name="form1" method="post" action="Admin_Create_Article.asp?ChannelID=<%=ChannelID%>">
				删除所有已生成的<%=Cl.ChannelItemName%>HTML：<input name="Action" type="hidden" id="Action" value="DelInfoHTMLAll">
				<input name="submit" type="submit" id="submit" value="开始删除&gt;&gt;">
				</form></td>
			</tr>
		</table></td></tr>
</table>
<%
End Sub

Sub Create_Article_Index()
	RefreshHtml2 "txt1","<font color=#ff0033>正在生成"&Cl.ChannelItemName&"首页，请稍候......</font>"
	RefreshHtml2 "txt4","共有 <b>1</b> 个首页要生成！"
	InfoID=0 : ClassID=0
	Article_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(1,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
	RefreshHtml ""&Cl.ChannelItemName&"首页("&Cl.WebDir & Cl.GetItemIndexPath(Cl.CreatePathType, Cl.HtmlDir, Cl.ChannelDir) & "Index." & Cl.CreateFileExt&")生成完毕！",1,1
	RefreshHtml2 "txt1","<font color=blue>恭喜您，"&Cl.ChannelItemName&"首页生成完毕！</font>"
	apn=apn+1
End Sub

Sub Create_Article_Class()
	TempClassID=Trim(Request("ClassID"))
	SQLCreate="Select ClassID from Cl_Class where ChannelID="&ChannelID&" and IsOuter=0"
	if TempClassID<>"" and IsNumeric(Replace(Replace(TempClassID,",","")," ","")) then
		TempClassID=Replace(TempClassID," ","")
		SQLCreate=SQLCreate & " and ClassID In ("&TempClassID&")"
	end if
	SQLCreate=SQLCreate & " order by ClassID desc"
	Set RsMake = Server.CreateObject("ADODB.Recordset")
	RsMake.open SQLCreate,Conn,1,1
	Err=0