<!--#include file="admin_start.asp"-->

<%
dim id
dim ids
dim n_ids
dim site

id=request("id")
ids=request("ids")
ids=replace(ids," ","")
n_ids=""


if not MySys.check.isInteger(id) then
MySys.error.info="请选择您要操作的项目！"
MySys.error.location="back"
MySys.error.err()
end if


select case request("action")
case "update"

	sql="select * from jins_template_label where label_id="&id&" "
	rs.open sql,conn,1,3
	if not rs.eof then
		set site=Server.CreateObject("FB_EM_SQL_Site.SiteSystem")

		site.GetMySys(site)
		site.GetTemplate(Template)
		site.GetFunctions(functions)
		site.GetObject(object)	

		if  rs("label_project")=0 or isnull(rs("label_project")) then 

			MySys.error.info="公有标签不支持自动更新缓存！如果需要缓存，您可以手动输入需要还存到的内容或者将其设置为私有标签。	"
			MySys.error.location="back"
			MySys.error.err()
		end if

		site.template.template_project_id=rs("label_project")
		'文件夹
		label_project=rs("label_project")
		if label_project="" then label_project=0
		set rss=conn.execute("select sort_folder from jins_template_sort where sort_id="&rs("label_project")&" ")
		if not rss.eof then site.template.folder=rss("sort_folder")
		if site.template.folder<>"" then 
			if right(site.template.folder,1)<>"/" then site.template.folder=site.template.folder&"/"
		end if
		
		rs("label_cache_content")=site.template.Trans_Label(rs("label_content"),2)
		rs("label_cache_addtime")=now()
		rs.update
		set site=nothing
	end if
	rs.close
	
	MySys.error.info="标签缓存更新成功！"
	MySys.error.location="back"
	MySys.error.suc()

	
case else

	sql="select label_cache_addtime,label_cache_timeout,label_cache_content,label_description from jins_template_label where label_id="&id&" "
	rs.open sql,conn,1,3
	
	'/////////////////////////////////////////////检测
	
	if rs.eof then
		MySys.error.info="您选择的标签不存在！"
		MySys.error.location="back"
		MySys.error.err()
	end if
	
	rs("label_cache_timeout")=int(trim(request("label_cache_timeout")))
	if request("label_cache_content")<>rs("label_cache_content") then 
		rs("label_cache_addtime")=now()
		rs("label_cache_content")=request("label_cache_content")
	end if
	
	rs.update
	rs.close

	MySys.error.info="标签编辑成功！"
	MySys.error.location="back"
	MySys.error.suc()

	'/////////////////////////////////////////////
end select

%>
<!--#include file="admin_end.asp"-->
