<!--#include virtual="/common/lib/dbcon.asp"-->
<!--#include virtual="/common/lib/func.asp"-->
<!--#include file="config.asp"-->
<%

Set FSO = Server.CreateObject("Scripting.FileSystemObject")


Dim a_num, chk, m_tablename
a_num	= InputValue(request("a_num"))
chk		= InputValue(request("chk"))
m_tablename		= InputValue(request("m_tablename"))

chk = Replace(chk, " ","")
arr_chk = Split(chk,",")


sql = " SELECT a_bbsname, a_num FROM board_config with(nolock) WHERE a_tablename='"&m_tablename&"'"
Set Rs = Dbcon.Execute (sql)
If Not rs.eof Then
	m_bbsname = rs(0)	
	m_a_num = rs(1)	
End If
rs.close : Set rs = Nothing
m_content = "해당 게시글은 관리자에 의해 [[board_link_s]]"&m_a_num&"[[board_link_m]]["&m_bbsname&"][[board_link_e]] 으로 이동되었습니다.[[br_tag]]("&getDateFm(now,3)&")"



filePath = server.mappath("/")&"\data\board\"

'//폴더 없으면 새로 생성
Call FolderCreate( filePath & m_tablename& "\" )



If is_ad_cms <> "Y" or a_num="" Or Replace(chk,",","")="" Or m_tablename="" then

	Call goMessage_board("정보가 정확하지 않거나 접속권한이 없습니다.","/content/board/list.asp?a_num="&a_num, "", "", a_num)

else

	'' 기존 게시판 테이블명 가져오기
	sql = " SELECT a_tablename FROM board_config with(nolock) WHERE a_num="& a_num
	Set Rs = Dbcon.Execute (sql)
	If rs.eof Then
		Call goMessage_board("정보가 정확하지 않습니다.", "/content/board/list.asp?a_num="&a_num, "", "", a_num)		
	Else
		o_tablename = rs(0)
	End If
	rs.close : Set rs = Nothing



	'' 선택된 게시물 이동
	For i=UBound(arr_chk) To 0 Step -1


		b_num = arr_chk(i)


		
		'' 게시글 옮기기
		sql = " INSERT INTO "& m_tablename &" ( b_type, b_id, b_name, b_pwd, b_subject, b_email, b_jumin, b_phone1, b_phone2, b_phone3, b_cate, b_catename, b_noticechk, b_content, b_ip, b_count, b_look, b_open, b_step, b_level, b_regdate, b_chuchun, b_sbjclr, b_sdate, b_edate, b_temp1, b_temp2, b_temp3, b_temp4, b_temp5, b_temp6, b_temp7, b_temp8, b_file1, b_file2, b_file3, b_file4, b_file5, b_keyword, b_c_count, b_zip1, b_zip2, b_addr1, b_addr2 ) SELECT b_type, b_id, b_name, b_pwd, b_subject, b_email, b_jumin, b_phone1, b_phone2, b_phone3, b_cate, b_catename, b_noticechk, b_content, b_ip, b_count, b_look, b_open, b_step, b_level, b_regdate, b_chuchun, b_sbjclr, b_sdate, b_edate, b_temp1, b_temp2, b_temp3, b_temp4, b_temp5, b_temp6, b_temp7, b_temp8, b_file1, b_file2, b_file3, b_file4, b_file5, b_keyword, b_c_count, b_zip1, b_zip2, b_addr1, b_addr2 FROM "& o_tablename & " WHERE b_num="&b_num
		Dbcon.execute sql


		'' b_num 얻기
		sql = " select isnull(max(b_num),0) from "&m_tablename
		Set Rs = Dbcon.Execute (sql)
		new_b_num = rs(0)
		rs.close : Set rs = Nothing


		'' ref 업데이트
		sql = " UPDATE " & m_tablename & " SET b_ref="&new_b_num&" WHERE b_num="&new_b_num
		Dbcon.execute sql



		'' 파일 이동
		sql = " SELECT b_file1, b_file2, b_file3, b_file4, b_file5 FROM "&o_tablename&" WHERE b_num="&b_num
		Set Rs = Dbcon.Execute (sql)
		If Not rs.eof Then	

			For j=1 To 5
				fileName = rs("b_file"&j)

				If fileName<>"" Then

					'--확장장와 파일 이름 분리
					strfile = split(fileName,".")
					strName = strfile(0) '파일명
					strExt  = strfile(UBound(strfile)) '확장자


					file_url = filePath & o_tablename & "\" & fileName
					saveFileName = filePath & m_tablename & "\" & fileName


					' 첨부파일 존재하면
					If (FSO.FileExists(file_url)) Then
						bExist = True
						count= 0
						Do While bExist

							' 파일명 중복검사
							If (FSO.FileExists(saveFileName)) Then
								count = count  + 1
								FileName = strName & "_" & count & "." & strExt
								saveFileName = filePath & m_tablename & "\" & FileName
							Else
							
								Exit Do 

							End If
						Loop

						FSO.MoveFile file_url,saveFileName 


						' 파일명 update
						sql = " UPDATE " & m_tablename & " SET b_file"&j&"='"&FileName&"' WHERE b_num="&new_b_num
						Dbcon.execute sql

						
					End if					
				End If
				
			Next
		End if
		rs.close : Set rs = Nothing		


		'기존 게시물 삭제
'		sql = " DELETE FROM "&o_tablename & " WHERE b_num="&b_num
		
		sql = " UPDATE "&o_tablename&" SET b_content='"&m_content&"', b_file1='', b_file2='', b_file3='', b_file4='', b_file5='' WHERE b_num="&b_num
		Dbcon.execute sql


	next

End if

Dbcon.close : Set Dbcon = Nothing


ok_url = "list.asp?a_num=" & a_num
Call goMessage_board("이동되었습니다..", ok_url, "", "", a_num)


%>