edittemplate.asp

来自「top-cms内容管理系统」· ASP 代码 · 共 302 行
ASP
302 行
<%
'###########################################################################################
'*  程序名称: Top-CMS
'*---------------------------------------------------------------------------------------
'*  系统版本: 1.0 0215
'*  版权所有: www.Net-Develop.com
'*  程序设计: 江南行客
'*  联系方式:
'*            OICQ：2503086
'*            EMAIL：net-oa@sohu.com
'*  网站地址: 
'*            http://www.net-develop.com  
'*            http://www.top-cms.com   
'*---------------------------------------------------------------------------------------
'*  Copyright 2004 www.net-develop.com - All Rights Reserved.
'###########################################################################################
%>
<!--#include file="../common/common.asp" -->
<html>
<head>
<title>:::WWW.NET-DEVELOP.COM:::</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="../css/style.css">
<script language="JavaScript">
<!--
function MM_jumpMenu(targ,selObj,restore){ //v3.0
	if (selObj.options[selObj.selectedIndex].value!=""){
	  eval(targ+".location='edittemplate.asp?NX="+selObj.options[selObj.selectedIndex].value+"'");
	  if (restore) selObj.selectedIndex=0;
  }
}
function MM_goToURL(ActionUrl) { 
		myform.action=ActionUrl;
		myform.submit();
}
//-->
</script>
</head>

<body bgcolor="#FFFFFF" text="#000000">
<%

Set objCMS = Server.CreateObject("TopCMS.EditTemplate")
if objCMS.ChkAdminPower then
	tID=objCMS.ChkString(replace(Request("tID")," ",""),"U")
	nT=objCMS.ChkString(Request("nT"),"U")
	P=objCMS.ChkString(Request("P"),"U")
	t=objCMS.ChkString(Request("t"),"U")
	NX=objCMS.ChkString(Request("NX"),"U")
	X=objCMS.ChkString(Request("X"),"U")
	SystemI_Init
	objCMS.OpenDB()
	
	If Not objCMS.CheckAdminField("Template") Then
        objCMS.OutInfo "对不起，你不具备管理模板的权限", ""
        Response.End
    End If
	
	if UCase(t)="DEL" and tID<>"" then objCMS.DelTemplate(tID)
	
	If Request.ServerVariables("REQUEST_METHOD")="POST" and X<>"T" Then
		objCMS.SaveTemplate tID,nT
		
	else
		if nT="" then
			if NX<>"" then
		%>
			
<table width="100%" border="1" cellspacing="0" cellpadding="2" align="center" bordercolor="#999999">
  <form name="myform" method="post">
    <tr> 
      <td width="84%" background="../Images/default_nav.gif"><font color="#FFFFFF">信息模板管理 
        <%
		response.write "[模板所属："
		Select Case(Lcase(NX))
			Case "index"
				response.write "首页模板"
			Case "cat"
				response.write "栏目页模板"
			Case "sub"
				response.write "类别页模板"
			Case "shtml"
				response.write "信息页模板"
			Case "pic"
				response.write "图片页模板"
			Case "classindex"
				response.write "专题索引页模板"
			Case "classother"
				response.write "专题具体页模板"
			Case "search"
				response.write "搜索页模板"
			Case "register"
				response.write "注册页模板"
			Case "poll"
				response.write "调查页模板"
			Case "comment"
				response.write "评论页模板"
			Case "commend"
				response.write "推荐页模板"
			Case "link"
				response.write "相关链接页模板"
			Case "call"
				response.write "调用页模板"
		End Select
		response.write "]"
	%>
        </font> </td>
      <td width="16%" align="center" background="../Images/default_nav.gif"><b><font color="#666666">操作</font></b><%if Lcase(NX)<>"call" then%><a href="edittemplate.asp?NX=<%=NX%>&nT=ADD"><img src="../images/add.gif" hspace=2 border=0 align="absmiddle" alt="添加新模板"></a><%end if%><a href="javascript:MM_goToURL('edittemplate.asp?NX=<%=NX%>&nT=edit&P=<%=P%>&X=T');"><img src="../images/edit.gif" hspace=2 border=0 alt="编辑所选模板" align="absmiddle"></a><%if Lcase(NX)<>"call" then%><img src="../images/del.gif" hspace=2 border=0 alt="删除所选模板" onClick="if (confirm('你确定要删除所选的模板吗？\n删除后不能恢复！')){MM_goToURL('edittemplate.asp?NX=<%=NX%>&t=del&P=<%=P%>&X=T');}" style="cursor:hand;" align="absmiddle"> <%end if%>
      </td>
    </tr>
    <%

			
			dbSql = "SELECT tID,tName,tFileName,tType FROM db_Template where tType='" & NX & "' Order By tID"

			set dbRs=objCMS.MyRs(dbSql,1,1,0)
			If dbRs.EOF Then
				Response.Write "<tr bgcolor=""#EEEEEE""><td align=""center"" colspan=""2"">[目前还没有此类模板]</td></tr>"
			else
				objCMS.PagingMain dbRs,16
				nPage=objCMS.PNum
				Do While not dbRs.eof and nPage>0
					if nPage mod 2 =0 then nBGcolor="#EEEEEE" else nBGcolor="#FFFFFF"
					tID=Trim(dbRs("tID"))
					tName=Trim(dbRs("tName"))
					tFileName=Trim(dbRs("tFileName"))
					tType=Trim(dbRs("tType"))

					%>
    <tr bgcolor="<%= nBGcolor %>"> 
      <td colspan="2"> 
        <input type="checkbox" name="tID" value="<%=tID%>">
        <a href="<%=AbsWebPath%>template/template@<%= Lcase(tType)%>/<%=tFileName%>/index.html" target="_blank"><%= tName %></a>&nbsp; 
      </td>
    </tr>
    <%
					dbRs.MoveNext
					nPage=nPage-1
				Loop
				
			end if
			dbRs.close
			set dbRs=nothing
			%>
  </form>
</table>
			<div align="right">
			<%objCMS.DisplayNavigation("NX=" & NX & "&")%>
			</div>
			<%
			else
			%>
			<table width="100%" border="1" cellspacing="0" cellpadding="2" align="center" bordercolor="#999999">
  <tr> 
    <td colspan="3" background="../Images/default_nav.gif"><font color="#FFFFFF">信息模板管理（请选择你要管理的模板类） </font> </td>
  </tr>
  <tr bgcolor="#EEEEEE"> 
    <td align="center">
  <select name="menu1" onChange="MM_jumpMenu('self',this,0)">
  	 <option value="">请选择...</option>
    <option value="index">首页模板</option>
	<option value="cat">栏目页模板</option>
	<option value="sub">类别页模板</option>
	<option value="shtml">信息页模板</option>
	<option value="pic">图片页模板</option>
	<option value="classindex">专题索引页模板</option>
	<option value="classother">专题具体页模板</option>
	<option value="search">搜索页模板</option>
	<option value="register">注册页模板 </option>
	<option value="poll">调查页模板</option>
	<option value="comment">评论页模板</option>
	<option value="commend">推荐页模板</option>
	<option value="link">相关链接页模板</option>
	<option value="call">调用页模板</option>
	
  </select>
</td>
  </tr>
 
  <tr> 
    <td colspan="3" height="1" bgcolor="#CCCCCC"></td>
  </tr>
</table>
			<%
			end if
		
		else
		'修改/添加信息模板
	
			if UCase(nT)="EDIT" then
			'判定是否是编辑信息模板并获取信息模板信息 
				if tID="" then 
					objCMS.OutInfo "[请选择你要编辑的模板]",""
					response.end
				elseif instr(tID,",")>0 then
					objCMS.OutInfo "[一次只能编辑一个模板]",""
					response.end
				else
					objCMS.EditTemplate(tID)
					NX=objCMS.tType
				end if
			end if
			%>
			<form name="form1" method="post" action="edittemplate.asp">
			
  <table width="100%" border="1" bordercolor="#999999" cellspacing="0" cellpadding="2" align="center">
    <tr>
      <td colspan="2" background="../Images/default_nav.gif"><font color="#FFFFFF">信息模板管理 </font></td>
    </tr>
    
    <tr bgcolor="#EEEEEE">
      <td width="100" align="right">模板所属:</td>
      <td>
	  <%
 		Select Case(Lcase(NX))
			Case "index"
				response.write "首页模板"
			Case "cat"
				response.write "栏目页模板"
			Case "sub"
				response.write "类别页模板"
			Case "shtml"
				response.write "信息页模板"
			Case "pic"
				response.write "图片页模板"
			Case "classindex"
				response.write "专题索引页模板"
			Case "classother"
				response.write "专题具体页模板"
			Case "search"
				response.write "搜索页模板"
			Case "register"
				response.write "注册页模板"
			Case "poll"
				response.write "调查页模板"
			Case "comment"
				response.write "评论页模板"
			Case "commend"
				response.write "推荐页模板"
			Case "link"
				response.write "相关链接页模板"
			Case "call"
				response.write "调用页模板"
		End Select
		response.write "<input type=""hidden"" name=""tType"" value=""" & objCMS.tType & """>"
		%>
       
      </td>
    </tr>
    <tr>
      <td width="100" align="right">模板名称:</td>
      <td> 
        <input type="text" name="tName" maxlength="50" value="<%= objCMS.tName %>" <%if Lcase(NX)="call" then response.write " readonly"%>>
        (如：蓝色幻想)</td>
    </tr>
    <tr bgcolor="#EEEEEE">
      <td width="100" align="right">模板文件夹名称:</td>
      <td> 
        <input type="text" name="tFIleName" maxlength="50" value="<%= objCMS.tFileName %>" <%if uCase(nT)="EDIT" then response.write " readonly"%>>
         </td>
    </tr>
    <tr>
      <td width="100" align="right">内容编辑模式:</td>
      <td> 
        <input type="radio" name="E" value="0" checked onclick="et1.style.display='none';">
        非在线编辑 
        <input type="radio" name="E" value="1" onclick="et1.style.display='inline';">
        在线编辑 <br>
        <font color=#666666>(注意：前者不保存模板内容，后者在线修改模板内容，建议采用非在线模式)</font></td>
    </tr>
    <tr id="et1" style="display:none;" bgcolor="#EEEEEE">
      <td width="100" align="right">模板内容:</td>
      <td>
	  <%
		objCMS.TemplateContent(NX)
		%> 
      </td>
    </tr>
    <tr bgcolor="#CCCCCC">
      <td align="center" colspan="2"> 
        <input type="hidden" name="tID" value="<%= tID %>">
        <input type="hidden" name="P" value="<%= P %>">
		<input type="hidden" name="NX" value="<%= NX %>">
		<input type="hidden" name="nT" value="<%=UCase(nT)%>">
        <input type="submit" name="S1" value=" 提交 ">
        <input type="button" name="S2" value=" 取消 " onclick="history.back();">
      </td>
    </tr>
  </table>
</form>
		<%
		end if
	end if
	
objCMS.CloseDB	
else
	objCMS.OutInfo "对不起，您还没有登录，请先登录","Login"
end if
set objCMS=nothing
%>
</body>
</html>
edittemplate.asp - 源码说明

本页面展示了「top-cms内容管理系统」中的 edittemplate.asp 源码文件，采用 ASP 编程语言编写，共 302 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。
虫虫开发者社区收录了大量与CMS相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。
⌨️ 快捷键说明

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