<%@language=vbscript codepage=936 %>
<%
Const PurviewLevel=2
Const CheckChannelID=0
Const PurviewLevel_Others="Layout"
%>
<%
dim rs, sql
dim Action,TemplateID,TemplateType,FoundErr,ErrMsg,TemplateTypeIDs,TemplateTypeNames
Dim i
Action=trim(request("Action"))
TemplateID=trim(request("TemplateID"))
TemplateType=trim(request("TemplateType"))
if TemplateType="" then
TemplateType=1
else
TemplateType=CLng(TemplateType)
end if
if ChannelID=0 then
TemplateTypeIDs=split("1",",")
TemplateTypeNames=split(ChannelShortName&"首页模板",",")
elseif ChannelID=1 then
TemplateTypeIDs=split("1,2,3,4,22,5,6,7,8,16,17,20",",")
TemplateTypeNames=split(ChannelShortName&"首页模板,栏目页模板,内容页模板,专题页模板,专题列表页模板,搜索页模板,最新文章页模板,推荐文章页模板,热门文章页模板,评论文章页模板,打印页模版,告诉好友页模版",",")
end if
%>
文章中心管理----模板管理
<%
select case Action
case "Add" '添加模板
call Add()
case "Modify" '修改频道
call Modify()
case "SaveAdd" '保存添加
call SaveAdd()
case "SaveModify" '保存修改
call SaveModify()
case "Set" '设置默认频道
call SetDefault()
case "Del" '删除频道
call DelTemplate()
case "Import","Import2","Import3" '导入频道
call Import()
case "Export","Export2" '导出频道
call Export()
case "ChannelCopyTemplate","ChannelCopyTemplate2" '复制频道
call ChannelCopyTemplate()
case else
call main()
end select
if FoundErr=True then
call WriteErrMsg()
end if
call CloseConn()
sub TempltList()
%>
<%
end sub
sub SaveAdd()
call TempltList()
dim TemplateName,TemplateContent,IsDefault
TemplateName=request("TemplateName")
TemplateContent=request("TemplateContent")
IsDefault=request("IsDefault")
if TemplateName = "" and TemplateContent = "" and IsDefault = "" then
FoundErr=True
ErrMsg=ErrMsg & "
参数不足
"
else
sql="select top 1 * from PE_Template"
Set rs=Server.CreateObject("Adodb.RecordSet")
rs.open sql,conn,1,3
rs.addnew
rs("ChannelID")=ChannelID
rs("TemplateName")=TemplateName
rs("TemplateType")=TemplateType
rs("TemplateContent")=replace(TemplateContent,"[/textarea]","")
if IsDefault="yes" then
rs("IsDefault")=True
else
rs("IsDefault")=False
end if
rs.update
rs.close
call SuccessMessage("成功添加新的模板："&TemplateName,"Admin_Template.asp?ChannelID="&ChannelID&"&Action=Add&TemplateType="&TemplateType)
end if
end sub
sub Modify()
if TemplateID="" then
FoundErr=True
ErrMsg=ErrMsg & "
请指定要修改的模板
"
exit Sub
end if
sql="select * from PE_Template where TemplateID=" & TemplateID
Set rs=Server.CreateObject("Adodb.RecordSet")
rs.open sql,conn,1,3
if not rs.eof then
%>
<%
else
FoundErr=True
ErrMsg=ErrMsg & "
找不到模板
"
end if
rs.close
end sub
sub SaveModify()
call TempltList()
dim TemplateName,TemplateContent,IsDefault
TemplateName=request("TemplateName")
TemplateContent=request("TemplateContent")
IsDefault=request("IsDefault")
if TemplateName = "" and TemplateContent = "" and IsDefault = "" then
FoundErr=True
ErrMsg=ErrMsg & "
参数不足
"
else
sql="select * from PE_Template where TemplateID=" & TemplateID
Set rs=Server.CreateObject("Adodb.RecordSet")
rs.open sql,conn,1,3
rs("TemplateName")=TemplateName
rs("TemplateContent")=replace(TemplateContent,"[/textarea]","")
if IsDefault="yes" then
rs("IsDefault")=True
else
rs("IsDefault")=False
end if
rs.update
rs.close
call SuccessMessage("保存模板成功！","Admin_Template.asp?ChannelID="&ChannelID&"&Action=Modify&TemplateID="&TemplateID)
end if
end sub
sub SetDefault()
if TemplateID="" then
FoundErr=True
ErrMsg=ErrMsg & "
请指定模板
"
exit sub
end if
TemplateID=Clng(TemplateID)
conn.execute("update PE_Template set IsDefault=False where IsDefault=True and TemplateType=" & TemplateType & " and ChannelID=" & ChannelID)
conn.execute("update PE_Template set IsDefault=True where TemplateID=" & TemplateID)
call SuccessMessage("成功将选定的模板设置为默认模板","Admin_Template.asp?ChannelID="&ChannelID&"&TemplateType="&TemplateType)
end sub
sub DelTemplate()
dim TemplateType
if TemplateID="" then
FoundErr=True
ErrMsg=ErrMsg & "
请指定要删除的模板
"
exit sub
else
TemplateID=split(TemplateID,",")
end if
dim i
for i=0 to ubound(TemplateID)
sql="select * from PE_Template where TemplateID=" & cint(TemplateID(i))
Set rs=Server.CreateObject("Adodb.RecordSet")
rs.Open sql,conn,1,3
if rs.bof and rs.eof then
FoundErr=True
ErrMsg=ErrMsg & "
找不到指定的版面设计模板！
"
exit sub
else
if rs("IsDefault")=True then
FoundErr=True
ErrMsg=ErrMsg & "
当前模板为默认模板，不能删除。请先将默认模板改为其他模板后再来删除此模板。
"
exit sub
else
dim trs
set trs=conn.execute("select TemplateID from PE_Template where IsDefault=True and TemplateType=" & rs("TemplateType") & " and ChannelID=" & ChannelID)
conn.execute("update ArticleClass set TemplateID=" & trs(0) & " where TemplateID=" & TemplateID(i))
conn.execute("update Article set TemplateID=" & trs(0) & " where TemplateID=" & TemplateID(i))
trs.close
set trs=nothing
rs.delete
rs.update
end if
end if
rs.close
next
call SuccessMessage("成功删除选定的模板。并将使用此模板的栏目和文章改为使用默认模板。","Admin_Template.asp?ChannelID="&ChannelID&"&TemplateType="&TemplateType)
end sub
sub Import()
if Action="Import" then
%>
<%
elseif Action="Import2" then
%>
<%
elseif Action="Import3" then
call SuccessMessage("已经成功从指定的数据库中导入选中的模板！","Admin_Template.asp?ChannelID="&ChannelID&"&TempType=0&Action=Import2&Templatemdb=..＄Template.mdb")
end if
end sub
sub Export()
if Action="Export" then
%>
<%
elseif Action="Export2" then
call SuccessMessage("已经成功将所选中的模板设置导出到指定的数据库中！","Admin_Template.asp?ChannelID="&ChannelID&"&Action=Export")
end if
end sub
sub ChannelCopyTemplate()
if Action="ChannelCopyTemplate" then
%>
<%
elseif Action="ChannelCopyTemplate2" then
call SuccessMessage("已经成功完成了模版复制！","Admin_Template.asp?ChannelID="&ChannelID&"&ModuleType=0&Action=ChannelCopyTemplate")
end if
end sub
%>