<% 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) %>