<% Dim smsVariant, smsMsg, smsFrom Dim time1, time2, time3, tran_date Dim branchCode, branchName, branchMobile, branchEmail Response.Expires = 0 Server.ScriptTimeOut = 1000 Set upload = Server.CreateObject("DEXT.FileUpload") upload.DefaultPath = PathDir&"\data" upload.MaxFileLen = 5 * 1024000 DirectoryPath = PathDir&"\data\tbl_order" ''/// ÆÄÀÏÀÌ ÀúÀåµÉ ·ÎÄÃÆú´õ °æ·Î 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")) branchCode = trim(upload("branchCode")) 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")) re_user_year = trim(upload("re_user_year")) re_user_month = trim(upload("re_user_month")) re_user_day = trim(upload("re_user_day")) re_user_week = trim(upload("re_user_week")) re_user_time_type = Trim(upload("re_user_time_type")) re_user_time = Trim(upload("re_user_time")) re_user_minite = Trim(upload("re_user_minite")) select_type = trim(upload("select_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) ''************************************* ''* ¼öÁ¤½Ã ÇØ´ç°Ô½Ã¹°Á¤º¸ ''************************************* IF write_mode = "edit" THEN set RS = DBCon.Execute("select * from tbl_order 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 SELECT CASE write_mode CASE "add" SQL = "INSERT INTO tbl_order " &_ " (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, branchCode, select_type, b_subject, "&_ " b_content, b_file0, b_file1, b_doctor_type, b_content_re, b_writedate, b_re_writedate, b_reple_type, device)"&_ " 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&"', '"&branchCode&"', '"&select_type&"', '"&b_subject&"', "&_ " '"&b_content&"', '', '', '0', '"&b_content_re&"', getdate(), '', '0', 'PC')" 'response.write sql DBCON.EXECUTE(SQL) '############## 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 'tran_date = "0" '#¹«Á¶°Ç Áï½Ã¹ß¼Û 'ÁöÁ¡ °ü¸®ÀÚ Á¤º¸ °¡Á®¿À±â 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 = user_tel '### ¼³Á¤2. ¹®ÀÚ ³»¿ë smsMsg = "[Áø·á¿¹¾à] " & user_name & "(" & branchName & ") " & Left(b_subject, 20) 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 ¹ß¼Û Á¾·á ############################ %> <% Response.Write "" Response.End CASE "edit" If admin_type = "1" Then SQL = "UPDATE tbl_order 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&"', select_type='"&select_type&"', branchCode = '"&branchCode&"', b_subject='"&b_subject&"', "&_ " b_content='"&b_content&"' "&_ " WHERE IDX='"&IDX&"'" DBCON.EXECUTE(SQL) Else SQL = "UPDATE tbl_order 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&"', select_type='"&select_type&"', branchCode = '"&branchCode&"', b_subject='"&b_subject&"', "&_ " b_content='"&b_content&"' "&_ " WHERE IDX='"&IDX&"'" DBCON.EXECUTE(SQL) End If RESPONSE.REDIRECT "http://www.uni114.co.kr/new/customer/customer03.asp" Case "reply" SQL = "SELECT * FROM tbl_order 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") branchCode = RS("branchCode") user_name = RS("user_name") b_content = RS("b_content") RS.Close Set RS = Nothing If re_user_time_type = "2" Then re_user_time_type_value = "¿ÀÈÄ" Else re_user_time_type_value = "¿ÀÀü" End If 'ÁöÁ¡ °ü¸®ÀÚ Á¤º¸ °¡Á®¿À±â SQL = "SELECT branchTel, branchEmail FROM GW_BRANCH WHERE branchCode = '" & branchCode & "'" Set RS = Dbcon.Execute(SQL) If RS.eof = false Then branchTel = RS("branchTel") 'ÁöÁ¡ÀüÈ­ branchEmail = RS("branchEmail") 'ÁöÁ¡ °ü¸®ÀÚ À̸ÞÀÏ End If RS.Close Set RS = Nothing If Len(branchTel) < 8 Then branchTel = "02-552-6020" End If If branchEmail = "" Then branchEmail = "help@uni114.co.kr" End If 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 to_email = user_email from_email = admin_email subject = email_subject content = "
" content = content & "
À¯¾Ø¾ÆÀÌ ¾È³» ¸ÞÀÏ
" content = content & "

" & user_name & "´Ô ¹®ÀÇ ³»¿ë
" & b_content & "


" content = content & "
" & b_content_re & "
¿¹¾àÀϽà : " & re_user_year & "³â " & re_user_month & "¿ù " & re_user_day & "ÀÏ " & re_user_week & "¿äÀÏ   ¿¹¾à½Ã°£ : " & re_user_time_type_value & " " & re_user_time & "½Ã " If re_user_minite <> "0" Then content = content & re_user_minite & "ºÐ " End If content = content & "   [" & branchName & "]
" content = content & "
°í°´¼¾ÅÍ 1661-6020

" content = content & "
º» ¸ÞÀÏÀº À¯¾Ø¾ÆÀÌ ¿¹¾à¹®ÀÇ ´äº¯ ¿äû °í°´´ÔÀ» ´ë»óÀ¸·Î (±¤°í)Ç¥½Ã¸¦ ÇÏÁö ¾Ê´Â ¹ß½ÅÀü¿ë ¸ÞÀÏÀÔ´Ï´Ù.
Ãß°¡ ¹®ÀÇ´Â À¯¾Ø¾ÆÀÌ È¨ÆäÀÌÁö, ¶Ç´Â ÀüÈ­»ó´ãÀ» ÀÌ¿ëÇØÁÖ½Ã¸é °¨»çÇϰڽÀ´Ï´Ù.copyright © YOU&I. all right reserved.
" content = content & "
" if to_email <> "" Then 'À̸ÞÀÏ ¹ß¼Û(ÇÔ¼öÈ£Ãâ) Call SendMail(to_email, from_email, subject, content) end if 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. '******************************************************************************************************************* 'Dim smsVariant 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_order SET " &_ " re_user_year = '"&re_user_year&"', re_user_month = '"&re_user_month&"', re_user_day = '"&re_user_day&"', re_user_week = '"&re_user_week&"', re_user_time_type = '"&re_user_time_type&"', re_user_time = '"&re_user_time&"', re_user_minite = '"&re_user_minite&"', 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 "http://www.uni114.co.kr/new/customer/customer03_view.asp?idx="&idx&"&gotopage="&gotopage&"&reply=1&branchCode="&branchCode End Select %>