admin_newsclasssave.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 Aclass where classid=" & 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("class") = request.form("reTitle")
         rs.Update
         rs.Close
         set rs=nothing
         set cmdTemp=nothing
         finished
       end if
     case "del"
	Rem 删除栏目
	on error resume next
        sql="delete from Aclass where classid=" & request.form("subject")
        conn.execute sql
	Rem 删除相关栏目下子栏目
        sql="delete from ANclass where classid=" & request.form("subject")
        conn.execute sql
	Rem 删除相关栏目对应程序
        sql="delete from article where classid=" & request.form("subject")
        conn.execute sql
        if err.Number<>0 then
            err.clear
            response.write " 数 据 库 操 作 失 败 ! "
        else
            finished
        end if
     case "new"
       on error resume next
       Set cmdTemp = Server.CreateObject("ADODB.Command")
       set rs=server.createobject("adodb.recordset")
       cmdTemp.CommandText = "SELECT * FROM Aclass where (classid IS NULL)"
       cmdTemp.CommandType = 1
       Set cmdTemp.ActiveConnection = conn   
       rs.Open cmdTemp, , 1, 3
       if err.Number<>0 then
            err.clear
            response.write " 数 据 库 操 作 失 败 ! "
       else
         rs.AddNew
         rs("class") = request.form("newTitle")
         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="99%" cellspacing="1" cellpadding="1" style="margin-top:6px;margin-bottom:6px" align="center">
  <tr>
    <td valign=top width="20%" style="border:1px solid black;" bgcolor="#999999"><!--#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="#cccccc"  style="border:1px solid black;" >
        <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 %>