%
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 ¹ß¼Û Á¾·á ############################
%>
" & user_name & "´Ô ¹®ÀÇ ³»¿ë
" & b_content & "