⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 admin_template.asp

📁 淘客网上商店网站程序 淘客网上商店网站程序 淘客网上商店网站程序
💻 ASP
📖 第 1 页 / 共 4 页
字号:
🔍
1234 
<!--#include file="Inc/Const.asp"-->
<!--#include file="Inc/TemplateSetting.asp"-->
<%
if Not Cl.TrueOtherPurview("Template") then
	Cl.ShowErr("<br /><li>您无此操作权限！</li>")
end if
Dim Action,ProjectID,TemplateID,CssID
Dim CurrentProjectName
Action		= Lcase(Trim(request("Action")))
ProjectID	= Cl.GetClng(request("ProjectID"))
TemplateID	= Cl.GetClng(request("TemplateID"))
CssID		= Cl.GetClng(request("CssID"))

Header
%>
<script type="text/javascript" src="../inc/js/stm31.js"></script>
<table width="100%" border="0" cellspacing="1" cellpadding="0" align="center" class="border">
	<tr>
		<td width="100%" class="title" align="center" colspan="2" height="25">网站模板管理</td>
	</tr>
	<tr class="tdbg">
		<td height="25" align="left" width="80%">
		<b>模板操作选项</b>：
		<a href="Admin_Template.asp">模板管理首页</a> | 
		<a href="Admin_Template.asp?action=addproject">新建方案</a> | 
		<a href="Admin_Template.asp?action=cssmain">CSS风格管理</a> | 

		<a href="Admin_LoadSkin.asp?Action=Load">模板导入</a>[<a href="Admin_LoadSkin.asp">导出</a>] 
		
		</td>
		<td height="25" align="center" width="20%">
		<!--
		<span class="hidden" id="cl_label">
		<table border="0" cellspacing="1" cellpadding="0" align="left" bgcolor="#ffffff" onMouseOut="showlayer('cl_label',0);" onMouseOver="showlayer('cl_label',1);">
			<tr class="tdbg"><td><a href="../Editor/label/novi/Cl_Common0.htm" target="_blank">公共标签(1)</a></td></tr>
			<tr class="tdbg"><td><a href="../Editor/label/novi/Cl_Common1.htm" target="_blank">公共标签(2)</a></td></tr>
			<tr class="tdbg"><td><a href="../Editor/label/novi/Cl_SuperAll.htm" target="_blank">超级标签集</a></td></tr>
			<tr class="tdbg"><td><a href="../Editor/label/novi/Cl_Show.htm" target="_blank">各频道SHOW</a></td></tr>
		</table>
		</span>
		<input type="button" onClick="showlayer('cl_label',1);" value="创力标签集">-->
		<script type="text/javascript" language="JavaScript1.2" src="../Editor/label/Cl_LabelMenu.js"></script>
	  </td>
  </tr>
  <%
if ProjectID>0 then
	SQL = "Select ProjectID,ProjectName,ProjectIntro,IsDefault From Cl_TemplateProject Where ProjectID="&Clng(ProjectID)&""
	Set Rs = Cl.Execute(SQL)
	if Not Rs.Eof Then
		CurrentProjectName = Rs("ProjectName")
	%><tr class="tdbg">
		<td align="left" height="25" colspan="2">
		<b>当前所属方案</b>：
		<a href="Admin_Template.asp?ProjectID=<%=rs("ProjectID")%>"><%=CurrentProjectName%><%if rs("IsDefault") then%>(<font color="#33CC00">默认</font>)<%end if%></a>
		&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
		[<a href="Admin_Template.asp?ProjectID=<%=rs("ProjectID")%>&action=EditProject" <%If InStr(action,"editproject")>0 then%>class="red"<%else%>class="blue"<%End if%>>修改方案</a>]
		[<a href="Admin_Template.asp?ProjectID=<%=rs("ProjectID")%>&action=AddTemplate" <%If InStr(action,"addtemplate")>0 then%>class="red"<%else%>class="blue"<%End if%>>添加模版</a>]
		[<a href="Admin_Template.asp?ProjectID=<%=rs("ProjectID")%>&action=AddCss" <%If InStr(action,"addcss")>0 then%>class="red"<%else%>class="blue"<%End if%>>添加CSS</a>]
		&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
		[<a href="Admin_Template.asp?ProjectID=<%=rs("ProjectID")%>" <%If InStr(action,"css")=0 then%>class="red"<%else%>class="blue"<%End if%>>下属模板管理</a>]
		[<a href="Admin_Template.asp?ProjectID=<%=rs("ProjectID")%>&action=CssMain" <%If InStr(action,"css")>0 then%>class="red"<%else%>class="blue"<%End if%>>下属CSS管理</a>]
		</td>
	</tr><%
	end if
	Rs.Close : Set Rs = Nothing
end if%>
</table><br />
<%
Select Case Action
Rem Project
Case "addproject","editproject"
	ProjectInfo
Case "saveaddproject","saveeditproject"
	SaveProject
Case "delproject"
	DelProject
Case "setdefaultproject"
	SetDefaultProject
Rem Template
Case "edittemplate", "addtemplate2"
	TemplateInfo
Case "saveedittemplate", "saveaddtemplate2"
	SaveTemplate
Case "addtemplate"
	AddTemplate
Case "deltemplate"
	DelTemplate
Case "setdefaulttemplate"
	SetDefaultTemplate
Case "cachetemplate"
	CacheTemplate
Case "copytemplate"
	CopyTemplate
Rem CSS
Case "addcss","editcss"
	CssInfo
Case "saveaddcss","saveeditcss"
	SaveCss
Case "delcss"
	DelCss
Case "setdefaultcss"
	SetDefaultCss
Case "cachecss"
	CacheCss
Case "copycss"
	CopyCss
Rem Main
Case "cssmain"
	CssMain
Case Else
	If ProjectID>0 Then
		TempLatesMain
	Else
		ProjectMain
	End If
End Select

Cl.SaveAdminLog

Footer
Rem CSS===========Begin
Sub CssInfo()
	Dim CssName,CssIntro,IsDefault,CssContent,CssPicUrl
	IsDefault	= False
	CssContent	= "/*===请在此输入CSS内容===*/" & Vbcrlf
	If Action="editcss" Then
		If CssID<1 Then
			Cl.ShowErr("<br /><li>请正确选择要编辑的CSS风格！</li>")
		End if
		Set Rs = Cl.Execute("Select CssID,CssName,CssPicUrl,CssIntro,IsDefault,CssContent,ProjectID,ProjectName From Cl_Css Where CssID="&CssID&"")
		If Rs.Eof Then
			Rs.Close : Set Rs = Nothing
			Cl.ShowErr("<br /><li>请正确选择要编辑的CSS风格！</li>")
		End If
		CssName		= Rs(1)
		CssPicUrl	= Rs(2)
		CssIntro	= Rs(3)
		IsDefault	= Rs(4)
		CssContent	= Rs(5)
		ProjectID	= Rs(6)
		Rs.Close : Set Rs = Nothing
	End if
%>
<table width="100%" border="0" cellspacing="1" cellpadding="0" align="center" class="border">
	<form method="post" action="Admin_Template.asp?Action=Save<%=Action%>">
	<tr class="title">
		<td width="100%" align="center" height="25" colspan="2">CSS内容编辑</td>
	</tr>
	<tr class="tdbg">
		<td width="20%" align="right" height="25"><b>CSS名称</b></td>
		<td width="80%" align="left" height="25"><input type="text" style="width:280px;" name="CssName" value="<%=CssName%>" /> <font color="#FF0000">*</font> <font color="#888888">说明：请输入CSS名称</font></td>
	</tr>
	<tr class="tdbg">
		<td width="20%" align="right" height="25"><b>CSS说明</b></td>
		<td width="80%" align="left" height="25"><textarea name="CssIntro" id="CssIntro" style="width:280px;height:80px;"><%=CssIntro%></textarea></td>
	</tr>
	<tr class="tdbg">
		<td width="20%" align="right" height="25"><b>图片路径</b></td>
		<td width="80%" align="left" height="25"><input type="text" style="width:280px;" name="CssPicUrl" value="<%=CssPicUrl%>" /> <font color="#FF0000">*</font> <font color="#888888">说明：图片包路径(请以“/”结束)</font></td>
	</tr>
	<tr class="tdbg">
		<td width="20%" align="right" height="25"><b>所属方案</b></td>
		<td width="80%" align="left" height="25"><select name="ProjectID" id="ProjectID">
			<%
			Set Rs = Cl.Execute("Select ProjectID,ProjectName From Cl_TemplateProject Order by ProjectID Desc")
			Do While Not Rs.Eof
			%>
			<option value="<%=Rs("ProjectID")%>"><%=Rs("ProjectName")%></option>
			<%
			Rs.MoveNext
			Loop
			%>
		</select><%'=CurrentProjectName%>
		&nbsp;&nbsp;&nbsp;
		<input type="checkbox" name="IsDefault" id="IsDefault" value="1" <%If IsDefault=True Then %>checked="checked" disabled<%End if%> /><b>默认CSS</b><font color="#888888">(说明：默认CSS不能取消，如要取消，请设其它CSS为默认即可)</font>
		</td>
	</tr>
	<tr class="tdbg">
		<td align="center" colspan="2">
		<textarea id="CssContent" name="CssContent" rows="30" style="width:100%;word-break:break-word;"><%=Server.HtmlEnCode(CssContent)%></textarea>
		</td>
	</tr>
	<tr class="tdbg">
		<td align="right" colspan="2"><input type="button" onClick="" value="全屏编辑" />&nbsp;<input type="button" value="复制代码" onclick="CopyData('CssContent')" />&nbsp;&nbsp;<a href="javascript:admin_Size(-10,'CssContent')"><img src="images/minus.gif" unselectable="on" border="0"></a> <a href="javascript:admin_Size(10,'CssContent')"><img src="images/plus.gif" unselectable="on" border="0"></a>&nbsp;&nbsp;&nbsp;&nbsp;</td>
	</tr>
	<tr class="tdbg">
		<td width="100%" align="center" height="25" colspan="2">
			<input type="submit" name="submit" value="确 定" />
			<input type="hidden" name="CssID" value="<%=CssID%>" />
			<input type="button" name="" value="取 消" />
		</td>
	</tr>
	</form>
</table>
<script type="text/javascript">
CheckSel('ProjectID','<%=ProjectID%>');
</script>
<%
End Sub

Sub SaveCss()
	Dim CssName,CssIntro,IsDefault,CssContent,CssPicUrl
	CssName		= Trim(Request("CssName"))
	CssPicUrl	= Trim(Request("CssPicUrl"))
	CssIntro	= Trim(Request("CssIntro"))
	IsDefault	= Trim(Request("IsDefault"))
	CssContent	= Trim(Request("CssContent"))
	If CssName="" Or CssContent="" Then
		Cl.ShowErr("<br /><li>CSS名称和CSS内容不能为空！</li>")
	End If
	If Left(CssPicUrl,1)="/" Then CssPicUrl = Right(CssPicUrl,Len(CssPicUrl)-1)
	If Right(CssPicUrl,1)<>"/" Then CssPicUrl = CssPicUrl & "/"
	If IsDefault<>"1" Then IsDefault="0"
	IsDefault = CBool(IsDefault)
	If IsDefault=True Then
		Cl.Execute("update Cl_Css Set IsDefault=False where ProjectID="&ProjectID&"")
	End If
	If Action="saveeditcss" Then
		If CssID<1 Then
			Cl.ShowErr("<br /><li>请正确选择要编辑的CSS风格！</li>")
		End If
		Set Rs = Server.CreateObject("Adodb.recordset")
		SQL = "Select Top 1 * From Cl_Css Where CssID="&CssID&""
		OpenConn : Rs.Open SQL,Conn,1,3
		If Rs.Eof Then
			Rs.Close : Set Rs = Nothing
			Cl.ShowErr("<br /><li>请正确选择要编辑的CSS风格！</li>")
		End If
		If Rs("IsDefault")=True Then IsDefault=True
	Else
		Set Rs = Cl.Execute("Select Max(CssID) From Cl_Css")
		CssID = Rs(0)
		Rs.Close : Set Rs = Nothing
		if IsNull(CssID) or Not IsNumeric(CssID) then CssID=0
		CssID = CssID + 1
		Set Rs = Server.CreateObject("Adodb.recordset")
		SQL = "Select Top 1 * From Cl_Css"
		OpenConn : Rs.Open SQL,Conn,1,3
		Rs.AddNew
		Rs("CssID")	= CssID
	End If
	Rs("CssName")		= CssName
	Rs("CssPicUrl")		= CssPicUrl
	Rs("CssIntro")		= CssIntro
	Rs("IsDefault")		= IsDefault
	Rs("CssContent")	= CssContent
	Rs("ProjectID")		= ProjectID
	Rs("ProjectName")	= CurrentProjectName
	Rs.Update
	Rs.Close : Set Rs = Nothing
	Dim TempCssData
	TempCssData="/*==========CSS名称："&CssName&"==========*/"
	TempCssData=TempCssData & vbNewline & CssContent & vbNewline
	TempCssData=Replace(TempCssData,"{$csspicurl}",Cl.WebDir & CssPicUrl)
	TempCssData=Replace(TempCssData,"{$webdir}",Cl.WebDir)
	TempCssData=TempCssData & "/*--Powered by:"& ClCMS_Version & " " &_
				"CreateDate:"&Now&"--*/"
	MakeCss TempCssData,InstallDir & "Skins/Css/Css"&CssID&".Css"
	Call RemoveCssCache(CssID)
	If IsDefault=True Then Call RemoveDefaultCssCache()
	Call Cl.ShowSuc("恭喜您，操作成功。 <a href='Admin_Template.asp?ProjectID="&ProjectID&"&action=CssMain'><< <b>返回CSS管理</b></a>")
End Sub

Sub DelCss()
	If CssID<1 Then
		Cl.ShowErr("<br /><li>请正确选择要删除的CSS风格！</li>")
	End If
	Set Rs = Cl.Execute("select IsDefault From Cl_Css Where CssID="&CssID&"")
	If Rs.Eof Then
		Rs.Close : Set Rs = Nothing
		Cl.ShowErr("<br /><li>请正确选择要删除的CSS风格！</li>")
	End If
	Dim IsDefaultStr
	IsDefaultStr = Rs(0)
	Rs.Close : Set Rs = Nothing
	If IsDefaultStr=True Then
		Cl.ShowErr("<br /><li>默认CSS风格不能删除！</li>")
	End If
	Cl.Execute("delete From Cl_Css Where CssID="&CssID&"")
	Call Cl.ShowSuc("恭喜您，操作成功。 <a href='Admin_Template.asp?ProjectID="&ProjectID&"&action=CssMain'><< <b>返回CSS管理</b></a>")
End Sub

Sub SetDefaultCss()
	If CssID<1 Then
		Cl.ShowErr("<br /><li>请正确选择模板方案！</li>")
	End If
	Set Rs = Cl.Execute("select CssID,ProjectID From Cl_Css Where CssID="&CssID&"")
	If Rs.Eof Then
		Rs.Close : Set Rs = Nothing
		Cl.ShowErr("<br /><li>请正确选择模板方案！</li>")
	End If
	ProjectID	= Rs("ProjectID")
	Rs.Close : Set Rs = Nothing
	Cl.Execute("update Cl_Css Set IsDefault=False where ProjectID="&ProjectID&"")
	Cl.Execute("update Cl_Css Set IsDefault=True Where CssID="&CssID&"")
	If ProjectID=Cl.ProjectID Then
		Cl.Execute("update Cl_Setup Set DefaultCssID="&CssID&"")
		Cl.Load_Setup()
1234

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -