<% Call AdminAuth() '사용권한 체크(홈피 관리자나, POS 사용가가 아니면 접근불가) Dim idx, branchCode, userId, userName, userTel, userDate, userTime, contents, writeDate, anser, memo Dim userTel1, userTel2, userTel3 Dim branchTel, branchMobile, branchEmail, smsContents Dim time1, time2, time3, tran_date Dim UploadForm, SQL, RS, tableName, listFile Dim mode, msg tableName = "TB_TEL_COUNSEL" '### DB 테이블명 listFile = "customer07.asp" '### 리스트 파일명 '넘어온 값 변수에 받기 mode = Trim(Request("mode")) idx = Trim(Request("idx")) branchCode = Trim(Request("branchCode")) userId = Trim(Request("userId")) userName = Trim(Request("userName")) : userName = InjectionDefender(userName) userTel = Trim(Request("userTel")) 'userTel1 = Trim(Request("userTel1")) 'userTel2 = Trim(Request("userTel2")) 'userTel3 = Trim(Request("userTel3")) 'userTel = userTel1 & "-" & userTel2 & "-" & userTel3 userDate = Trim(Request("userDate")) userTime = Trim(Request("userTime")) contents = Request("contents") : contents = InjectionDefender(contents) anser = Trim(Request("anser")) memo = Request("memo") : memo = InjectionDefender(memo) Select Case mode Case "edit" '수정 ########################################################## msg = "수정" 'DB 수정 SQL = "UPDATE " & tableName SQL = SQL & " SET branchCode = '" & branchCode & "'" SQL = SQL & ", userName = '" & userName & "'" SQL = SQL & ", userTel = '" & userTel & "'" SQL = SQL & ", userDate = '" & userDate & "'" SQL = SQL & ", userTime = '" & userTime & "'" SQL = SQL & ", contents = '" & contents & "'" SQL = SQL & ", anser = '" & anser & "'" SQL = SQL & ", memo = '" & memo & "'" SQL = SQL & " WHERE idx = " & idx Dbcon.Execute(SQL) Case "del" '삭제 ########################################################## msg = "삭제" 'DB 삭제 SQL = "DELETE " & tableName & " WHERE idx=" & idx Dbcon.Execute(SQL) Case "insert" '추가 ########################################################## msg = "등록" '### 1. DB 저장 SQL = "INSERT INTO " & tableName & " (branchCode, userId, userName, userTel, userDate, userTime, contents, writeDate) " SQL = SQL & " VALUES ('" & branchCode & "', '" & userId & "', '" & userName & "', '" & userTel & "', '" & userDate & "', '" & userTime & "', '" & contents & "', GETDATE())" 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상담요청 ] " & userName & " (" & userDate & " " & userTime & ") " & Left(contents, 20) '지점 관리자(실장) 정보 가져오기 '지점 관리자 정보 가져오기 SQL = "SELECT branchName, branchMobile, branchEmail 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 '### 설정1. 발신번호 smsFrom = userTel '### 설정2. 문자 내용 smsMsg = "[ 전화상담요청 ] " & userName & " (" & userDate & " " & userTime & ") " & branchName & Left(contents, 0) Response.Write "" '전송결과 안보이게 처리.. branchMobile = Split(branchMobile, "|") '관리자 휴대폰 갯수만큼 반복 발송(최대 3건) For cnt=0 To Ubound(branchMobile) If Len(branchMobile(cnt)) > 9 Then 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 = branchMobile(cnt) ' ## 받는사람 핸드폰 번호 smsVariant.cTrancallback = admin_tel ' ## 보내는 사람 핸드폰 번호 smsVariant.cTrandate = tran_date ' ## 보낼 날짜 (값이 '0' 일경우 지금당장보내는것, 그 외에 예약 발송일 경우 날짜 패턴은 YYYY-MM-DD HH:MM:SS 이다) smsVariant.cTranmsg = smsMsg ' ## 보낼 메세지 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 Next Response.Write "" '############## SMS 발송 종료 ############################ '### 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 = branchEmail '지점 관리자 from_email = admin_email subject = "[UNI상담요청] " & userName & " (" & userDate & " " & userTime & ") " '제목 contents = Replace(contents, chr(13) & chr(10), "
") '작성글 줄바꿈 '메일 본문 content = "" content = content & "" content = content & "" content = content & "" content = content & "" content = content & "" content = content & "

" content = content & "" content = content & "" content = content & "" content = content & "" content = content & "" content = content & "" content = content & "

지점	" & branchName & "
성명	" & userName & "
연락처	" & userTel & "
가능시간	" & userDate & " (" & userTime & ")
내용	" & contents & "

" 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 '### 이메일 발송 끝 ########################## Case Else msg = "실패" End Select %> <% '처리 완료(공용) ########################################################## Response.Write "" Response.End %>