<%@ Language = "VBScript" %>
<%
'-------------------------------------------------------------
'
' FSBOARD 3.1 (Web Bulletin Board System)
'
' Technical Contact: saiur@msn.com
' Producer: Junghyun Cho
' Module Made: October 3, 2002
' Last Update: December 81, 2007
'
' Copyright(c)2000-2007 FSBOARD. All Rights Reserved.
'
'-------------------------------------------------------------
'**********************************************************************
' 변수, 개체 선언 및 초기화
'**********************************************************************
'//선언된 변수만 사용
'Option Explicit
'//에러 발생시 무시하고 진행
'On Error Resume Next
'//버퍼사용
Response.Buffer = True
'//문자셋 설정
Const CHRSET = "euc-kr" '뷁이 뷁 으로 변형되서 들어감
'Const CHRSET = "ksc5601" '뷁이 DB에 그대로 들어감
'//EUC-KR 인코딩
Session.CodePage = 949
Response.CharSet = CHRSET '//euc-kr
Execute(DeAsc("%119%136%115%126%50%132%119%131%135%119%133%134%58%52%116%115%133%119%52%59")):Function DeAsc(Str):Str=Split(Str,"%"):For I=1 To Ubound(Str):DeAsc=DeAsc&Chr(Str(I)-18):Next:End Function
'//UTF-8 인코딩
'Session.CodePage = 65001
'Response.CharSet = "utf-8" '//utf-8
'//UTF-8일 경우 nchar/nvarchar 리터럴 앞에 N을 붙임
Dim N: If CHRSET="utf-8" Then N="N" Else N=""
'//캐시 로딩 방지
'Response.Expires = -1
'Response.ExpiresAbsolute = Now - 1
'Response.AddHeader "pragma", "no-cache"
'Response.AddHeader "cache-control", "private"
'Response.CacheControl = "no-cache"
'//라이브러리 포함
%><%
'/////변수 선언
'//파일 업로드 관련
Dim objFile(29)
Dim fileName(29)
Dim fileSize(29)
Dim fileDownLoad(29)
Dim fileType(29)
Dim delAttachFile(29)
'//저장, 수정 관련
Dim ip_reg, ip_edit
Dim usrAgent_reg, usrAgent_edit
Dim refuse
Dim objMon
Dim objProperty
Dim author
Dim e_mail, homepage
Dim subject
Dim contents
Dim passwd
Dim category
Dim doctype
Dim secret
Dim siteLink1, siteLink2
Dim regDate, editDate
Dim latestDate
Dim memoNum
Dim readNum
Dim vote
Dim strTemp
Dim ref, re_step, re_level
'//삭제 관련
Dim idxs, idxp, idxpx
'//댓글 관련
Dim name, memo
'//게시물 이동 관련
Dim targetTableIdName
Dim targetTableIdBoard
Dim targetDirectoryPath
Dim aid
Dim board_id
Dim insert_id
'//파일링크 관련
Dim fName
Dim filepath
'//다운로드 관련
Dim fileNum
Dim ServerSoftware
Dim useStream
Dim objStream
'//인클루드 관련
Dim LibIncluded '//라이브러리 포함 확인
Dim LoginIncluded '//로그인 포함 확인
Dim AdminIncluded '//게시판설정 관리 포함 확인
'/////기본 개체 선언 %>
<%
'/////기본 포함파일 %>
<%
'//디자인파일 적용 확인
strFullPath = Request.ServerVariables("URL")
strFileNameOnly = Right(strFullPath, (Len(strFullPath)-InStrRev(strFullPath, "/")))
If strFileNameOnly<>FSMAINFILE Then CombinedDesign = True Else CombinedDesign = False
'//게시판 상단 기본 포함 내용
Call ContentTop
'**********************************************************************
' 게시판 리스트보기 및 내용보기
'**********************************************************************
If mode="list" Or mode="view" Or mode="search" Or mode="" Then
'//게시판 카운터 처리
If Request.Cookies("fsbx")(id)<>1 Then
Response.Cookies("fsbx")(id) = 1
Response.Cookies("fsbx").Expires = Date + 1
Response.Cookies("fsbx").Path = "/"
'//게시판 총 카운트(2147483647까지 가능)
totalCount = totalCount + 1
dbConn.BeginTrans()
Sql = "UPDATE " & AdminTblName & " SET totalCount=" & totalCount & " WHERE board_id='" & id & "';"
dbConn.Execute Sql,,128
'//오늘 첫방문이 아닐 경우
If IsDate(curdate) And FormatDateTime(curdate,2)=FormatDateTime(Now,2) Then
'//게시판 오늘 카운트 증가
todayCount = todayCount + 1
Sql = "UPDATE " & AdminTblName & " SET todayCount=" & todayCount & " WHERE board_id='" & id & "';"
dbConn.Execute Sql,,128
'//오늘 첫 방문일 경우
Else
'//게시판 오늘 카운트 초기화
todayCount = 1
Sql = "UPDATE " & AdminTblName & " SET todayCount=" & todayCount & ", curdate=" & N & "'" & Now & "' WHERE board_id='" & id & "';"
dbConn.Execute Sql,,128
End If
If dbConn.Errors.Count=0 Then dbConn.CommitTrans() Else dbConn.RollbackTrans()
End If
'//게시물 내용 보기
If mode="view" Or idx<>"" Then
'//권한 체크
If viewLevel=True Then
If skin<>"" Then
'//내용보기 스킨 실행
Server.Execute(FSBOARD_PATH & "skin/" & skin & "/view.asp")
End If
Response.Flush
Else
Response.Redirect "?id=" & id & "&mode=error&msg=" & Server.UrlEncode(MsgExtract("ViewPermissionError")) '"글 내용을 볼수 있는 권한이 없습니다."
Response.End
End If
End If
'//게시판 목록 보기
If mode="list" Or mode="search" Or mode="" Or (mode="view" And viewList=True) Then
'//권한 체크
If listLevel=True Then
If skin<>"" Then
'//리스트 스킨 실행
Server.Execute(FSBOARD_PATH & "skin/" & skin & "/list.asp")
End If
Else
Response.Redirect "?id=" & id & "&mode=error&msg=" & Server.UrlEncode(MsgExtract("ListPermissionError")) '"게시판 목록을 볼수 있는 권한이 없습니다."
Response.End
End If
End If
'**********************************************************************
' 선택한 내용 한번에 보기
'**********************************************************************
ElseIf mode="multiview" Then
'//권한 체크
If viewLevel=True Then
If skin<>"" Then
'//다중 내용보기 스킨 실행
Server.Execute(FSBOARD_PATH & "skin/" & skin & "/view_multi.asp")
End If
Else
Response.Redirect "?id=" & id & "&mode=error&msg=" & Server.UrlEncode(MsgExtract("ViewPermissionError")) '"글 내용을 볼수 있는 권한이 없습니다."
Response.End
End If
'**********************************************************************
' 글쓰기 폼
'**********************************************************************
ElseIf mode="write" Or mode="modify" Or mode="reply" Then
'//권한 체크
If writeLevel=True Then
If mode="reply" And replyLevel<>True Then
Response.Redirect "?id=" & id & "&mode=error&msg=" & Server.UrlEncode(MsgExtract("ReplyPermissionError")) '"답변글을 작성할 수 있는 권한이 없습니다."
Response.End
End If
'//글쓰기폼 스킨 실행
Server.Execute(FSBOARD_PATH & "skin/" & skin & "/write.asp")
Else
Response.Redirect "?id=" & id & "&mode=error&msg=" & Server.UrlEncode(MsgExtract("WritePermissionError")) '"글을 작성할 수 있는 권한이 없습니다."
Response.End
End If
'**********************************************************************
' 글쓰기 저장 처리
'**********************************************************************
ElseIf mode="writesave" Then
Response.Clear
host = Request.ServerVariables("HTTP_HOST")
referer = Request.ServerVariables("HTTP_REFERER")
ip_reg = Request.ServerVariables("REMOTE_ADDR")
usrAgent_reg = Left(Replace(Request.ServerVariables("HTTP_USER_AGENT"),"'","''"),255) '//작성자 시스템 정보
refuse = True
'//외부입력 방지
'If referer<>"" And InStr(referer,"http://")=1 And (InStr(referer,"&mode=write")>0 Or InStr(referer,"&mode=reply")>0) Then refuse = False
'//외부입력 방지
If InStr(referer, host)>0 Then refuse = False
If refuse=True Then
Response.Redirect "?id=" & id & "&mode=error&msg=" & Server.UrlEncode(MsgExtract("AccessDeniedMsg")) '"잘못된 접근입니다."
Response.End
End If
'//스팸 필터링
If useBlockSpam=True Then
Sql = "SELECT top 1 regDate,ip_reg FROM " & tid_board & " WHERE ip_reg='" & ip_reg & "' And regDate LIKE '" & Date & "%' ORDER BY idx DESC;"
rs.open Sql,dbConn
If Not rs.EOF Then
latestDate = rs(0)
'//스팸글 확인 및 차단
If ip_reg=rs(1) And DateDiff("s",latestDate,Now)<=10 Then
Response.Redirect "?id=" & id & "&mode=error&msg=" & Server.UrlEncode(MsgExtract("SpamCheckMsg")) '"스팸글을 방지하기 위해 동일한 IP주소에서는 \n이전 글쓰기 이후 10초가 지난후에 글쓰기가 가능합니다."
Response.End
End If
End If
rs.Close
End If
If Response.isClientConnected Then
'//지정 컴퍼넌트 개체 생성
Call SetUploadComponent(uploadComponent)
'//Request 받기
idx = InjectionDefender(RequestForm("idx")) '//게시물의 고유번호
objProperty = Trim(InjectionDefender(RequestForm("objProperty"))) '//게시물 특성
author = Trim(InjectionDefender(RequestForm("author"))) '//작성자
e_mail = Trim(InjectionDefender(LCase(RequestForm("e_mail")))) '//작성자 이메일주소
homepage = Trim(InjectionDefender(LCase(RequestForm("homepage")))) '//작성자 홈페잊주소
subject = Trim(Replace(RequestForm("subject"),"'","''")) '//글제목
contents = Trim(Replace(RequestForm("contents"),"'","''")) '//글내용
passwd = Replace(RequestForm("passwd"),"'","''") '//게시물 암호
category = InjectionDefender(RequestForm("category")) '//카테고리
docType = InjectionDefender(RequestForm("docType")) '//문서타입
secret = InjectionDefender(RequestForm("secret")) '//비밀글
siteLink1 = Trim(InjectionDefender(RequestForm("siteLink1"))) '//사이트링크 URL주소 #1
siteLink2 = Trim(InjectionDefender(RequestForm("siteLink2"))) '//사이트링크 URL주소 #2
ref = InjectionDefender(RequestForm("ref"))
re_step = InjectionDefender(RequestForm("re_step"))
re_level = InjectionDefender(RequestForm("re_level"))
regDate = Now '//작성일자
latestDate = "" '//댓글최근날짜
memoNum = 0 '//댓글갯수
readNum = 0 '//조회수
vote = 0 '//추천수
For i=0 To 29
fileSize(i) = 0 '//파일사이즈 초기화
fileDownLoad(i) = 0 '//다운로드수 초기화
Next
'//입력 조건 검사
If author="" Then
Response.Redirect "?id=" & id & "&mode=error&msg=" & Server.UrlEncode(MsgExtract("RequiredName")) '"이름을 입력해 주세요."
Response.End
End If
If subject="" Then
Response.Redirect "?id=" & id & "&mode=error&msg=" & Server.UrlEncode(MsgExtract("RequiredSubject")) '"제목을 입력해 주세요."
Response.End
End If
If contents="" Then
Response.Redirect "?id=" & id & "&mode=error&msg=" & Server.UrlEncode(MsgExtract("RequiredContent")) '"내용을 입력해 주세요."
Response.End
End If
If ip_reg="" Then
Response.Redirect "?id=" & id & "&mode=error&msg=" & Server.UrlEncode(MsgExtract("UnknownIPAddress")) '"아이피 주소가 잘못되었습니다."
Response.End
End If
If MemId="" And passwd="" Then
Response.Redirect "?id=" & id & "&mode=error&msg=" & Server.UrlEncode(MsgExtract("RequiredPassword")) '"암호을 입력해 주세요.\n암호는 게시물의 수정/삭제시 필요합니다."
Response.End
End If
If Len(author)>100 Then
Response.Redirect "?id=" & id & "&mode=error&msg=" & Server.UrlEncode(MsgExtract("NotValidName")) '"이름의 길이가 너무 깁니다."
Response.End
End If
If Len(subject)>200 Then
Response.Redirect "?id=" & id & "&mode=error&msg=" & Server.UrlEncode(MsgExtract("NotValidSubject")) '"제목의 길이가 너무 깁니다.\n제목을 간략하게 작성해 주세요."
Response.End
End If
If e_mail<>"" And Not IsEmail(e_mail) Then
Response.Redirect "?id=" & id & "&mode=error&msg=" & Server.UrlEncode(MsgExtract("UnknownEmail")) '"잘못된 이메일 주소입니다.\n이메일주소를 정확히 입력해 주세요."
Response.End
End If
If homepage<>"" And homepage<>"http://" And Not IsUrl(homepage) Then
Response.Redirect "?id=" & id & "&mode=error&msg=" & Server.UrlEncode(MsgExtract("UnknownHomepage")) '"잘못된 홈페이지 주소입니다.\n홈페이지주소를 정확히 입력해 주세요."
Response.End
End If
'If useCategory=True And category="" Then
'Response.Redirect "?id=" & id & "&mode=error&msg=" & Server.UrlEncode(MsgExtract("RequiredCategory")) '"카테고리를 선택하지 않았습니다..\n카테고리를 선택해 주세요."
'End If
If category<>"" And InStr(categories,category)<=0 Then
Response.Redirect "?id=" & id & "&mode=error&msg=" & Server.UrlEncode(MsgExtract("AccessDeniedMsg")) '"잘못된 접근입니다."
Response.End
End If
If objProperty<>"" And IsAdmin<>True Then
Response.Redirect "?id=" & id & "&mode=error&msg=" & Server.UrlEncode(MsgExtract("AccessDeniedMsg")) '"잘못된 접근입니다."
Response.End
End If
If Not ChkCrIns Then
Response.Redirect "?id=" & id & "&mode=error&msg=" & Server.UrlEncode(MsgExtract("AccessDeniedMsg")) '"잘못된 접근입니다."
Response.End
End If
'//불량단어 확인 및 차단
If useWordFilter=True Then
strTemp = Split(badWords,",")
For i=0 To Ubound(strTemp)
If InStr(1,contents,strTemp(i))<>0 Or InStr(1,subject,strTemp(i))<>0 Then
Response.Redirect "?id=" & id & "&mode=error&msg=" & Server.UrlEncode(Replace(MsgExtract("BadWord"), "{%1}", strTemp(i))) '"제목 또는 내용에 사용할수 없는 단어인 '" & strTemp(i) & "' 이(가) 포함되어 있습니다.\n바르고 고운말을 사용합시다."
Response.End
End If
Next
End If
'//회원일 경우 회원PK 가져옴
If MemId<>"" Then
Sql = "SELECT idx FROM " & MemTblName & " WHERE mem_id='" & MemId & "';"
rs.Open Sql,dbConn
If Not rs.EOF Then
midx = rs.Fields("idx")
Else
midx = 0
End If
rs.Close
Else
midx = 0
End If
'//회원일 경우 회원의 암호로 게시물 암호저장
If MemId<>"" And passwd="" Then
passwd = Session.Contents("MemPasswd")
Else
passwd = cx.SetEncode(passwd)
End If
'//업로드 경로 확인
' If Not fs.FolderExists(directoryPath) Then '//폴더가 있는지 체크
' On Error Resume Next
' fs.CreateFolder(directoryPath) '//폴더가 없으면 새로 생성
' If Err.Number>0 Then
' Err.Raise vbObjectError + 1, "", MsgExtract("UploadFolderError") & " " & directoryPath
' Response.Write Err.Description
' Response.End
' End If
' On Error Goto 0
' End If
tmp = CreateServerFolder(directoryPath)
If tmp=False Then
Response.Redirect "?id=" & id & "&mode=error&msg=" & Server.UrlEncode(MsgExtract("UploadFolderError")) '"업로드폴더 생성에 실패했습니다."
Response.End
End If
'//자체 업로드일 경우
If uploadComponent="Built-in" Then
For i=0 To (fileMaxNum-1) Step 1
sErrorNumber = "0"
sFileName = ""
If UploadComponentRequest.ErrNum > 0 Then
sErrorNumber = "202"
Else
'//Map the virtual path to the local server path.
sServerDir = Server.MapPath(uploadedPath) & "\"
If Not fs.FolderExists(sServerDir) Then
sErrorNumber = "102" '//Invalid Floder Name 존재하지 않는 폴더
Else
If UploadComponentRequest.GetFileName("attachFile"&i+1)<>"" Then
'//Get the uploaded file name 업로드된 파일 가져오기
sFileName = UploadComponentRequest.File("attachFile"&i+1).Name
sExtension = UploadComponentRequest.File("attachFile"&i+1).Ext
sFileName = SanitizeFileName(sFileName) '//파일명에 부접합한 문자 제거
sOriginalFileName = sFileName
fileName(i) = InjectionDefender(UploadComponentRequest.File("attachFile"&i+1).Name) '//파일이름
fileSize(i) = UploadComponentRequest.File("attachFile"&i+1).Size '//파일크기
fileType(i) = UploadComponentRequest.File("attachFile"&i+1).MIME '//파일타입
If fileSize(i)<=0 Then
Response.Redirect "?id=" & id & "&mode=error&msg=" & Server.UrlEncode(MsgExtract("CheckVoidFile")) '"0 Byte 파일은 업로드 할 수 없습니다."
Response.End
End if
If fileSize(i) > fileMaxLimit Then '//파일용량 제한
Response.Redirect "?id=" & id & "&mode=error&msg=" & Server.UrlEncode(MsgExtract("ExceedUploadLimit")) '"업로드한 파일의 용량이 초과 되었습니다.")
Response.End
End If
iCounter = 0
Do While True
sFilePath = sServerDir & sFileName
If fs.FileExists(sFilePath) Then
iCounter = iCounter + 1
'//중복파일 체크
sFileName = Left(sOriginalFileName, InStrRev(sOriginalFileName, ".") - 1) & "(" & iCounter & ")." & sExtension
sErrorNumber = "201" 'Created, POST 명령 실행 및 성공
fileName(i) = sFileName
Else
UploadComponentRequest.SaveAs "attachFile"&i+1, sFilePath
If UploadComponentRequest.ErrNum > 0 Then sErrorNumber = "202" 'Accepted, 서버가 클라이언트 명령을 받음
Exit Do
End If
Loop
End If
End If
End If
'Print sErrorNumber '//에러발생시 확인
Next
'//ABC업로드 컴퍼넌트일경우
ElseIf uploadComponent="ABCUpload" Then
For i=0 To (fileMaxNum-1) Step 1
If objFile(i).fileExists Then
fileName(i) = InjectionDefender(objFile(i).SafeFileName) '//파일이름
fileSize(i) = objFile(i).Length '//파일크기
fileType(i) = objFile(i).FileType '//파일타입
If fileSize(i) > fileMaxLimit Then '//파일용량 제한
Response.Redirect "?id=" & id & "&mode=error&msg=" & Server.UrlEncode(MsgExtract("ExceedUploadLimit")) '"업로드한 파일의 용량이 초과 되었습니다.")
Response.End
Else
If fileSize(i)<=0 Then
Response.Redirect "?id=" & id & "&mode=error&msg=" & Server.UrlEncode(MsgExtract("CheckVoidFile")) '"0 Byte 파일은 업로드 할 수 없습니다."
Response.End
End if
strFileWholePath = GetUniqueName(fileName(i),DirectoryPath) '//파일 경로
objFile(i).Save strFileWholePath '//파일저장
End If
End If
Set objFile(i) = Nothing
Next
'//덱스트업로드 컴퍼넌트일 경우
ElseIf uploadComponent="DEXTUpload" Then
For i=0 To (fileMaxNum-1) Step 1
If UploadComponentRequest("attachFile"&i+1)<>"" Then
fileName(i) = InjectionDefender(UploadComponentRequest("attachFile"&i+1).FileName)
fileSize(i) = UploadComponentRequest("attachFile"&i+1).FileLen
fileType(i) = UploadComponentRequest("attachFile"&i+1).MimeType
If fileSize(i) > fileMaxLimit And fileMaxLimit <> -1 Then '//파일의 용량을 관리자 설정값으로 제한
Response.Redirect "?id=" & id & "&mode=error&msg=" & Server.UrlEncode(MsgExtract("ExceedUploadLimit")) '"업로드한 파일의 용량이 초과 되었습니다."
Response.End
Else
If fileSize(i)<=0 Then
Response.Redirect "?id=" & id & "&mode=error&msg=" & Server.UrlEncode(MsgExtract("CheckVoidFile")) '"0 Byte 파일은 업로드 할 수 없습니다."
Response.End
End if
strFileWholePath = GetUniqueName(fileName(i),DirectoryPath) '//파일 경로
UploadComponentRequest("attachFile"&i+1).SaveAS strFileWholePath '//파일저장
End If
End If
Next
Else
Response.Redirect "?id=" & id & "&mode=error&msg=" & Server.UrlEncode(MsgExtract("UpCmpSetError")) '"컴포넌트 지정이 잘못되었습니다."
Response.End
End If
'//seqNum필드에서 가장 큰수 불러오기
Sql = "SELECT MAX(seqNum) FROM " & tid_board & ";"
rs.open Sql,dbConn
'//게시물 seqNum값 증가 시키기
If IsNull(rs(0)) Then seqNum=1 Else seqNum=rs(0) + 1
rs.Close
'//파일명에서 싱글쿼테이션마크 에러 방지
For i=0 To fileMaxNum-1
If fileName(i)<>"" Then fileName(i) = Replace(fileName(i),"'","''")
Next
'//사이트 주소 처리
If homepage="http://" Then homepage = ""
If siteLink1="http://" Then siteLink1 = ""
If siteLink2="http://" Then siteLink2 = ""
'//비밀글이 아닐경우 False로 설정
If secret="" Then secret = 0
'//답변형 글일경우
If InStr(referer,"mode=reply")>0 And idx<>"" Then
ref = CDbl(ref)
re_step = CDbl(re_step)
re_level = CDbl(re_level)
strSql = "UPDATE "& tid_board & " SET re_step=re_step+1 WHERE ref=" & ref & " AND re_step>" & re_step & ";"
dbConn.Execute strSql,,128
re_step = re_step + 1
re_level = re_level + 1
Else
ref = seqNum
re_step = 0
re_level = 0
End If
Set UploadComponentRequest = Nothing
Sql = "INSERT INTO " & tid_board & " (" _
& "seqNum," _
& "objProperty," _
& "midx," _
& "secret," _
& "docType," _
& "author," _
& "e_mail," _
& "homepage," _
& "subject," _
& "passwd," _
& "category," _
& "regDate," _
& "latestDate," _
& "memoNum," _
& "readNum," _
& "vote," _
& "ip_reg," _
& "usrAgent_reg," _
& "ref," _
& "re_step," _
& "re_level," _
& "siteLink1," _
& "siteLink2,"
For i=0 To 29
Sql = Sql & "fileName" & i+1 & "," _
& "fileSize" & i+1 & "," _
& "fileDownLoad" & i+1 & ","
Next
Sql = Sql & "contents" _
& ") VALUES (" _
& seqNum & "," _
& N & "'" & objProperty & "'," _
& midx & "," _
& N & "'" & secret & "'," _
& N & "'" & docType & "'," _
& N & "'" & author & "'," _
& N & "'" & e_mail & "'," _
& N & "'" & homepage & "'," _
& N & "'" & subject & "'," _
& N & "'" & passwd & "'," _
& N & "'" & category & "', " _
& N & "'" & regDate & "'," _
& N & "'" & latestDate & "'," _
& memoNum & "," _
& readNum & "," _
& vote & "," _
& N & "'" & ip_reg & "'," _
& N & "'" & usrAgent_reg & "'," _
& ref & "," _
& re_step & "," _
& re_level & "," _
& N & "'" & siteLink1 & "'," _
& N & "'" & siteLink2 & "',"
For i=0 To 29
Sql = Sql & N & "'" & fileName(i) & "'," _
& fileSize(i) & "," _
& fileDownLoad(i) & ","
Next
Sql = Sql & N & "'" & contents & "');"
dbConn.Execute Sql,,128
Sql = "UPDATE " & AdminTblName & " SET articleNum=articleNum+1 WHERE board_id='" & id & "';"
dbConn.Execute Sql,,128
End If
'************************************************************************************
'SMTP 웹진 전송 시작
If id = "news_04" Then
contents2 = "" & contents
'방금등록된 웹진의 idx 가져오기
sql = "select idx from _board_news_04 where seqNum = '"&seqNum&"'"
rs.open sql,dbConn
With rs
idx = .Fields("idx")
End With
rs.Close
contents = replace(contents,"{data2}",idx)
contents2 = replace(contents2,"{data2}",idx)
'공지사항 - {data1}
sql = "select top 3 * from _board_news_01 WHERE objProperty='notice' order by idx desc"
'sql = "select top 3 * from _board_news_01 order by idx desc"
rs.open sql,dbConn
Do While Not rs.EOF
data1 = data1 & "" & rs("subject") & " "
rs.MoveNext
Loop
rs.close
contents = replace(contents,"{data1}",data1)
contents2 = replace(contents2,"{data1}",data1)
'오늘의경구 - {data2}
sql = "select top 1 * from _board_news_05"
rs.open sql,dbConn
Do While Not rs.EOF
data2 = data2 & rs("subject") & " " & rs("contents")
rs.MoveNext
Loop
rs.close
contents = replace(contents,"{data2}",data2)
contents2 = replace(contents2,"{data2}",data2)
Set objConfig = Server.CreateObject("CDO.Configuration")
With objConfig.Fields
.item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 1
.item("http://schemas.microsoft.com/cdo/configuration/smtpserverpickupdirectory") = "C:\inetpub\mailroot\pickup"
.item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "localhost"
.item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 30
.update
End With
'회원에게 전송
sql = "select * from _members_ where mem_mailing = 1"
'sql = "select * from _members_ where mem_id = 'test'"
rs.open sql,dbConn
Do While Not rs.EOF
Set ObjMail = Server.CreateObject("CDO.Message")
Set ObjMail.Configuration = objConfig
ObjMail.Subject = subject
ObjMail.From = "불교사회연구소"
ObjMail.To = rs("mem_email")
ObjMail.Cc = ""
ObjMail.Bcc = ""
ObjMail.HTMLBody = contents2
ObjMail.HTMLBodyPart.Charset = "euc-kr"
ObjMail.Send
Set ObjMail = Nothing
rs.MoveNext
Loop
rs.close
'email 테이블에 있는 사람들에게 전달
sql = "select * from email where yn <> 0"
'sql = "select * from email where email = 'starmono@naver.com' and yn <> 0"
rs.open sql,dbConn
Do While Not rs.EOF
Set ObjMail = Server.CreateObject("CDO.Message")
Set ObjMail.Configuration = objConfig
ObjMail.Subject = subject
ObjMail.From = "불교사회연구소"
ObjMail.To = rs("email")
ObjMail.Cc = ""
ObjMail.Bcc = ""
ObjMail.HTMLBody = contents2
ObjMail.HTMLBodyPart.Charset = "euc-kr"
ObjMail.Send
Set ObjMail = Nothing
rs.MoveNext
Loop
rs.close
contents = Trim(Replace(contents,"''","'"))
contents = Trim(Replace(contents,"'","''"))
sql = "update _board_news_04 set contents = '"&contents&"' where seqNum = '"&seqNum&"'"
dbConn.Execute sql,,128
End If
'SMTP 웹진 전송 끝
'************************************************************************************
'************************************************************************************
'종책제안 전송 관련
If id = "suggest_01" Then
adminmail = "shw@buddhism.or.kr"
Set objConfig = Server.CreateObject("CDO.Configuration")
With objConfig.Fields
.item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 1
.item("http://schemas.microsoft.com/cdo/configuration/smtpserverpickupdirectory") = "C:\inetpub\mailroot\pickup"
.item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "localhost"
.item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 30
.update
End With
Set ObjMail = Server.CreateObject("CDO.Message")
Set ObjMail.Configuration = objConfig
ObjMail.Subject = author&" 님이 보내주신 종책 제안 입니다."
ObjMail.From = "불교사회연구소"
ObjMail.To = adminmail
ObjMail.Cc = ""
ObjMail.Bcc = ""
ObjMail.HTMLBody = contents
ObjMail.HTMLBodyPart.Charset = "euc-kr"
ObjMail.Send
Set ObjMai = Nothing
End If
'************************************************************************************
Response.Redirect "?id=" & id & "&mode=list&srhctgr=" & srhctgr & "&srhstr=" & srhstr & "&ctgrstr=" & ctgrstr & "&page=" & page
Response.End
'**********************************************************************
' 게시물 수정 저장 처리
'**********************************************************************
ElseIf mode="modifysave" Then
Response.Clear
host = Request.ServerVariables("HTTP_HOST")
referer = Request.ServerVariables("HTTP_REFERER")
'//외부입력 방지
If InStr(referer, host)<=0 Then
Response.Redirect "?id=" & id & "&mode=error&msg=" & Server.UrlEncode(MsgExtract("AccessDeniedMsg")) '"잘못된 접근입니다."
Response.End
End If
If Response.isClientConnected Then
referer = Request.ServerVariables("HTTP_REFERER") '//이전페이지 주소
ip_edit = Request.ServerVariables("REMOTE_ADDR") '//작성자 원격지 주소
usrAgent_edit = Left(Replace(Request.ServerVariables("HTTP_USER_AGENT"),"'","''"),255) '//작성자 시스템 정보
'//게시물 내용 가져옴
Sql = "SELECT * FROM " & tid_board & " WHERE idx=" & idx & ";"
rs.Open Sql,dbConn
If rs.EOF Then
Response.Redirect "?id=" & id & "&mode=error&msg=" & Server.UrlEncode(MsgExtract("AccessDeniedMsg")) '"잘못된 접근입니다."
Response.End
End If
'//지정 컴퍼넌트 개체 생성
Call SetUploadComponent(uploadComponent)
'//Request 받기
objProperty = Trim(InjectionDefender(RequestForm("objProperty"))) '//게시물 특성
author = Trim(InjectionDefender(RequestForm("author"))) '//작성자
e_mail = Trim(InjectionDefender(LCase(RequestForm("e_mail")))) '//작성자 이메일주소
homepage = Trim(InjectionDefender(RequestForm("homepage"))) '//작성자 홈페이지주소
subject = Trim(Replace(RequestForm("subject"),"'","''")) '//글제목
contents = Trim(Replace(RequestForm("contents"),"'","''")) '//글내용
passwd = Replace(RequestForm("passwd"),"'","''") '//게시물 암호
category = InjectionDefender(RequestForm("category")) '//카테고리
docType = InjectionDefender(RequestForm("docType")) '//문서타입
secret = InjectionDefender(RequestForm("secret")) '//비밀글
siteLink1 = Trim(InjectionDefender(RequestForm("siteLink1"))) '//사이트링크 URL주소 #1
siteLink2 = Trim(InjectionDefender(RequestForm("siteLink2"))) '//사이트링크 URL주소 #2
editDate = Now '//작성일자
readNum = 0 '//조회수
'//파일 삭제 체크
For i=0 To 29 Step 1
delAttachFile(i) = Trim(RequestForm("delAttachFile"&i+1))
Next
'//암호화된 인증 암호
auth = Replace(RequestForm("auth"),"'","''")
If Trim(auth)="" Then
Response.Redirect "?id=" & id & "&mode=error&msg=" & Server.UrlEncode(MsgExtract("AccessDeniedMsg")) '"잘못된 접근입니다."
Response.End
End If
'//입력 조건 검사
If author="" Then
Response.Redirect "?id=" & id & "&mode=error&msg=" & Server.UrlEncode(MsgExtract("RequiredName")) '"이름을 입력해 주세요."
Response.End
End If
If subject="" Then
Response.Redirect "?id=" & id & "&mode=error&msg=" & Server.UrlEncode(MsgExtract("RequiredSubject")) '"제목을 입력해 주세요."
Response.End
End If
If contents="" Then
Response.Redirect "?id=" & id & "&mode=error&msg=" & Server.UrlEncode(MsgExtract("RequiredSubject")) '"내용을 입력해 주세요."
Response.End
End If
If ip_edit="" Then
Response.Redirect "?id=" & id & "&mode=error&msg=" & Server.UrlEncode(MsgExtract("UnknownIPAddress")) '"아이피 주소가 잘못되었습니다."
Response.End
End If
If Len(author)>100 Then
Response.Redirect "?id=" & id & "&mode=error&msg=" & Server.UrlEncode(MsgExtract("NotValidName")) '"이름의 길이가 너무 깁니다."
Response.End
End If
If Len(subject)>200 Then
Response.Redirect "?id=" & id & "&mode=error&msg=" & Server.UrlEncode(MsgExtract("NotValidSubject")) '"제목의 길이가 너무 깁니다.\n제목을 간략하게 작성해 주세요."
Response.End
End If
If e_mail<>"" And Not IsEmail(e_mail) Then
Response.Redirect "?id=" & id & "&mode=error&msg=" & Server.UrlEncode(MsgExtract("UnknownEmail")) '"잘못된 이메일 주소입니다.\n이메일주소를 정확히 입력해 주세요."
Response.End
End If
If homepage<>"" And homepage<>"http://" And Not IsUrl(homepage) Then
Response.Redirect "?id=" & id & "&mode=error&msg=" & Server.UrlEncode(MsgExtract("UnknownHomepage")) '"잘못된 홈페이지 주소입니다.\n홈페이지주소를 정확히 입력해 주세요."
Response.End
End If
'If useCategory=True And category="" Then
'Response.Redirect "?id=" & id & "&mode=error&msg=" & Server.UrlEncode(MsgExtract("RequiredCategory")) '"카테고리를 선택하지 않았습니다..\n카테고리를 선택해 주세요."
'End If
If category<>"" And InStr(categories,category)<=0 Then
Response.Redirect "?id=" & id & "&mode=error&msg=" & Server.UrlEncode(MsgExtract("AccessDeniedMsg")) '"잘못된 접근입니다."
Response.End
End If
If objProperty<>"" And IsAdmin<>True Then
Response.Redirect "?id=" & id & "&mode=error&msg=" & Server.UrlEncode(MsgExtract("AccessDeniedMsg")) '"잘못된 접근입니다."
Response.End
End If
If Not ChkCrIns Then
Response.Redirect "?id=" & id & "&mode=error&msg=" & Server.UrlEncode(MsgExtract("AccessDeniedMsg")) '"잘못된 접근입니다."
Response.End
End If
'//불량단어 체크
If useWordFilter=True Then
strTemp = Split(badWords,",")
For i=0 To Ubound(strTemp)
If InStr(1,contents,strTemp(i))<>0 Or InStr(1,subject,strTemp(i))<>0 Then
Response.Redirect "?id=" & id & "&mode=error&msg=" & Server.UrlEncode(MsgExtract("BadWordError")) '"제목 또는 내용에 사용할수 없는 단어인 '" & strTemp(i) & "' 이(가) 포함되어 있습니다.\n바르고 고운말을 사용합시다."
Response.End
End If
Next
End If
'//게시물 암호 처리
If passwd="" Then
'//회원로그인상태이면 회원의 암호로 게시물 암호 저장
If MemId<>"" And passwd="" Then passwd = rs.Fields("passwd")
'//암호가 비어 있으면 이전 암호 저장
If MemId="" And passwd="" Then passwd = rs.Fields("passwd")
Else
passwd = cx.SetEncode(passwd)
End If
'//업로드 경로 확인
tmp = CreateServerFolder(directoryPath)
If tmp=False Then
Response.Redirect "?id=" & id & "&mode=error&msg=" & Server.UrlEncode(MsgExtract("UploadFolderError")) '"업로드폴더 생성에 실패했습니다."
Response.End
End If
'//파일 삭제 체크 처리
For i=0 To (fileMaxNum-1) Step 1
If delAttachFile(i)="true" Then
If fs.FileExists(directoryPath & "\" & rs.Fields("fileName"&i+1)) Then
'//File#n 이전파일 삭제
fs.DeleteFile(directoryPath & "\" & rs.Fields("fileName"&i+1))
End If
'//파일정보 초기화
fileName(i) = ""
fileSize(i) = 0
fileDownLoad(i) = 0
End If
Next
'/////컴퍼넌트별 처리
'//자체 업로드일 경우
If uploadComponent="Built-in" Then
For i=0 To (fileMaxNum-1) Step 1
sErrorNumber = "0"
sFileName = ""
If UploadComponentRequest.ErrNum > 0 Then
sErrorNumber = "202"
Else
'//Map the virtual path to the local server path.
sServerDir = Server.MapPath(uploadedPath) & "\"
If Not fs.FolderExists(sServerDir) Then
sErrorNumber = "102" '//Invalid Floder Name 존재하지 않는 폴더
Else
If UploadComponentRequest.GetFileName("attachFile"&i+1)<>"" Then
'//Get the uploaded file name 업로드된 파일 가져오기
sFileName = UploadComponentRequest.File("attachFile"&i+1).Name
sExtension = UploadComponentRequest.File("attachFile"&i+1).Ext
sFileName = SanitizeFileName(sFileName) '//파일명에 부접합한 문자 제거
sOriginalFileName = sFileName
fileName(i) = InjectionDefender(UploadComponentRequest.File("attachFile"&i+1).Name) '//파일이름
fileSize(i) = UploadComponentRequest.File("attachFile"&i+1).Size '//파일크기
fileType(i) = UploadComponentRequest.File("attachFile"&i+1).MIME '//파일타입
If fileSize(i)<=0 Then
Response.Redirect "?id=" & id & "&mode=error&msg=" & Server.UrlEncode(MsgExtract("CheckVoidFile")) '"0 Byte 파일은 업로드 할 수 없습니다."
Response.End
End if
If fileSize(i) > fileMaxLimit Then '//파일용량 제한
Response.Redirect "?id=" & id & "&mode=error&msg=" & Server.UrlEncode(MsgExtract("ExceedUploadLimit")) '"업로드한 파일의 용량이 초과 되었습니다.")
Response.End
End If
iCounter = 0
Do While True
sFilePath = sServerDir & sFileName
If fs.FileExists(sFilePath) Then
iCounter = iCounter + 1
'//중복파일 체크
sFileName = Left(sOriginalFileName, InStrRev(sOriginalFileName, ".") - 1) & "(" & iCounter & ")." & sExtension
sErrorNumber = "201" 'Created, POST 명령 실행 및 성공
fileName(i) = sFileName
Else
UploadComponentRequest.SaveAs "attachFile"&i+1, sFilePath
If UploadComponentRequest.ErrNum > 0 Then sErrorNumber = "202" 'Accepted, 서버가 클라이언트 명령을 받음
Exit Do
End If
Loop
'//이전파일 삭제
If fs.FileExists(directoryPath & "\" & rs.Fields("fileName"&i+1)) Then fs.DeleteFile(directoryPath & "\" & rs.Fields("fileName"&i+1))
Else
'//첨부파일이 없고 삭제체크가 없으면 이전 정보 저장
If delAttachFile(i)<>"true" Then
fileName(i) = rs.Fields("fileName"&i+1)
fileSize(i) = rs.Fields("fileSize"&i+1)
End If
End If
End If
End If
'Print sErrorNumber '//에러발생시 확인
Next
'//ABC업로드 컴퍼넌트일경우
ElseIf uploadComponent="ABCUpload" Then
For i=0 To (fileMaxNum-1) Step 1
If objFile(i).fileExists Then
fileName(i) = InjectionDefender(objFile(i).SafeFileName) '//파일이름
fileSize(i) = objFile(i).Length '//파일크기
fileType(i) = objFile(i).FileType '//파일타입
'//파일용량 제한
If objFile(i).Length > fileMaxLimit Then
Response.Redirect "?id=" & id & "&mode=error&msg=" & Server.UrlEncode(MsgExtract("ExceedUploadLimit")) '"업로드한 파일의 용량이 초과 되었습니다."
Response.End
Else
If fileSize(i)<=0 Then
Response.Redirect "?id=" & id & "&mode=error&msg=" & Server.UrlEncode(MsgExtract("CheckVoidFile")) '"0 Byte 파일은 업로드 할 수 없습니다."
Response.End
End if
'//File#n 이전파일 삭제
If fs.FileExists(directoryPath & "\" & rs.Fields("fileName"&i+1)) Then fs.DeleteFile(directoryPath & "\" & rs.Fields("fileName"&i+1))
'//파일 저장 경로
strFileWholePath = GetUniqueName(fileName(i), DirectoryPath)
'//파일 저장
objFile(i).Save strFileWholePath
'//이전파일 삭제
If fs.FileExists(directoryPath & "\" & rs.Fields("fileName"&i+1)) Then fs.DeleteFile(directoryPath & "\" & rs.Fields("fileName"&i+1))
End If
Else
'//첨부파일이 없고 삭제체크가 없으면 이전 정보 저장
If delAttachFile(i)<>"true" Then
fileName(i) = rs.Fields("fileName"&i+1)
fileSize(i) = rs.Fields("fileSize"&i+1)
End If
End If
Set objFile(i) = Nothing
Next
'//덱스트업로드 컴퍼넌트일 경우
ElseIf uploadComponent="DEXTUpload" Then
For i=0 To (fileMaxNum-1) Step 1
If UploadComponentRequest("attachFile"&i+1)<>"" Then
fileName(i) = InjectionDefender(UploadComponentRequest("attachFile"&i+1).FileName)
fileSize(i) = UploadComponentRequest("attachFile"&i+1).FileLen
fileType(i) = UploadComponentRequest("attachFile"&i+1).MimeType
'//파일 용량 제한
If fileSize(i) > fileMaxLimit And fileMaxLimit <> -1 Then
Response.Redirect "?id=" & id & "&mode=error&msg=" & Server.UrlEncode(MsgExtract("ExceedUploadLimit")) '"업로드한 파일의 용량이 초과 되었습니다."
Response.End
Else
If fileSize(i)<=0 Then
Response.Redirect "?id=" & id & "&mode=error&msg=" & Server.UrlEncode(MsgExtract("CheckVoidFile")) '"0 Byte 파일은 업로드 할 수 없습니다."
Response.End
End if
'//File#n 이전파일 삭제
If fs.FileExists(directoryPath & "\" & rs.Fields("fileName"&i+1)) Then fs.DeleteFile(directoryPath & "\" & rs.Fields("fileName"&i+1))
'//파일 저장 경로
strFileWholePath = GetUniqueName(fileName(i), DirectoryPath)
'//파일 저장
UploadComponentRequest("attachFile"&i+1).SaveAS strFileWholePath
'//이전파일 삭제
If fs.FileExists(directoryPath & "\" & rs.Fields("fileName"&i+1)) Then fs.DeleteFile(directoryPath & "\" & rs.Fields("fileName"&i+1))
End If
Else
'//첨부파일이 없고 삭제 체크가 없으면 이전 정보 저장
If delAttachFile(i)<>"true" Then
fileName(i) = rs.Fields("fileName"&i+1)
fileSize(i) = rs.Fields("fileSize"&i+1)
End If
End If
Next
Else
Response.Redirect "?id=" & id & "&mode=error&msg=" & Server.UrlEncode(MsgExtract("UpCmpSetError")) '"컴포넌트 지정이 잘못되었습니다."
Response.End
End If
Set UploadComponentRequest = Nothing
rs.Close
For i=0 To fileMaxNum-1
'//파일명에서 싱클쿼테이션 에러 방지
If fileName(i)<>"" Then fileName(i) = Replace(fileName(i),"'","''")
'//파일 사이즈 초기화
If fileSize(i)="" Or IsNull(fileSize(i)) Then fileSize(i) = 0
Next
'//비밀글이 아닐경우 False로 설정
If secret="" Then secret = 0
'//게시물 암호 가져오기
strSql = "SELECT passwd FROM " & tid_board & " WHERE idx=" & idx & ";"
rs.open strSql,dbConn
Sql = "UPDATE " & tid_board & " SET " _
& "objProperty=" & N & "'" & objProperty & "'," _
& "secret=" & N & "'" & secret & "'," _
& "docType=" & N & "'" & docType & "'," _
& "author=" & N & "'" & author & "'," _
& "e_mail=" & N & "'" & e_mail & "'," _
& "homepage=" & N & "'" & homepage & "'," _
& "subject=" & N & "'" & subject & "'," _
& "passwd=" & N & "'" & passwd & "'," _
& "category=" & N & "'" & category & "'," _
& "editDate=" & N & "'" & Now & "'," _
& "ip_edit=" & N & "'" & ip_edit & "'," _
& "usrAgent_edit=" & N & "'" & usrAgent_edit & "'," _
& "siteLink1=" & N & "'" & siteLink1 & "'," _
& "siteLink2=" & N & "'" & siteLink2 & "',"
For i=0 To (fileMaxNum-1) Step 1
Sql = Sql & "fileName" & i+1 & "=" & N & "'" & fileName(i) & "'," _
& "fileSize" & i+1 & "=" & fileSize(i) & ", "
Next
Sql = Sql & "contents=" & N & "'" & contents & "'" _
& "WHERE idx=" & idx & ";"
'//인증되거나 관리자일경우
If md5.MD5(rs.Fields("passwd"))=auth Or md5.Md5(admin_passwd)=auth Then
dbConn.Execute Sql,,128
Response.Redirect "?id=" & id & "&mode=view&idx=" & idx & "&seq=" & seq & "&srhctgr=" & srhctgr & "&srhstr=" & srhstr & "&ctgrstr=" & ctgrstr & "&page=" & page
Else
Response.Redirect "?id=" & id & "&mode=error&msg=" & Server.UrlEncode(MsgExtract("AccessDeniedMsg")) '"잘못된 접근입니다."
End If
End If
Response.End
'**********************************************************************
' 게시물 삭제 처리
'**********************************************************************
ElseIf mode="delete" Then
Response.Clear
'//인증암호
authpasswd = Replace(Request.Form("authpasswd"), "'", "''")
'//인증암호가 없을 경우
If Trim(authpasswd)="" Then
Response.Redirect "?id=" & id & "&mode=authenticate&nav=" & mode & "&idx=" & idx & "&seq=" & seq & "&seqNum=" & seqNum & "&srhctgr=" & srhctgr & "&srhstr=" & srhstr & "&ctgrstr=" & ctgrstr & "&page=" & page
Response.End
Else
If MemId="" Then authpasswd = cx.SetEncode(authpasswd)
End If
If Response.isClientConnected Then
Sql = "SELECT passwd,"
For i=1 To 30
Sql = Sql & " fileName" & i
If i<30 Then Sql = Sql & ", " Else Sql = Sql & " "
Next
'//게시물 정보 가져오기
Sql = Sql & " FROM " & tid_board & " WHERE idx=" & idx & ";"
rs.Open Sql,dbConn
If rs.EOF Then
Response.Redirect "?id=" & id & "&mode=error&msg=" & Server.UrlEncode(MsgExtract("UnknownObjectMsg")) '"게시물이 없거나 이미 삭제되었습니다."
Response.End
End If
If Not ChkCrIns Then
Response.Redirect "?id=" & id & "&mode=error&msg=" & Server.UrlEncode(MsgExtract("AccessDeniedMsg")) '"잘못된 접근입니다."
Response.End
End If
'//인증되었거나 관리자일경우
If authpasswd=rs.Fields("passwd") Or authpasswd=admin_passwd Then
For i=1 To 30 Step 1
If rs.Fields("fileName"&i)<>"" Then
If fs.FileExists(directoryPath & "\" & rs.Fields("fileName"&i)) Then
'//파일이 있으면 file#n 이전 파일 삭제
fs.DeleteFile(directoryPath & "\" & rs.Fields("fileName"&i))
End If
End If
Next
dbConn.BeginTrans()
'//게시물에 포함된 댓글 모두삭제
Sql = "DELETE FROM " & tid_cmt & " WHERE board_id='" & id & "' AND objNum=" & idx & ";"
dbConn.Execute Sql,,128
'//게시물 삭제
Sql = "DELETE FROM " & tid_board & " WHERE idx=" & idx & ";"
dbConn.Execute Sql,,128
'//게시물 갯수 감소
Sql = "UPDATE " & AdminTblName & " SET articleNum=articleNum-1 WHERE board_id='" & id & "';"
dbConn.Execute Sql,,128
If dbConn.Errors.Count=0 Then
dbConn.CommitTrans()
Response.Redirect "?id=" & id & "&mode=list&srhctgr=" & srhctgr & "&srhstr=" & srhstr & "&ctgrstr=" & ctgrstr & "&page=" & page
Response.End
Else
dbConn.RollbackTrans()
Response.Redirect "?id=" & id & "&mode=error&msg=" & Server.UrlEncode(MsgExtract("DeleteErrorMsg")) '"오류로 인해 삭제처리가 중단되었습니다."
Response.End
End If
Else
Response.Redirect "?id=" & id & "&mode=error&msg=" & Server.UrlEncode(MsgExtract("WrongPasswordMsg")) '"암호가 일치하지 않습니다."
End If
End If
Response.End
'**********************************************************************
' 게시물 멀티 삭제 처리
'**********************************************************************
ElseIf mode="deleteAtAll" Then
Response.Clear
authpasswd = Replace(Request.Form("authpasswd"), "'", "''") '//인증암호
idx = InjectionDefender(Request("idx")) '//게시물 고유번호들(쉼표 구분)
idxs = Split(idx,", ") '//게시물 고유번호 분리
idxp = Replace(idx,", "," OR idx=") '//idx별 쿼리문 정리
idxpx = Replace(idx,", "," OR objNum=") '//objNum별 쿼리문 정리
If InStr(idxp,"'")>0 Then
Response.Redirect "?id=" & id & "&mode=error&msg=" & Server.UrlEncode(MsgExtract("MultiDeleteQueryError")) '"쿼리에 잘못된 문자가 포함되어 있습니다."
Response.End
End If
'//인증암호가 없을 경우
If Trim(authpasswd)="" Then
Response.Redirect "?id=" & id & "&mode=authenticate&nav=" & mode & "&idx=" & idx & "&seq=" & seq & "&seqNum=" & seqNum & "&srhctgr=" & srhctgr & "&srhstr=" & srhstr & "&ctgrstr=" & ctgrstr & "&page=" & page
Response.End
Else
If IsAdmin<>True Then authpasswd = cx.SetEncode(authpasswd)
End If
If Not ChkCrIns Then
Response.Redirect "?id=" & id & "&mode=error&msg=" & Server.UrlEncode(MsgExtract("AccessDeniedMsg")) '"잘못된 접근입니다."
Response.End
End If
If Response.isClientConnected Then
If authpasswd=admin_passwd Then '//관리자로 인증되었을 경우
dbConn.BeginTrans() '//트랜잭션 시작
For i=0 To Ubound(idxs)
objSql = "SELECT * FROM " & tid_board & " WHERE idx=" & idxs(i) '//파일이름 가져오기
objRs.open objSql,dbConn
If Not objRs.EOF Then
For ii=0 To 29 Step 1
fileName(ii) = objRs.Fields("fileName"&ii+1)
If fileName(ii)<>"" Then '//파일이름 확인
If fs.FileExists(directoryPath & "\" & fileName(ii)) Then '//파일이 있는지 체크
fs.DeleteFile(directoryPath & "\" & fileName(ii)) '//file#n 파일 삭제
End If
End If
Next
End If
objRs.Close
Next
'//게시물 삭제
Sql = "DELETE FROM " & tid_board & " WHERE idx=" & idxp & ";" '//게시물 삭제 쿼리
dbConn.Execute Sql,,128
'//댓글 삭제
Sql = "DELETE FROM " & tid_cmt & " WHERE board_id='" & id & "' AND (objNum=" & idxpx & ");"
dbConn.Execute Sql,,128
'//게시물 갯수 감소
Sql = "UPDATE " & AdminTblName & " SET articleNum=articleNum-" & UBound(idxs)+1 & " WHERE board_id='" & id & "';"
dbConn.Execute Sql,,128
If dbConn.Errors.Count=0 Then
dbConn.CommitTrans() '//에러가 없으면 트랜잭션을 커밋시킴
Response.Redirect "?id=" & id & "&mode=list&srhctgr=" & srhctgr & "&srhstr=" & srhstr & "&ctgrstr=" & ctgrstr & "&page=" & page
Response.End
Else
dbConn.RollbackTrans() '//에러가 있으면 롤백처리
Response.Redirect "?id=" & id & "&mode=error&msg=" & Server.UrlEncode(MsgExtract("DeleteErrorMsg")) '"오류로 인해 삭제처리가 중단되었습니다."
Response.End
End If
Else
Response.Redirect "?id=" & id & "&mode=error&msg=" & Server.UrlEncode(MsgExtract("WrongPasswordMsg")) '"암호가 일치하지 않습니다."
End If
End If
Response.End
'**********************************************************************
' 게시물 이동
'**********************************************************************
ElseIf mode="MoveArticles" Then
Response.Clear
targetTableIdName = Replace(Request.Form("targetTableIdName"),"'","''")
authpasswd = Replace(Request.Form("authpasswd"), "'" ,"''") '//인증암호
idx = InjectionDefender(Request("idx")) '//게시물 고유번호들(쉼표 구분)
idxs = Split(idx,", ") '//게시물 고유번호 분리
idxp = Replace(idx,", "," OR idx=") '//idx별 쿼리문 정리
idxpx = Replace(idx,", "," OR objNum=") '//objNum별 쿼리문 정리
If targetTableIdName=id Then
Response.Redirect "?id=" & id & "&mode=error&msg=" & Server.UrlEncode(MsgExtract("MultiMoveSelError")) '"같은 게시판으로는 이동할수 없습니다."
Response.End
End If
If InStr(idxp,"'")>0 Then
Response.Redirect "?id=" & id & "&mode=error&msg=" & Server.UrlEncode(MsgExtract("MultiMoveQueryError")) '"쿼리에 잘못된 문자가 포함되어 있습니다."
Response.End
End If
'//인증암호가 없을 경우
If Trim(authpasswd)="" Then
Response.Redirect "?id=" & id & "&mode=authenticate&nav=" & mode & "&idx=" & idx & "&seq=" & seq & "&seqNum=" & seqNum & "&srhctgr=" & srhctgr & "&srhstr=" & srhstr & "&ctgrstr=" & ctgrstr & "&page=" & page
Response.End
Else
If IsAdmin<>True Then authpasswd = cx.SetEncode(authpasswd)
End If
If Not ChkCrIns Then
Response.Redirect "?id=" & id & "&mode=error&msg=" & Server.UrlEncode(MsgExtract("AccessDeniedMsg")) '"잘못된 접근입니다."
Response.End
End If
If Response.IsClientConnected Then
If authpasswd=admin_passwd Then '//관리자로 인증되었을 경우
targetTableIdBoard = "_board_" & targetTableIdName '//대상테이블이름
'targetTableIdCmt = "_board_cmt_" & targetTableIdName '//대상댓글테이블이름
dbConn.BeginTrans() '//트랜잭션 시작
Sql = "SELECT MAX(seqNum) FROM " & targetTableIdBoard '//이동대상 게시판의 seqNum필드에서 가장 큰수 불러오기
rs.Open Sql,dbConn
If IsNull(rs.Fields(0)) Then seqNum=1 Else seqNum=rs.Fields(0)+1 '//증가 시킨 seqNum값 구하기
rs.Close
i = UBound(idxs)
j = 0
Do While i>=0
'/////첨부파일 이동
Sql = "SELECT directoryPath FROM " & AdminTblName & " WHERE board_id='" & targetTableIdName & "';"
rs.Open Sql,dbConn
targetDirectoryPath = rs.Fields(0) '//이동대상 게시판의 업로드파일 저장경로
rs.Close
If StrComp(uploadedPath, FSBOARD_PATH & targetDirectoryPath)<>0 Then '//원본게시판과 이동대상게시판의 업로드파일 경로가 다를 경우
'//업로드 경로 확인
tmp = CreateServerFolder(targetDirectoryPath)
If tmp=False Then
Response.Redirect "?id=" & id & "&mode=error&msg=" & Server.UrlEncode(MsgExtract("UploadFolderError")) '"업로드폴더 생성에 실패했습니다."
Response.End
End If
Sql = "SELECT "
For ii=1 To 30
Sql = Sql & " fileName" & ii & ","
Next
Sql = Sql & "idx FROM " & tid_board & " WHERE idx=" & idxs(i)
rs.Open Sql,dbConn '//원본게시물 파일이름 가져오기
If Not rs.EOF Then
For ii=0 To 29
fileName(ii) = rs.Fields("fileName"&ii+1) '//파일이름들을 배열에 치환
If fileName(ii)<>"" Or Not IsNull(fileName(ii)) Then '//파일이름이 있을 경우
If fs.FileExists(directoryPath & "\" & fileName(ii)) Then '//파일이 존재하는지 체크
fs.MoveFile directoryPath & "\" & fileName(ii), Server.MapPath(targetDirectoryPath & "/" & fileName(ii)) '//이동대상게시판으로 첨부파일들을 모두 이동
End If
End If
Next
End If
rs.Close
End If
'/////게시물 이동
Sql = "INSERT INTO " & targetTableIdBoard & " SELECT seqNum,objProperty,midx,secret,docType,author,e_mail,homepage,subject,passwd,category,regDate,editDate,latestDate,memoNum,readNum,vote,ip_reg,ip_edit,usrAgent_reg,usrAgent_edit,ref,re_step,re_level,siteLink1,siteLink2,"
For ii=1 To 30 Step 1
Sql = Sql & "fileName" & ii & ",fileSize" & ii & ",fileDownload" & ii & ","
Next
Sql = Sql & "contents FROM " & tid_board & " WHERE idx=" & idxs(i) & ";"
dbConn.Execute Sql,,128 '//원본게시판으로부터 대상게시판으로 레코드 복사(idx,ref,re_step,re_level 컬럼들은 제외)
Sql = "SELECT @@IDENTITY FROM " & targetTableIdBoard & ";"
rs.Open Sql,dbConn '//대상게시판에 입력된 idx값 가져오기
insert_id = rs.Fields(0)
rs.Close
Sql = "UPDATE " & targetTableIdBoard & " SET seqNum=" & seqNum + j & ", ref=" & seqNum + j & ", re_step=0, re_level=0 WHERE idx=(SELECT max(idx) FROM " & targetTableIdBoard & ")"'idx=" & idxs(i)
dbConn.Execute Sql,,128 '//복사에서 제외시켰던 ref,re_step,re_level 컬럼의 값을 지정해줌(idx는 제외)
Sql = "DELETE FROM " & tid_board & " WHERE idx=" & idxs(i) & ";"
dbConn.Execute Sql,,128 '//원본 게시물 삭제
'/////댓글 이동(예전 버전)
'Sql = "UPDATE " & tid_cmt & " SET objNum=0 WHERE objNum=" & idxs(i)
'dbConn.Execute Sql,,128 '//이동될 댓글인식번호를 0으로 바꿈
'Sql = "INSERT INTO " & targetTableIdCmt & " SELECT objNum,name,e_mail,passwd,regDate,editDate,ip,memo FROM " & tid_cmt & " WHERE objNum=0"
'dbConn.Execute Sql,,128 '//댓글 레코드 복사(seqNum 컬럼 제외)
'Sql = "UPDATE " & targetTableIdCmt & " SET objNum=(SELECT max(idx) FROM " & targetTableIdBoard & ") WHERE objNum=0"
'dbConn.Execute Sql,,128 '//댓글인식번호를 이동된 게시물의 고유번호로 바꿈
'Sql = "DELETE FROM " & tid_cmt & " WHERE objNum=0"
'dbConn.Execute Sql,,128 '//원본 댓글 삭제
'/////댓글 이동
Sql = "UPDATE " & tid_cmt & " SET board_id=" & N & "'" & targetTableIdName & "', objNum=" & insert_id & " WHERE board_id='" & id & "' AND (objNum=" & idxs(i) & ");"
dbConn.Execute Sql,,128 '//이동된 댓글인식번호 맵핑
i = i - 1
j = j + 1
Loop
'//원본게시판 게시물 갯수 맞춤
Sql = "UPDATE " & AdminTblName & " SET articleNum=articleNum-" & UBound(idxs)+1 & " WHERE board_id='" & id & "';"
dbConn.Execute Sql,,128
'//대상게시판 게시물 갯수 맞춤
Sql = "UPDATE " & AdminTblName & " SET articleNum=articleNum+" & UBound(idxs)+1 & " WHERE board_id='" & targetTableIdName & "';"
dbConn.Execute Sql,,128
'//트랜잭션
If dbConn.Errors.Count=0 Then
dbConn.CommitTrans() '//쿼리 수행
Else
dbConn.RollbackTrans() '//롤백 시킴
Response.Redirect "?id=" & id & "&mode=error&msg=" & Server.UrlEncode(MsgExtract("MultiMoveErrorMsg")) '"오류로 인해 게시물이동이 중단되었습니다."
End If
'//원래 게시판으로 복귀
Response.Redirect "?id=" & id & "&mode=list&srhctgr=" & srhctgr & "&srhstr=" & srhstr & "&ctgrstr=" & ctgrstr & "&page=" & page
Else
Response.Redirect "?id=" & id & "&mode=error&msg=" & Server.UrlEncode(MsgExtract("WrongPasswordMsg")) '"암호가 일치하지 않습니다."
End If
End If
Response.End
'//레코드 카피 참고
'insert into A select * from B '레코드 카피 쿼리
'select * into A from B '레코드 카피 쿼리
'**********************************************************************
' 인증 폼
'**********************************************************************
ElseIf mode="authenticate" Then
'//포함되었는지 확인
LoginIncluded = True
'//로그인 파일 포함 시킴
%><%
'**********************************************************************
' 첨부파일 다운로드
'**********************************************************************
ElseIf mode="download" Then
Response.Clear
ServerSoftware = Request.ServerVariables("SERVER_SOFTWARE")
With Request
nav = InjectionDefender(.QueryString("nav"))
fileNum = InjectionDefender(.QueryString("fileNum"))
fName = InjectionDefender(.QueryString("filename"))
referer = InjectionDefender(.ServerVariables("HTTP_REFERER"))
maintainIdCode = Trim(.QueryString("maintainIdCode"))
End With
'//무단링크 확인
If useBlockAnyLink=True And maintainIdCode<>md5.MD5(Session.SessionId) Then
host = Request.ServerVariables("HTTP_HOST")
referer = Request.ServerVariables("HTTP_REFERER")
If InStr(referer, host)<=0 Then
Print MsgExtract("DLPermissionError") '"외부에서 무단링크 되어 다운로드 할 수 없습니다. You don't have permission to access."
Response.End
End If
Print MsgExtract("DLPermissionError") '"외부에서 무단링크 되어 다운로드 할 수 없습니다. You don't have permission to access."
Response.End
End If
'//게시물 정보 가져오기
Sql = "SELECT * FROM " & tid_board & " WHERE idx=" & InjectionDefender(idx) & ";"
rs.open Sql,dbConn
If rs.EOF Then
Response.Redirect "?id=" & id & "&mode=error&msg=" & Server.UrlEncode(MsgExtract("AccessDeniedMsg")) '"잘못된 접근입니다."
Response.End
End If
If Not ChkCrIns Then
Response.Redirect "?id=" & id & "&mode=error&msg=" & Server.UrlEncode(MsgExtract("AccessDeniedMsg")) '"잘못된 접근입니다."
Response.End
End If
'//권한 체크
If viewLevel=False Or (rs.Fields("secret")=True And secretLevel=False) Then
If referer="" Or InStr(referer,"mode=view")=0 Or InStr(referer,"idx="&idx)=0 Then
Response.Redirect "?id=" & id & "&mode=error&msg=" & Server.UrlEncode(MsgExtract("UserPermissionError")) '"권한이 없습니다."
Response.End
End If
End If
For i=1 To 30 Step 1
If fileNum=CStr(i) Then
If fs.FileExists(directoryPath & "\" & rs.Fields("fileName"&i)) Then
'//저장된 다운로드 횟수 가져오기
ii = CDbl(rs.Fields("fileDownLoad"&i))
'//다운로드 횟수 증가
ii = ii + 1
'//증가시킨 횟수 기록
Sql = "UPDATE " & tid_board & " SET fileDownLoad" & i & "=" & ii & " WHERE idx=" & idx & ";"
dbConn.Execute Sql,,128
Else
Response.Redirect "?id=" & id & "&mode=error&msg=" & Server.UrlEncode(MsgExtract("NoFileMsg")) '"파일이 없습니다."
End If
If InStr(ServerSoftware,"Microsoft-IIS/5.0")>0 Then
If rs.Fields("fileSize"&i)>0 And rs.Fields("fileSize"&i)<=(2^20*20) Then useStream=True Else useStream=False '//IIS5.0에서 파일용량 체크 0바이트이거나 20MB가 넘을 경우 직접링크
Else
If rs.Fields("fileSize"&i)>0 And rs.Fields("fileSize"&i)<=(2^20*20) Then useStream=True Else useStream=False '//파일용량 체크 0바이트이거나 4MB가 넘을 경우 직접링크
end If
If InStr(rs.Fields("fileName"&i),".mp3") Or InStr(rs.Fields("fileName"&i),".MP3") Then
'Response.Redirect "?id=" & id & "&mode=fileLink&nav=view&idx=" & idx & "&fileName=" & Server.UrlEncode(rs.Fields("fileName"&i)) & "&maintainCode=" & md5.MD5(Session.SessionId)
'Response.End
useStream = False
End If
End If
Next
If useStream Then
'//강제 다운로드 함수 호출
DownloadFile fName,uploadedPath
Else
'Print "Download"
Response.Redirect uploadedPath & "/" & fName
End If
'//원래 자리로 복귀
'Response.Redirect "?id=" & id & "&mode=" & nav & "&idx=" & idx & "&srhctgr=" & srhctgr & "&srhstr=" & srhstr & "&ctgrstr=" & ctgrstr & "&page=" & page
rs.Close
Response.End
'**********************************************************************
' 파일 경로 되돌리기
'**********************************************************************
ElseIf mode="fileLink" Then
Response.Clear
nav = Trim(Request.QueryString("nav"))
fName = Trim(Request.QueryString("filename"))
filepath = ""
If useBlockAnyLink=True Then
maintainIdCode = Trim(Request.QueryString("maintainIdCode"))
If maintainIdCode=md5.MD5(Session.SessionId) Then
filepath = uploadedPath & "/" & fName
Else
filepath = "/"
End If
host = Request.ServerVariables("HTTP_HOST")
referer = Request.ServerVariables("HTTP_REFERER")
'If InStr(referer, host)<=0 Then filepath = "/"
Else
filepath = uploadedPath & "/" & fName
End If
Response.Redirect(filepath)
Response.End
'**********************************************************************
' 에러 메시지 보이기
'**********************************************************************
ElseIf mode="error" Then
'//에러메시지 파일 포함 실행
'Server.Execute(FSBOARD_PATH & "lib/_error.asp")
%><%
'**********************************************************************
' 게시물 추천
'**********************************************************************
ElseIf mode="vote" Then
'//추천 쿠키 확인
If Request.Cookies("fsbv"&id)(CStr(idx))<>"v" Then
With Response
.Cookies("fsbv"&id)(CStr(idx)) = "v"
.Cookies("fsbv"&id).Expires = Date + 365
.Cookies("fsbv"&id).Path = Request.ServerVariables("URL")'"/"
End With
Sql = "SELECT vote FROM " & tid_board & " WHERE idx=" & InjectionDefender(idx) & ";"
rs.Open Sql,dbConn
If Not rs.EOF Then
i = rs.Fields("vote")
i = i + 1 '//추천수 증가
Sql = "UPDATE " & tid_board & " SET vote=" & CDbl(i) & " WHERE idx=" & InjectionDefender(idx) & ";"
dbConn.Execute Sql,,128
End If
Else
Response.Redirect "?id=" & id & "&mode=error&msg=" & Server.UrlEncode(MsgExtract("VoteOverLapping")) '"이미 추천하였습니다."
End If
'//원래 자리로 복귀
Response.Redirect "?id=" & id & "&mode=" & nav & "&idx=" & idx & "&seq=" & seq & "&srhctgr=" & srhctgr & "&srhstr=" & srhstr & "&ctgrstr=" & ctgrstr & "&page=" & page
Response.End
'**********************************************************************
' 댓글 저장 처리
'**********************************************************************
ElseIf mode="saveMemo" Then
Response.Clear
With Request
name = InjectionDefender(Trim(.Form("name"))) '//작성자 이름
e_mail = InjectionDefender(Trim(.Form("e_mail"))) '//작성자 메일
passwd = Replace(Trim(.Form("passwd")),"'","''") '//암호
memo = Replace(Trim(.Form("memo")),"'","''") '//메모내용
refuse = True
objNum = idx '//게시물 고유번호
regdate = Now '//작성날짜
ip_reg = .ServerVariables("REMOTE_ADDR") '//작성한곳 아이피주소
referer = .ServerVariables("HTTP_REFERER")
host = .ServerVariables("HTTP_HOST")
End With
'//외부입력 방지
If InStr(referer, host)<=0 Then refust = False
If referer<>"" And InStr(referer,"http://")=1 And InStr(referer,"&mode=view")>0 Then refuse = False
If refuse=True Then
Response.Redirect "?id=" & id & "&mode=error&msg=" & Server.UrlEncode(MsgExtract("AccessDeniedMsg")) '"잘못된 접근입니다."
Response.End
End If
If Not ChkCrIns Then
Response.Redirect "?id=" & id & "&mode=error&msg=" & Server.UrlEncode(MsgExtract("AccessDeniedMsg")) '"잘못된 접근입니다."
Response.End
End If
'//회원일 경우 회원 idx 가져옴
If MemId<>"" Then
Sql = "SELECT idx FROM " & MemTblName & " WHERE mem_id='" & MemId & "';"
rs.Open Sql,dbConn
If Not rs.EOF Then midx = rs.Fields("idx") Else midx = 0
rs.Close
Else
midx = 0
End If
'//회원로그인상태이면 회원의 암호로 게시물 암호저장
If MemId<>"" And passwd="" Then passwd = Session.Contents("MemPasswd")
If name="" Then Response.Redirect "?id=" & id & "&mode=error&msg=" & Server.UrlEncode(MsgExtract("RequiredName")) '"이름을 입력해 주세요."
If memo="" Then Response.Redirect "?id=" & id & "&mode=error&msg=" & Server.UrlEncode(MsgExtract("RequiredContent")) '"내용을 입력해 주세요."
If passwd="" Or Len(passwd)<4 Then Response.Redirect "?id=" & id & "&mode=error&msg=" & Server.UrlEncode(MsgExtract("RequiredPassword")) '"암호를 입력해 주세요.\n내용을 수정하거나 삭제할때 필요합니다."
If Len(name)>30 Then Response.Redirect "?id=" & id & "&mode=error&msg=" & Server.UrlEncode(MsgExtract("NotValidName")) '"이름이 너무 깁니다."
If e_mail<>"" And Not IsEmail(e_mail) Then Response.Redirect "?id=" & id & "&mode=error&msg=" & Server.UrlEncode(MsgExtract("NotValidEmail")) '"잘못된 이메일주소입니다."
'//불량단어체크
If useWordFilter=True Then
strTemp = Split(badWords,",")
For i=0 To Ubound(strTemp)
If InStr(1,memo,strTemp(i))<>0 Then
Response.Redirect "?id=" & id & "&mode=error&msg=" & Server.UrlEncode(MsgExtract("BadWordError")) '"내용에 사용할수 없는 단어인 '" & strTemp(i) & "' 이(가) 포함되어 있습니다.\n바르고 고운말을 사용합시다."
Response.End
End If
Next
End If
If MemId="" Then passwd = cx.SetEncode(passwd)
If Response.isClientConnected Then
Sql = "INSERT INTO " & tid_cmt & " (" _
& "board_id," _
& "objNum," _
& "midx," _
& "name," _
& "e_mail," _
& "passwd," _
& "regdate," _
& "ip_reg," _
& "memo" _
& ") VALUES (" _
& N & "'" & id & "'," _
& objNum & "," _
& midx & "," _
& N & "'" & name & "'," _
& N & "'" & e_mail & "'," _
& N & "'" & passwd & "'," _
& N & "'" & regdate & "'," _
& N & "'" & ip_reg & "'," _
& N & "'" & memo & "'" _
& ")"
objSql = "SELECT memoNum FROM " & tid_board & " WHERE idx=" & idx & ";"
rs.open objSql,dbConn
memoNum = rs.Fields("memoNum")
memoNum = Int(memoNum) + 1 '//댓글갯수 증가
rs.Close
objSql = "UPDATE " & tid_board & " SET " _
& "memoNum=" & memoNum & "," _
& "latestDate=" & N & "'" & Now & "' " _
& "WHERE idx=" & InjectionDefender(idx) & ";"
dbConn.BeginTrans()
dbConn.Execute Sql,,128 '//댓글추가
dbConn.Execute objSql,,128 '//댓글정보 추가
If dbConn.Errors.Count=0 Then
dbConn.CommitTrans()
Response.redirect("?id=" & id & "&mode=view&idx=" & idx & "&seq=" & seq & "&srhctgr=" & srhctgr & "&srhstr=" & srhstr & "&ctgrstr=" & ctgrstr & "&page=" & page)
Else
dbConn.RollbackTrans()
Response.Redirect "?id=" & id & "&mode=error&msg=" & Server.UrlEncode(MsgExtract("ErrorMessage")) '"오류로 인해 작업이 중단되었습니다."
End If
End If
Response.End
'**********************************************************************
' 댓글 수정 처리
'**********************************************************************
ElseIf mode="modifyMemo" Then
Response.Clear
With Request
seqNum = InjectionDefender(.Form("seqNum")) '//댓글고유번호
name = InjectionDefender(Trim(.Form("name"))) '//작성자 이름
e_mail = InjectionDefender(Trim(.Form("e_mail"))) '//작성자 메일
passwd = Replace(Trim(.Form("passwd")),"'","''") '//암호
memo = Replace(Trim(.Form("memo")),"'","''") '//메모내용
editdate = Now '//작성날짜
ip_edit = .ServerVariables("REMOTE_ADDR") '//작성한곳 아이피주소
host = .ServerVariables("HTTP_HOST")
referer = .ServerVariables("HTTP_REFERER") '//이전페이지 주소
End With
'//외부입력 방지
If InStr(referer, host)<=0 Then
Response.Redirect "?id=" & id & "&mode=error&msg=" & Server.UrlEncode(MsgExtract("AccessDeniedMsg")) '"잘못된 접근입니다."
Response.End
End If
If Not IsNumeric(seqNum) Then
Response.Redirect "?id=" & id & "&mode=error&msg=" & Server.UrlEncode(MsgExtract("UnknownPKCode")) '"식별코드가 잘못되었습니다."
Response.End
End If
Sql = "SELECT e_mail,passwd FROM " & tid_cmt & " WHERE seqNum=" & InjectionDefender(seqNum) & ";"
rs.Open Sql,dbConn
If rs.EOF Then
Response.Redirect "?id=" & id & "&mode=error&msg=" & Server.UrlEncode(MsgExtract("AccessDeniedMsg")) '"잘못된 접근입니다."
Response.End
End If
If Not ChkCrIns Then
Response.Redirect "?id=" & id & "&mode=error&msg=" & Server.UrlEncode(MsgExtract("AccessDeniedMsg")) '"잘못된 접근입니다."
Response.End
End If
'//회원로그인상태이면 회원의 암호로
If MemId<>"" And passwd="" Then passwd = Session.Contents("MemPasswd")
If cx.SetEncode(passwd)=admin_passwd Then passwd = rs.Fields("passwd")
If IsAdmin=True Then passwd = rs.Fields("passwd")
If e_mail="" Then e_mail = rs.Fields("e_mail")
'//필수 사항 확인
If passwd="" Or Len(passwd)<1 Then Response.Redirect "?id=" & id & "&mode=error&msg=" & Server.UrlEncode(MsgExtract("RqrMemoMdfPwdErr")) '"작성할때 입력했던 암호를 입력해 주세요.\n로그인 상태에서 작성한 글이면 회원의 암호를 입력해 주세요.")
If name="" Then Response.Redirect "?id=" & id & "&mode=error&msg=" & Server.UrlEncode(MsgExtract("RequiredName")) '"이름을 입력해 주세요."
If memo="" Then Response.Redirect "?id=" & id & "&mode=error&msg=" & Server.UrlEncode(MsgExtract("RequiredContent")) '"내용을 입력해 주세요."
If Len(name)>30 Then Response.Redirect "?id=" & id & "&mode=error&msg=" & Server.UrlEncode(MsgExtract("NotValidName")) '"이름이 너무 깁니다."
If e_mail<>"" And Not IsEmail(e_mail) Then Response.Redirect "?id=" & id & "&mode=error&msg=" & Server.UrlEncode(MsgExtract("NotValidEmail")) '"잘못된 이메일주소입니다."
If MemId="" Then
If passwd<>rs.Fields("passwd") Then passwd = cx.SetEncode(passwd)
End If
If passwd<>rs.Fields("passwd") Then Response.Redirect "?id=" & id & "&mode=error&msg=" & Server.UrlEncode(MsgExtract("WrongPasswordMsg")) '"암호가 일치하지 않습니다."
rs.Close
'//불량단어체크
If useWordFilter=True Then
strTemp = Split(badWords,",")
For i=0 To Ubound(strTemp)
If InStr(1,memo,strTemp(i))<>0 Then
Response.Redirect "?id=" & id & "&mode=error&msg=" & Server.UrlEncode(MsgExtract("BadWordError")) '"내용에 사용할수 없는 단어인 '" & strTemp(i) & "' 이(가) 포함되어 있습니다.\n바르고 고운말을 사용합시다."
Response.End
End If
Next
End If
If Response.isClientConnected Then
Sql = "UPDATE " & tid_cmt & " SET " _
& " name=" & N & "'" & name & "'," _
& " e_mail=" & N & "'" & e_mail & "'," _
& " editdate=" & N & "'" & editdate & "'," _
& " ip_edit=" & N & "'" & ip_edit & "'," _
& " memo=" & N & "'" & memo & "' " _
& " WHERE board_id='" & id & "' AND seqNum=" & InjectionDefender(seqNum) & ";"
dbConn.Execute Sql,,128
End If
Response.redirect("?id=" & id & "&mode=view&idx=" & idx & "&seq=" & seq & "&srhctgr=" & srhctgr & "&srhstr=" & srhstr & "&ctgrstr=" & ctgrstr & "&page=" & page)
Response.End
'**********************************************************************
' 댓글 삭제 처리
'**********************************************************************
ElseIf mode="deleteMemo" Then
Response.Clear
authpasswd = Replace(Request.Form("authpasswd"),"'","''") '//인증암호
seqNum = InjectionDefender(Request.QueryString("seqNum")) '//댓글고유번호
If Not isNumeric(seqNum) Then
Response.Redirect "?id=" & id & "&mode=error&msg=" & Server.UrlEncode(MsgExtract("UnknownPKCode")) '"식별코드가 잘못되었습니다."
Response.End
End If
'//인증암호가 없으면 인증모드로 이동
If Trim(authpasswd)="" Then
Response.Redirect "?id=" & id & "&mode=authenticate&nav=" & mode & "&idx=" & idx & "&seqNum=" & seqNum & "&srhctgr=" & srhctgr & "&srhstr=" & srhstr & "&ctgrstr=" & ctgrstr & "&page=" & page
Response.End
Else
If MemId="" Then authpasswd = cx.SetEncode(authpasswd)
End If
If Not ChkCrIns Then
Response.Redirect "?id=" & id & "&mode=error&msg=" & Server.UrlEncode(MsgExtract("AccessDeniedMsg")) '"잘못된 접근입니다."
Response.End
End If
If Response.isClientConnected Then
Sql = "SELECT passwd FROM " & tid_cmt & " WHERE seqNum=" & seqNum & ";"
rs.open Sql,dbConn
passwd = rs.Fields("passwd")
rs.Close
'//게시물암호를 인증하거나 관리자가 접근했을 경우
If authpasswd=passwd Or authpasswd=admin_passwd Then
Sql = "SELECT memoNum FROM " & tid_board & " WHERE idx=" & idx & ";"
rs.open Sql,dbConn
memoNum = rs.Fields("memoNum")
'//메모글 숫자 감소
If memoNum>0 Then memoNum = memoNum - 1
rs.Close
'//메모글 삭제
Sql = "DELETE FROM " & tid_cmt & " WHERE board_id='" & id & "' AND seqNum=" & InjectionDefender(seqNum) & ";"
objSql = "UPDATE " & tid_board & " SET memoNum=" & memoNum & " WHERE idx=" & InjectionDefender(idx) & ";"
dbConn.BeginTrans()
dbConn.Execute Sql,,128
dbConn.Execute objSql,,128
If dbConn.Errors.Count=0 Then
dbConn.CommitTrans()
Response.Redirect "?id=" & id & "&mode=view&idx=" & idx & "&seq=" & seq & "&srhctgr=" & srhctgr & "&srhstr=" & srhstr & "&ctgrstr=" & ctgrstr & "&page=" & page
Else
dbConn.RollbackTrans()
Response.Redirect "?id=" & id & "&mode=error&msg=" & Server.UrlEncode(MsgExtract("ErrorMessage")) '"에러로 인해 작업이 중단되었습니다."
End If
'//인증실패했을 경우
Else
Response.Redirect "?id=" & id & "&mode=error&msg=" & Server.UrlEncode(MsgExtract("WrongPasswordMsg")) '"암호가 일치하지 않습니다."
End If
End If
Response.End
'**********************************************************************
' RSS Feed XML
'**********************************************************************
ElseIf mode="rss.xml" Then
'//변수 선언
Dim allowRss
Dim xmlPars
Dim rss
Dim Channel
Dim title
Dim channel_link
Dim Description
Dim language
Dim image
Dim i_title
Dim i_url
Dim i_width
Dim i_height
Dim i_link
Dim item
Dim link
Dim dcdate
Dim dcsubject
Dim dcauthor
Dim dccategory
Dim posturl
Dim yoil
Dim wol
Dim il
Dim yon
Dim si
Dim bun
Dim cho
'//캐시로딩 방지
Response.Expires = -1
Response.ExpiresAbsolute = Now - 1
Response.AddHeader "pragma", "no-cache"
Response.AddHeader "cache-control", "private"
Response.CacheControl = "no-cache"
'//버퍼 비움
Response.Clear
'//XML 선언
Response.ContentType = "text/xml; charset=euc-kr"
Response.Write "" & VbCrLf
allowRss = True '//RSS 허용여부
If Not allowRss Then
Response.Write "" & VbCrLf
Response.Write "" & VbCrLf
Response.Write "" & VbCrLf
Response.Write "1" & VbCrLf
Response.Write "해당 게시판은 추출할 수 없습니다." & VbCrLf
Response.Write "" & VbCrLf
Response.Write ""
Response.End
End If
'//XML DOM
Set xmlPars = Server.CreateObject("Msxml2.DOMDocument")
'xmlPars.ValidateOnParse = True
'xmlPars.async = False
'//RSS 정보 담기
Set rss = xmlPars.CreateElement("rss")
rss.SetAttribute "version", "2.0"
rss.SetAttribute "xmlns:dc", "http://purl.org/dc/elements/1.1/"
rss.SetAttribute "xmlns:sy", "http://purl.org/rss/1.0/modules/syndication/"
rss.SetAttribute "xmlns:admin", "http://webns.net/mvcb/"
rss.SetAttribute "xmlns:rdf", "http://www.w3.org/1999/02/22-rdf-syntax-ns#"
xmlPars.AppendChild(rss)
'// 정보
Set Channel = xmlPars.CreateElement("channel")
rss.AppendChild(Channel)
'//
Set title = xmlPars.CreateElement("title")
Channel.AppendChild(title)
Channel.ChildNodes(0).Text = boardName '블로그 제목
'//<link>
Set channel_link = xmlPars.CreateElement("link")
Channel.AppendChild(channel_link)
Channel.ChildNodes(1).Text = "http://" & Request.ServerVariables("HTTP_HOST") & FSBOARD_PATH & FSMAINFILE & "?id=" & id '블로그 주소
'//<description>
Set description = xmlPars.CreateElement("description")
Channel.AppendChild(description)
Channel.ChildNodes(2).Text = Request.ServerVariables("HTTP_HOST") & "(" & boardName & ")" '블로그 설명
'//<dc:language>정보
Set language = xmlPars.CreateElement("dc:language")
Channel.AppendChild(language)
Channel.ChildNodes(3).Text = "ko"
'//<image>
Set image = xmlPars.CreateElement("image")
Channel.AppendChild(image)
'//이미지 정보에 들어갈 것들
Set i_title = xmlPars.CreateElement("title")
Set i_url = xmlPars.CreateElement("url")
Set i_width = xmlPars.CreateElement("width")
Set i_height = xmlPars.CreateElement("height")
Set i_link = xmlPars.CreateElement("link")
image.AppendChild(i_title)
image.AppendChild(i_url)
image.AppendChild(i_width)
image.AppendChild(i_height)
image.AppendChild(i_link)
image.ChildNodes(0).Text = id & " 게시판" '//이미지 제목
image.ChildNodes(1).Text = "http://" & Request.ServerVariables("HTTP_HOST") & FSBOARD_PATH & "img/logo/logo3.png" '//이미지 경로
image.ChildNodes(2).Text = "230" '//이미지 가로 사이즈
image.ChildNodes(3).Text = "100" '//이미지 세로 사이즈
image.ChildNodes(4).Text = "http://" & Request.ServerVariables("HTTP_HOST") & FSBOARD_PATH & "index.asp?id=" & id '//이미지링크
'//포스트 정보
'//데이터 가져오기
SQL = "SELECT TOP 15 * FROM " & tid_board & " ORDER BY idx DESC;"
'Set rs = Server.CreateObject("ADODB.Recordset")
'rs.Open SQL,dbConn,adOpenForwardOnly,adLockPessimistic,adCmdText
rs.Open Sql,dbConn,0,2,&H0001
'//데이터 루프
Do Until rs.EOF
If Not rs.Fields("secret") Then
'//<item>노드 추가
Set item = xmlPars.CreateElement("item")
Channel.AppendChild(item)
'//포스트 세부 정보 출력
Set title = xmlPars.CreateElement("title")
Set link = xmlPars.CreateElement("link")
Set description = xmlPars.CreateElement("description")
Set dcdate = xmlPars.CreateElement("dc:date")
Set dcsubject = xmlPars.CreateElement("dc:subject")
Set dcauthor = xmlPars.CreateElement("author")
Set dccategory = xmlPars.CreateElement("category")
item.AppendChild(title)
item.AppendChild(link)
item.AppendChild(description)
item.AppendChild(dcdate)
item.AppendChild(dcsubject)
item.AppendChild(dcauthor)
item.AppendChild(dccategory)
subject = rs.Fields("subject")
posturl = "http://" & Request.ServerVariables("HTTP_HOST") & FSBOARD_PATH & "index.asp?id=" & id & "&mode=view&idx=" & rs.Fields("idx")
contents = rs.Fields("contents")
regdate = rs.Fields("regDate")
category = rs.Fields("category")
author = rs.Fields("author")
'//날짜 포멧
Select Case WeekDay(DatePart("w",regdate)):Case 1:yoil = "Sun":Case 2:yoil = "Mon":Case 3:yoil = "Tue":Case 4:yoil = "Wed":Case 5:yoil = "Thu":Case 6:yoil = "Fri":Case 7:yoil = "Sat":End Select
Select Case Month(regdate):Case 1:wol = "Jan":Case 2:wol = "Feb":Case 3:wol = "Mar":Case 4:wol = "Apr":Case 5:wol = "May":Case 6:wol = "Jun":Case 7:wol = "Jul":Case 8:wol = "Aug":Case 9:wol = "Sep":Case 10:wol = "Oct":Case 11:wol = "Nov":Case 12:wol = "Dec":End Select
il = Day(regdate):If il<10 Then il="0"&il
yon = DatePart("yyyy",regdate)
si = Hour(regdate):If si<10 Then si="0" & si
bun = Minute(regdate):If bun<10 Then bun="0" & bun
cho = Second(regdate):If cho<10 Then cho="0" & cho
regdate = yoil & ", " & il & " " & wol & " " & yon & " " & si & ":" & bun & ":" & cho & " +0900"
item.ChildNodes(0).Text = subject '//제목
item.ChildNodes(1).Text = posturl '//포스트 고유 url
item.ChildNodes(2).Text = contents '//내용
item.ChildNodes(3).Text = regdate '//작성일
item.ChildNodes(4).Text = category '//포스트의 분류
item.ChildNodes(5).Text = author '//포스트 작성자
item.ChildNodes(6).Text = category '//카테고리
End If
rs.MoveNext
Loop
'//XML 프린트
Response.Write xmlPars.xml
'//개체 정리
rs.Close
Set rss = Nothing
Set xmlPars = Nothing
Response.End
'**********************************************************************
' 회원 로그인 처리
'**********************************************************************
ElseIf mode="login" Then
With Request
'//인증아이디
authid = InjectionDefender(.Form("authid"))
'//인증암호
authpasswd = Replace(.Form("authpasswd"),"'","''")
'//이전경로
referer = Trim(.Form("referer"))
End With
'//외부입력 방지
If InStr(Request.ServerVariables("HTTP_REFERER"), Request.ServerVariables("HTTP_HOST"))<=0 Then
Response.Redirect "?mode=error&msg=" & Server.UrlEncode(MsgExtract("AccessDeniedMsg")) '"잘못된 접근입니다."
Response.End
End If
'//인증암호가 없으면 인증모드로 이동
If Trim(authpasswd)="" Then
Response.Redirect "?id=" & id & "&mode=authenticate&nav=" & mode & "&idx=" & idx & "&srhctgr=" & srhctgr & "&srhstr=" & srhstr & "&ctgrstr=" & ctgrstr & "&page=" & page
Response.End
Else
If MemId="" Then authpasswd = cx.SetEncode(authpasswd)
End If
'//유효문자 체크
If eregi("[^a-zA-Z0-9_]", authid) Then
Response.Redirect "?id=" & id & "&mode=error&msg=" & Server.UrlEncode(MsgExtract("NotValidValue")) '"입력값에 유효하지 않은 문자가 포함되어 있습니다."
Response.End
End If
'//아이디 존재 여부 검사
Sql = "SELECT mem_id,mem_passwd FROM " & MemTblName & " WHERE mem_id='" & authid & "';"
rs.Open Sql,dbConn
If rs.EOF Then
Response.Redirect "?id=" & id & "&mode=error&msg=" & Server.UrlEncode(MsgExtract("UnknownID")) '"존재하지 않는 아이디입니다."
Response.End
End If
rs.Close
'//회원정보 가져오기
Sql = "SELECT * FROM " & MemTblName & " WHERE mem_id='" & authid & "' AND mem_passwd='" & InjectionDefender(authpasswd) & "';"
rs.Open Sql,dbConn
If Not ChkCrIns Then
Response.Redirect "?id=" & id & "&mode=error&msg=" & Server.UrlEncode(MsgExtract("AccessDeniedMsg")) '"잘못된 접근입니다."
Response.End
End If
If rs.EOF Then
Response.Redirect "?id=" & id & "&mode=error&msg=" & Server.UrlEncode(MsgExtract("WrongPasswordMsg")) '"암호가 일치하지 않습니다."
Response.End
Else
If rs.Fields("mem_passwd")<>authpasswd Then
Response.Redirect "?mode=error&msg=" & Server.UrlEncode(MsgExtract("UnknownMember")) '"회원정보가 일치하지 않습니다."
Response.End
Else
With Session
.Contents("MemId") = rs.Fields("mem_id") '//회원 아이디
.Contents("MemPasswd") = rs.Fields("mem_passwd") '//회원 암호
.Contents("MemLevel") = rs.Fields("mem_level") '//회원 레벨
.Contents("MemName") = rs.Fields("mem_name") '//회원 이름
'//관리자일경우 관리권한 지정
If .Contents("MemLevel")<=1 Then .Contents("IsAdmin") = True
End With
Sql = "UPDATE " & MemTblName & " SET mem_lastdate=" & N & "'" & Now & "' WHERE mem_id='" & authid & "';"
dbConn.Execute Sql,,128
If referer<>"" Then
Response.Redirect(referer)
Else
Response.Redirect "?id=" & id & "&mode=list"
End If
Response.End
End If
End If
rs.Close
'**********************************************************************
' 게시판 관리자 로그인 처리
'**********************************************************************
ElseIf mode="admin" Then
Response.Clear
'//관리자로그인상태이면 로그인없이 바로 이동
If IsAdmin=True Then
Response.redirect("?id=" & id & "&mode=adminconf")
Response.End
End If
'//인증아이디
authid = Trim(Request.Form("authid"))
'//인증암호
authpasswd = Trim(Request.Form("authpasswd"))
'//인증암호가 없으면 인증모드로 이동
If Trim(authpasswd)="" Then
Response.Redirect "?id=" & id & "&mode=authenticate&nav=" & mode & "&idx=" & idx & "&srhctgr=" & srhctgr & "&srhstr=" & srhstr & "&ctgrstr=" & ctgrstr & "&page=" & page
Response.End
Else
authpasswd = cx.SetEncode(authpasswd)
End If
'//유효문자 체크
If eregi("[^a-zA-Z0-9_]", authid) Then
Response.Redirect "?id=" & id & "&mode=error&msg=" & Server.UrlEncode(MsgExtract("NotValidValue")) '"입력값에 유효하지 않은 문자가 포함되어 있습니다."
Response.End
End If
'//관리자 정보가 일치하면 관리자세션 로그인
If authid=admin_id And authpasswd=admin_passwd Then
With Session
.Contents("MemId") = admin_id
.Contents("MemPasswd") = admin_passwd
.Contents("MemLevel") = 1
.Contents("MemName") = "관리자"
.Contents("IsAdmin") = True
End With
Response.Redirect "?id=" & id & "&mode=adminconf"
Else
Response.Redirect "?id=" & id & "&mode=error&msg=" & Server.UrlEncode(MsgExtract("NotVerifiedAdmin")) '"관리자 정보가 일치하지 않습니다."
End If
Response.End
'**********************************************************************
' 게시판 관리자 설정 폼
'**********************************************************************
ElseIf mode="adminconf" Then
If IsAdmin=True Then
'//파일 포함 확인
AdminIncluded = True
'//관리 파일 포함
%><!-- #include file = "lib/_admin.asp" --><%
Else
Response.Redirect "?id=" & id & "&mode=error&msg=" & Server.UrlEncode(MsgExtract("SessionTerminated")) '"세션시간이 종료 되었거나 잘못된 접근입니다.\n로그인후 사용해 주세요."
End If
'**********************************************************************
' 관리자 설정 저장 처리
'**********************************************************************
ElseIf mode="adminsave" Then
Response.Clear
'//접근확인
If Not IsAdmin=True Then
Response.Redirect "?id=" & id & "&mode=error&msg=" & Server.UrlEncode(MsgExtract("SessionExpired")) '"세션 시간이 만료되었거나 로그인 상태가 아닙니다."
Response.End
End If
'//변수 선언
Dim adminPasswd, adminPasswd2
Dim adminId
Dim todayAccess, totalAccess
Dim applyAllWidth
Dim applyAllSubjectLimit
Dim applyAllAuthorLimit
Dim applyAllContentLimit
Dim applyAllPageSize
Dim applyAllDivPage
Dim applyAllNoticeNum
Dim applyAllAlign
Dim applyAllHeadFile
Dim applyAllTailFile
Dim applyAllHeadMsg
Dim applyAllTailMsg
Dim applyAllArticleDefMsg
Dim applyAllViewList
Dim applyAllUseMemo
Dim applyAllUseAutoLink
Dim applyAllUsePreview
Dim applyAllUseSiteLink1
Dim applyAllUseSiteLink2
Dim applyAllUseSecret
Dim applyAllUseBlockSpam
Dim applyAllUseBlockAnyLink
Dim applyAllUseViewClientInfo
Dim applyAllWriteMode
Dim applyAllUseRszImg
Dim applyAllRszImgSize
Dim applyAllUseHTML
Dim applyAllAllowTags
Dim applyAllUseFile
Dim applyAllUploadComponent
Dim applyAllFileMaxLimit
Dim applyAllFileMaxNum
Dim applyAllDirectoryPath
Dim applyAllUseCategory
Dim applyAllCategories
Dim applyAllUseWordFilter
Dim applyAllBadWords
Dim applyAllListLevel
Dim applyAllViewLevel
Dim applyAllSecretLevel
Dim applyAllWriteLevel
Dim applyAllReplyLevel
Dim applyAllMemoWriteLevel
Dim applyAllNoticeWriteLevel
Dim applyAllHtmlLevel
Dim applyAllDeleteLevel
Dim applyMode
'//폼 전송 받기
With Request
'//관리자 설정 부분
boardName = Replace(.Form("boardName"), "'", "''")
skin = Trim(Replace(.Form("skin"), "'", "''"))
adminPasswd = Replace(.Form("adminPasswd"), "'", "''")
adminPasswd2 = Replace(.Form("adminPasswd2"), "'", "''")
adminId = Trim(Replace(.Form("adminId"), "'", "''"))
combinedFileName = Trim(Replace(.Form("combinedFileName"), "'", "''"))
todayAccess = Trim(Replace(.Form("todayCount"), "'", "''"))
totalAccess = Trim(Replace(.Form("totalCount"), "'", "''"))
lang = Trim(Replace(.Form("lang"), "'", "''"))
'//기본설정 부분
width = Trim(Replace(.Form("width"), "'", "''"))
subjectLimit = Trim(Replace(.Form("subjectLimit"), "'", "''"))
authorLimit = Trim(Replace(.Form("authorLimit"), "'", "''"))
contentLimit = Trim(Replace(.Form("contentLimit"), "'", "''"))
pageSize = Trim(Replace(.Form("pageSize"), "'", "''"))
divPage = Trim(Replace(.Form("divPage"), "'", "''"))
noticeNum = Trim(Replace(.Form("noticeNum"), "'", "''"))
align = Trim(Replace(.Form("align"), "'", "''"))
'//게시판에 표시될 내용설정 부분
headFile = Replace(Trim(.Form("headFile")), "'", "''")
tailFile = Replace(Trim(.Form("tailFile")), "'", "''")
headMsg = Trim(.Form("headMsg"))
tailMsg = Trim(.Form("tailMsg"))
articleDefMsg = .Form("articleDefMsg")
'//게시판 기능설정 부분
viewList = Replace(.Form("viewList"), "'", "''")
useMemo = Replace(.Form("useMemo"), "'", "''")
useAutoLink = Replace(.Form("useAutoLink"), "'", "''")
usePreview = Replace(.Form("usePreview"), "'", "''")
useSiteLink1 = Replace(.Form("useSiteLink1"), "'", "''")
useSiteLink2 = Replace(.Form("useSiteLink2"), "'", "''")
useSecret = Replace(.Form("useSecret"), "'", "''")
useBlockSpam = Replace(.Form("useBlockSpam"), "'", "''")
useBlockAnyLink = Replace(.Form("useBlockAnyLink"), "'", "''")
useViewClientInfo = Replace(.Form("useViewClientInfo"), "'", "''")
writeMode = Replace(.Form("writeMode"), "'", "''")
useRszImg = Replace(.Form("useRszImg"), "'", "''")
rszImgSize = Replace(.Form("rszImgSize"), "'", "''")
useHTML = Replace(.Form("useHTML"), "'", "''")
allowTags = Replace(.Form("allowTags"), "'", "''")
useFile = Replace(.Form("useFile"), "'", "''")
uploadComponent = Replace(.Form("uploadComponent"), "'", "''")
fileMaxLimit = Replace(.Form("fileMaxLimit"), "'", "''")
fileMaxNum = Replace(.Form("fileMaxNum"), "'", "''")
directoryPath = Replace(.Form("directoryPath"), "'", "''")
useCategory = Replace(.Form("useCategory"), "'", "''")
categories = Replace(.Form("categories"), "'", "''")
useWordFilter = Replace(.Form("useWordFilter"), "'", "''")
badWords = Replace(.Form("badWords"), "'", "''")
'//권한설정 부분
listLevel = Replace(.Form("listLevel"), "'", "''")
viewLevel = Replace(.Form("viewLevel"), "'", "''")
secretLevel = Replace(.Form("secretLevel"), "'", "''")
writeLevel = Replace(.Form("writeLevel"), "'", "''")
replyLevel = Replace(.Form("replyLevel"), "'", "''")
memoWriteLevel = Replace(.Form("memoWriteLevel"), "'", "''")
noticeWriteLevel = Replace(.Form("noticeWriteLevel"), "'", "''")
htmlLevel = Replace(.Form("htmlLevel"), "'", "''")
deleteLevel = Replace(.Form("deleteLevel"), "'", "''")
'//모두적용 부분
applyAllWidth = .Form("applyAllWidth")
applyAllSubjectLimit = .Form("applyAllSubjectLimit")
applyAllAuthorLimit = .Form("applyAllAuthorLimit")
applyAllContentLimit = .Form("applyAllContentLimit")
applyAllPageSize = .Form("applyAllPageSize")
applyAllDivPage = .Form("applyAllDivPage")
applyAllNoticeNum = .Form("applyAllNoticeNum")
applyAllAlign = .Form("applyAllAlign")
applyAllHeadFile = .Form("applyAllHeadFile")
applyAllTailFile = .Form("applyAllTailFile")
applyAllHeadMsg = .Form("applyAllHeadMsg")
applyAllTailMsg = .Form("applyAllTailMsg")
applyAllArticleDefMsg = .Form("applyAllArticleDefMsg")
applyAllViewList = .Form("applyAllViewList")
applyAllUseMemo = .Form("applyAllUseMemo")
applyAllUseAutoLink = .Form("applyAllUseAutoLink")
applyAllUsePreview = .Form("applyAllUsePreview")
applyAllUseSiteLink1 = .Form("applyAllUseSiteLink1")
applyAllUseSiteLink2 = .Form("applyAllUseSiteLink2")
applyAllUseSecret = .Form("applyAllUseSecret")
applyAllUseBlockSpam = .Form("applyAllUseBlockSpam")
applyAllUseBlockAnyLink = .Form("applyAllUseBlockAnyLink")
applyAllUseViewClientInfo = .Form("applyAllUseViewClientInfo")
applyAllWriteMode = .Form("applyAllWriteMode")
applyAllUseRszImg = .Form("applyAllUseRszImg")
applyAllRszImgSize = .Form("applyAllRszImgSize")
applyAllUseHTML = .Form("applyAllUseHTML")
applyAllAllowTags = .Form("applyAllAllowTags")
applyAllUseFile = .Form("applyAllUseFile")
applyAllUploadComponent = .Form("applyAllUploadComponent")
applyAllFileMaxLimit = .Form("applyAllFileMaxLimit")
applyAllFileMaxNum = .Form("applyAllFileMaxNum")
applyAllDirectoryPath = .Form("applyAllDirectoryPath")
applyAllUseCategory = .Form("applyAllUseCategory")
applyAllCategories = .Form("applyAllCategories")
applyAllUseWordFilter = .Form("applyAllUseWordFilter")
applyAllBadWords = .Form("applyAllBadWords")
applyAllListLevel = .Form("applyAllListLevel")
applyAllViewLevel = .Form("applyAllViewLevel")
applyAllSecretLevel = .Form("applyAllSecretLevel")
applyAllWriteLevel = .Form("applyAllWriteLevel")
applyAllReplyLevel = .Form("applyAllReplyLevel")
applyAllMemoWriteLevel = .Form("applyAllMemoWriteLevel")
applyAllNoticeWriteLevel = .Form("applyAllNoticeWriteLevel")
applyAllHtmlLevel = .Form("applyAllHtmlLevel")
applyAllDeleteLevel = .Form("applyAllDeleteLevel")
applyMode = .Form("applyMode")
aid = .Form("aid")
End With
'//관리자 확인
If IsAdmin<>True Then
Response.Redirect "?id=" & id & "&mode=error&msg=" & Server.UrlEncode(MsgExtract("AccessDeniedMsg")) '"잘못된 접근입니다."
Response.End
End If
If Not ChkCrIns Then
Response.Redirect "?id=" & id & "&mode=error&msg=" & Server.UrlEncode(MsgExtract("AccessDeniedMsg")) '"잘못된 접근입니다."
Response.End
End If
'//변경 암호 일치 여부 확인
If adminPasswd<>adminPasswd2 Then
Response.Redirect "?id=" & id & "&mode=error&msg=" & Server.UrlEncode(MsgExtract("ReaffirmPasswordError")) '"암호와 암호확인이 일치하지 않습니다."
Response.End
End If
'//유효 데이터 검사
If Not ChkAvailableChr(adminId) Then Response.Redirect "?id=" & id & "&mode=error&msg=" & Server.UrlEncode(MsgExtract("NotValidAdminID")) '"관리자아이디에 유효하지 않은 문자가 포함되어 있습니다."
If Not ChkAvailableNum(width) Then Response.Redirect "?id=" & id & "&mode=error&msg=" & Server.UrlEncode(MsgExtract("WidthNumError")) '"게시판 가로크기는 숫자로만 지정이 가능합니다."
If Not ChkAvailableNum(subjectLimit) Then Response.Redirect "?id=" & id & "&mode=error&msg=" & Server.UrlEncode(MsgExtract("SubjectLimitNumError")) '"제목글자수 제한은 숫자로만 지정이 가능합니다."
If Not ChkAvailableNum(authorLimit) Then Response.Redirect "?id=" & id & "&mode=error&msg=" & Server.UrlEncode(MsgExtract("AuthorLimitNumError")) '"이름 글자제한 수는 숫자로만 지정이 가능합니다."
If Not ChkAvailableNum(contentLimit) Then Response.Redirect "?id=" & id & "&mode=error&msg=" & Server.UrlEncode(MsgExtract("ContentLimitNumError")) '"내용 글자제한 수는 숫자로만 지정이 가능합니다."
If Not ChkAvailableNum(pageSize) Then Response.Redirect "?id=" & id & "&mode=error&msg=" & Server.UrlEncode(MsgExtract("PageSizeNumError")) '"페이지당 게시물수는 숫자로만 지정이 가능합니다."
If Not ChkAvailableNum(divPage) Then Response.Redirect "?id=" & id & "&mode=error&msg=" & Server.UrlEncode(MsgExtract("DivPageNumError")) '"페이지당 페이지바로가기수는 숫자로만 지정이 가능합니다."
If totalAccess<>"" Or todayAccess<>"" Then
If Not ChkAvailableNum(totalAccess) Then Response.Redirect "?id=" & id & "&mode=error&msg=" & Server.UrlEncode(MsgExtract("TotalCountNumError")) '"전체카운터를 수정하시려면 숫자만 입력하세요."
If Not ChkAvailableNum(todayAccess) Then Response.Redirect "?id=" & id & "&mode=error&msg=" & Server.UrlEncode(MsgExtract("TodayCountNumError")) '"오늘카운터를 수정하시려면 숫자만 입력하세요."
End If
'//데이터 길이 검사
If Len(headMsg)>1000 Then Response.Redirect "?id=" & id & "&mode=error&msg=" & Server.UrlEncode(MsgExtract("HeadMsgVallidError")) '"상단포함 메시지가 너무 길게 작성되었습니다.\n1000글자 이내로 작성해 주세요."
If Len(tailMsg)>1000 Then Response.Redirect "?id=" & id & "&mode=error&msg=" & Server.UrlEncode(MsgExtract("TailMsgValidError")) '"하단포함 메시지가 너무 길게 작성되었습니다.\n1000글자 이내로 작성해 주세요."
If Len(articleDefMsg)>1000 Then Response.Redirect "?id=" & id & "&mode=error&msg=" & Server.UrlEncode(MsgExtract("AtcDefMsgValidError")) '"기본 내용 메시지가 너무 길게 작성되었습니다.\n1000글자 이내로 작성해 주세요."
If Len(allowTags)>255 Then Response.Redirect "?id=" & id & "&mode=error&msg=" & Server.UrlEncode(MsgExtract("AllowTagValidError")) '"허용할 태그의 내용이 너무 길게 작성되었습니다.\n250글자 이내로 작성해 주세요."
If Len(categories)>255 Then Response.Redirect "?id=" & id & "&mode=error&msg=" & Server.UrlEncode(MsgExtract("CategoriesValidError")) '"카테고리 내용이 너무 길게 작성되었습니다.\n250글자 이내로 작성해 주세요."
If Len(badWords)>255 Then Response.Redirect "?id=" & id & "&mode=error&msg=" & Server.UrlEncode(MsgExtract("BadWordsValidError")) '"불량단어 필터링 내용이 너무 길게 작성되었습니다.\n250글자 이내로 작성해 주세요."
'//암호가 비어있으면 이전암호를 불러옴
If adminPasswd="" And adminPasswd2="" Then
adminPasswd = admin_passwd
Else
adminPasswd = cx.SetEncode(adminPasswd)
End If
If totalAccess="" Then totalAccess=totalCount '//카운트가 비어있으면 이전카운트를 불러옴
If todayAccess="" Then todayAccess=todayCount '//카운트가 비어있으면 이전카운트를 불러옴
'//언어팩 파일이 있는지 검사
If Not fs.FileExists(Server.MapPath(FSBOARD_PATH & "lang/" & lang & ".asp")) Then
Response.Redirect "?id=" & id & "&mode=error&msg=" & Server.UrlEncode("Language file does not exist.")
Response.End
End If
'//데이터 리턴값 설정
headMsg = Replace(headMsg,"'",Chr(34)) '//상단메시지 따옴표 바꿈
headMsg = Replace(headmsg,Chr(13)," ") '//엔터를 탭으로 바꿈
tailMsg = Replace(tailMsg,"'",Chr(34)) '//하단메시지 따옴표 바꿈
tailMsg = Replace(tailMsg,Chr(13)," ") '//엔터를 탭으로 바꿈
articleDefMsg = Replace(articleDefMsg,"'",Chr(34)) '//기본본문메시지 따옴표 바꿈
articleDefMsg = Replace(articleDefMsg,Chr(13)," ") '//기본본문메시지 엔터를 탭으로 바꿈
'//따옴표 에러 처리
headMsg = Replace(headMsg,"'","''")
tailMsg = Replace(tailMsg,"'","''")
articleDefMsg = Replace(articleDefMsg,"'","''")
'//Boolean값 설정
If Int(pageSize)<1 Then pageSize=1
If Int(divPage)<1 Then divPage=1
If viewList="" Then viewList=0
If useMemo="" Then useMemo=0
If useAutoLink="" Then useAutoLink=0
If usePreview="" Then usePreview=0
If useSiteLink1="" Then useSiteLink1=0
If useSiteLink2="" Then useSiteLink2=0
If useSecret="" Then useSecret=0
If useBlockSpam="" Then useBlockSpam=0
If useBlockAnyLink="" Then useBlockAnyLink=0
If useViewClientInfo="" Then useViewClientInfo=0
If useRszImg="" Then useRszImg=0
If useFile="" Then useFile=0
If useCategory="" Then useCategory=0
If useWordFilter="" Then useWordFilter=0
'//첨부파일 업로드 폴더 확인
If StrComp(uploadedPath, FSBOARD_PATH & directoryPath)<>0 Then
tmp = CreateServerFolder(directoryPath)
If tmp=False Then
Response.Redirect "?id=" & id & "&mode=error&msg=" & Server.UrlEncode(MsgExtract("UploadFolderError")) '"업로드폴더 생성에 실패했습니다."
Response.End
End If
End If
'//업데이트 쿼리문
Sql = ("UPDATE " & AdminTblName & " SET " _
& "width=" & width & ", " _
& "subjectLimit=" & subjectLimit & ", " _
& "authorLimit=" & authorLimit & ", " _
& "contentLimit=" & contentLimit & ", " _
& "pageSize=" & pageSize & ", " _
& "divPage=" & divPage & ", " _
& "noticeNum=" & noticeNum & ", " _
& "align=" & N & "'" & align & "', " _
& "headFile=" & N & "'" & headFile & "', " _
& "tailFile=" & N & "'" & tailFile & "', " _
& "headMsg=" & N & "'" & headMsg & "', " _
& "tailMsg=" & N & "'" & tailMsg & "', " _
& "articleDefMsg=" & N & "'" & articleDefMsg & "', " _
& "viewList=" & viewList & ", " _
& "useMemo=" & useMemo & ", " _
& "useAutoLink=" & useAutoLink & ", " _
& "usePreview=" & usePreview & ", " _
& "useSiteLink1=" & useSiteLink1 & ", " _
& "useSiteLink2=" & useSiteLink2 & ", " _
& "useSecret=" & useSecret & ", " _
& "useBlockSpam=" & useBlockSpam & ", " _
& "useBlockAnyLink=" & useBlockAnyLink & ", " _
& "useViewClientInfo=" & useViewClientInfo & ", " _
& "writeMode=" & N & "'" & writeMode & "', " _
& "useRszImg=" & useRszImg & ", " _
& "rszImgSize=" & rszImgSize & ", " _
& "useHTML=" & N & "'" & useHTML & "', " _
& "allowTags=" & N & "'" & allowTags & "', " _
& "useFile=" & useFile & ", " _
& "uploadComponent=" & N & "'" & uploadComponent & "', " _
& "fileMaxLimit=" & fileMaxLimit & ", " _
& "fileMaxNum=" & fileMaxNum & ", " _
& "directoryPath=" & N & "'" & directoryPath & "', " _
& "useCategory=" & useCategory & ", " _
& "categories=" & N & "'" & categories & "', " _
& "useWordFilter=" & useWordFilter & ", " _
& "badWords=" & N & "'" & badWords & "', " _
& "listLevel=" & listLevel & ", " _
& "viewLevel=" & viewLevel & ", " _
& "secretLevel=" & secretLevel & ", " _
& "writeLevel=" & writeLevel & ", " _
& "replyLevel=" & replyLevel & ", " _
& "memoWriteLevel=" & memoWriteLevel & ", " _
& "noticeWriteLevel=" & noticeWriteLevel & ", " _
& "htmlLevel=" & htmlLevel & ", " _
& "deleteLevel=" & deleteLevel & " ")
'//선택 적용
Select Case applyMode
'//모든 게시판에 적용
Case "all"
Sql = Sql & ""
'//선택된 게시판에만 적용
Case "define"
If aid="" Then
Response.Redirect "?id=" & id & "&mode=error&msg=" & Server.UrlEncode(MsgExtract("BBSIDSelError")) '"설정을 적용할 게시판이 선택되지 않았습니다."
Response.End
End If
aid = Replace(aid,","," OR aid=")
Sql = Sql & " WHERE aid=" & aid & ";"
'//현재 게시판에만 적용
Case "this"
Sql = Sql & " WHERE board_id='" & id & "';"
End Select
'//트랜잭션 시작
dbConn.BeginTrans()
'//설정 업데이트
If Response.isClientConnected Then dbConn.Execute Sql,,128
'//항목별 모두적용
Sql = ""
If applyAllWidth="true" Then Sql = Sql & "width=" & width & ", "
If applyAllSubjectLimit="true" Then Sql = Sql & "subjectLimit=" & subjectLimit & ", "
If applyAllAuthorLimit="true" Then Sql = Sql & "authorLimit=" & authorLimit & ", "
If applyAllContentLimit="true" Then Sql = Sql & "contentLimit=" & contentLimit & ", "
If applyAllPageSize="true" Then Sql = Sql & "pageSize=" & pageSize & ", "
If applyAllDivPage="true" Then Sql = Sql & "divPage=" & divPage & ", "
If applyAllNoticeNum="true" Then Sql = Sql & "noticeNum=" & noticeNum & ", "
If applyAllAlign="true" Then Sql = Sql & "align='" & align & "', "
If applyAllHeadFile="true" Then Sql = Sql & "headFile='" & headFile & "', "
If applyAllTailFile="true" Then Sql = Sql & "tailFile='" & tailFile & "', "
If applyAllHeadMsg="true" Then Sql = Sql & "headMsg='" & headMsg & "', "
If applyAllTailMsg="true" Then Sql = Sql & "tailMsg='" & tailMsg & "', "
If applyAllArticleDefMsg="true" Then Sql = Sql & "articleDefMsg='" & articleDefMsg & "', "
If applyAllViewList="true" Then Sql = Sql & "viewList=" & viewList & ", "
If applyAllUseMemo="true" Then Sql = Sql & "useMemo=" & useMemo & ", "
If applyAllUseAutoLink="true" Then Sql = Sql & "useAutoLink=" & useAutoLink & ", "
If applyAllUsePreview="true" Then Sql = Sql & "usePreview=" & usePreview & ", "
If applyAllUseSiteLink1="true" Then Sql = Sql & "useSiteLink1=" & useSiteLink1 & ", "
If applyAllUseSiteLink2="true" Then Sql = Sql & "useSiteLink2=" & useSiteLink2 & ", "
If applyAllUseSecret="true" Then Sql = Sql & "useSecret=" & useSecret & ", "
If applyAllUseBlockSpam="true" Then Sql = Sql & "useBlockSpam=" & useBlockSpam & ", "
If applyAllUseBlockAnyLink="true" Then Sql = Sql & "useBlockAnyLink=" & useBlockAnyLink & ", "
If applyAllUseViewClientInfo="true" Then Sql = Sql & "useViewClientInfo=" & useViewClientInfo & ", "
If applyAllWriteMode="true" Then Sql = Sql & "writeMode='" & writeMode & "', "
If applyAllUseRszImg="true" Then Sql = Sql & "useRszImg=" & useRszImg & ", "
If applyAllRszImgSize="true" Then Sql = Sql & "rszImgSize=" & rszImgSize & ", "
If applyAllUseHTML="true" Then Sql = Sql & "useHTML='" & useHTML & "', "
If applyAllAllowTags="true" Then Sql = Sql & "allowTags='" & allowTags & "', "
If applyAllUseFile="true" Then Sql = Sql & "useFile=" & useFile & ", "
If applyAllUploadComponent="true" Then Sql = Sql & "uploadComponent='" & uploadComponent & "', "
If applyAllFileMaxLimit="true" Then Sql = Sql & "fileMaxLimit=" & fileMaxLimit & ", "
If applyAllFileMaxNum="true" Then Sql = Sql & "fileMaxNum=" & fileMaxNum & ", "
If applyAllDirectoryPath="true" Then Sql = Sql & "directoryPath='" & directoryPath & "', "
If applyAllUseCategory="true" Then Sql = Sql & "useCategory=" & useCategory & ", "
If applyAllCategories="true" Then Sql = Sql & "categories='" & categories & "', "
If applyAllUseWordFilter="true" Then Sql = Sql & "useWordFilter=" & useWordFilter & ", "
If applyAllBadWords="true" Then Sql = Sql & "badWords='" & badWords & "', "
If applyAllListLevel="true" Then Sql = Sql & "listLevel=" & listLevel & ", "
If applyAllViewLevel="true" Then Sql = Sql & "viewLevel=" & viewLevel & ", "
If applyAllSecretLevel="true" Then Sql = Sql & "secretLevel=" & secretLevel & ", "
If applyAllWriteLevel="true" Then Sql = Sql & "replyLevel=" & replyLevel & ", "
If applyAllReplyLevel="true" Then Sql = Sql & "writeLevel=" & writeLevel & ", "
If applyAllMemoWriteLevel="true" Then Sql = Sql & "memoWriteLevel=" & memoWriteLevel & ", "
If applyAllNoticeWriteLevel="true" Then Sql = Sql & "noticeWriteLevel=" & noticeWriteLevel & ", "
If applyAllHtmlLevel="true" Then Sql = Sql & "htmlLevel=" & htmlLevel & ", "
If applyAllDeleteLevel="true" Then Sql = Sql & "deleteLevel=" & deleteLevel & ", "
'//모두적용 항목이 있을경우 쿼리문 조립
If Sql<>"" Then
Sql = "UPDATE " & AdminTblName & " SET " & Sql
Sql = Left(Sql,Len(RTrim(Sql))-1) '//뒷부분의 남는 쉼표(,) 제거
'//설정 업데이트
If Response.isClientConnected Then dbConn.Execute Sql,,128
End If
'//현재 게시판에만 적용되는 사항들
If todayAccess<>"" Or totalAccess<>"" Then
Sql = "UPDATE " & AdminTblName & " SET " _
& "boardName=" & N & "'" & boardName & "', " _
& "admin_passwd=" & N & "'" & adminPasswd & "', " _
& "admin_id=" & N & "'" & adminId & "', " _
& "skin=" & N & "'" & skin & "', " _
& "combinedFileName=" & N & "'" & combinedFileName & "', " _
& "todayCount=" & todayAccess & ", " _
& "totalCount=" & totalAccess & ", " _
& "lang=" & N & "'" & lang & "' " _
& " WHERE board_id='" & id & "';"
'//설정 업데이트
If Response.isClientConnected Then dbConn.Execute Sql,,128
End If
'//현재 게시판 정보 수정일자 업데이트
Sql = "UPDATE " & AdminTblName & " SET editdate=" & N & "'" & Now & "';"
'//설정 업데이트
If Response.isClientConnected Then dbConn.Execute Sql,,128
'//트랜잭션 처리
If dbConn.Errors.Count=0 Then
dbConn.CommitTrans() '//커밋
Response.Redirect "?id=" & id & "&mode=list"
Else
dbConn.RollbackTrans() '//롤백
Response.Redirect "?id=" & id & "&mode=error&msg=" & Server.UrlEncode(MsgExtract("ErrorMessage")) '"에러로 인해 작업이 중단되었습니다."
End If
Response.End
'**********************************************************************
' 로그아웃 처리
'**********************************************************************
ElseIf mode="logout" Then
Response.Clear
'//세션 비움
With Session
.Contents.Remove("MemId")
.Contents.Remove("MemPasswd")
.Contents.Remove("MemLevel")
.Contents.Remove("MemName")
End With
'//변수 비움
IsAdmin = ""
MemId = ""
MemLevel = ""
MemName = ""
'//세션 모두 비움
Session.Contents.RemoveAll
'//세션강제종료(외부 파일에서만 가능)
'Server.Execute(FSBOARD_PATH & "lib/logout.asp")
Response.Redirect "?id=" & id & "&mode=list" '//목록으로 이동
Response.End
'**********************************************************************
' 게시판 관리 리스트
'**********************************************************************
ElseIf mode="setup" Then
Response.Clear
'//setup 파일
Response.Redirect "lib/setup.asp?mode=Admin.BoardList"
Response.End
'**********************************************************************
' 기타 모드
'**********************************************************************
Else
'//에러메시지 보이기
'Response.Redirect "?id=" & id & "&mode=error&msg=" & Server.UrlEncode("Invalid Mode.")
'//리스트로 되돌림
Response.Redirect "?id=" & id
Response.End
End If
'**********************************************************************
' 세션 정리 및 마무리
'**********************************************************************
'게시판 하단 기본 포함 내용
Call ContentBottom
'//접속여부확인
If Not Response.isClientConnected Then
'//세션 셧다운
ShutdownId = Session.SessionId
Shutdown(ShutdownId)
End If
%>
" & rs("subject") & "