📄 admin_template.asp
字号:
</tr>
<%If InStr(TemplateContent,"@@@")>0 Then
Dim ContentStr,n
ContentStr = Split(TemplateContent,"@@@")
For n=0 To UBound(ContentStr)
%>
<tr class="tdbg">
<td width="20%" align="right" valign="top" height="25"><br /><b>模板分块(<%=n+1%>)</b><br />
<input type="button" value="复制代码" onclick="CopyData('TemplateContent<%=n%>')" /><br /><br /><br />
<a href="javascript:admin_Size(-10,'TemplateContent<%=n%>')"><img src="images/minus.gif" unselectable="on" border="0"></a> <a href="javascript:admin_Size(10,'TemplateContent<%=n%>')"><img src="images/plus.gif" unselectable="on" border="0"></a>
</td>
<td align="center" >
<textarea id="TemplateContent<%=n%>" name="TemplateContent" rows="10" style="width:100%"><%=Server.HtmlEnCode(ContentStr(n))%></textarea>
</td>
</tr>
<%
Next
ContentStr = Empty
Else %>
<tr class="tdbg">
<td align="center" colspan="2">
<textarea id="TemplateContent" name="TemplateContent" rows="30" style="width:100%;table-layout:fixed;word-break:break-all;"><%=Server.HtmlEnCode(TemplateContent)%></textarea>
</td>
</tr>
<tr class="tdbg">
<td align="right" colspan="2"><input type="button" onClick="FullScreenEdit(<%=TemplateID%>)" value="全屏编辑" /> <input type="button" value="复制代码" onclick="CopyData('TemplateContent')" /> <a href="javascript:admin_Size(-10,'TemplateContent')"><img src="images/minus.gif" unselectable="on" border="0"></a> <a href="javascript:admin_Size(10,'TemplateContent')"><img src="images/plus.gif" unselectable="on" border="0"></a> </td>
<!--<a href="Admin_Templates_Editor.asp?TemplateID=<%=TemplateID%>" target="_blank"><img src="images/EditPic.gif" title="点击编辑！" align="absmiddle" border="0" /></a>-->
</tr>
<%End If %>
<tr class="tdbg">
<td width="100%" align="center" height="25" colspan="2">
<input type="submit" name="Save" value="确 定" />
<input type="hidden" name="TemplateID" value="<%=TemplateID%>" />
<input type="hidden" name="ModuleID" value="<%=ModuleID%>" />
<input type="hidden" name="ProjectID" value="<%=ProjectID%>" />
<input type="button" name="Cancel" value="取 消" />
</td>
</tr>
</form>
</table>
<script type="text/javascript">
<!--
function FullScreenEdit(tID)
{
window.open('Admin_Templates_Editor.asp?TemplateID='+tID, 'FullScreenEdit', 'toolbar=no,location=no,directories=no,status=yes,menubar=no,scrollbars=yes,resizable=yes,fullscreen=yes');
}
//-->
</script>
<%
End Sub
Sub SaveTemplate()
Dim TemplateName,TemplateIntro,TemplateContent,IsDefault,TypeID
Dim TemplateStr,n,IsDefaultOld,ChannelIDOld
n=0
TemplateName = Trim(Request.Form("TemplateName"))
TemplateIntro = Trim(Request.Form("TemplateIntro"))
IsDefault = Trim(Request.Form("IsDefault"))
TypeID = Trim(Request.Form("TypeID"))
For Each TemplateStr In Request.Form("TemplateContent")
If TemplateStr<>"aspoodel" Then
n=n+1
If n>1 Then TemplateContent = TemplateContent & "@@@" & VbCrlf
TemplateStr = Replace(TemplateStr,"@@@","")
TemplateContent = TemplateContent & TemplateStr
End if
Next
If TemplateName="" Then
Cl.ShowErr("<br /><li>请输入模板名称！</li>")
End If
If IsDefault<>"1" Then IsDefault="0"
IsDefault = CBool(IsDefault)
TemplateContent = Replace(TemplateContent,"{%","{$")
TemplateContent = Replace(TemplateContent,"%}","}")
TemplateContent = Replace(TemplateContent,"{$articleid}","{$infoid}")
TemplateContent = Replace(TemplateContent,"{$softid}","{$infoid}")
TemplateContent = Replace(TemplateContent,"{$photoid}","{$infoid}")
TemplateContent = Replace(TemplateContent,"{$movieid}","{$infoid}")
TemplateContent = Replace(TemplateContent,"{$productid}","{$infoid}")
If Action="saveedittemplate" then
If TemplateID<1 Then
Cl.ShowErr("<br /><li>请正确选择要编辑的模板！</li>")
End if
Set Rs = Cl.Execute("Select TemplateID,ModuleID,ChannelID,TemplateName,TemplateIntro,TemplateContent,IsDefault,TypeID,ProjectID From Cl_Template Where TemplateID="&TemplateID&"")
If Rs.Eof Then
Rs.Close : Set Rs = Nothing
Cl.ShowErr("<br /><li>请正确选择要编辑的模板！</li>")
End If
ModuleID = Rs(1)
ChannelIDOld= Rs(2)
'TemplateContent= Rs(5)
'IsDefault = Rs(6)
IsDefaultOld= Rs(6)
TypeID = Rs(7)
ProjectID = Rs(8)
Rs.Close : Set Rs = Nothing
SQL = "update Cl_Template Set ChannelID="&ChannelID&",TemplateName='"&Cl.CheckStr(TemplateName)&"',TemplateIntro='"&Cl.CheckStr(TemplateIntro)&"',TemplateContent='"&Cl.CheckStr(TemplateContent)&"'"
If IsDefault=True Or (ChannelID<>ChannelIDOld And IsDefaultOld=True) Then
Cl.Execute("update Cl_Template Set IsDefault=False Where ModuleID="&ModuleID&" and ChannelID="&ChannelID&" and TypeID="&TypeID&" and ProjectID="&ProjectID&"")
SQL = SQL & ",IsDefault=True "
End If
SQL = SQL & " Where TemplateID="&TemplateID&""
Cl.Execute(SQL)
Call RemoveTemplateCache(TemplateID)
If IsDefault=True Or IsDefaultOld=True Then Call RemoveDefaultTemplateCache(ProjectID)
Else
If IsDefault=True Then
Cl.Execute("update Cl_Template Set IsDefault=False Where ModuleID="&ModuleID&" and ChannelID="&ChannelID&" and TypeID="&TypeID&" and ProjectID="&ProjectID&"")
End If
'Set Rs = Cl.Execute("Select Max(TemplateID) From Cl_Template")
'TemplateID = Rs(0)
'Rs.Close : Set Rs = Nothing
'if IsNull(TemplateID) or Not IsNumeric(TemplateID) then TemplateID=0
'TemplateID = TemplateID + 1
Set Rs = Server.CreateObject("adodb.recordset")
SQL = "select top 1 * from Cl_Template"
OpenConn : Rs.Open SQL , Conn,1,3
Rs.AddNew
'Rs("TemplateID") = TemplateID
Rs("ModuleID") = ModuleID
Rs("ChannelID") = ChannelID
Rs("TemplateName") = TemplateName
Rs("TemplateIntro") = TemplateIntro
Rs("TemplateContent")= TemplateContent
Rs("IsDefault") = IsDefault
Rs("TypeID") = TypeID
Rs("ProjectID") = ProjectID
Rs("ProjectName") = CurrentProjectName
Rs.Update
Rs.Close : Set Rs = Nothing
End If
Call Cl.ShowSuc("恭喜您，操作成功。 <a href='Admin_Template.asp?ProjectID="&ProjectID&"&ModuleID="&ModuleID&"'><< <b>返回模版列表</b></a>")
End Sub
Sub DelTemplate()
If TemplateID<1 Then
Cl.ShowErr("<br /><li>请正确选择要删除的模板！</li>")
End If
Set Rs = Cl.Execute("select ModuleID,ChannelID,TypeID,ProjectID,IsDefault From Cl_Template Where TemplateID="&TemplateID&"")
If Rs.Eof Then
Rs.Close : Set Rs = Nothing
Cl.ShowErr("<br /><li>请正确选择要删除的模板！</li>")
End If
Dim IsDefaultStr,ChannelIDStr,TypeID
ModuleID = Rs(0)
ChannelIDStr = Rs(1)
TypeID = Rs(2)
ProjectID = Rs(3)
IsDefaultStr = Rs(4)
Rs.Close : Set Rs = Nothing
If IsDefaultStr=True And ChannelIDStr=0 Then
Cl.ShowErr("<br /><li>默认公共模板不能删除！</li>")
End If
'删除模板
'Cl.Execute("update Cl_Template Set Deleted=True Where TemplateID="&TemplateID&"")
Cl.Execute("Delete From Cl_Template Where TemplateID="&TemplateID&"")
Call RemoveTemplateCache(TemplateID)
If IsDefaultStr=True then
Call RemoveDefaultTemplateCache(ProjectID)
End if
Call Cl.ShowSuc("恭喜您，操作成功。 <a href='"&ComeUrl&"'><< <b>返回上一步</b></a>")
End Sub
Sub SetDefaultTemplate()
Dim TypeID
If TemplateID<1 Then
Cl.ShowErr("<br /><li>请正确选择模板！</li>")
End If
Set Rs = Cl.Execute("select TemplateID,ModuleID,ChannelID,TypeID,ProjectID From Cl_Template Where TemplateID="&TemplateID&"")
If Rs.Eof Then
Rs.Close : Set Rs = Nothing
Cl.ShowErr("<br /><li>请正确选择模板！</li>")
End If
ModuleID = Rs(1)
ChannelID = Rs(2)
TypeID = Rs(3)
ProjectID = Rs(4)
Rs.Close : Set Rs = Nothing
Cl.Execute("update Cl_Template Set IsDefault=False Where ModuleID="&ModuleID&" and ChannelID="&ChannelID&" and TypeID="&TypeID&" and ProjectID="&ProjectID&"")
Cl.Execute("update Cl_Template Set IsDefault=True Where TemplateID="&TemplateID&"")
Call RemoveDefaultTemplateCache(ProjectID)
Application.Lock
Application.Contents.Remove(Cl.CacheName & "_defaulttemplateidlist_" & ProjectID)
Application.UnLock
Call Cl.ShowSuc("恭喜您，操作成功。 <a href='"&ComeUrl&"'><< <b>返回上一步</b></a>")
End Sub
Sub CacheTemplate()
Dim TypeID,IsDefaultStr
If TemplateID<1 Then
Cl.ShowErr("<br /><li>请正确选择模板！</li>")
End If
Set Rs = Cl.Execute("select TemplateID,ModuleID,ChannelID,TypeID,ProjectID,IsDefault From Cl_Template Where TemplateID="&TemplateID&"")
If Rs.Eof Then
Rs.Close : Set Rs = Nothing
Cl.ShowErr("<br /><li>请正确选择模板！</li>")
End If
ModuleID = Rs(1)
ChannelID = Rs(2)
TypeID = Rs(3)
ProjectID = Rs(4)
IsDefaultStr= Rs(5)
Rs.Close : Set Rs = Nothing
Call RemoveTemplateCache(TemplateID)
If IsDefaultStr=True then
Call RemoveDefaultTemplateCache(ProjectID)
End if
Call Cl.ShowSuc("恭喜您，操作成功。 <a href='"&ComeUrl&"'><< <b>返回上一步</b></a>")
End Sub
Rem Template==========End
Sub MakeCss(MakeData,MakeFileName)
Err=0
Dim Fso,Make
On Error Resume Next
Set Fso = CreateObject(Trim(Cl.Web_Info(13)))
Set Make = Fso.CreateTextFile(Server.MapPath(MakeFileName), True)
Make.Write MakeData
Set Make = Nothing
Set Fso = Nothing
Err=0
End Sub
Function GetTemplateTypeName(sModuleID,sType)
Dim TempStr
TempStr = Split(GetTemplateType(sModuleID),"|")
If sType > UBound(TempStr) Or sType<1 Then
GetTemplateTypeName = "未知类型"
End If
GetTemplateTypeName = TempStr(sType-1)
TempStr = Empty
End Function
Function GetTemplateType(sModuleID)
Select Case sModuleID
Case -1 : GetTemplateType = TemplateType_Public
Case -2 : GetTemplateType = TemplateType_User
Case 0 : GetTemplateType = TemplateType_Index
Case 1 : GetTemplateType = TemplateType_Article
Case 2 : GetTemplateType = TemplateType_Soft
Case 3 : GetTemplateType = TemplateType_Photo
Case 4 : GetTemplateType = TemplateType_Movie
Case 5 : GetTemplateType = TemplateType_Product
Case 6 : GetTemplateType = TemplateType_Guest
Case Else : Exit Function
End Select
End Function
Sub RemoveTemplateCache(sTemplateID)
Application.Lock
Application.Contents.Remove(LCase(Cl.CacheName & "_Template_"&sTemplateID))
Application.unLock
End Sub
Sub RemoveCssCache(sCssID)
Application.Lock
Application.Contents.Remove(LCase(Cl.CacheName & "_Css_"&sCssID))
Application.unLock
End Sub
Sub RemoveDefaultTemplateCache(sProjectID)
Application.Lock
Application.Contents.Remove(LCase(Cl.CacheName & "_defaulttemplateid_" & sProjectID))
Application.unLock
End Sub
Sub RemoveDefaultCssCache()
Application.Lock
Application.Contents.Remove(LCase(Cl.CacheName & "_defaultcssid"))
Application.unLock
End Sub
Function ConvertCbool(sType)
If sType=True Then
ConvertCbool = 1
Else
ConvertCbool = 0
End If
End Function
'<!--
'┌───────────────────────────────────────────────────────┐
'│ │
'│ CreateLive CMS Version 4.0 │
'│ Powered by Aspoo.CN │
'│ │
'│ 邮箱: support@aspoo.cn Info@aspoo.cn │
'│ ＱＱ: 3315263 596197794 │
'│ 网站: www.aspoo.cn www.aspoo.com │
'│ 论坛: bbs.aspoo.cn bbs.aspoo.com │
'│ │
'│ Copyright (C) 2005-2007 Aspoo.CN All Rights Reserved.│
'└───────────────────────────────────────────────────────┘
'-->
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -