<!-- #include virtual = "/common/lib/dbcon.asp" -->
<!-- #include virtual = "/common/lib/func.asp" -->
<%
Dim a_num, status, ct_ref

'//파라미터정보 *************************************************************************************
a_num		= InputValue( request("a_num") )
status		= InputValue( request("status") )
ct_ref		= InputValue( request("ct_ref") )

chk			= InputValue( request("chk") )
chk			= replace(chk, " ", "")
chk			= Split(chk, ",")
'//**************************************************************************************************



If status = "totdel" then		'//다중삭제

	For z = 0 To ubound( chk )

		sql = "select a_tablename from board_config where a_num= " & chk(z)
		Set rs_2 = dbcon.execute( sql )

		a_tablename = rs_2("a_tablename")

		'//게시판 테이블을 삭제 한다.
		sql = "drop table "  & a_tablename
		dbcon.execute sql
		
		'//관리자 테이블에서 해당게시판 정보를 삭제한다.
		sql1 = "delete from board_config where a_num= " & chk(z)
		dbcon.execute sql1
		
		'//게시판 권한삭제
		sql2 = "delete from board_access where a_num = " & chk(z)
		dbcon.execute sql2

		
		'//게시판 분류삭제
		sql4 = "delete from board_code where a_num = " & chk(z)
		dbcon.execute sql4
		
		'//꼬릿글삭제
		sql5 = "delete from board_command where a_num = " & chk(z)
		dbcon.execute sql5

		'//폴더삭제
		Call dfolder( server.mappath("/") & "\data\board\" & a_tablename )

	next
	Set rs_2 = nothing


Else		'//일반삭제
	
	'//삭제하기
	sql = "select a_tablename from board_config where a_num=" & a_num
	Set rs_2 = dbcon.execute( sql )

	a_tablename = rs_2("a_tablename")


	'//게시판 테이블을 삭제 한다.
	sql = "drop table " & a_tablename
	dbcon.execute sql
	
	'//관리자 테이블에서 해당게시판 정보를 삭제한다.
	sql1 = "delete from board_config where a_num=" & a_num
	dbcon.execute sql1
	
	'//게시판 권한삭제
	sql2 = "delete from board_access where a_num = " & a_num
	dbcon.execute sql2

	'//게시판 분류삭제
	sql4 = "delete from board_code where a_num = " & a_num
	dbcon.execute sql4
	
	'//꼬릿글삭제
	sql5 = "delete from board_command where a_num = " & a_num
	dbcon.execute sql5

	'//폴더삭제
	Call dfolder( server.mappath("/") & "\data\board\" & a_tablename )

	Set rs_2 = nothing
End if


'//뷰생성
ViewCreate()


ok_url = "list.asp"
Call loding ("0", ok_url)

%>