<!--#include virtual="/common/lib/func.asp"-->
<%
'Dim R_Fields, UploadForm
'Dim b_num, b_type, b_id, b_name, b_pwd, b_subject, b_email, b_jumin, b_phone1, b_phone2, b_phone3, b_noticechk, b_ip, b_count, b_look, b_open, b_ref, b_step, b_level, b_regdate, b_chuchun, b_sbjclr, b_temp1, b_temp2, b_temp3, b_temp4,b_temp5, b_temp6, b_temp7, b_file1, b_file2, b_file3, b_file4, b_file5,b_keyword,w_mode, b_cate_tot
'Dim b_sdate_y, b_sdate_m, b_sdate_d, b_edate_y, b_edate_m, b_edate_d, b_zip1, b_zip2, b_addr1, b_addr2


b_sdate = b_sdate_y & "-" & Right( "0" & b_sdate_m, 2) & "-" & Right("0" & b_sdate_d, 2)
b_edate = b_edate_y & "-" & Right( "0" & b_edate_m, 2) & "-" & Right("0" & b_edate_d, 2)


'//*******************  금지단어 체크기능  ***********************
If trim(a_noword) <> "" then
	a_noword = Split(a_noword, ",")		'//제한파일..

	for z=0 To UBound( a_noword )

		iscontent = instr(b_content, a_noword(z))		'//내용에서 검색
		issubject = instr(b_subject, a_noword(z))		'//글제목에서 검색..

		if iscontent > 0 Or issubject > 0 then
			Call Back_back ( a_noword(z) & "은(는) 사용금지단어입니다. \n단어를 삭제하세요." )
		End if

	next
End if
'//*****************************************************************

If w_mode = "W" Or w_mode = "WR" then		'//저장

	'//폴더 없으면 새로 생성
	strDirectory		= server.mappath("/data/board/") & "\" & a_tablename & "\"
	Call FolderCreate( strDirectory )
	

	'//폴더 없으면 새로 썸네일용
	strDirectory2		= strDirectory & "thum\"
	Call FolderCreate( strDirectory2 )

	
	If a_upload = "Y" then		'//첨부파일 사용일때

		'//첨부파일체크
		for z = 1 To a_upload_len

			'파일저장
			b_file		= eval("b_file" & z)
			If b_file <> "" Then

				ext_chk_arr = Split( b_file, "." )
				ext_chk = LCase( ext_arr( UBound(ext_arr) ) )

				If ext_chk = "jpg" Or ext_chk = "gif" then
					'//썸네일
					Call GD2_make_thumb( 130, 100, b_file, strDirectory2 )
				End if
			End if
		next

	End if

	
	'//ref,step,level 체크
	If b_type = "R" then	'//답변이면

		sql = "UPDATE " & a_tablename & " SET b_step = b_step+1  WHERE b_ref = " & b_ref & "  AND b_step > " & b_step
		dbcon.execute sql

		b_step		= b_step + 1
		b_level		= b_level + 1

	End if
	

	b_cate		= ""
	b_count		= 0
	b_look		= "Y"	'//사용/중지
	'//$b_open		= "Y"; //공개/비공개
	b_id		= SESSION("ss_m_id")
	b_regdate	= getDateFm(Now(), 3)
	b_ip		= request.ServerVariables("REMOTE_ADDR")
	b_chuchun	= 0

	If a_cate = "Y" then
		
		If b_type = "R" then	'//답변이면 //상위분류값을 넣는다..

			SQL = "SELECT b_cate, b_catename FROM " & a_tablename & " WHERE  b_num=" & b_ref
			Set rs_cate = dbcon.execute( sql )
			
			b_cate = rs_cate("b_cate")
			b_catename = rs_cate("b_catename")

			Set rs_cate = nothing

		else

			b_cate_str	= Split(b_cate_tot, ",")
			b_cate		= Trim(b_cate_str(0))
			b_catename	= Trim(b_cate_str(1))

		End if

	else

		b_cate = 0
		b_catename = ""

	End if
	
	b_c_count	= 0


	R_Fields_i = "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_ref, b_step, b_level, b_regdate, b_chuchun, b_sbjclr, b_temp1, b_temp2, b_temp3, b_temp4, b_temp5, b_temp6, b_temp7, b_file1, b_file2, b_file3, b_file4, b_file5,b_keyword, b_c_count, b_zip1, b_zip2, b_addr1, b_addr2"
	'response.write "a_level="&a_level
	'response.end


	If a_level = "default_calendar" or a_level = "nninc_show" or a_level = "nninc_movie"  Then '//달력형태일때.. (전시회, 영화일정 추가 10.07.29)
		R_Fields_i = R_Fields_i & ", b_sdate, b_edate"
	End if


	Call InsertQuery ( R_Fields_i, a_tablename)

	
	If b_type = "N" then

		sql = "SELECT Max(b_num) as max_b_num FROM " & a_tablename
		Set rs1 = dbcon.execute( sql )

		max_b_num = rs1("max_b_num")

		sql = "UPDATE " & a_tablename & " SET b_ref = " & max_b_num & " WHERE b_num = " & max_b_num
		dbcon.execute sql

	End if

	ok_url = "list.asp?a_num=" & a_num & "&amp;" & page_info

elseIf w_mode = "M" then	'//수정


	If a_upload = "Y" then	'//첨부파일 사용일때

		
		'//폴더 없으면 새로 생성
		strDirectory		= server.mappath("/data/board/") & "\" & a_tablename & "\"
		Call FolderCreate( strDirectory )
		

		'//폴더 없으면 새로 썸네일용
		strDirectory2		= strDirectory & "thum\"
		Call FolderCreate( strDirectory2 )


		'//------------------------------------------------------------------------------
		For z=1 To a_upload_len

			'파일저장
			b_file		= eval("b_file" & z)

			If b_file <> "" then		'//첨부파일 있으면

				ext_chk_arr = Split( b_file, "." )
				ext_chk = LCase( ext_arr( UBound(ext_arr) ) )

				If ext_chk = "jpg" Or ext_chk = "gif" then
				'//이미지파일저장
				'//*****************************************
				'//썸네일
				Call GD2_make_thumb( 130, 100, b_file, strDirectory2 )

				End If
				'//*****************************************

			End if

		next

	End if
	'//------------------------------------------------------------------------------

	if a_cate = "Y" then

		If b_type = "R" then	'//답변이면

			SQL = "SELECT b_cate, b_catename FROM " & a_tablename & " WHERE b_num=" & b_ref
			Set rs_cate = dbcon.execute( sql )

			b_cate = rs_cate("b_cate")
			b_catename = rs_cate("b_catename")

		else

			b_cate_str	= Split(b_cate_tot, ",")
			b_cate		= Trim(b_cate_str(0))
			b_catename	= Trim(b_cate_str(1))
		End if

		R_Fields2 = ",b_cate, b_catename"

	End if


	R_Fields = "b_name, b_pwd, b_subject, b_email, b_phone1, b_phone2, b_phone3,  b_noticechk, b_content, b_sbjclr, b_temp1, b_temp2, b_temp3, b_temp4, b_temp5, b_temp6, b_temp7, b_file1, b_file2, b_file3, b_file4, b_file5, b_keyword, b_open" & R_Fields2

	If a_level = "default_calendar" or a_level = "nninc_show" or a_level = "nninc_movie"  then		'//달력형태일때.. (전시회, 영화일정 추가 10.07.29)
		R_Fields = R_Fields & ", b_sdate, b_edate"
	End if

	If a_home = "Y" then	'//주소사용시
		R_Fields = R_Fields & ", b_zip1, b_zip2, b_addr1, b_addr2"
	End if

	Call UpdateQuery ( R_Fields, a_tablename, " where b_num=" & b_num )

	ok_url = "list.asp?a_num=" & a_num & "&amp;" & page_info

End if

prepage = UploadForm("prepage")
If prepage <> "" Then ok_url = prepage

Call loding ("0", ok_url)

%>