<% ' =========================================================================== ' 시스템명 : 좋은나무성품학교 ' 프로그램설명 : 공통 게시판 서브페이지 ' 최종수정일 : 2017/05/16 ' 작성자 : 이상영 ' =========================================================================== %> <% If ck_memID = "" Then PrintMsgBack "해당게시판에 글쓰기 권한이 없습니다." cmd = RequestStr("CMD", "ADD") bbs = RequestStr("BBS", "") page = RequestStr("PAGE", "") no = RequestStr("NO", "") ref = RequestStr("REF", "") step = RequestStr("STEP", "") reLevel = RequestStr("RELEVEL", "") schStr = RequestStr("SCHSTR", "") category_num = RequestStr("category_num", "") writer = ck_memName ' 쿠키값 leftMenuNum = Request("leftMenuNum") ' LEFT메뉴번호 PageTopTitle = Request("PageTopTitle") ' 페이지별 title 번호 변수 ' ================================================== ' 데이터베이스 연결 setConnectionDB ' ================================================== %> <% If write_YN = "N" Then PrintMsgBack "해당게시판에 글쓰기 권한이 없습니다." ' view에서 권한으로 관리자로 보이게 했더니 퇴사후에가 문제가 되어서 아예 이름을 관리자로 지정 If goodtreeAdmin = "Y" Then writer = "관리자" If cmd = "EDT" Then ' 수정일 때에는 정보 가져오도록 한다. strSQL = "SELECT * FROM goodtree.i_board " strSQL = strSQL & " WHERE bbs = ? AND no = ?" Set Comm = Server.CreateObject("ADODB.Command") with Comm .ActiveConnection = oConn .CommandType = adCmdText .CommandText = strSQL .Parameters.Append .CreateParameter("@bbs", adchar, adParamInput, 3) .Parameters("@bbs") = bbs .Parameters.Append .CreateParameter("@no", adinteger, adParamInput) .Parameters("@no") = no Set oRS = .Execute end with If Not (oRS.BOF or oRS.EOF) Then tn = Trim(oRS("tn")) subject = Trim(oRS("subject")) writer = Trim(oRS("writer")) writerid = Trim(oRS("writerid")) content = Trim(oRS("content")) message1 = Trim(oRS("message1")) message2 = Trim(oRS("message2")) message3 = Trim(oRS("message3")) message4 = Trim(oRS("message4")) filename0 = Trim(oRS("filename0")) filename1 = Trim(oRS("filename1")) filename2 = Trim(oRS("filename2")) filename3 = Trim(oRS("filename3")) filename4 = Trim(oRS("filename4")) filename5 = Trim(oRS("filename5")) filename6 = Trim(oRS("filename6")) FILENAME0_link = Trim(oRS("FILENAME0_link")) FILENAME1_link = Trim(oRS("FILENAME1_link")) FILENAME2_link = Trim(oRS("FILENAME2_link")) If filename0 <> "" then ptr = Instr(filename0, ".") ext_name = mid(filename0, ptr + 1) If ext_name = "jpg" or ext_name = "JPG" or ext_name = "jpeg" or ext_name = "gif" or ext_name = "bmp" Or ext_name = "png" Then fileViewGubun1 = "I" Else fileViewGubun1 = "A" End If End If If filename1 <> "" then ptr1 = Instr(filename1, ".") ext_name1 = mid(filename1, ptr1 + 1) If ext_name1 = "jpg" or ext_name1 = "JPG" or ext_name1 = "jpeg" or ext_name1 = "gif" or ext_name1= "bmp" Or ext_name1 = "png" Then fileViewGubun2 = "I" Else fileViewGubun2 = "A" End If End If If filename2 <> "" then ptr2 = Instr(filename2, ".") ext_name2 = mid(filename2, ptr2 + 1) If ext_name2 = "jpg" or ext_name2 = "JPG" or ext_name2 = "jpeg" or ext_name2 = "gif" or ext_name2= "bmp" Or ext_name2 = "png" Then fileViewGubun3 = "I" Else fileViewGubun3 = "A" End If End If If filename3 <> "" then ptr3 = Instr(filename3, ".") ext_name3 = mid(filename3, ptr3 + 1) If ext_name3 = "jpg" or ext_name3 = "JPG" or ext_name3 = "jpeg" or ext_name3 = "gif" or ext_name3= "bmp" Or ext_name3 = "png" Then fileViewGubun4 = "I" Else fileViewGubun4 = "A" End If End If If filename4 <> "" then ptr4 = Instr(filename4, ".") ext_name4 = mid(filename4, ptr4 + 1) If ext_name4 = "jpg" or ext_name4 = "JPG" or ext_name4 = "jpeg" or ext_name4 = "gif" or ext_name4= "bmp" Or ext_name4 = "png" Then fileViewGubun5 = "I" Else fileViewGubun5 = "A" End If End If isPrivate = Trim(oRS("private_yn")) Else PrintMsgBack "게시글의 정보 오류입니다! 다시 시도해주세요!" End If End If %>
<%If leftMenuNum = "9" then%> <%elseIf leftMenuNum = "10" then%> <%End If%>