📄 as_board.asp

📁 台讯企业全站管理系统V2006 供下载时经过了严格的测试
💻 ASP
字号:
<%@language=vbscript codepage=936 %>
<%
'***********************************************************************************' 产品名称：台讯企业全站管理系统（V2006简体中文版）' 程序开发：HECHENn（QQ：34103037　Emial：hechenn@126.com）' Copyright 2006 txcodes.com - All Rights Reserved. '***********************************************************************************
PageName="Admin,0"
%>
<!--#include file="Inc/Const.asp"-->
<!--#include file="Inc/System.asp"-->

<%
Call Page_formBody()
Call Page_Spane(5)
dim Class_admin,Admincrecord
Select Case Action
Case "Add"
Set Rs=server.createobject("adodb.recordset")
Sql="select * from Tx_Board Where ParentID=" & request.form("ParentID") & " and Class_Name='" & request.form("Class_Name") & "'" 
Rs.open Sql,Conn,1,1
crecordcount=Rs.Recordcount
Rs.Close
Set Rs=Nothing
IF request.form("Class_Name")="" THEN
Errorst="请输入版块名称！"
founderr=true
ElseIF crecordcount<>0 THEN
Errorst="同版块下已有相同版块，请重新输入版块名称！"
founderr=true
End IF
    IF founderr=true THEN
	    Call Form_Error()
    Else	
        ParentID=int(request.form("ParentID"))
        Parent=ParentID
        Do while ParentID>0
            ParentID=Conn.execute("Select ParentID from Tx_Board Where Class_Id=" & ParentID)(0)
            If ParentID>0 THEN
                Parent=ParentID & "|" & Parent
            End If
        Loop
	Set Rs=server.createobject("adodb.recordset")
        Sql="Select * From Tx_Board"
        Rs.open Sql,Conn,1,3
		Rs.addnew
		Rs("ParentID")=request.form("ParentID")
		Rs("Class_Name")=request.form("Class_Name")
		Rs("Class_Bbs")=request.form("Class_Bbs")
		Rs("Class_UserGroud")=request.form("User_Group")
		Rs("Class_Content")=nohtml(request.form("Class_Content"))
	    Rs("Class_ParentPath")=Parent
        Rs("Class_Flag")=request.form("Class_Flag")
        Set Rs_Old=server.createobject("adodb.recordset")
        Sql="select * from Tx_Board where ParentID=" & Rs("ParentID") & " order by Class_Order desc" 
        Rs_Old.open Sql,Conn,1,1
        If Rs_Old.Recordcount=0 Then
        ClassOrder=1
        Else
        ClassOrder=Rs_Old("Class_Order")+1
        End If
        Rs_Old.Close
		Set Rs_Old=noting
		Rs("Class_Order")=ClassOrder
		Rs.update
		Rs.Close
		Set Rs=Nothing
        ToHistory="Aa_Board.asp?Action=Manage"
		saveok="论坛版块：[ " & request.form("Class_Name") & request.form("Class_Admin") & " ] 添加成功！"
	    Call Form_Saveok()
End IF
Case "Edit"
Set Rs=server.createobject("adodb.recordset")
Sql="select * from Tx_Board Where ParentID=" & request.form("ParentID") & " and Class_Name='" & request.form("Class_Name") & "'" 
Rs.open Sql,Conn,1,1
crecordcount=Rs.Recordcount
Rs.Close
Set Rs=Nothing
Set Rs=server.createobject("adodb.recordset")
Sql="select * from Tx_Board Where Class_Id=" & request.form("ParentID")
Rs.open Sql,Conn,1,1
IF Rs.Recordcount<>0 THEN
oClassParentPath=Rs("Class_ParentPath")
End IF
Rs.Close
Set Rs=Nothing
IF request.form("Class_Name")="" THEN
Errorst="请输入论坛版块名称！"
founderr=true
ElseIF instr(oClassParentPath,Id) THEN
Errorst="所属版块不能是自己的下属子类！"
founderr=true
End IF
    IF founderr=true THEN
	    Call Form_Error()
    Else	
        ParentID=int(request.form("ParentID"))
        Parent=ParentID
        Do while ParentID>0
            ParentID=Conn.execute("Select ParentID from Tx_Board Where Class_Id=" & ParentID)(0)
            If ParentID>0 THEN
                Parent=ParentID & "|" & Parent
            End If
        Loop
	Set Rs=server.createobject("adodb.recordset")
        Sql="Select * From Tx_Board where Class_Id=" & Id
        Rs.open Sql,Conn,1,3
		Rs("ParentID")=request.form("ParentID")
		Rs("Class_Name")=request.form("Class_Name")
		Rs("Class_UserGroud")=request.form("User_Group")
		Rs("Class_Bbs")=request.form("Class_Bbs")
		Rs("Class_Content")=nohtml(request.form("Class_Content"))
	    Rs("Class_ParentPath")=Parent
        Rs("Class_Flag")=request.form("Class_Flag")
		Rs.update
		Rs.Close
		Set Rs=Nothing
        Set Rs=server.Createobject("Adodb.Recordset")
            Sql="Select * From Tx_Board Where Class_ParentPath like '%" & Id & "%'"
            Rs.Open Sql,Conn,1,3
            while not Rs.eof
			aParentPath=split(Rs("Class_ParentPath"),"|")
            For intTemp=0 to ubound(aParentPath)
			    IF aParentPath(intTemp)=Id THEN
					Exit For
				End IF
			    Rs("Class_ParentPath")=replace(Rs("Class_ParentPath"),aParentPath(intTemp)&"|","")
			Next
			IF Parent<>"0" THEN
			Rs("Class_ParentPath")=Parent & "|" & Rs("Class_ParentPath")
			End IF
            Rs.moveNext
            wend
        Rs.Close
		Set Rs=Nothing
		ToHistory="Aa_Board.asp?Action=Edit&Id=" & Id
		saveok="论坛版块：[ " & request.form("Class_Name") & " ] 修改成功！"
	    Call Form_Saveok()
End IF
Case "EditOrder"
IF not isnumeric(request.form("ClassOrder")) THEN
Errorst="错误的参数（请输入数字）！"
founderr=true
End IF
    IF founderr=true THEN
	    Call Form_Error()
    Else	
	    NewOrder=request.form("ClassOrder")
	    Set Rs=server.Createobject("Adodb.Recordset")
            Sql="Select * From Tx_Board Where Class_Id=" & Id
            Rs.open Sql,Conn,1,3
            OldOrder=Rs("Class_Order")
		    ClassName=Rs("Class_Name")
		    ClassParentID=Rs("ParentID")
	        IF NewOrder="" Then
		        Rs("Class_Order")=Rs("Class_Order")
	        Else
		        Rs("Class_Order")=NewOrder
	        End IF
		    Rs.update
		Rs.Close
		Set Rs=Nothing
	    Set Rs=server.Createobject("Adodb.Recordset")
            Sql="Select * From Tx_Board where ParentID=" & ClassParentID & " And Class_Order>=" & NewOrder & " and Class_Id<>" & Id & " order by Class_Order"
            Rs.open Sql,Conn,1,3
	        IF Rs.Recordcount<>0 Then
	            IF Rs("Class_Order")<NewOrder+1 Then
                    while not Rs.eof
		                Rs("Class_Order")=Rs("Class_Order")+1
	                    Rs.moveNext
                    wend
	            End IF
	        End IF
	    Rs.Close
		Set Rs=Nothing
		ToHistory="Aa_Board.asp?Action=Manage"
		saveok="论坛版块：[ " & ClassName & " ]，原序号为" & OldOrder & "，现序号为" & NewOrder & "！"
	    Call Form_Saveok()
End IF
Case "Del"
Set Rs=server.Createobject("Adodb.Recordset")
Sql="Select * from Tx_Board where ParentID=" & Id
Rs.open Sql,Conn,1,1
crecordcount=Rs.Recordcount
Rs.Close
Set Rs=Nothing
IF crecordcount<>0 THEN
Errorst="您要删除的版块有下属子类，请先删除子类！"
founderr=true
End IF
    IF founderr=true THEN
	    Call Form_Error()
    Else	
        BoardName=Conn.Execute ("Select Class_Name From Tx_Board where Class_Id=" & Id)(0)
		DelCount=Conn.Execute("Select count(*) from Tx_Bbs where Bbs_Board=" & Id)(0)
        Conn.execute "Delete from Tx_Board where Class_Id=" & Id
        Conn.execute "Delete from Tx_Bbs where Bbs_Board=" & Id
		ToHistory="Aa_Board.asp?Action=Manage"
		IF DelCount<>0 THEN
		    saveok="论坛版块[ " & BoardName & " ]已删除，并同时删除下属" & DelCount & "个帖子！"
		Else
		    saveok="论坛版块[ " & BoardName & " ]删除成功！"
		End IF
	    Call Form_Saveok()
	End IF
Case "Flag"
	Set Rs=server.createobject("adodb.recordset")
        Sql="Select * From Tx_Board where Class_Id=" & Id
        Rs.open Sql,Conn,1,3
		IF Rs("Class_Flag")=1 THEN
		    Rs("Class_Flag")=0
		saveok="论坛版块：[ " & Rs("Class_Name") & " ] 已取消审核！"
		Else
		    Rs("Inform_Flag")=1
		saveok="论坛版块：[ " & Rs("Class_Name") & " ] 已通过审核！"
		End IF
		Rs.update
		Rs.Close
		Set Rs=Nothing
		ToHistory=VisitorsForm
	    Call Form_Saveok()
Case "Merges"
IF request.form("NewClassId")<>"" THEN
Set Rs=server.Createobject("Adodb.Recordset")
Sql="Select * From Tx_Board where Class_Id=" & request.form("NewClassId")
Rs.open Sql,Conn,1,1
IF Rs.Recordcount<>0 THEN
ClassParentPath=Rs("Class_ParentPath")
End IF
Rs.Close
Set Rs=Nothing
Set Rs=server.Createobject("Adodb.Recordset")
Sql="Select * From Tx_Board Where ParentID=" & request.form("NewClassId")
Rs.open Sql,Conn,1,1
NewClassId=Rs.Recordcount
Rs.Close
Set Rs=Nothing
End IF
IF request.form("OldClassId")<>"" THEN
Set Rs=server.Createobject("Adodb.Recordset")
Sql="Select * From Tx_Board Where ParentID=" & request.form("OldClassId")
Rs.open Sql,Conn,1,1
OldClassId=Rs.Recordcount
Rs.Close
Set Rs=Nothing
End IF
IF request.form("OldClassId")="" THEN
Errorst="请选择原论坛版块！"
founderr=true
ElseIF request.form("NewClassId")="" THEN
Errorst="请选择目标版块！"
founderr=true
ElseIF request.form("OldClassId")=request.form("NewClassId") THEN
Errorst="自己怎么可能吃自己呢？"
founderr=true
ElseIF instr(ClassParentPath,request.form("OldClassId")) THEN
Errorst="不能将数据合并到子类中！"
founderr=true
ElseIF OldClassId<>0 THEN
Errorst="原版块不能有下属子类！"
founderr=true
ElseIF NewClassId<>0 THEN
Errorst="目标版块不能有下属子类！"
founderr=true
End IF	
    IF founderr=true THEN
        Call Form_Error()
    Else	
        Set Rs=server.Createobject("Adodb.Recordset")
            Sql="Select * from Tx_Bbs where Bbs_BoardId=" & request.form("OldClassId")
            Rs.open Sql,Conn,1,3
            While Not Rs.Eof
                Rs("Bbs_BoardId")=request.form("NewClassId")
            Rs.MoveNext
            Wend
        Rs.Close
		Set Rs=Nothing
		Conn.execute "Delete from Tx_Board Where Class_Id=" & request.form("OldClassId")
		ToHistory="Aa_Board.asp?Action=Merges"
		saveok="数据合并成功！"
	    Call Form_Saveok()
	End IF
End Select
Call Page_Spane(5)
Call CloseConn()
Call Page_endBody()
%>
⌨️ 快捷键说明

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