<!--#include virtual="/new/common/pageincode.asp" -->
<!-- #include virtual = "/config/config.asp" -->
<!-- #include virtual = "/sms/functions.asp"-->
<!-- #include virtual = "/sms/ASocket.inc"-->
<%
	returnurl = "/new/mbr/login.asp?returnUrl=/new/intro/intro08.asp"
	If session("user_id") = "" Then
		RESPONSE.WRITE ExecJavaAlert2("로그인후 이용해주세요.",returnurl)
		RESPONSE.END
	End If

	Dim smsVariant, smsContents
	Dim time1, time2, time3, tran_date
	Dim branchCode, branchName, content
	Dim admMobile, admEmail

	admMobile = "010-3564-6079"			 '담당자 연락처(SMS 수신)
	admEmail = "mdmarketing@nate.com"		 '담당자 이메일(이메일 수신)

	Response.Expires = 0
	Server.ScriptTimeOut = 1000

	Set upload = Server.CreateObject("DEXT.FileUpload")
	upload.DefaultPath = PathDir&"\data"
	
	upload.MaxFileLen = 5 * 1024000
	DirectoryPath = PathDir&"\data\tbl_incruit" 	 ''/// 파일이 저장될 로컬폴더 경로	
	
	B_IP				= Request.ServerVariables("REMOTE_ADDR")

	idx					= trim(upload("idx"))
	user_id				= trim(upload("user_id"))

	If user_id = "" Then user_id = "Guest"
	

	user_name			= trim(upload("user_name"))
	user_age			= trim(upload("user_age"))
	user_sex			= trim(upload("user_sex"))
	user_tel			= trim(upload("user_tel"))
	user_email			= trim(upload("user_email"))

	user_tel1			= trim(upload("user_tel1"))
	user_tel2			= trim(upload("user_tel2"))
	user_tel3			= trim(upload("user_tel3"))

	user_tel			= user_tel1&"-"&user_tel2&"-"&user_tel3

	user_email1			= trim(upload("user_email1"))
	user_email2			= trim(upload("user_email2"))

	user_email			= user_email1&"@"&user_email2

	user_pass			= trim(upload("user_pass"))
	bbs_type_u			= trim(upload("bbs_type_u"))
	reple_type1			= trim(upload("reple_type1"))
	reple_type2			= trim(upload("reple_type2"))
	reple_type3			= trim(upload("reple_type3"))
	reple_type4			= trim(upload("reple_type4"))
	user_year			= trim(upload("user_year"))
	user_month			= trim(upload("user_month"))
	user_day			= trim(upload("user_day"))
	user_week			= trim(upload("user_week"))
	store_type			= trim(upload("store_type"))
	b_subject			= trim(upload("b_subject"))
	b_content			= trim(upload("b_content"))
	b_file0				= trim(upload("b_file0"))
	b_file1				= trim(upload("b_file1"))
	b_content_re		= trim(upload("b_content_re"))
	b_writedate			= trim(upload("b_writedate"))
	b_re_writedate		= trim(upload("b_re_writedate"))

	b_doctor_type		= trim(upload("b_doctor_type"))

	
	write_mode          = trim(upload("write_mode"))

	user_spam2			= trim(upload("user_spam2"))

	admin_type			= Trim(upload("admin_type"))

	vSesID		= cipherDecode(upload("sesID"), "psymonkey")
	vSesID		= Mid(vSesID,2,1) & Mid(vSesID,4,1) & Mid(vSesID,6,1) & Mid(vSesID,8,1)

	IF CStr(vSesID) <> CStr(user_spam2) Then

		RESPONSE.WRITE ExecJavaAlert("인증번호 확인 바랍니다.",0)
		RESPONSE.END

	End If


	B_SUBJECT = GetReplaceInput(B_SUBJECT,0)
	B_CONTENT = GetReplaceInput(B_CONTENT,0)


	''*************************************
	''* 파일만삭제
	''*************************************
	Dim ARR_FILE_ONLY_DELETE_U(1)
	for i = 0 to 1
		ARR_FILE_ONLY_DELETE_U(i) = upload("filedelete0")
		if ARR_FILE_ONLY_DELETE_U(i) = "" then
			ARR_FILE_ONLY_DELETE_U(i) = "N"
			else
			ARR_FILE_ONLY_DELETE_U(i) = "Y"
		end if
	Next
	
	''*************************************
	''* 수정시 해당게시물정보
	''*************************************
	IF write_mode = "edit" THEN
		set RS = DBCon.Execute("select * from tbl_incruit where IDX="&IDX&" ")

		FILENAME_0 = RS("B_FILE0")
		FILENAME_1 = RS("B_FILE1")
		
		ARR_OLDFILE_NAME  = Array(FILENAME_0,FILENAME_1)
		RS.CLOSE : SET RS = NOTHING

		''*************************************
		''* 손님글이면 패스워드를 체크
		''*************************************
	
		IF STRCOMP(EDIT_C_PWD,B_PWD) = 0 THEN
			ELSE
			RESPONSE.WRITE ExecJavaAlert("비밀번호가 일치하지 않습니다.",0)
			RESPONSE.END
		END IF	

	End If
	
	''*************************************
	''* 파일업로드
	''*************************************
	Dim ARR_UPLOAD_FILENAME(9)
	For i = 0 to 1
		IF upload("B_FILE"&i&"") <> "" THEN
			ARR_UPLOAD_FILENAME(i) = upload("B_FILE"&i&"").filename
			ARR_UPLOAD_FILENAME(i) = replace(ARR_UPLOAD_FILENAME(i)," ","")
			ARR_UPLOAD_FILENAME(i) = replace(ARR_UPLOAD_FILENAME(i),"'","")

			
			FileWholePath = GetUniqueName(ARR_UPLOAD_FILENAME(i), DirectoryPath)
			IF write_mode = "edit" THEN
				DBCon.Execute("update tbl_incruit set B_FILE"&i&" = '" & ARR_UPLOAD_FILENAME(i) & "' where IDX = '" & IDX & "' ")
				if ARR_OLDFILE_NAME(i) <> "" Then
					Call ExecFileDelete(DirectoryPath, ARR_OLDFILE_NAME(i))
				End if
			END If
			'response.write FileWholePath

			upload("B_FILE"&i&"").SaveAs FileWholePath
		End if
	Next


	SELECT CASE write_mode
	CASE "add"

		SQL = "INSERT INTO tbl_incruit " &_
		" (user_id, user_name, user_age, user_sex, user_tel, user_email, "&_
		" user_pass, bbs_type_u, reple_type1, reple_type2, reple_type3, reple_type4, "&_
		" user_year, user_month, user_day, user_week, store_type, b_subject, "&_
		" b_content, b_file0, b_file1, b_doctor_type, b_content_re, b_writedate, b_re_writedate,b_reple_type)"&_
		" VALUES  " &_
		
		" ('"&user_id&"', '"&user_name&"', '"&user_age&"', '"&user_sex&"', '"&user_tel&"', '"&user_email&"', "&_
		" '"&user_pass&"', '"&bbs_type_u&"', '"&reple_type1&"', '"&reple_type2&"', '"&reple_type3&"', '"&reple_type4&"', "&_
		" '"&user_year&"', '"&user_month&"', '"&user_day&"', '"&user_week&"', '"&store_type&"', '"&b_subject&"', "&_
		" '"&b_content&"', '"&ARR_UPLOAD_FILENAME(0)&"', '"&ARR_UPLOAD_FILENAME(1)&"', '0', '"&b_content_re&"', getdate(), '', '0')"
	
		'response.write sql

		DBCON.EXECUTE(SQL)


		'### 2. SMS 발송 ##########################

		'야간 시간대는 예약발송, 나머지는 즉시 발송
		time1 = "20:59" '이시간 보다 크면 내일 아침 time3에 발송
		time1 = CDate(time1)
		time2 = "08:59" '이시간 보다 작으면 오늘 아침 time3에 발송
		time2 = CDate(time2)
		time3 = "09:00" '발송불가 시간은 이시간으로 예약발송

		If Time() > time1 Then
		tran_date = Date() + 1 & " " & time3 & ":00"
		ElseIf Time() < time2 Then
		tran_date = Date() & " " & time3 & ":00"
		Else
		tran_date = "0" '즉시 발송
		End If

		'SMS 발송 내용
		smsContents = "[채용안내] " & Left(b_subject, 25) & " - " & user_name

		'지점 관리자(실장) 정보 가져오기
		branchCode = "UNI0" & store_type 'store_type을 branchCode형태로 전환
		SQL = "SELECT branchName FROM TB_BRANCH WHERE branchCode = '" & branchCode & "'"
		Set RS = Dbcon.Execute(SQL)

		If RS.eof = false Then
		branchName = RS("branchName")	 '지점명
		'branchMobile = RS("branchMobile")	 '지점 관리자 휴대폰
		'branchEmail = RS("branchEmail")		 '지점 관리자 이메일
		End If

		RS.Close
		Set RS = Nothing

			'*******************************************************************************************************************
			'파일명	: sms.asp
			'함수정의
			'	GetMsgLen()							메세지 전체 길이를 계산하는 함수
			'	MakeQuery()							발송 쿼리를 만드는 함수
			'	Submit()								실제 데이터 전송 함수
			'	ErrorNum(str, Max, Gubun)		입력된 데이터의 무결성을 체크하는 함수
			'	StrLenByte(str)						입력된 데이터의 Byte를 계산하는 함수
			'	AsciiConf(char)						ASCII 값을 가지고 Byte를 추출하는 함수
			'	WaitForData( o )						소켓을 이용하여 이벤트를 발생 했을경우 서버로 부터 리턴되는 메세지를 Catch하기 위한 함수
			'	HanCount(str)							발송될 메세지 내용 중 한글의 갯수를 세는 함수
			'	CommError(ErrNum)				오류 번호에 따른 오류 메세지 리턴 함수
			'																																				- Made by Gabia Inc.
			'*******************************************************************************************************************
			Response.Write "<font color='#ffffff'>" 'SMS 결과 메시지 안보이게 처리

			Set smsVariant = New MVariant			' 클래스 셋팅

			smsVariant.smsServer = "sms.gabia.com"					' 서버 주소 또는 IP
			smsVariant.smsPort = "5000"										' 연결 포트
			smsVariant.smsTimeout = 10										' 연결 TimeOut 설정
			smsVariant.smsStatus = "1"											' 전송상태설정
			smsVariant.sms_key = "GS"											' SMS 키값설정
			smsVariant.cTranid = "uni114"							' SMS 사용자 ID
			smsVariant.cTranpasswd = "uni1141003"						' SMS 사용자 암호
			smsVariant.cTranphone = admMobile		' ## 받는사람 핸드폰 번호
			smsVariant.cTrancallback = user_tel				' ## 보내는 사람 핸드폰 번호(고객 번호)
			smsVariant.cTrandate = tran_date					' ## 보낼 날짜 (값이 '0' 일경우 지금당장보내는것, 그 외에 예약 발송일 경우 날짜 패턴은 YYYY-MM-DD HH:MM:SS 이다)
			smsVariant.cTranmsg = smsContents				' ## 보낼 메세지
			smsVariant.smsEndOfCommand = chr(10)					' 종료문자

			Set sms = Server.CreateObject("Intrafoundation.TCPClient")
			sms.Clear()

			sms.Open smsVariant.smsServer, smsVariant.smsPort			' 서버에 연결 - 소켓을 이용하여 이벤트를 발생 시켰을경우 해당 이벤트에 대한 메세지는 .LastError 메소드로 확인 할 수 있다.
			sms.Timeout = smsVariant.smsTimeout

			If sms.Connected = 1 Then			' 연결이 성공 했을 경우
				Call Submit			' 서버에 전송하는 함수 호출

				smsVariant.ReturnMSG = sms.Recv			' 리턴 메세지 저장
				response.write smsVariant.ReturnMSG & "<br>"

				Err_Message = CommError(smsVariant.ReturnMSG)		' 리턴 메세지로 에러 메세지를 추출

				sms.Close		' 소켓 연결 해제

				set sms = nothing		' SMS 소켓 개체 초기화
				set smsVariant = nothing		' 클래스 초기화

				response.write Err_Message
			end If
			
			Response.Write "</font>"

		'====================================

		'### 3. 이메일 발송 #########################

			' ######## 메일 보내기 설정
			set objMessage = createobject("cdo.message")
			set objConfig = createobject("cdo.configuration")
		  
			Schemas = "Http://Schemas.Microsoft.Com/Cdo/Configuration"

			Set Flds = objConfig.Fields
			With Flds
			 Flds.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 1 '1 (로컬 SMTP) / 2 (외부 SMTP)
			 Flds.item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25   'SMTP Port
			 Flds.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "localhost"   '호스트 설정
			 Flds.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverpickupdirectory") = "c:\Inetpub\mailroot\Pickup"   'Pickup 디렉토리 설정
			 Flds.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 30   '연결 시간
			 Flds.update

			 End With

			Set objMessage.Configuration = objConfig
			'########## 메일 설정 끝

			
			to_email = admEmail		'담당자(받는사람)
			from_email = "help@uni114.co.kr"

			subject = "[채용안내] " & user_name & " - " & b_subject '제목

			b_content = Replace(b_content, chr(13) & chr(10), "<br />")	'작성글 줄바꿈
		
			'메일 본문
			content = "<table width=600 align=center border=0 cellpadding=0 cellspacing=0>"
			content = content & "<tr><th><h1><a href='http://www.uni114.co.kr' target='_blank'>유앤아이 채용안내</a></h1></th></tr>"
			content = content & "<tr><td height='10'></td></tr>"
			content = content & "<tr><td>"
			content = content & "<table align='center' width='100%' cellspacing='1' cellpadding='5' border='0' bgcolor='#aaaaaa'>"
			content = content & "<tr><td width='15%' bgcolor='#f7f7f7' align='center'>지점</td><td width='*%' bgcolor='#ffffff'>" & branchName & "</td></tr>"
			content = content & "<tr><td bgcolor='#f7f7f7' align='center'>성명</td><td bgcolor='#ffffff'>" & user_name & "</td></tr>"
			content = content & "<tr><td bgcolor='#f7f7f7' align='center'>연락처</td><td bgcolor='#ffffff'>" & user_tel & "</td></tr>"
			content = content & "<tr><td bgcolor='#f7f7f7' align='center'>이메일</td><td bgcolor='#ffffff'>" & user_email & "</td></tr>"
			content = content & "<tr><td bgcolor='#f7f7f7' align='center'>제목</td><td bgcolor='#ffffff'>" & b_subject & "</td></tr>"
			content = content & "<tr><td bgcolor='#f7f7f7' align='center'>내용</td><td bgcolor='#ffffff'>" & b_content & "</td></tr>"
			content = content & "</table>"
			content = content & "</td></tr>"
			content = content & "<tr><td height='10'></td></tr>"
			content = content & "<tr><td>고객센터 1661-6020</td></tr>"
			content = content & "</td></tr></table>"

			objMessage.To = to_email	   	    ' 받는사람
			objMessage.From = from_email	   	    ' 보내는사람
			objMessage.bcc = ""	   	    '참조 메일

			objMessage.Subject = subject	   ' 제목
			objMessage.HTMLBody = content	   	   ' 내용

			objMessage.BodyPart.Charset="ks_c_5601-1987"	   	   ' 내용 한글
			objMessage.HTMLBodyPart.Charset="ks_c_5601-1987"
			objMessage.fields.update
			
			if to_email <> "" then
			objMessage.Send	   ' 실제로 보낸는 메소드
			end if

			set objMessage = nothing
			set objConfig = nothing
			set Flds = Nothing
			
		'====================================

		'성공 후 이동할 페이지
		Response.Write "<script>"
		Response.Write "alert('입사지원서 등록이 완료되었습니다.\n확인 후 연락드리겠습니다.');"
		Response.Write "location.href='intro08.asp';"
		Response.Write "</script>"
		Response.End

	CASE "edit"


		''*****************************
		''* 파일만삭제시 처리
		''*****************************
		for i = 0 to 1
			if ARR_FILE_ONLY_DELETE_U(i) = "Y" then
				s_filename = Split(ARR_OLDFILE_NAME(i),".")
			
				CALL ExecFileDelete(DirectoryPath,ARR_OLDFILE_NAME(i))
				Dbcon.Execute("Update tbl_incruit Set B_FILE"&i&" = '' where IDX = "&IDX&"")
			end if
		Next
		
		If admin_type = "1" Then

		SQL = "UPDATE tbl_incruit SET " &_
		" user_tel='"&user_tel&"', user_email='"&user_email&"',bbs_type_u='"&bbs_type_u&"', "&_
		" reple_type1='"&reple_type1&"', reple_type2='"&reple_type2&"',  reple_type3='"&reple_type3&"', reple_type4='"&reple_type4&"', "&_
		" user_year='"&user_year&"',  user_month='"&user_month&"', user_day='"&user_day&"', store_type='"&store_type&"', b_subject='"&b_subject&"', "&_
		" b_content='"&b_content&"' "&_
		" WHERE IDX='"&IDX&"'"
		DBCON.EXECUTE(SQL)
		
		Else
		

		SQL = "UPDATE tbl_incruit SET " &_
		" user_tel='"&user_tel&"', user_email='"&user_email&"', user_pass='"&user_pass&"', bbs_type_u='"&bbs_type_u&"', "&_
		" reple_type1='"&reple_type1&"', reple_type2='"&reple_type2&"',  reple_type3='"&reple_type3&"', reple_type4='"&reple_type4&"', "&_
		" user_year='"&user_year&"',  user_month='"&user_month&"', user_day='"&user_day&"', store_type='"&store_type&"', b_subject='"&b_subject&"', "&_
		" b_content='"&b_content&"' "&_
		" WHERE IDX='"&IDX&"'"
		DBCON.EXECUTE(SQL)

		End If
		
		Response.Write "<script>"
		Response.Write "alert('수정하였습니다.');"
		Response.Write "location.href='intro08.asp';"
		Response.Write "</script>"
		Response.End

	Case "reply"

		SQL = "SELECT * FROM tbl_incruit where idx = '"&idx&"' "
		SET Rs = DBCON.EXECUTE(SQL)
		
		
		bbs_type_u			= RS("bbs_type_u")
		reple_type1			= RS("reple_type1")
		reple_type2			= RS("reple_type2")
		reple_type3			= RS("reple_type3")
		reple_type4			= RS("reple_type4")
		user_tel			= RS("user_tel")
		user_email			= RS("user_email")
		

		If reple_type3 = "1" Then
		
			' ######## 메일 보내기 설정
			set objMessage = createobject("cdo.message")
			set objConfig = createobject("cdo.configuration")
		  
			Schemas = "Http://Schemas.Microsoft.Com/Cdo/Configuration"

			Set Flds = objConfig.Fields
			With Flds
			 Flds.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 1 '1 (로컬 SMTP) / 2 (외부 SMTP)
			 Flds.item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25   'SMTP Port
			 Flds.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "localhost"   '호스트 설정
			 Flds.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverpickupdirectory") = "c:\Inetpub\mailroot\Pickup"   'Pickup 디렉토리 설정
			 Flds.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 30   '연결 시간
			 Flds.update

			 End With

			Set objMessage.Configuration = objConfig
			'########## 메일 설정 끝

			
			to_email = user_email
			from_email = admin_email

			subject = email_subject
			content = b_content_re

			objMessage.To = to_email	   	    ' 받는사람
			objMessage.From = from_email	   	    ' 보내는사람
			objMessage.bcc = " "	   	    '참조 메일

			objMessage.Subject = subject	   ' 제목
			objMessage.HTMLBody = content	   	   ' 내용

			objMessage.BodyPart.Charset="ks_c_5601-1987"	   	   ' 내용 한글
			objMessage.HTMLBodyPart.Charset="ks_c_5601-1987"
			objMessage.fields.update
			
			if to_email <> "" then
			objMessage.Send	   ' 실제로 보낸는 메소드
			end if

			set objMessage = nothing
			set objConfig = nothing
			set Flds = nothing

		End If
		
		If reple_type4 = "1" Then
		

		'*******************************************************************************************************************
		'파일명	: sms.asp
		'함수정의
		'	GetMsgLen()							메세지 전체 길이를 계산하는 함수
		'	MakeQuery()							발송 쿼리를 만드는 함수
		'	Submit()								실제 데이터 전송 함수
		'	ErrorNum(str, Max, Gubun)		입력된 데이터의 무결성을 체크하는 함수
		'	StrLenByte(str)						입력된 데이터의 Byte를 계산하는 함수
		'	AsciiConf(char)						ASCII 값을 가지고 Byte를 추출하는 함수
		'	WaitForData( o )						소켓을 이용하여 이벤트를 발생 했을경우 서버로 부터 리턴되는 메세지를 Catch하기 위한 함수
		'	HanCount(str)							발송될 메세지 내용 중 한글의 갯수를 세는 함수
		'	CommError(ErrNum)				오류 번호에 따른 오류 메세지 리턴 함수
		'																																				- Made by Gabia Inc.
		'*******************************************************************************************************************

		Set smsVariant = New MVariant			' 클래스 셋팅

		smsVariant.smsServer = "sms.gabia.com"					' 서버 주소 또는 IP
		smsVariant.smsPort = "5000"										' 연결 포트
		smsVariant.smsTimeout = 10										' 연결 TimeOut 설정
		smsVariant.smsStatus = "1"											' 전송상태설정
		smsVariant.sms_key = "GS"											' SMS 키값설정
		smsVariant.cTranid = "uni114"							' SMS 사용자 ID
		smsVariant.cTranpasswd = "uni1141003"						' SMS 사용자 암호
		smsVariant.cTranphone = user_tel			' 받는사람 핸드폰 번호
		smsVariant.cTrancallback = admin_tel		' 보내는 사람 핸드폰 번호
		smsVariant.cTrandate = "0"											' 보낼 날짜 (값이 '0' 일경우 지금당장보내는것, 그 외에 예약 발송일 경우 날짜 패턴은 YYYY-MM-DD HH:MM:SS 이다)
		smsVariant.cTranmsg = sms_message		' 보낼 메세지
		smsVariant.smsEndOfCommand = chr(10)					' 종료문자

		Set sms = Server.CreateObject("Intrafoundation.TCPClient")
		sms.Clear()

		sms.Open smsVariant.smsServer, smsVariant.smsPort			' 서버에 연결 - 소켓을 이용하여 이벤트를 발생 시켰을경우 해당 이벤트에 대한 메세지는 .LastError 메소드로 확인 할 수 있다.
		sms.Timeout = smsVariant.smsTimeout

		If sms.Connected = 1 Then			' 연결이 성공 했을 경우
			Call Submit			' 서버에 전송하는 함수 호출

			smsVariant.ReturnMSG = sms.Recv			' 리턴 메세지 저장
			response.write smsVariant.ReturnMSG & "<br>"

			Err_Message = CommError(smsVariant.ReturnMSG)		' 리턴 메세지로 에러 메세지를 추출

			sms.Close		' 소켓 연결 해제

			set sms = nothing		' SMS 소켓 개체 초기화
			set smsVariant = nothing		' 클래스 초기화

			response.write Err_Message
		end if


		End If
		

		SQL = "UPDATE tbl_incruit SET " &_
		" b_doctor_type = '"&b_doctor_type&"', b_reple_type = '1', b_content_re = '"&b_content_re&"', b_re_writedate=getdate() "&_
		" WHERE IDX='"&IDX&"'"
		DBCON.EXECUTE(SQL)


		RESPONSE.REDIRECT "/new/intro/incruit_view.asp?idx="&idx&"&gotopage="&gotopage&"&reply=1&store_type="&store_type


	End Select
	
	
%>