Other systems

Development Platform:
ASP/ASPX

Admin_Create_Soft.asp：Code Content
							<!--#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_Soft_Soft(1)
	if Instr(action,",delinfohtmlall,")>0 then Del_Soft_Soft(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_Soft_Soft(1)
	if Instr(action,",createinfoall,")>0 then Create_Soft_Soft(0)
	'再至栏目
	if Instr(action,",createclass,")>0 then Create_Soft_Class
	if Instr(action,",createspecial,")>0 then Create_Soft_Special
	if Instr(action,",createupdate,")>0 then Create_Soft_Update
	if Instr(action,",createelite,")>0 then Create_Soft_Elite
	if Instr(action,",createhot,")>0 then Create_Soft_Hot
	'最后才到首页
	if Instr(action,",createindex,")>0 then Create_Soft_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_Soft.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_Soft.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_Soft.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_Soft.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_Soft.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_Soft.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_Soft.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_Soft.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_Soft.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_Soft.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_Soft.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_Soft.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_Soft.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_Soft_Index()
	RefreshHtml2 "txt1","<font color=#ff0033>正在生成"&Cl.ChannelItemName&"首页，请稍候......</font>"
	InfoID=0 : ClassID=0
	Soft_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(2,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_Soft_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
	if RsMake.Eof then
		RefreshHtml "当前无任何栏目！",0,100
		RefreshHtml2 "txt1","<font color=red>当前无任何栏目！</font>"
		RsMake.Close : Set RsMake=Nothing : exit sub
	end if
	SQLCreate = RsMake.GetRows(-1)
	RsMake.Close:Set RsMake=Nothing
	AllMakeNum=Ubound(SQLCreate,2)+1
	RefreshHtml2 "txt1","<font color=#ff0033>正在生成"&Cl.ChannelItemName&"栏目，请稍候......</font>"
	RefreshHtml2 "txt4","共有 "&AllMakeNum&" 个栏目要生成！"
	For M=0 to Ubound(SQLCreate,2)
		ClassID			= SQLCreate(0,M)
		CreateFilePre	= ClassID & "_"
		CurrentPage		= 1
		TotalPut		= 0
		Soft_Setting
		PageData.Soft_Class
		If (TotalPut Mod PageSize) = 0 Then
			TotalPageNum = TotalPut  PageSize
		Else
			TotalPageNum = TotalPut  PageSize + 1
		End If
		strFileUrl=Cl.GetItemPath(Cl.CreatePathType, Cl.HtmlDir, Cl.ChannelDir, ParentPath, ClassID, ParentDir, ClassDir) & ClassID & "_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.C"&"n) " &_
					"CreateDate:"&Now&"--> "
		Set Make = Nothing
		if TotalPageNum>=2 and 0 = Err then  '多页面
			RefreshHtml "生成第 <font color=red><b>"&m+1&"</b></font> 个栏目的第 <font color=red><b>1</b></font> 个页面（"&strFileUrl&"）完成！",m+1,AllMakeNum
			for CurrentPage=2 to TotalPageNum
				PageData.Soft_Class
				strFileUrl=Cl.GetItemPath(Cl.CreatePathType, Cl.HtmlDir, Cl.ChannelDir, ParentPath, ClassID, ParentDir, ClassDir) & ClassID & "_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.C"&"n) " &_
					"CreateDate:"&Now&"--> "
				Set Make = Nothing
				RefreshHtml "生成第 <font color=red><b>"&m+1&"</b></font> 个栏目的第 <font color=red><b>"&CurrentPage&"</b></font> 个页面（"&strFileUrl&"）完成！",CurrentPage,TotalPageNum
				apn=apn+1
			next
		else
			RefreshHtml "生成第 <font color=red><b>"&m+1&"</b></font> 个栏目（"&strFileUrl&"）完成！",m+1,AllMakeNum
		end if
		apn=apn+1
		if Not Response.IsClientConnected then Exit For
	Next
	Err=0
	SQLCreate=Empty
	RefreshHtml2 "txt1","<font color=blue>恭喜您，所有"&Cl.ChannelItemName&"栏目生成完毕！</font>"
End Sub
Sub Create_Soft_Special()
	TempClassID=Trim(Request("SpecialID"))
	SQLCreate="Select SpecialID from Cl_Special"
	if TempClassID<>"" and IsNumeric(Replace(TempClassID,",","")) then
		SQLCreate=SQLCreate & " where SpecialID In ("&TempClassID&")"
	end if
	SQLCreate=SQLCreate & " order by SpecialID desc"
	Set RsMake = Server.CreateObject("ADODB.Recordset")
	RsMake.open SQLCreate,Conn,1,1
	m=0:Err=0
	AllMakeNum=RsMake.recordcount
	RefreshHtml2 "txt1","<font color=#ff0033>正在生成"&Cl.ChannelItemName&"专题专题，请稍候......</font>"
	RefreshHtml2 "txt4","共有 <b>"&AllMakeNum&"</b> 个专题专题要生成！"
	if AllMakeNum=0 then
		RefreshHtml "当前无任何专题栏目！",0,100
		RefreshHtml2 "txt1","<font color=red>当前无任何专题栏目！</font>"
		exit sub
	end if
	Do While Not RsMake.Eof
		m=m+1
		Soft_Setting
		SpecialID=RsMake(0)
		CurrentPage=1
		TotalPut=0
		CreateFilePre="Special" & SpecialID & "_"
		DefaultPage="Index"
		PageData.Soft_Special
		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) & "Special/" & CreateFilePre & "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.C"&"n) " &_
						"CreateDate:"&Now&"--> "
		Set Make = Nothing
		apn=apn+1
		if TotalPageNum>=2 then  '多页面
			RefreshHtml "生成第 <font color=red><b>"&m&"</b></font> 个专题栏目的第 <font color=red><b>1</b></font> 个页面（"&strFileUrl&"）完成！",m,AllMakeNum
			for CurrentPage=2 to TotalPageNum
				PageData.Soft_Special
				strFileUrl=Cl.GetItemIndexPath(Cl.CreatePathType, Cl.HtmlDir, Cl.ChannelDir) & "Special/" & CreateFilePre & "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.C"&"n) " &_
						"CreateDate:"&Now&"--> "
				Set Make = Nothing
				RefreshHtml "生成第 <font color=red><b>"&m&"</b></font> 个专题栏目的第 <font color=red><b>"&CurrentPage&"</b></font> 个页面（"&strFileUrl&"）完成！",m,AllMakeNum
				apn=apn+1
			next
		else
			RefreshHtml "生成第 <font color=red><b>"&m&"</b></font> 个专题栏目（"&strFileUrl&"）完成！",m,AllMakeNum
		end if
		if Not Response.IsClientConnected then Exit Do
		RsMake.MoveNext
	Loop
	RsMake.Close:Set RsMake=Nothing
	Err=0
	RefreshHtml2 "txt1","<font color=blue>恭喜您，所有"&Cl.ChannelItemName&"专题栏目生成完毕！</font>"
End Sub
Sub Create_Soft_Update()
	m=1:Err=0
	AllMakeNum=1
	RefreshHtml2 "txt1","<font color=#ff0033>正在生成"&Cl.ChannelItemName&"最近更新页面，请稍候......</font>"
	Soft_Setting
	CurrentPage=1
	TotalPut=0
	DefaultPage="Index"
	PageData.Soft_Update
	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) & "Update/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.C"&"n) " &_
					"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.Soft_Update
			strFileUrl=Cl.GetItemIndexPath(Cl.CreatePathType, Cl.HtmlDir, Cl.ChannelDir) & "Update/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.C"&"n) " &_
					"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_Soft_Elite()
	m=1:Err=0
	AllMakeNum=1
	RefreshHtml2 "txt1","<font color=#ff0033>正在生成"&Cl.ChannelItemName&"推荐列表页面，请稍候......</font>"
	Soft_Setting
	CurrentPage=1
	TotalPut=0
	DefaultPage="Index"
	PageData.Soft_Elite
	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) & "Elite/Index."&Cl.CreateFileExt
	MakeData=Template.ReplaceAllFlag(TempStr)
	Set Make = Fso.CreateTextFile(Server.MapPath(Cl.WebDir&strFileUrl), True)
	Make.Write "<!--Powered by:"& ClCMS_Version & " " &_
		"CreateDate:"&Now&"--> " & vbNewLine & MakeData & vbNewLine & "<!--Copyright 2005 Aspoo.CN " &_
		".All Rights Reserved-->"
	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.Soft_Elite
			strFileUrl=Cl.GetItemIndexPath(Cl.CreatePathType, Cl.HtmlDir, Cl.ChannelDir) & "Elite/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.C"&"n) " &_
					"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_Soft_Hot()
	m=1:Err=0
	AllMakeNum=1
	RefreshHtml2 "txt1","<font color=#ff0033>正在生成"&Cl.ChannelItemName&"热门列表页面，请稍候......</font>"
	Soft_Setting
	CurrentPage=1
	TotalPut=0
	DefaultPage="Index"
	PageData.Soft_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
	TotalPageNum=Clng(TotalPageNum)
	if TotalPageNum>=2 then  '多页面
		AllMakeNum=TotalPageNum
		RefreshHtml "生成热门列表的第 <font color=red><b>1</b></font> 个页面（"&strFileUrl&"）完成！",CurrentPage,AllMakeNum
		for CurrentPage=2 to TotalPageNum
			PageData.Soft_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_Soft_Soft(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_Soft 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_Soft 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_Soft 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_Soft 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_Soft 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_Soft 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_Soft 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
	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)
		Soft_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.Soft_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.C"&"n) " &_
						"CreateDate:"&Now&"--> "
		Set Make = Nothing
		'RsMake("IsHtml")=TrueType
		'RsMake("HtmlFileUrl")=strFileUrl
		'RsMake.Update
		Cl.Execute("UpDate Cl_Soft 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_Soft_Soft(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_Soft Where InfoID In ("&TempID&") and IsHtml="&TrueType&" and ChannelID="&ChannelID&" Order By InfoID Desc"
	else
		SQLDelHtml="Select InfoID,IsHtml,HtmlFileUrl From Cl_Soft 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
	RefreshHtml "所有文件清除HTML完毕！",1,1
	RefreshHtml2 "txt1","<font color=blue>恭喜您，所有文件清除HTML完毕！</font>"
	Err=0
End Sub
'<!--
'┌───────────────────────────────────────────────────────┐
'│														 │
'│		CreateLive CMS Version 4.0						 │
'│　　　　　　　　				Powered by Aspoo.CN	 	 │
'│　		　　　　　　　　　　						 │
'│　	邮箱: support@aspoo.cn		Info@aspoo.cn　　	 │
'│		ＱＱ: 3315263				596197794			 │
'│		网站: www.aspoo.cn			www.aspoo.com		 │
'│		论坛: bbs.aspoo.cn			bbs.aspoo.com		 │
'│														 │
'│	Copyright (C) 2005-2007 Aspoo.CN All Rights Reserved.	 │
'└───────────────────────────────────────────────────────┘
'-->
%>

						