admin_templetgo.asp

新闻发布系统

        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 "DelTempletClass"
      TempletID=replace(request.form("TempletID"),"'","''")
      if TempletID="" then response.redirect"admin_TempletManage.asp"
      set rs=Server.CreateObject("adodb.recordset")
      rsText="select * from Templet where ID="&TempletID
      rs.open rsText,conn,1,1
      TempletName=rs("TempletName")
      conn.execute("Delete From Templet where ID="&TempletID)
      conn.execute("Update newsClass set ClassTemplet='×' where ClassTemplet='"&TempletName&"' ")
      response.Redirect("admin_TempLetManage.asp")
	  response.end
'=========================================删除小类模板结束
'=========================================删除大类模板开始
  case "DelTempletBigClass"
      TempletID=replace(request.form("TempletID"),"'","''")
      if TempletID="" then response.redirect"admin_TempletManage.asp"
      set rs=Server.CreateObject("adodb.recordset")
      rsText="select * from Templet where ID="&TempletID
      rs.open rsText,conn,1,1
      TempletName=rs("TempletName")
      conn.execute("Delete From Templet where ID="&TempletID)
      conn.execute("Update newsClass set ClassTemplet='×' where ClassTemplet='"&TempletName&"' ")
      response.Redirect("admin_TempLetManage.asp")
	  response.end
'=========================================删除大类模板结束
'=========================================删除图片新闻大类模板开始
  case "DelTempletBigClassp"
      TempletID=replace(request.form("TempletID"),"'","''")
      if TempletID="" then response.redirect"admin_PhotoClassTemplet.asp"
      set rs=Server.CreateObject("adodb.recordset")
      rsText="select * from Templet where ID="&TempletID
      rs.open rsText,conn,1,1
      TempletName=rs("TempletName")
      conn.execute("Delete From Templet where ID="&TempletID)
      response.Redirect("admin_PhotoClassTemplet.asp")
	  response.end
'=========================================删除图片新闻大类模板结束
'========================================大类栏目模板绑定开始
  case "BigClassTemplet"
      TempletName=request.form("TempletName")
      BigClassID=request.form("ClassID")
      if BigClassID="" then response.redirect"admin_Totemplet.asp"
      conn.execute("Update newsClass set ClassTemplet='"&TempletName&"' where ID="&BigClassID)
      Response.write"<script>alert(""大类栏目模板捆绑成功！"");location.href=""admin_Totemplet.asp"";</script>"
      Response.end
'========================================大类栏目模板绑定结束
'========================================大类栏目取消模板绑定开始
  case "BigClassTempletNo"
      BigClassID=request.form("ClassID")
      if BigClassID="" then response.redirect"admin_Totemplet.asp"
      conn.execute("Update newsClass set ClassTemplet='×' where ID="&BigClassID)
      Response.write"<script>alert(""大类栏目'取消'模板捆绑成功！"");location.href=""admin_Totemplet.asp"";</script>"
      Response.end
'========================================大类栏目取消模板绑定结束
'========================================小类栏目模板绑定开始
  case "SmallClassTemplet"
      TempletName=request.form("TempletName")
      SmallClassID=request.form("ClassID")
      if SmallClassID="" then response.redirect"admin_Totemplet.asp"
      conn.execute("Update newsClass set sClassTemplet='"&TempletName&"' where ID="&SmallClassID)
      Response.write"<script>alert(""小类栏目模板捆绑成功！"");location.href=""admin_Totemplet.asp"";</script>"
      Response.end
'========================================小类栏目模板绑定结束
'========================================小类栏目取消模板绑定开始
  case "SmallClassTempletNo"
      SmallClassID=request.form("ClassID")
      if SmallClassID="" then response.redirect"admin_Totemplet.asp"
      conn.execute("Update newsClass set sClassTemplet='×' where ID="&SmallClassID)
      Response.write"<script>alert(""小类栏目'取消'模板捆绑成功！"");location.href=""admin_Totemplet.asp"";</script>"
      Response.end
'========================================小类栏目取消模板绑定结束
'========================================栏目新闻模板绑定开始
  case "NewsTemplet"
      TempletName=request.form("TempletName")
      SmallClassID=request.form("ClassID")
      if SmallClassID="" then response.redirect"admin_Totemplet.asp"
      conn.execute("Update newsClass set NewsTemplet='"&TempletName&"' where ID="&SmallClassID)
      Response.write"<script>alert(""新闻模板捆绑成功！"");location.href=""admin_Totemplet.asp"";</script>"
      Response.end
'========================================栏目新闻模板绑定结束
'========================================栏目新闻取消模板绑定开始
  case "NewsTempletNo"
      SmallClassID=request.form("ClassID")
      if SmallClassID="" then response.redirect"admin_Totemplet.asp"
      conn.execute("Update newsClass set NewsTemplet='×' where ID="&SmallClassID)
      Response.write"<script>alert(""新闻模板'取消'捆绑成功！"");location.href=""admin_Totemplet.asp"";</script>"
      Response.end
'========================================栏目新闻取消模板绑定结束
'----------------------------------------专题模板开开始
case "AddTempletspecial"
  TempletName=replace(request.form("TempletName"),"'","''")	  
 
	  set rs = server.createobject("adodb.recordset")
      rs.source = "select * from Templet where TempletType='special' 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")="special"
		rs.update
		rs.close
		set rs=nothing
                Response.write"<script>alert(""专题模板添加成功，请到相应de地方修改模板"");location.href=""admin_TempLetManage.asp"";</script>"
	   Response.end
	  end if
  '====================加专题模板结束
'=====================修改专题模板开始	  
	  case "MTIs"
      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.write"<script>alert(""专题修改成功"");location.href=""admin_TempLetManage.asp"";</script>"
	    Response.end
	  end if
  '=====================================修改专题模板结束
  '=====================================删除专题模板开始
  case "DelTempletindex"
      TempletID=replace(request.form("TempletID"),"'","''")
      if TempletID="" then response.redirect"admin_TempletManage.asp"
      set rs=Server.CreateObject("adodb.recordset")
      rsText="select * from Templet where ID="&TempletID
      rs.open rsText,conn,1,1
      TempletName=rs("TempletName")
      conn.execute("Delete From Templet where ID="&TempletID)
       Response.write"<script>alert(""专题删除成功！"");location.href=""admin_TempLetManage.asp"";</script>"
        Response.end
   '=====================================删除专题模板结束

  end select
%>
<p>&nbsp;</p>
<p>&nbsp;</p>
<p>&nbsp;</p>
<body>
<form method=post action=admin_TempletManage.asp><TABLE class=body cellSpacing=0 cellPadding=0 width=400 align=center background=pic/err_bg1.gif border=0>
    <TBODY>
      <TR> 
        <TD width=10 height=23><IMG height=23 src="pic/err1.gif" width=24 border=0></TD>
        <TD width=348 height=23>&nbsp;<b> <font color="#FF6600">
          <%
	   if errorMsg<>"" then
	     response.write("操作错误")
	   else
	     response.write result
	   end if
	  %>
          </font></b></TD>
        <TD vAlign=baseline width=37 height=23 align=right><A onmouseover="MM_swapImage('close','','pic/err_close2.gif',1)" onmouseout=MM_swapImgRestore() href="javascript:window.close()"><IMG height=18 src="pic/err_close2.gif" width=15 border=0 name=close></A></TD>
        <TD width=5 height=23><IMG height=23 src="pic/err2.gif" width=5 border=0 name=errr1_c4></TD>
      </TR>
    </TBODY>
  </TABLE>
  <TABLE class=body cellSpacing=0 cellPadding=0 width=400 align=center border=0>
    <TBODY>
      <TR vAlign=bottom> 
        <TD background=pic/err_bg.gif height=120> <BLOCKQUOTE> 
            <DIV id=base> <font color=red><%=errormsg%></font> 
              <% if errorMsg<>"" then %>
              <br>
              <br>
              <br>
              <input name="button" type="button" onClick="javascript:history.back()" value=" 返 回 ">
              <% else %>
              <br>
              按确定键返回<br>
              <br>
              <input name="submit" type="submit" value=" 确 定 ">
              <% end if %>
              <br>
            </DIV>
          </BLOCKQUOTE>
          </TD>
      </TR>
      <TR> 
        <TD height=2><IMG height=5 src="pic/err_bot.gif" width=400></TD>
      </TR>
    </TBODY>
  </TABLE>
 </form>
</body>