📄 admin_template.asp
字号:
<!--#include file="Admin_Common.asp"-->
<!--#include file="../Include/PowerEasy.XmlHttp.asp"-->
<%
'**************************************************************
' Software name: PowerEasy SiteWeaver
' Web: http://www.powereasy.net
' Copyright (C) 2005－2008 佛山市动易网络科技有限公司 版权所有
'**************************************************************
Const NeedCheckComeUrl = True '是否需要检查外部访问
Const PurviewLevel = 2 '0--不检查，1--超级管理员，2--普通管理员
Const PurviewLevel_Channel = 0 '0--不检查，1--频道管理员，2--栏目总编，3--栏目管理员
Const PurviewLevel_Others = "" '其他权限
Dim TemplateType, downright, TempType, ProjectName
Dim NavigationCss '导航风格
Dim IsOnlinePayment '解决通用模板公用在线支付问题
Dim TemplateProjectID, i
'检查管理员操作权限
If AdminPurview > 1 Then
If ChannelID > 0 And ModuleType <> 4 Then
PurviewPassed = CheckPurview_Other(AdminPurview_Others, "Template_" & ChannelDir)
Else
PurviewPassed = CheckPurview_Other(AdminPurview_Others, "Template")
End If
If PurviewPassed = False Then
Response.Write "<br><p align='center'><font color='red' style='font-size:9pt'>对不起，你没有此项操作的权限。</font></p>"
Call WriteEntry(6, AdminName, "越权操作")
Response.End
End If
End If
TemplateType = Trim(Request("TemplateType"))
downright = PE_CLng(Trim(Request("downright")))
ProjectName = ReplaceBadChar(Trim(Request("ProjectName")))
TemplateProjectID = PE_CLng(Trim(Request("TemplateProjectID")))
IsOnlinePayment = PE_CLng(Trim(Request("IsOnlinePayment")))
NavigationCss = "title"
If ProjectName = "" Then
Dim rs
Set rs = Conn.Execute("Select TemplateProjectName From PE_TemplateProject Where IsDefault=" & PE_True & "")
If rs.BOF And rs.EOF Then
Call WriteErrMsg("<li>系统中还没有默认方案,请到方案管理指定默认方案！</li>", ComeUrl)
Response.End
Else
ProjectName = rs("TemplateProjectName")
End If
Set rs = Nothing
End If
If TemplateType = "" Then
TemplateType = 1
Else
TemplateType = PE_CLng(TemplateType)
End If
TempType = PE_CLng(Trim(Request("TempType")))
Response.Write "<html><head><title>" & ChannelName & "管理----模板管理</title><meta http-equiv='Content-Type' content='text/html; charset=gb2312'>"
Response.Write "<link href='Admin_Style.css' rel='stylesheet' type='text/css'>"
Response.Write "</head>"
Response.Write "<body leftmargin='2' topmargin='0' marginwidth='0' marginheight='0'>"
Response.Write "<table width='100%' border='0' align='center' cellpadding='2' cellspacing='1' class='border'>"
If ChannelID = 0 Then
If TempType = 0 Then
Call ShowPageTitle(ProjectName & "方案----通用模板管理", 10006)
ElseIf TempType = 1 Then
Call ShowPageTitle(ProjectName & "方案----网站会员模板管理", 10006)
End If
Else
Call ShowPageTitle(ProjectName & "方案----" & ChannelName & "模板管理", 10006)
End If
Response.Write " <tr class='tdbg'>"
Response.Write " <td width='70' height='30'><strong>管理导航：</strong></td><td>"
If TempType = 1 Then
Response.Write "<a href='Admin_Template.asp?TemplateType=8&TempType=1&ProjectName=" & Server.UrlEncode(ProjectName) & "&TemplateProjectID=" & TemplateProjectID & "'>"
Else
Response.Write "<a href='Admin_Template.asp?ChannelID=" & ChannelID & "&ProjectName=" & Server.UrlEncode(ProjectName) & "&TemplateProjectID=" & TemplateProjectID & "'>"
End If
Response.Write "模板管理首页</a> | <a href='Admin_Template.asp?ChannelID="
If ChannelID = 0 And IsOnlinePayment = 1 Then
Response.Write "1000&Action=Add&TemplateType=" & TemplateType & "&ProjectName=" & Server.UrlEncode(ProjectName)
Else
Response.Write ChannelID & "&Action=Add&TemplateType=" & TemplateType & "&ProjectName=" & Server.UrlEncode(ProjectName)
End If
If TempType > 0 Then Response.Write "&TempType=" & TempType
Response.Write "''>添加模板</a>"
Response.Write " | <a href='Admin_Template.asp?ChannelID=" & ChannelID & "&Action=Import&ProjectName=" & Server.UrlEncode(ProjectName) & "&TemplateProjectID=" & TemplateProjectID
If TempType > 0 Then Response.Write "&TempType=" & TempType
Response.Write "'>导入模板</a>"
Response.Write " | <a href='Admin_Template.asp?ChannelID=" & ChannelID & "&Action=Export&ProjectName=" & Server.UrlEncode(ProjectName) & "&TemplateProjectID=" & TemplateProjectID
If TempType > 0 Then Response.Write "&TempType=" & TempType
Response.Write "'>导出模板</a>"
Response.Write " | <a href='Admin_Template.asp?ChannelID=" & ChannelID & "&Action=ChannelCopyTemplate&ProjectName=" & Server.UrlEncode(ProjectName) & "&TemplateProjectID=" & TemplateProjectID
If TempType > 0 Then Response.Write "&TempType=" & TempType
Response.Write "'>频道模板复制</a>"
Response.Write " | <a href='Admin_Template.asp?Action=BatchReplace&ChannelID=" & ChannelID & "&ProjectName=" & Server.UrlEncode(ProjectName) & "&TemplateProjectID=" & TemplateProjectID
If TempType > 0 Then Response.Write "&TempType=" & TempType
Response.Write "'>批量替换模板代码</a>"
Response.Write " | <a href='Admin_Template.asp?Action=Main&ChannelID=" & ChannelID & "&downright=1&ProjectName=" & Server.UrlEncode(ProjectName) & "&TemplateProjectID=" & TemplateProjectID
If TempType > 0 Then Response.Write "&TempType=" & TempType
Response.Write "'>模板回收站管理</a>"
Response.Write " | <a href='Admin_Template.asp?Action=BatchDefault&ProjectName=" & Server.UrlEncode(ProjectName)
If TempType > 0 Then Response.Write "&TempType=" & TempType
Response.Write "'>模板默认批量设置</a>"
Response.Write " </td>"
Response.Write " </tr>"
Response.Write " </table>"
Response.Write " <br>"
If Action = "" Or Action = "SaveAdd" Or Action = "SaveModify" Or Action = "Main" Or Action = "main" Then
Response.Write "<table width='100%' border='0' align='center' "
If TemplateProjectID <> 0 Then
Response.Write "cellpadding='2' cellspacing='1' class='border'"
End If
Response.Write ">"
If TemplateProjectID <> 0 Then
Response.Write " <tr class='" & NavigationCss & "'>"
Response.Write " <td>"
Response.Write " | <a href='Admin_Template.asp?Action=Main&ChannelID=0&ProjectName=" & Server.UrlEncode(ProjectName) & "&TempType=0&TemplateProjectID=" & TemplateProjectID & "'><FONT style='font-size:12px' "
If ChannelID = 0 And TempType = 0 Then
Response.Write " color='red'"
End If
Response.Write ">网站通用模板</FONT></a>"
Response.Write " | <a href='Admin_Template.asp?Action=Main&ChannelID=0&ProjectName=" & Server.UrlEncode(ProjectName) & "&TempType=1&TemplateProjectID=" & TemplateProjectID & "'><FONT style='font-size:12px' "
If ChannelID = 0 And TempType = 1 Then
Response.Write " color='red'"
End If
Response.Write " >会员模板</FONT></a>"
i = 0
Set rs = Conn.Execute("SELECT DISTINCT t.ChannelID,c.ChannelName FROM PE_Template t INNER JOIN PE_Channel c ON t.ChannelID = c.ChannelID where c.Disabled=" & PE_False)
If rs.BOF And rs.EOF Then
Response.Write " 没有模板请先到导入模板"
Else
Do While Not rs.EOF
Response.Write " | <a href='Admin_Template.asp?Action=Main&ChannelID=" & rs("ChannelID") & "&TemplateType=" & TemplateType & "&downright=" & downright & "&ProjectName=" & Server.UrlEncode(ProjectName) & "&TempType=" & TempType & "&TemplateProjectID=" & TemplateProjectID & "'><FONT style='font-size:12px' " & IsFontChecked(rs("ChannelID"), ChannelID) & ">" & rs("ChannelName") & "频道模板</FONT></a>"
If i > 3 Then
Response.Write " | </td><tr class='" & NavigationCss & "'><td>"
i = 0
Else
i = i + 1
End If
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -