admin_newsnclasssave.asp

ASP源程序采用天空软件小偷中心核件制成

<!--#include file="conn.asp"-->
<!--#include file="top.asp"-->
<% 
   dim sql
   dim rs
   dim cmdTemp
   
   select case request.form("options")
     case "rename"
       on error resume next
       Set cmdTemp = Server.CreateObject("ADODB.Command")
       set rs=server.createobject("adodb.recordset")
       cmdTemp.CommandText = "SELECT * FROM ANclass where Nclassid=" & request.form("subject")
       cmdTemp.CommandType = 1
       Set cmdTemp.ActiveConnection = conn   
       rs.Open cmdTemp, , 1, 3
       if err.Number<>0 then
            err.clear
            response.write " 数 据 库 操 作 失 败 ! "
       else
         rs("Nclass") = trim(request.form("reTitle"))
         rs("classid") = request.form("classid")
         rs.Update
         rs.Close
         set rs=nothing
         set cmdTemp=nothing
         finished
       end if
     case "del"
	Rem 删除子栏目
       on error resume next
       sql="delete from ANclass where Nclassid=" & request.form("subject")
       conn.execute sql
	Rem 删除相关子栏目程序
       sql="delete from article where Nclassid=" & request.form("subject")
       conn.execute sql
       if err.Number<>0 then
            err.clear
            response.write " 数 据 库 操 作 失 败 ! "
       else
         finished
       end if
     case "new"
       Set cmdTemp = Server.CreateObject("ADODB.Command")
       set rs=server.createobject("adodb.recordset")
       cmdTemp.CommandText = "SELECT * FROM ANclass where (Nclassid IS NULL)"
       cmdTemp.CommandType = 1
       Set cmdTemp.ActiveConnection = conn   
       rs.Open cmdTemp, , 1, 3
       if err.Number<>0 or request.form("psubject")="" then
            err.clear
            response.write " 数 据 库 操 作 失 败 ! "
       else
         rs.AddNew
           rs("Nclass") = request.form("newTitle")
           rs("classid") = request.form("psubject")
         rs.Update
         rs.Close
         set rs=nothing
         set cmdTemp=nothing
         finished
       end if
   end select

   sub finished()
%>
<meta http-equiv="refresh" content='2; URL=admin_newsclassmana.asp'>
<table border="0" width="755" cellspacing="1" cellpadding="1" style="margin-top:6px;margin-bottom:6px" align="center">
  <tr>
    <td valign=top width="20%"><!--#include file="admin_left.asp"--></td>
    <td align=center valign=top bgcolor="#CCCCCC" style="border:1px solid black;"> <br>
      <table width="50%" cellpadding="1" cellspacing="1" border="0" bgcolor="#333333">
        <tr> 
          <td width="100%"  height="20" bgcolor="#999999">
            <div align="center"><font color="#FFFFFF"><b>类别操作成功</b></font></div>
          </td>
        </tr>
        <tr> 
          <td width="100%" bgcolor="#CCCCCC" height="93"> 
            <p align="center"><b>你对类别的操作成功！在两秒中之内返回！</b></p>
            </td>
        </tr>
      </table>
    </td>
  </tr>
</table>
<!--#include file="copyright.asp"-->
<%
 end sub
%>