<!--#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_gift.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
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_gift
set fs=server.createobject("scripting.filesystemobject")
if fs.folderexists(server.mappath("../../../"& LangPath & folder(7)))=false then
        fs.createfolder(server.mappath("../../../"& LangPath & folder(7)))
end if
s_text=loadfile("../../text/lebi_gift"& LangTxt &".text")
sitename = trim(split(s_text,"$$$")(0))
strwebtitle = trim(split(s_text,"$$$")(1))
description = trim(split(s_text,"$$$")(2))
keywords = trim(split(s_text,"$$$")(3))
showpath = "<a href='"& eshop_url & url_1 &"'>"& lebi_word(0) &"</a> → "& lebi_word(17) &""
skin_body = LoadFile("../../../skins/"& template &"/template/gift.htm")
sql_i = "select id from [lebi_vipproduct]"
if issqldatabase ="1" then sql_i = sql_i &" where datediff(d,endtime,"&sqlnowstring&")<=0"
if issqldatabase ="0" then sql_i = sql_i &" where datediff('d',endtime,"&sqlnowstring&")<=0"
sql_i = sql_i &" order by addtime desc"
set rs_i = server.createobject("adodb.recordset")
rs_i.open sql_i,conn,1,1
rs_i.pagesize = 10
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
		HtmlName = "../../../"& LangPath & folder(7) &"list."& page &"."& Sys_Ext
		savehtml HtmlName,html_splits(skin_body)
        rem -----------------------------------------------------------------------------------------
next
rs_i.close:set rs_i=nothing
write_lebi_eshop("<script>bar_p_img.width=300;bar_p_txt2.innerHTML='';bar_p_txt1.innerHTML=""100"";</script>")
%>
</body>
</html>