<!--#include file="conn.asp"-->
<!--#include file="../../inc/function.asp"-->
<!--#include file="_html_fun.asp"-->
<!--#include file="../../../include/Lebi_Db_cls.asp"-->
<!--#include file="../../../include/lebi_cache_cls.asp"-->
<!--#include file="../../../include/lebi_cache.asp"-->
<!--#include file="_html_lang.asp"-->
<!--#include file="../../../include/lebi_main.asp"-->
<!--#include file="../../../include/lebi_item/item_news_fn.asp"-->
<%
'**************************************
'* 最后更新 2012-05-20 by 56770.kingdge
'* copyright www.56770.com
'**************************************
server.scripttimeout =99999
html_page="1"
eshop_url = replace(eshop_url,"/tohtml/","/")
%>
<html>
<head>
<meta http-equiv="content-type" content="text/html; charset=utf-8">
</head>
<style type="text/css">
body{margin-top:0px;margin-left:0px;position:absolute;background-color:#ffffff;font-size:11px;}
td{font-size:11px;}
</style>
<body>
<!--#include file="../../../include/lebi_function.asp"-->
<!--#include file="../../../include/lebi_page_cls.asp"-->
<%
admin_flag=",12.6,"
if request.cookies(cookiesname)("admin_name")="" or instr(","&request.cookies(cookiesname)("flag")&",",admin_flag)=0 then
		response.write("没有操作此功能的权限！")
		response.end
end if
if show_html <> 1 then
		response.write("请先选择静态模式(HTML)！")
		response.end
end if
rem html_type 0全部 1新数据
c_id = request("c_id")
nextc_id = request("nextc_id")
stoptime=request("stoptime")
if not isnumeric(stoptime) then stoptime=3
write_lebi_eshop("<div id=""table_sort"">")
write_lebi_eshop("<table width=""100%"" border=""0"" cellspacing=""1"" cellpadding=""1"">")
write_lebi_eshop("<td width=""300"" align=""left"">")
write_lebi_eshop("<table width=""300"" border=""0"" cellspacing=""1"" cellpadding=""1"" height=""8"" bgcolor=""#b2b2a6""><tr><td bgcolor=ffffff height=""8""><img src=""../../images/bar.gif"" width=0 height=8 id=bar_p_img name=bar_p_img align=absmiddle></td></tr></table></td>")
write_lebi_eshop("<td><span id=bar_p_txt2 name=bar_p_txt2 style=""font-size:9pt;color:red;""></span><span id=bar_p_txt1 name=bar_p_txt1 style=""font-size:9pt"">0</span><span style=""font-size:9pt"">%</span></td></tr></table></div>")
dim body_news_class,tmp_skin
set fs=server.createobject("scripting.filesystemobject")
if fs.folderexists(server.mappath("../../../"& LangPath & folder(1)))=false then
        fs.createfolder(server.mappath("../../../"& LangPath & folder(1)))
end if
rem 取得数据库中最大的一条id
set rs = conn.execute("select top 1 classid from [lebi_newsclass] order by classid desc")
lastnum = rs(0)
rs.close:set rs=nothing
if c_id = "" or not isnumeric(c_id) then c_id = 0
if clng(c_id) > clng(lastnum) or clng(nextc_id)>clng(lastnum) then
        write_lebi_eshop("<table width=""100%"" border=""0"" cellspacing=""1"" cellpadding=""1"" class=""classlist""><tr><td class=classtd>·全部分类生成完毕！</td></tr></table>")
		write_lebi_eshop("<script>document.getElementById(""table_sort"").style.display=""none"";</script>")
		response.end
end if
s_text=loadfile("../../text/lebi_news"& LangTxt &".text")
sitename = trim(split(s_text,"$$$")(0))
description = trim(split(s_text,"$$$")(2))
keywords = trim(split(s_text,"$$$")(3))
showpath = "<a href='"& eshop_url & url_1 &"'>"& lebi_word(0) &"</a> → <a href='"& eshop_url & url_7 &"'>"& lebi_word(18) &"</a>"
skin_body = LoadFile("../../../skins/"& template &"/template/news_list.htm")
set rs_list=server.createobject("adodb.recordset")
sql="select classid,classname,ClassSkin,n_filename from [lebi_newsclass] where 1=1"
if c_id<>0 then sql=sql&" and classid="&c_id&""
if c_id=0 then sql=sql&" and classid="&nextc_id&""
rs_list.open sql,conn,1,1
if rs_list.eof then
		if clng(c_id) < clng(lastnum) and c_id<>0 then
			set rs = conn.execute("select top 1 classid from [lebi_newsclass] where classid>"& nextc_id &" order by classid asc")
			nextc_id = rs(0)
			rs.close : set rs = nothing
			write_lebi_eshop("<script language=""javascript"">url=""?c_id="&c_id&"&nextc_id="&nextc_id&"&stoptime="&stoptime&""";if (!url){url=document.referrer}function countdown(secs){document.getElementById(""resettime"").innerHTML=secs;if(--secs>0) {settimeout(""countdown(""+secs+"")"",1000);}else {window.location.href=url;}}countdown(2);</script>")
		else
			write_lebi_eshop("<table width=""100%"" border=""0"" cellspacing=""1"" cellpadding=""1"" class=""classlist""><tr><td class=classtd>·全部分类生成完毕！</td></tr></table>")
			write_lebi_eshop("<script>document.getElementById(""table_sort"").style.display=""none"";</script>")
			response.end
		end if
else
        classid = rs_list("classid")
		classname = rs_list("classname")
		n_filename = rs_list("n_filename")
		If Rs_list(2) <> "" And Not IsNull(Rs_list(2)) Then
				skin_body = LoadStyle(Eshop_url & Style_folder &"news/"& Rs_list(2))
		End If
        sql_i = "select id from [lebi_news] where 1=1 "
        if issqldatabase ="1" then sql_i = sql_i &" and charindex(',"& classid &",',classid)>0"
        if issqldatabase ="0" then sql_i = sql_i &" and instr(classid,',"& classid &",')>0"
        sql_i = sql_i &" order by id desc"
        set rs_i = server.createobject("adodb.recordset")
        rs_i.open sql_i,conn,1,1
		rs_i.pagesize = top23
        if rs_i.eof then
                pagecounts = 1
        else
	            pagecounts = rs_i.pagecount
        end if
        for page = 1 to pagecounts
	            rem ----------------------------------------------------------------------------
		        write_lebi_eshop("<script>bar_p_img.width=" & fix((page/pagecounts) * 300) & ";")
		        write_lebi_eshop("bar_p_txt1.innerHTML=""当前分页数 " & page & " ，完成 " & formatnumber2(page/pagecounts*100) & """;")
		        write_lebi_eshop("bar_p_img.title=""成功生成分页数 (" & page & ") "";</script>")
		        response.flush
                %><!--#include file="../../../include/lebi_item/item_news_class.asp"--><%
				HtmlName = "../../../"& LangPath & folder(1) & n_filename &"."& page &"."& Sys_Ext
				savehtml HtmlName,html_splits(skin_body)
        		rem -----------------------------------------------------------------------------------------
        next
		write_lebi_eshop("<script>bar_p_img.width=300;bar_p_txt2.innerHTML='';bar_p_txt1.innerHTML=""100"";</script>")
		if clng(classid) < clng(lastnum) then
		        if c_id <> 0 then
        				write_lebi_eshop("<table width=""100%"" border=""0"" cellspacing=""1"" cellpadding=""1"" class=""classlist""><tr><td class=classtd>·"& classname &" 静态页生成完毕！</td></tr></table>")
						write_lebi_eshop("<script>document.getElementById(""table_sort"").style.display=""none"";</script>")
						response.end
				end if
				on error resume next
				set rs = conn.execute("select top 1 classid from [lebi_newsclass] where classid>"& nextc_id &" order by classid asc")
				nextc_id = rs(0)
				rs.close : set rs = nothing
				write_lebi_eshop("<table width=""100%"" border=""0"" cellspacing=""1"" cellpadding=""1"" class=""classlist""><tr><td class=classtd>·缓解服务器压力，<font color=red><span id=""resettime"">0</span></font> 秒后生成任务继续执行...</td></tr></table>")
				write_lebi_eshop("<script>document.getElementById(""table_sort"").style.display=""none"";</script>")
				write_lebi_eshop("<script language=""JavaScript"">Url=""?c_id="&c_id&"&NextC_id="&NextC_id&"&stoptime="&stoptime&""";if (!Url){Url=document.referrer}function countDown(secs){document.getElementById(""resettime"").innerHTML=secs;if(--secs>0) {setTimeout(""countDown(""+secs+"")"",1000);}else {window.location.href=Url;}}countDown("&stoptime&");</script>")
		else
				write_lebi_eshop("<table width=""100%"" border=""0"" cellspacing=""1"" cellpadding=""1"" class=""classlist""><tr><td class=classtd>·全部分类生成完毕！</td></tr></table>")
				write_lebi_eshop("<script>document.getElementById(""table_sort"").style.display=""none"";</script>")
				response.end
		end if
end if
rs_list.close:set rs_list=nothing
write_lebi_eshop("<script>bar_p_img.width=300;bar_p_txt2.innerHTML='';bar_p_txt1.innerHTML=""100"";</script>")
%>
</body>
</html>