sp1000je/sms_host20170829
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity
Files
7bc9767bf459916cc3592e69891bcd00795fe95c
sms_host20170829/content/board/inc_write_ok.asp
T
sp1000je 7bc9767bf4 최초등록
2026-02-23 10:01:00 +09:00

390 lines
9.5 KiB
Plaintext
Raw Blame History

<%
b_sdate_tmp = InputValue( UploadForm("b_sdate") )
If b_sdate_tmp = "" then
b_sdate = b_sdate_y & "-" & Right( "0" & b_sdate_m, 2) & "-" & Right("0" & b_sdate_d, 2)
Else
b_sdate = b_sdate_tmp
End If
b_edate_tmp = InputValue( UploadForm("b_edate") )
If b_edate_tmp = "" then
b_edate = b_edate_y&"-"&Right(b_edate_m,2)&"-"&Right("0"&b_edate_d,2)
Else
b_edate = b_edate_tmp
End If
'//******************* 금지단어 체크기능 ***********************
If trim(a_noword) <> "" then
a_noword = Split(a_noword, ",") '//제한파일..
for z=0 To UBound( a_noword )
iscontent = instr(b_content, a_noword(z)) '//내용에서 검색
issubject = instr(b_subject, a_noword(z)) '//글제목에서 검색..
if iscontent > 0 Or issubject > 0 then
Call Back_back ( a_noword(z) & "은(는) 사용금지단어입니다. \n단어를 삭제하세요." )
End if
next
End if
'//*****************************************************************
If w_mode = "W" Or w_mode = "WR" then '//저장
If a_upload = "Y" then '//첨부파일 사용일때
'//폴더 없으면 새로 생성
strDirectory = server.mappath("/data/board/") & "\" & a_tablename& "\"
Call FolderCreate( strDirectory )
'//폴더 없으면 새로 썸네일용
strDirectory2 = strDirectory & "thum\"
Call FolderCreate( strDirectory2 )
'//첨부파일체크
for z = 1 To a_upload_len
strDir = strDirectory
ext_str = a_nofile
'파일저장
b_file = eval("b_file" & z)
If b_file <> "" Then
ext_chk_arr = Split( b_file, "." )
ext_chk = LCase( ext_chk_arr( UBound(ext_chk_arr) ) )
If ext_chk = "jpg" Or ext_chk = "gif" then
ww = 130
hh = 100
Call GD2_make_thumb( ww, hh, b_file, strDirectory, strDirectory2 )
End if
End if
next
End if
'//ref,step,level 체크
If b_type = "R" then '//답변이면
sql = "UPDATE " & a_tablename & " SET b_step = b_step+1 WHERE b_ref = " & b_ref & " AND b_step > " & b_step
dbcon.execute sql
b_step = b_step + 1
b_level = b_level + 1
End if
b_cate = ""
b_count = 0
b_look = "Y" '//사용/중지
'//$b_open = "Y"; //공개/비공개
b_id = SESSION("ss_m_id")
b_regdate = getDateFm(Now(), 3)
b_ip = request.ServerVariables("REMOTE_ADDR")
b_chuchun = 0
If a_cate = "Y" then
If b_type = "R" then '//답변이면 //상위분류값을 넣는다..
SQL = "SELECT b_cate, b_catename FROM " & a_tablename & " WHERE b_num=" & b_ref
Set rs_cate = dbcon.execute( sql )
b_cate = rs_cate("b_cate")
b_catename = rs_cate("b_catename")
Set rs_cate = nothing
else
b_cate_str = Split(b_cate_tot, ",")
b_cate = Trim(b_cate_str(0))
b_catename = Trim(b_cate_str(1))
End if
else
b_cate = 0
b_catename = ""
End if
b_c_count = 0
b_jumin = SESSION("ss_m_jumin")
R_Fields_i = "b_type, b_id, b_name, b_pwd, b_subject, b_email, b_jumin, b_phone1, b_phone2, b_phone3, b_cate, b_catename, b_noticechk, b_content, b_ip, b_count, b_look, b_open, b_ref, b_step, b_level, b_regdate, b_chuchun, b_sbjclr, b_temp1, b_temp2, b_temp3, b_temp4, b_temp5, b_temp6, b_temp7, b_keyword, b_c_count, b_zip1, b_zip2, b_addr1, b_addr2 "
Select Case a_level
Case "default_calendar", "schedule_sms"
R_Fields_i = R_Fields_i & ", b_sdate, b_edate"
End select
If a_level = "nninc_job" Then
R_Fields_i = R_Fields_i & ", b_temp9"
End If
' 첨부파일
R_Fields_i = R_Fields_i & ", b_file1, b_file2, b_file3, b_file4, b_file5"
Call InsertQuery ( R_Fields_i, a_tablename)
If b_type = "N" then
sql = "SELECT Max(b_num) as max_b_num FROM " & a_tablename
Set rs1 = dbcon.execute( sql )
max_b_num = rs1("max_b_num")
sql = "UPDATE " & a_tablename & " SET b_ref = " & max_b_num & " WHERE b_num = " & max_b_num
dbcon.execute sql
End if
ok_url = "list.asp?a_num=" & a_num & "&amp;" & page_info
'일정관리sms일경우
If a_level = "schedule_sms" Then
If b_temp1 = "Y" Then '문자알림 사용시
tran_phone = b_phone1 & b_phone2 & b_phone3
RDate = b_temp2 & " " & b_temp3 & ":" & b_temp4
tran_callback = "15449642"
Msg = "일정:" & b_sdate & vbcrlf & b_subject
s_num = a_num & "_" & max_b_num
If tran_phone <> "" then '예약발송
Call SmsSend(tran_phone, tran_callback, Msg, RDate, s_num)
End if
End if
End if
' SMS 발송
If a_sendsms = "Y" Then
rtn_url = "http://"&Request.ServerVariables("HTTP_HOST")&"/content/board/"&ok_url
arr_bbsname = split(a_bbsname, "&gt;")
sms_bbsname = "[남부교육지원청]"&arr_bbsname(ubound(arr_bbsname)-1)&" "
If b_type = "N" then '접수
msg = sms_bbsname&"게시판에 "&now()&"에 글이 접수 되었습니다."
If a_sendsms_addr <> "" then '게시판 담당자에게 sms발송
sendSms a_sendsms_addr, msg, rtn_url,""
End If
ElseIf b_type = "R" Then '답변
sql = "SELECT b_phone1,b_phone2,b_phone3 FROM "&a_tablename&" WHERE b_ref="&b_ref&" and b_step=0 and b_level=0"
Set rs_sms=dbcon.execute(sql)
If Not rs_sms.eof And Not rs_sms.bof Then
if rs_sms(0) = "010" Or rs_sms(0) = "011" Or rs_sms(0) = "016" Or rs_sms(0) = "017" Or rs_sms(0) = "018" Or rs_sms(0) = "019" Then
msg = sms_bbsname&"게시판에 "&now()&"에 답변이 등록 되었습니다."
b_phone = rs_sms(0)&rs_sms(1)&rs_sms(2)
If b_phone <> "" then '작성자(민원인)에게 sms발송
sendSms b_phone, msg, rtn_url,""
End If
End If
End If
rs_sms.close : Set rs_sms = nothing
End if
End if
' email 발송
If a_sendmail = "Y" Then
arr_bbsname = split(a_bbsname, "&gt;")
sms_bbsname = "[남부교육지원청]"&arr_bbsname(ubound(arr_bbsname)-1)&" "
If b_type = "N" Then '접수
msg = sms_bbsname&"게시판에 "&now()&"에 글이 접수 되었습니다."
If a_sendmail_addr <> "" then '게시판 담당자에게 메일발송
sendMail "web@dgnbe.go.kr", a_sendmail_addr, cc, bcc, msg, msg
End If
ElseIf b_type = "R" Then '답변
sql = "SELECT b_email FROM "&a_tablename&" WHERE b_ref="&b_ref&" and b_step=0 and b_level=0"
Set rs_mail=dbcon.execute(sql)
If Not rs_mail.eof And Not rs_mail.bof then
msg = sms_bbsname&"게시판에 "&now()&"에 답변이 등록 되었습니다."
b_email = rs_mail(0)
If b_email <> "" Then '작성자(민원인)에게 메일발송
sendMail "web@dgnbe.go.kr", b_email, cc, bcc, msg, msg
End if
End If
rs_mail.close : Set rs_mail = nothing
End if
End if
elseIf w_mode = "M" then '//수정
If a_upload = "Y" then '//첨부파일 사용일때
'//폴더 없으면 새로 생성
strDirectory = server.mappath("/data/board/") & "\" & a_tablename & "\"
Call FolderCreate( strDirectory )
'//폴더 없으면 새로 썸네일용
strDirectory2 = strDirectory & "thum\"
Call FolderCreate( strDirectory2 )
'//------------------------------------------------------------------------------
For z=1 To a_upload_len
'파일저장
b_file = eval("b_file" & z)
If b_file <> "" then '//첨부파일 있으면
strDir = strDirectory
strDir2 = strDirectory2
ext_chk_arr = Split( b_file, "." )
ext_chk = LCase( ext_chk_arr( UBound(ext_chk_arr) ) )
If ext_chk = "jpg" Or ext_chk = "gif" then
'//이미지파일저장
'//*****************************************
'//썸네일
If a_level="nninc_tour" Then ' 대구방문의 해 - 관광정보 게시판
ww = 166
hh = 106
Else
ww = 130
hh = 100
End if
Call GD2_make_thumb( ww, hh, b_file, strDirectory, strDirectory2 )
End If
'//*****************************************
End if
next
End if
'//------------------------------------------------------------------------------
if a_cate = "Y" then
If b_type = "R" then '//답변이면
SQL = "SELECT b_cate, b_catename FROM " & a_tablename & " WHERE b_num=" & b_ref
Set rs_cate = dbcon.execute( sql )
b_cate = rs_cate("b_cate")
b_catename = rs_cate("b_catename")
else
b_cate_str = Split(b_cate_tot, ",")
b_cate = Trim(b_cate_str(0))
b_catename = Trim(b_cate_str(1))
End if
R_Fields2 = ",b_cate, b_catename"
End if
R_Fields = "b_name, b_pwd, b_subject, b_email, b_phone1, b_phone2, b_phone3, b_noticechk, b_content, b_sbjclr, b_temp1, b_temp2, b_temp3, b_temp4, b_temp5, b_temp6, b_temp7, b_keyword, b_open" & R_Fields2
R_Fields = R_Fields & ", b_file1, b_file2, b_file3, b_file4, b_file5"
Select Case a_level
Case "default_calendar", "schedule_sms"
R_Fields = R_Fields & ", b_sdate, b_edate"
End select
If a_level = "nninc_job" then ' 알림마당 > 인력풀 > 구직 (김천교육청)
R_Fields = R_Fields & ", b_temp9 "
End if
If a_home = "Y" then '//주소사용시
R_Fields = R_Fields & ", b_zip1, b_zip2, b_addr1, b_addr2"
End if
Call UpdateQuery ( R_Fields, a_tablename, " where b_num=" & b_num )
ok_url = "list.asp?a_num=" & a_num & "&amp;" & page_info
'일정관리sms일경우
If a_level = "schedule_sms" Then
'기존 문자알람 삭제
sql = "delete from em_tran where tran_etc2 = '" & a_num & "_" & b_num & "'"
'Response.write sql
'Response.end
dbcon.execute sql
If b_temp1 = "Y" Then '문자알림 사용시
tran_phone = b_phone1 & b_phone2 & b_phone3
RDate = b_temp2 & " " & b_temp3 & ":" & b_temp4
tran_callback = "15449642"
Msg = "일정:"& b_sdate & vbcrlf & b_subject
s_num = a_num & "_" & b_num
If tran_phone <> "" then '예약발송
Call SmsSend(tran_phone, tran_callback, Msg, RDate, s_num)
End if
End if
End if
End if
prepage = UploadForm("prepage")
If prepage <> "" Then ok_url = prepage
Call loding ("0", ok_url)
%>
Reference in New Issue View Git Blame Copy Permalink