admin_template.asp

淘客网上商店网站程序 淘客网上商店网站程序 淘客网上商店网站程序

	End If
	Call RemoveDefaultCssCache()
	Call Cl.ShowSuc("恭喜您，操作成功。 <a href='"&ComeUrl&"'><< <b>返回上一步</b></a>")
End Sub

Sub CacheCss()
	Dim CssName,CssIntro,IsDefault,CssContent,CssPicUrl

	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,1
	If Rs.Eof Then
		Rs.Close : Set Rs = Nothing
		Cl.ShowErr("<br /><li>请正确选择要编辑的CSS风格！</li>")
	End If
	CssName		= Rs("CssName")
	CssPicUrl	= Rs("CssPicUrl")
	CssIntro	= Rs("CssIntro")
	CssContent	= Rs("CssContent")
	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)
	Call Cl.ShowSuc("恭喜您，操作成功。 <a href='"&ComeUrl&"'><< <b>返回上一步</b></a>")
End Sub
Rem CSS===========End

Sub CssMain()
%>
<table width="100%" border="0" cellspacing="1" cellpadding="0" align="center" class="border">
	<tr class="title">
		<td width="100%" align="center" height="25" colspan="6">CSS风格管理</td>
	</tr>
	<tr class="tdbg">
		<td width="6%" height="25" align="center"><strong>CssID</strong></td>
		<td width="20%" align="center"><strong>Css名称</strong></td>
		<td align="center"><strong>图片包路径</strong></td>
		<td width="20%" align="center"><strong>所属方案</strong></td>
		<td width="8%" align="center"><strong>默认</strong></td>
		<td width="20%" align="center"><strong>可用操用</strong></td>
	</tr>
<%
	SQL = "Select CssID,CssName,CssPicUrl,CssIntro,IsDefault,ProjectID,ProjectName From Cl_Css "
	If ProjectID>0 Then
		SQL = SQL & " Where ProjectID="&ProjectID&" "
	End If
	SQL = SQL & "Order By CssID Asc"
	Set Rs = Cl.Execute(SQL)
	Do While Not Rs.Eof
	%>
	<tr class="tdbg" onmouseout="this.className='tdbg'" onmouseover="this.className='tdbg2'">
		<td align="center"><%=Rs("CssID")%></td>
		<td align="center"><%=Rs("CssName")%></td>
		<td align="left"><%=Rs("CssPicUrl")%>&nbsp;</td>
		<td align="center"><%=Rs("ProjectName")%></td>
		<td align="center"><%
			if Rs("IsDefault") then
				Response.write "<font color='#ff0033'><strong>√</strong></font>"
			else
				Response.write "<font color='#A8A8A8'><strong>×</strong></font>"
			end if
		%></td>

		<td align="center">
		<a href="Admin_Template.asp?CssID=<%=rs("CssID")%>&ProjectID=<%=Rs("ProjectID")%>&action=EditCss">修改</a>
		<a href="Admin_Template.asp?CssID=<%=rs("CssID")%>&ProjectID=<%=Rs("ProjectID")%>&action=CacheCss">更新</a><%
		If Rs("IsDefault") Then%>
		<font color="#888888">删除</font>
		<font color="#888888">设为默认</font>
		<%else%>
		<a href="Admin_Template.asp?CssID=<%=rs("CssID")%>&ProjectID=<%=Rs("ProjectName")%>&action=DelCss" onclick="return confirm('注意：\n\n您正在准备删除名称为 <%=Rs("CssName")%> 的CSS风格！\n\n此操作不能恢复，您确要删除此CSS风格吗？');">删除</a>
		<a href="Admin_Template.asp?CssID=<%=rs("CssID")%>&ProjectID=<%=Rs("ProjectName")%>&action=SetDefaultCss">设为默认</a>
		<%End if%>
		</td>
	</tr>
	<%
		Rs.MoveNext
	Loop
%>
</table>
<%
End Sub

Sub ProjectMain()
%>
<table width="100%" border="0" cellspacing="1" cellpadding="0" align="center" class="border">
	<tr class="title">
		<td width="100%" align="center" height="25" colspan="5">模板方案管理</td>
	</tr>
	<tr class="tdbg">
		<td width="6%" height="25" align="center"><strong>方案ID</strong></td>
		<td width="20%" align="center"><strong>方案名称</strong></td>
		<td width="8%" align="center"><strong>默认</strong></td>
		<td align="center"><strong>方案说明</strong></td>
		<td width="35%" align="center"><strong>可用操用</strong></td>
	</tr>
<%
	SQL = "Select ProjectID,ProjectName,ProjectIntro,IsDefault From Cl_TemplateProject Order By ProjectID Asc"
	Set Rs = Cl.Execute(SQL)
	Do While Not Rs.Eof
	%>
	<tr class="tdbg" onmouseout="this.className='tdbg'" onmouseover="this.className='tdbg2'">
		<td align="center"><%=Rs("ProjectID")%></td>
		<td align="center"><%=Rs("ProjectName")%></td>
		<td align="center"><%
			if Rs("IsDefault") then
				Response.write "<font color='#ff0033'><strong>√</strong></font>"
			else
				Response.write "<font color='#A8A8A8'><strong>×</strong></font>"
			end if
		%></td>
		<td align="center"><%=Rs("ProjectIntro")%>&nbsp;</td>
		<td align="center">
		<a href="Admin_Template.asp?ProjectID=<%=rs("ProjectID")%>">管理下属模板</a>
		<a href="Admin_Template.asp?ProjectID=<%=rs("ProjectID")%>&action=CSSMain">管理下属CSS</a>
		<a href="Admin_Template.asp?ProjectID=<%=rs("ProjectID")%>&action=EditProject">修改</a><%
		If Rs("IsDefault") Then%>
		<font color="#888888">删除</font>
		<font color="#888888">设为默认</font>
		<%else%>
		<a href="Admin_Template.asp?ProjectID=<%=rs("ProjectID")%>&action=DelProject" onclick="return confirm('注意：\n\n删除方案的同时，将会删除此方案下的模板及CSS风格！\n\n此操作不能恢复，您确要删除此方案吗？');">删除</a>
		<a href="Admin_Template.asp?ProjectID=<%=rs("ProjectID")%>&action=SetDefaultProject">设为默认</a>
		<%End if%>
		</td>
	</tr>
	<%
		Rs.MoveNext
	Loop
%>
</table>
<%
End Sub

Sub TemplatesMain()
	Dim NameStr,IDStr,i
	IDStr	= Split(TempLateModuleID,",")
	NameStr = Split(TempLateModuleName,",")
%>
<table width="100%" border="0" cellspacing="1" cellpadding="0" align="center" class="border">
	<tr class="title">
		<td width="100%" align="center" height="25" colspan="6">
		<%For i=0 to Ubound(NameStr)
		%>&nbsp;<a href="Admin_Template.asp?ProjectID=<%=ProjectID%>&ModuleID=<%=IDStr(i)%>" style="color:<%
		if ModuleID=Clng(IDStr(i)) then
			Response.write "#ff0033;"
		else
			Response.write "#ffffff;"
		end if
		%>"><%=NameStr(i)%>模块</a>&nbsp;<%
		Next
		%></td>
	</tr>
	<tr class="tdbg">
		<td width="6%" height="25" align="center"><strong>模板ID</strong></td>
		<td width="20%" align="center"><strong>模板类型(ID)</strong></td>
		<td align="center"><strong>模板名称</strong></td>
		<td width="12%" align="center"><strong>所属频道</strong></td>
		<td width="8%" align="center"><strong>默认</strong></td>
		<td width="28%" align="center"><strong>可用操用</strong></td>
	</tr>
<%
	Dim Rs,SQL
	SQL = "Select TemplateID,ModuleID,ChannelID,TemplateName,TemplateIntro,IsDefault,TypeID,ProjectID From Cl_Template Where Deleted=False and ModuleID="&ModuleID&" and ProjectID="&ProjectID&" Order By TypeID Asc"
	Set Rs = Cl.Execute(SQL)
	Do While Not Rs.Eof
		Response.write "<tr class=""tdbg"" onmouseout=""this.className='tdbg'"" onmouseover=""this.className='tdbg2'"">"
		Response.write "<td align=""center"">"&Rs("TemplateID")&"</td>"
		Response.write "<td align=""left"">[<font color=""#0000ff"">"&Rs("TypeID")&"</font>] "&GetTemplateTypeName(Rs("ModuleID"),Rs("TypeID"))&"</td>"
		Response.write "<td align=""center"">"&Rs("TemplateName")&"&nbsp;</td>"
		Response.write "<td align=""center"">"
		If Rs("ChannelID")=0 Then
			Response.write("未指定(公共)")
		Else
			Response.write(Application(Cl.CacheName & "_channellist").DocumentElement.SelectSingleNode("channel[@channelid="&Rs("ChannelID")&"]/@channelname").text)
		End if
		Response.write "</td>"
		Response.write "<td align=""center"">"
		if Rs("IsDefault") then
			Response.write "<font color='#ff0033'><strong>√</strong></font>"
		else
			Response.write "<font color='#A8A8A8'><strong>×</strong></font>"
		end if
		Response.write "</td>"
		Response.write "<td align=""center"">"
		Response.write "<a href=""Admin_Template.asp?ProjectID="&ProjectID&"&ModuleID="&Rs("ModuleID")&"&Action=AddTemplate2&TypeID="&Rs("TypeID")&""">添加</a>&nbsp;"
		Response.write "<a href=""Admin_Template.asp?ProjectID="&ProjectID&"&TemplateID="&Rs("TemplateID")&"&action=EditTemplate"" class=""blue"">修改</a>&nbsp;"
		Response.write "<a href=""Admin_Template.asp?ProjectID="&ProjectID&"&TemplateID="&Rs("TemplateID")&"&action=CopyTemplate"">复制</a>&nbsp;"
		Response.write "<a href=""Admin_Template.asp?ProjectID="&ProjectID&"&TemplateID="&Rs("TemplateID")&"&action=CacheTemplate"">更新</a>&nbsp;"
		If Rs("IsDefault")=True And Rs("ChannelID")=0 Then
		Response.write "<font color=""#888888"">删除</font>&nbsp;"
		Else
		Response.write "<a href=""Admin_Template.asp?ProjectID="&ProjectID&"&TemplateID="&Rs("TemplateID")&"&action=DelTemplate"" onclick=""return confirm('注意：\n\n您正在准备删除名称为 "&Rs("TemplateName")&" 的模版！\n\n此操作不能恢复，您确要删除此模版吗？');"">删除</a>&nbsp;"
		End if
		If Rs("IsDefault")=True Then
		Response.write "<font color=""#888888"">设为默认</font>&nbsp;"
		Else
		Response.write "<a href=""Admin_Template.asp?ProjectID="&ProjectID&"&TemplateID="&Rs("TemplateID")&"&action=SetDefaultTemplate"">设为默认</a>&nbsp;"
		End if
		Response.write "</td>"
		Response.write "</tr>"
		Rs.MoveNext
	Loop
%>
</table>
<%
	IDStr = Empty : NameStr = Empty
End Sub


Rem Project===========Begin
Sub ProjectInfo()
	Dim ProjectName,ProjectIntro,IsDefault
	IsDefault	= False
	If Action="editproject" Then
		If ProjectID<1 Then
			Cl.ShowErr("<br /><li>请正确选择要编辑的模板方案！</li>")
		End if
		Set Rs = Cl.Execute("Select ProjectID,ProjectName,ProjectIntro,IsDefault From Cl_TemplateProject Where ProjectID="&ProjectID&"")
		If Rs.Eof Then
			Rs.Close : Set Rs = Nothing
			Cl.ShowErr("<br /><li>请正确选择要编辑的模板方案！</li>")
		End If
		ProjectName = Rs(1)
		ProjectIntro= Rs(2)
		IsDefault	= Rs(3)
		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">模板方案编辑</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" size="30" name="ProjectName" value="<%=ProjectName%>" /> <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"><textarea name="ProjectIntro" id="ProjectIntro" rows="5" cols="50"><%=ProjectIntro%></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="checkbox" name="IsDefault" id="IsDefault" value="1" <%If IsDefault=True Then %>checked disabled<%End if%>/> <font color="#888888">说明：默认方案不能取消，如要取消，请设其它方案为默认即可</font></td>
	</tr>
	<tr class="tdbg">
		<td width="100%" align="center" height="25" colspan="2">
			<input type="submit" name="submit" value="确 定" />
			<input type="hidden" name="ProjectID" value="<%=ProjectID%>" />
			<input type="button" name="" value="取 消" />
		</td>
	</tr>
	</form>
</table>
<%
End Sub
Sub SaveProject()
	Dim ProjectName,ProjectIntro,IsDefault
	ProjectName	= Trim(Request("ProjectName"))
	ProjectIntro= Trim(Request("ProjectIntro"))
	IsDefault	= Trim(Request("IsDefault"))
	If ProjectName="" Then
		Cl.ShowErr("<br /><li>请输入方案名称！</li>")
	End If
	If IsDefault<>"1" Then IsDefault="0"
	IsDefault = CBool(IsDefault)
	If Action="saveeditproject" Then
		If ProjectID<1 Then
			Cl.ShowErr("<br /><li>请正确选择要编辑的模板方案！</li>")
		End If
		SQL = "update Cl_TemplateProject Set ProjectName='"&Cl.CheckStr(ProjectName)&"',ProjectIntro='"&Cl.CheckStr(ProjectIntro)&"'"
		If IsDefault=True Then
			Cl.Execute("update Cl_TemplateProject Set IsDefault=False")
			SQL = SQL & ",IsDefault=True "
		End If
		SQL = SQL & " Where ProjectID="&ProjectID&""
		Cl.Execute(SQL)
		Cl.Execute("update Cl_Template Set ProjectName='"&Cl.CheckStr(ProjectName)&"' Where ProjectID="&ProjectID&"")
		Cl.Execute("update Cl_Css Set ProjectName='"&Cl.CheckStr(ProjectName)&"' Where ProjectID="&ProjectID&"")
	Else
		If IsDefault=True Then
			Cl.Execute("update Cl_TemplateProject Set IsDefault=False")
		End If
		Set Rs = Cl.Execute("Select Max(ProjectID) From Cl_TemplateProject")
		ProjectID = Rs(0)
		Rs.Close : Set Rs = Nothing
		if IsNull(ProjectID) or Not IsNumeric(ProjectID) then ProjectID=0
		ProjectID = ProjectID + 1