?? as_board.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 + -