admin_create_soft.asp

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

		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