<% Dim idx, userId, userName, userTel, userDate, userTime, contents, writeDate, anser, memo, katalkId Dim userTel1, userTel2, userTel3, kind, device, writePage Dim UploadForm, SQL, RS, tableName, listFile Dim mode, msg Dim smsVariant, smsMsg, smsFrom Dim time1, time2, time3, tran_date Dim branchCode, branchName, branchMobile, branchEmail tableName = "TB_TEL_COUNSEL" '### DB 테이블명 listFile = "/" '### 리스트 파일명 '넘어온 값 변수에 받기 mode = Trim(Request("mode")) idx = Trim(Request("idx")) branchCode = Trim(Request("branchCode")) userId = Trim(Request("userId")) userName = Trim(Request("userName")) : userName = InjectionDefender(userName) userTel1 = Trim(Request("userTel1")) userTel2 = Trim(Request("userTel2")) userTel3 = Trim(Request("userTel3")) katalkId = Trim(Request("katalkId")) If katalkId = "" Then userTel = userTel1 & "-" & userTel2 & "-" & userTel3 Else userTel = katalkId End If userDate = Trim(Request("inDate")) userTime = Trim(Request("userTime")) contents = Request("contents") : contents = InjectionDefender(contents) anser = Trim(Request("anser")) memo = Request("memo") : memo = InjectionDefender(memo) kind = Trim(Request("kind")) device = Trim(Request("device")) writePage = Trim(Request("writePage")) Select Case mode Case "edit" '수정 ########################################################## Call CheckAuth("sojujan", mode) '### 접근 권한 체크 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" '삭제 ########################################################## Call CheckAuth("sojujan", mode) '### 접근 권한 체크 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, kind, device, writePage) " SQL = SQL & " VALUES ('" & branchCode & "', '" & userId & "', '" & userName & "', '" & userTel & "', '" & userDate & "', '" & userTime & "', '" & contents & "', GETDATE(), '" & kind & "', '" & device & "', '" & writePage & "')" %> <% Dbcon.Execute(SQL) '############## SMS 발송 시작 ############################ 'Dim smsVariant, smsMsg, smsFrom 'Dim time1, time2, time3, tran_date 'Dim branchCode, branchName, branchMobile, branchEmail '야간 시간대는 예약발송, 나머지는 즉시 발송 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 '지점 관리자 정보 가져오기 'SQL = "SELECT branchName, branchMobile, branchEmail FROM GW_BRANCH WHERE branchCode = '" & branchCode & "'" SQL = "SELECT branchName, branchMobile, branchEmail FROM GW_BRANCH WHERE branchCode = 'M001'" '콜센터 담당자 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 = "[ " & kind & "요청 ] " & 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 = smsFrom ' ## 보내는 사람 핸드폰 번호(고객 번호) 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 " & kind & "요청] " & 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 '처리 완료(공용) ########################################################## 'If Session("admin_div") < 1 Then listFile = "/" : '관리자가 아니면 메인으로 이동 Response.Write "" Response.End %>