class_managersave_.asp

都市星空BBS系统 v1.1(SQL)

<%
'==============================================================================
'软件名称：星空社区 VER 1.0.15
'当前版本：starcity club V1.0.15
'最新更新：2004.9
'==============================================================================
'Copyright (C) 2002-2004 Googln.com  All rights reserved.
'商业注册联系：010-64410364
'技术支持QQ：6370639(限商业用户) 
'程序开发：Googln Studio(BeiJing)
'Email:[e-mail]
'论坛支持：星空社区(http://www.starcity.cn/bbs)
'官方网站：www.Googln.com  演示站点：www.starcity.cn/bbs  都市星空：www.starcity.cn 阳光商城:www.sunmall.com.cn
'==============================================================================
'免费版本请在首页保留版权信息，并做上本站LOGO友情连接
'都市星空在线保留此程序的法律追究权利
'==============================================================================
%>
<!--#include file="../include/conn.asp"-->
<!--#include file="checkuser.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 db_board where boardid=" & request.form("subject")
       cmdTemp.CommandType = 1
       Set cmdTemp.ActiveConnection = conn   
       rs.Open cmdTemp, , 1, 3
       if err.Number<>0 then
            err.clear
            response.write " <br>数 据 库 操 作 失 败 ! "
       else
         rs("boardname") = trim(request.form("reTitle"))
         rs("boardmaster") = trim(request.form("reboardmaster"))
         rs("id") = request.form("id")
         rs.Update
         rs.Close
         set rs=nothing
         set cmdTemp=nothing
         finished
       end if
     case "del"
	Rem 删除子栏目
       on error resume next
       sql="delete from db_board where boardid=" & request.form("subject")
       conn.execute sql
	Rem 删除相关子栏目程序
       sql="delete from db_bbs where boardid=" & request.form("subject")
       conn.execute sql
       if err.Number<>0 then
            err.clear
            response.write " <br>数 据 库 操 作 失 败 ! "
       else
         finished
       end if
     case "new"
       Set cmdTemp = Server.CreateObject("ADODB.Command")
       set rs=server.createobject("adodb.recordset")
       cmdTemp.CommandText = "SELECT * FROM db_board where (boardid 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 " <br>数 据 库 操 作 失 败 ! "
       else
         rs.AddNew
           rs("boardname") = request.form("newTitle")
           rs("boardmaster") = request.form("newboardmaster")
		   rs("id") = request.form("psubject")
         rs.Update
         rs.Close
         set rs=nothing
         set cmdTemp=nothing
         finished
       end if
   end select

   sub finished()
%>
<%
response.redirect "board_add.asp"%>
<%
 end sub
%>