📄 admin_templetgo.asp

📁 新闻发布系统
💻 ASP
📖 第 1 页 / 共 2 页
字号:
12 下一页
<!--#include file = conn.asp--> 
<!--#include file = admin_CheckMana.asp-->
<!--#include file = session.asp-->
<title>Cooin图文系统</title>
<LINK href=css/css.css rel=stylesheet>
<SCRIPT language=JavaScript src="Inc/addNews.js"></SCRIPT>
<body>
<%
'=========================================================
'产品目录：风讯产品N系列
'软件名称：风讯图文信息系统
'当前版本：2003.8.0
'=========================================================
'Copyright (C) 2002-2003 cooin.com. All rights reserved.
'网站: http://www.cooin.com
'程序制作：轻风云(QQ:655071)  skeen@cooin.com,skeen@263.net,skeen@sohu.com  
'论坛支持：风讯论坛(http://www.cooin.com/bbs)
'=========================================================
%>
<%
  o=request.querystring("o")
  Set FileObject=Server.Createobject("Scripting.FileSystemObject")
  errormsg=""
  select case o
'========================================添加新闻模板开始
  case "AddTempletNews"
  TempletName=replace(request.form("TempletName"),"'","''")	  
  TempletContent="<html><head><title>[filetitle]</title><meta http-equiv=""Content-Type"" content=""text/html; charset=gb2312""></head><body><table width=""770"" height=""290"" border=""0"" align=""center"" cellpadding=""0"" cellspacing=""1"" bgcolor=""#D7D7D7""> <tr>    <td width=""603"" valign=""top"" bgcolor=""#FFFFFF""><p align=""center""><strong>[Title]</strong></p>      <hr size=""1"" noshade color=erd>      <p>[content]</p>      <p>&nbsp;</p>      <p>&nbsp;</p>      <hr size=""1"" noshade color=erd>      [review]       <p>&nbsp;</p></td>    <td width=""167"" valign=""top"" bgcolor=""#E3E3E3""><div align=""center"">[newssearch]</div></td>  </tr></table></body></html>"
	  set rs = server.createobject("adodb.recordset")
      rs.source = "select * from Templet where TempletType='News' and TempletName = '"&TempletName&"'"
      rs.open rs.source,conn,1,1
        if TempletName = "" then
        Response.write"<script>alert(""模板名称不能为空！"");location.href=""admin_TempLetManage.asp"";</script>"
        Response.end
        end if
        if not rs.eof then
         Response.write"<script>alert(""模板名称不能重复！"");location.href=""admin_TempLetManage.asp"";</script>"
        Response.end
        end if
      rs.close
      if errormsg="" then
		set rs = server.createobject("adodb.recordset")
        sql = "select * from Templet where TempletName = '"&TempletName&"'"
        rs.open sql,conn,3,3
		rs.addnew
		rs("TempletName")=TempletName
		rs("TempletContent")=TempletContent
		rs("TempletType")="News"
		rs.update
		rs.close
		set rs=nothing
        response.Redirect("admin_TempLetManage.asp")
	  response.end
	  end if
'========================================添加新闻模板结束
'========================================修改新闻模板开始
  case "MTN"
      TempletID=request.form("TempletID")
	  TempletName=replace(request.form("TempletName"),"'","''")
	  OldTempletName=replace(request.form("OldTempletName"),"'","''")
	  TempletContent=replace(request.form("TempletContent"),"'","''")
	  set rs = server.createobject("adodb.recordset")
      rs.source = "select * from Templet where TempletName = '"&TempletName&"'"
      rs.open rs.source,conn,1,1
      if TempletName = "" then
       Response.write"<script>alert(""模板名称不能为空！"");location.href=""admin_TempLetManage.asp"";</script>"
        Response.end
        end if
	  if TempletName<>OldTempletName then
		if not rs.eof then
             Response.write"<script>alert(""模板名称不能重复！"");location.href=""admin_TempLetManage.asp"";</script>"
             Response.end
             end if
	  end if
	  if errormsg="" then
	    conn.execute("Update Templet set TempletName='"&TempletName&"' where ID="&TempletID)
	    conn.execute("Update News set Templet='"&TempletName&"' where Templet='"&OldTempletName&"'")
		conn.execute("Update Templet Set TempletContent='"&TempletContent&"' where ID="&TempletID)
	  response.Redirect("admin_TempLetManage.asp")
	  response.end
	  end if
'========================================修改新闻模板结束
'========================================删除新闻模板开始
  case "DelTempletNews"
      TempletID=replace(request.form("TempletID"),"'","''")
      if TempletID="" then response.redirect"admin_TempletManage.asp"
	  set rs=conn.execute("select TempletName from Templet where ID="&TempletID)
	  TempletName=rs("TempletName")
	  rs.close
	  set rs=nothing
	  conn.execute("Update News set Templet='×' where Templet='"&TempletName&"'")
      conn.execute("Delete From Templet where ID="&TempletID)
      response.Redirect("admin_TempLetManage.asp")
	  response.end
'========================================删除新闻模板结束
'========================================添加小类模板开始
  case "AddTempletClass"
      TempletNameClass=replace(request.form("TempletNameClass"),"'","''")

      set rs = server.createobject("adodb.recordset")
      rs.source = "select * from Templet where TempletType='Class' and TempletName = '"&TempletNameClass&"'"
      rs.open rs.source,conn,1,1
        if TempletNameClass = "" then
         Response.write"<script>alert(""模板名称不能为空！"");location.href=""admin_TempLetManage.asp"";</script>"
        Response.end
        end if
        if not rs.eof then
        Response.write"<script>alert(""模板名称不能重复！"");location.href=""admin_TempLetManage.asp"";</script>"
        Response.end
        end if
      rs.close
      if errormsg="" then
		conn.execute("insert into Templet(TempletName,TempletContent,TempletType) values ('"&TempletNameClass&"','"&TempletContent&"','Class')")
        response.Redirect("admin_TempLetManage.asp")
	    response.end
        end if
'========================================添加小类模板结束
'========================================添加大类模板开始
  case "AddTempletBigClass"
      TempletNameClass=replace(request.form("TempletNameClass"),"'","''")

      set rs = server.createobject("adodb.recordset")
      rs.source = "select * from Templet where TempletType='BigClass' and TempletName = '"&TempletNameClass&"'"
      rs.open rs.source,conn,1,1
        if TempletNameClass = "" then
         Response.write"<script>alert(""模板名称不能为空！"");location.href=""admin_TempLetManage.asp"";</script>"
        Response.end
        end if
        if not rs.eof then
        Response.write"<script>alert(""模板名称不能重复！"");location.href=""admin_TempLetManage.asp"";</script>"
        Response.end
        end if
      rs.close
      if errormsg="" then
		conn.execute("insert into Templet(TempletName,TempletContent,TempletType) values ('"&TempletNameClass&"','"&TempletContent&"','BigClass')")
        response.Redirect("admin_TempLetManage.asp")
		response.end
        end if
'========================================添加大类模板结束
'========================================修改小类模板开始
  case "MTC"
      TempletID=request.form("TempletID")
	  TempletName=replace(request.form("TempletName"),"'","''")
	  OldTempletName=replace(request.form("OldTempletName"),"'","''")
	  TempletContent=replace(request.form("TempletContent"),"'","''")
	  set rs = server.createobject("adodb.recordset")
      rs.source = "select * from Templet where TempletName = '"&TempletName&"'"
      rs.open rs.source,conn,1,1
      if TempletName = "" then
        Response.write"<script>alert(""模板名称不能为空！"");location.href=""admin_TempLetManage.asp"";</script>"
        Response.end
        end if
      	  if TempletName<>OldTempletName then
		if not rs.eof then
       Response.write"<script>alert(""模板名称不能重复！"");location.href=""admin_TempLetManage.asp"";</script>"
        Response.end
        end if
	  end if
	  if errormsg="" then
           conn.execute("Update Templet set TempletName='"&TempletName&"' where ID="&TempletID)
           conn.execute("Update Templet Set TempletContent='"&TempletContent&"' where ID="&TempletID)
	       response.Redirect("admin_TempLetManage.asp")
		   response.end
	  end if
'========================================修改小类模板结束
'========================================修改图片新闻小类模板开始
  case "MTCp"
      TempletID=request.form("TempletID")
	  TempletName=replace(request.form("TempletName"),"'","''")
	  OldTempletName=replace(request.form("OldTempletName"),"'","''")
	  TempletContent=replace(request.form("TempletContent"),"'","''")
	  set rs = server.createobject("adodb.recordset")
      rs.source = "select * from Templet where TempletName = '"&TempletName&"'"
      rs.open rs.source,conn,1,1
      if TempletName = "" then
        Response.write"<script>alert(""模板名称不能为空！"");location.href=""admin_PhotoClassTempLet.asp"";</script>"
        Response.end
        end if
      	  if TempletName<>OldTempletName then
		if not rs.eof then
       Response.write"<script>alert(""模板名称不能重复！"");location.href=""admin_PhotoClassTempLet.asp"";</script>"
        Response.end
        end if
	  end if
	  if errormsg="" then
           conn.execute("Update Templet set TempletName='"&TempletName&"' where ID="&TempletID)
           conn.execute("Update Templet Set TempletContent='"&TempletContent&"' where ID="&TempletID)
	       response.Redirect("admin_PhotoClassTempLet.asp")
		   response.end
	  end if
'========================================修改图片新闻小类模板结束
'========================================修改大类模板开始
  case "MTBC"
      TempletID=request.form("TempletID")
	  TempletName=replace(request.form("TempletName"),"'","''")
	  OldTempletName=replace(request.form("OldTempletName"),"'","''")
	  TempletContent=replace(request.form("TempletContent"),"'","''")
	  set rs = server.createobject("adodb.recordset")
      rs.source = "select * from Templet where TempletName = '"&TempletName&"'"
      rs.open rs.source,conn,1,1
      if TempletName = "" then
        Response.write"<script>alert(""模板名称不能为空！"");location.href=""admin_TempLetManage.asp"";</script>"
        Response.end
        end if
      	  if TempletName<>OldTempletName then
		if not rs.eof then
       Response.write"<script>alert(""模板名称不能重复！"");location.href=""admin_TempLetManage.asp"";</script>"
        Response.end
        end if
	  end if
	  if errormsg="" then
           conn.execute("Update Templet set TempletName='"&TempletName&"' where ID="&TempletID)
           conn.execute("Update Templet Set TempletContent='"&TempletContent&"' where ID="&TempletID)
	       response.Redirect("admin_TempLetManage.asp")
		   response.end
	  end if
'========================================修改大类模板结束
'========================================修改图片新闻大类模板开始
  case "MTBCp"
      TempletID=request.form("TempletID")
	  TempletName=replace(request.form("TempletName"),"'","''")
	  OldTempletName=replace(request.form("OldTempletName"),"'","''")
	  TempletContent=replace(request.form("TempletContent"),"'","''")
	  set rs = server.createobject("adodb.recordset")
      rs.source = "select * from Templet where TempletName = '"&TempletName&"'"
      rs.open rs.source,conn,1,1
      if TempletName = "" then
        Response.write"<script>alert(""模板名称不能为空！"");location.href=""admin_PhotoClassTemplet.asp"";</script>"
        Response.end
12 下一页
⌨️ 快捷键说明

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