<% Dim smsVariant, smsContents Dim time1, time2, time3, tran_date Dim branchCode, branchName, content Dim admMobile, admEmail '### SMS, 이메일 알림 수신자 지정 ###################################### '[엠디비젼] 이상훈, 최유경, 김안나, 백민정, 엠디비젼hr admMobile = "010-8942-5744|010-3564-6079|010-6646-5827|010-4539-5617" admEmail = "sojujan@nate.com;mdmarketing@nate.com;annarj@hanmail.net;mdvisionhr@nate.com" '[강남] 조현주, 박희진, 배연순 admMobile = admMobile & "|010-3190-8410|010-4762-7257|010-3033-1436" admEmail = admEmail & ";godeb1003@naver.com" '[명동] 정효정 admMobile = admMobile & "|010-3872-0582" admEmail = admEmail & ";victory0582@nate.com" '[수원] 유슬기, 박소진, 박미 admMobile = admMobile & "|010-4221-5530|010-3185-9454|010-6312-9422" admEmail = admEmail & ";lovesg6199@nate.com" '[신촌] 박희진, 김지은, 이성주 원장, 박정윤 부실장 admMobile = admMobile & "|010-8981-0823|010-4756-0719|010-3883-2775|010-5098-0923" admEmail = admEmail & ";xldb11@naver.com;donny82@hanmail.net;bbs0923@nate.com" '[잠실] 김지원, 박송이, 이다솜 admMobile = admMobile & "|010-9180-4501|010-5210-5441" admEmail = admEmail & ";sy80i@daum.net" '[판교] 윤희숙, 김가혜 admMobile = admMobile & "|010-6220-3454|010-7139-5514" admEmail = admEmail & ";kaeun55@naver.com" '[광교] 안민희, 윤혜수, 서예슬 admMobile = admMobile & "|010-7303-9105|010-9776-9621|010-9275-0677" admEmail = admEmail & ";swamh@naver.com" '[왕십리] 김연지, 권은영 admMobile = admMobile & "|010-4565-3699|010-8744-0420" admEmail = admEmail & ";cutekyj0@naver.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_custom" ''/// 파일이 저장될 로컬폴더 경로 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")) 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_custom 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_custom 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_custom " &_ " (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&"', '1', '"&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 = "[UNI고객소리함] " & Left(b_subject, 25) & " - " & user_name '지점 관리자(실장) 정보 가져오기 branchCode = "U00" & store_type 'store_type을 branchCode형태로 전환 SQL = "SELECT branchName FROM GW_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 "" 'SMS 결과 메시지 안보이게 처리 admMobile = Split(admMobile, "|") '관리자 휴대폰 갯수만큼 반복 발송(최대 3건) For cnt=0 To Ubound(admMobile) 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(cnt) ' ## 받는사람 핸드폰 번호 smsVariant.cTrancallback = admin_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 & "
" Err_Message = CommError(smsVariant.ReturnMSG) ' 리턴 메세지로 에러 메세지를 추출 sms.Close ' 소켓 연결 해제 set sms = nothing ' SMS 소켓 개체 초기화 set smsVariant = nothing ' 클래스 초기화 response.write Err_Message end If Next Response.Write "" '==================================== '### 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 = "[UNI고객소리함] " & user_name & " - " & b_subject '제목 b_content = Replace(b_content, chr(13) & chr(10), "
") '작성글 줄바꿈 '메일 본문 content = "
" content = content & "
유앤아이 안내 메일
" content = content & "
" content = content & "
이름 : " & user_name & "   연락처 : " & user_tel & "   [" & branchName & "]
" content = content & "
" content = content & "제목 : " & b_subject & "

" content = content & b_content content = content & "
" If ARR_UPLOAD_FILENAME(0) <> "" Then content = content & "

첨부파일" End If content = content & "
" 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.REDIRECT "./cscenter01_confirm.asp" 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_custom Set B_FILE"&i&" = '' where IDX = "&IDX&"") end if Next If admin_type = "1" Then SQL = "UPDATE tbl_custom SET " &_ " user_tel='"&user_tel&"', user_email='"&user_email&"', "&_ " 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_custom SET " &_ " user_tel='"&user_tel&"', user_email='"&user_email&"', user_pass='"&user_pass&"', "&_ " 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.REDIRECT "./cscenter01.asp" Case "reply" SQL = "SELECT * FROM tbl_custom where idx = '"&idx&"' " SET Rs = DBCON.EXECUTE(SQL) 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") store_type = RS("store_type") user_name = RS("user_name") user_tel = RS("user_tel") b_subject = RS("b_subject") b_content = RS("b_content") RS.Close Set RS = Nothing branchCode = "U00" & store_type 'store_type을 branchCode형태로 전환 Select Case branchCode Case "U001" branchName = "강남점" Case "U002" branchName = "수원점" Case "U003" branchName = "잠실점" Case "U004" branchName = "판교점" Case "U005" branchName = "잠실점" Case "U006" branchName = "왕십리점" Case "U009" branchName = "신촌점" Case "U007" branchName = "명동점" Case "U008" branchName = "광교점" End Select 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 = "help@uni114.co.kr" subject = email_subject content = "
" content = content & "
유앤아이 고객소리함
" content = content & "
이름 : " & user_name & "   연락처 : " & user_tel & "   [" & branchName & "]
제목 : " & b_subject & "
" & b_content_re & "
" content = content & "

귀 기울여 듣고 더욱 성장하는 유앤아이가 되겠습니다.
감사합니다.

" content = content & "
" 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 & "
" 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_custom 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 "./cscenter01_view.asp?idx="&idx&"&gotopage="&gotopage&"&reply=1&store_type="&store_type End Select %>