<% search = request("search") SearchString =request("SearchString") pageno = request("pageno") board_info_idx = request("board_info_idx") board_idx = request("board_idx") write_gubun = request("write_gubun") %> <%'****게시판 관리자 정보 구하기***** sql = "select * from sysop where board_info_idx = " &board_info_idx Set rs = Server.CreateObject("ADODB.Recordset") rs.Open sql,conn,1 if rs.eof or rs.bof then sysop_id = "byunboard" rs.close set rs = nothing else sysop_id = trim(rs("member_id")) rs.close set rs = nothing end if %> <% '게시판 정보 sql = "select * from board_info where board_info_idx =" & board_info_idx Set rs = Server.CreateObject("ADODB.Recordset") rs.Open sql,conn,1 board_name = rs("board_name") board_kind = rs("board_kind") files = rs("files") photo = rs("photo") rs.close set rs=nothing '조회수 증가 sql = "Update board Set readnum = readnum+1 " sql = sql & " where board_idx =" & board_idx conn.execute(sql) '해당 게시물 sql = "select num,ref,ref_level,ref_step,title,content,member_id," sql = sql & "write_gubun,name,readnum,writeday,write_ip,pwd," sql = sql & "file1,file2,file3,file_size1,file_size2,file_size3" sql = sql & " from board where board_idx=" & board_idx set rs =server.CreateObject("adodb.recordset") rs.Open sql,conn,1 rs.MoveFirst 'response.write sql 'response.write rs("file1") & rs("file2") & rs("file3") num = rs("num") ref = rs("ref") ref_level = rs("ref_level") ref_step = rs("ref_step") title = rs("title") content= reverseword(rs("content")) member_id=rs("member_id") write_gubun = trim(rs("write_gubun")) name = rs("name") readnum = rs("readnum") writeday =left(rs("writeday"),10) write_ip = rs("write_ip") pwd = trim(rs("pwd")) file1 = rs("file1") file2 = rs("file2") file3 = rs("file3") Dim file_size(2) file_size(0) = trim(rs("file_size1")) file_size(1) = trim(rs("file_size2")) file_size(2) = trim(rs("file_size3")) 'response.write ref(0) '파일 사이즈(KB) 구하기!!!!! for i = 0 to 2 if len(file_size(i))>0 then if Clng(file_size(i)) > 1024 then file_size(i) = Round((Clng(file_size(i) /1024 ) *10)) / 10 & " KB" else file_size(i) = file_size(i) & "Byte" end if end if next '그림 디스플레이(게시판 생성시 기능 선택하면 그림파일을 컨텐츠에 디스플레이 해준다) Dim file_dis(2),FileExt(2),photo_type(2) file_dis(0) = rs("file1") file_dis(1) = rs("file2") file_dis(2) = rs("file3") for i = 0 to 2 FileExt(i) = Ucase(right (file_dis(i),3)) ' 확장자 얻기(그림파일 디스플레이선택경우) Select Case FileExt(i) Case "JPG" photo_type(i) = 1 case "GIF" photo_type(i) = 1 Case "jpg" photo_type(i) = 1 case "gif" photo_type(i) = 1 case else photo_type(i) = 2 End Select next rs.close set rs = nothing %> <% '****이전글/다음글 구하기(게층이 0인글) '다음글 sql = "select title,board_idx,board_info_idx,comment_num from board where board_idx > " & board_idx sql = sql & " and board_info_idx = "& board_info_idx & "and ref_level = '0' and write_gubun = 'n'" sql = sql & " order by board_idx asc " Set rsmax = Server.CreateObject("ADODB.Recordset") rsmax.Open sql,conn,1 ' response.write sql '이전글 sql = "select title,board_idx,board_info_idx,comment_num from board where board_idx < " & board_idx sql = sql & " and board_info_idx = "& board_info_idx & "and ref_level = '0' and write_gubun = 'n'" sql = sql & " order by board_idx desc " Set rsmin = Server.CreateObject("ADODB.Recordset") rsmin.Open sql,conn,1 ' response.write sql if rsmax.eof and rsmax.bof then moveNext = "javascript:alert('다음 글이 없습니다.')" else moveNext = "content.asp?board_idx="&rsmax("board_idx")&"&board_info_idx="&rsmax("board_info_idx")&"&search="&server.urlencode(search)&"&serchstring="&server.urlencode("searchstring") maxTitle = rsMax("title") maxComment_num = rsMax("comment_num") end if if rsmin.eof and rsmin.bof then movePrev = "javascript:alert('이전 글이 없습니다.')" else movePrev = "content.asp?board_idx="&rsmin("board_idx")&"&board_info_idx="&rsmin("board_info_idx")&"&search="&server.urlencode(search)&"&serchstring="&server.urlencode("searchstring") minComment_num = rsMin("comment_num") minTitle = rsMin("title") end if '*****이전글/다음글 구하기 끝 %>
<%if trim(files) <>"" then%><%else %><%=board_name%><%end if%>
<%rs.MoveNext%> <%loop%> <%end if %> <%rs.close set rs = nothing %>
  날 짜 : <%=writeday%>   글쓴이 :   <%=name%>(<%=member_id%>)   조회수 : <%=readnum%>
  제 목 : <%=title%>

<% if photo ="1" and photo_type(0) = "1" then %>

<% end if %> <%if photo ="1" and photo_type(1) = "1" then %>

<% end if %> <% if photo ="1" and photo_type(2) = "1" then %>


<% end if %> <%=content%>
IP: <%=write_ip%>

＊ 파일첨부 :
<%if file1 <>"" then %> <%=file1%>(<%=file_size(0)%>) <% end if %>
<%if file2 <>"" then %> <%=file2%>(<%=file_size(1)%>) <% end if%>
<%if file3 <>"" then %> <%=file3%>(<%=file_size(2)%>) <% end if%>
<% sql = "select * from comment where board_info_idx =" & board_info_idx sql = sql & "and board_idx=" & board_idx sql = sql & " order by comment_idx ASC " Set rs = Server.CreateObject("ADODB.Recordset") rs.Open sql,conn,1 %> <% if not rs.eof and not rs.bof then%> <% Do until rs.EOF %>
＊<%=rs("name")%>님(<%=rs("wr_id")%>)
              (<%=left(rs("writeday"),10)%>): 		<%=reverseword(rs("comment"))%> <% if userarray(3) = 100 or userarray(0) = sysop_id then '관리자%> &board_idx=<%=board_idx%>&board_info_idx=<%=board_info_idx%>"> <% else %> <% if trim(board_kind) = "member" and userarray(0) = trim(rs("wr_id")) then '회원게시판 본인 %> &board_idx=<%=board_idx%>&board_info_idx=<%=board_info_idx%>"> <%end if%> <% if trim(board_kind) = "free" then '자유게시판 %> &board_idx=<%=board_idx%>&board_info_idx=<%=board_info_idx%>"> <% end if%> <%end if%>
<% if userarray(3) = 100 or userarray(0) = sysop_id then%> <%=adminComment%> <%else%> <%if trim(board_kind) = "free" and userarray(0) = "" then%> <%=guestFree%> <% end if%> <%if trim(board_kind) = "free" and userarray(3) = 10 then%> <%=memberFree%> <%end if%> <%if trim(board_kind) ="member" and userarray(3) = 10 then%> <%=memberComment%> <%end if%> <%end if%>
<% if write_gubun = "n" then %>
▲ 이전글: <%=maxTitle%> <% if maxComment_num > 0 then %> (<%=maxComment_num%>) <%end if%>
▼ 다음글: <%=minTitle%> <% if minComment_num > 0 then %> (<%=minComment_num%>) <%end if%>
<% end if%>
<%if trim(board_kind) ="inform" or write_gubun ="y" then If userarray(3) = 100 Then '******관리자****** %>          <%else%>    <%end if%> <%else if trim(board_kind) = "member" then %> <%If userarray(0) <> "" Then if userarray(3) = 100 or userarray(0) = member_id or userarray(0) = sysop_id then '회원 본인과 관리자인 경우%>                <%else ' 해당 게시물을 쓰지 않은 다른 회원 %>       <%end if%> <% else '비회원이나 로그인을 안 한사람은...답변/추천/은 로그인 화면으로%>          <%end if %> <% else if userarray(3) = 100 or userarray(0) = sysop_id then '관리자!! 관리자는 모든 글을 삭제 수정을 할수 있다*^^*%>               <% else ' 자유게시판은 게시물 작성시 사용했던 패스워드를 사용하여 수정 삭제 한다%>                <% end if%> <%end if%>
<% SQL = "SELECT * FROM board" SQL = SQL & " where ref = " & ref & " order by ref desc, ref_step asc" Set rs = Server.CreateObject("ADODB.Recordset") rs.Open SQL,conn %> <% if rs.BOF or rs.EOF then else %>

<% Do until rs.EOF name = rs("name") title = rs("title") wdate = left(rs("writeday"),10) %> <% rs.Movenext Loop %>
제  목 글쓴이 날짜 조회
<% if rs("ref_level") > 0 then %> <% wid = 4 * rs("ref_level") %> <% end if %> &board_info_idx=<%=board_info_idx%>"><%=title%> <% if rs("comment_num") > 0 then %> [<%=rs("comment_num")%>] <%end if%> <%if DateDiff("h",rs("writeday"),Now()) < 20 then %> <% end if %>

<%=name%>(<%=member_id%>)

<%=wdate%>

<%=rs("readnum")%>



<% end if end if 'rs.close conn.close set conn = nothing set rs = nothing %>