<% 'response.write Bs_sTag & Bs_cTag %> <% if Bs_View = false then error("로그인 후 이용하시기 바랍니다") end if idx = request("idx") sql = "update "& Bs_TableName &" set bbs_view = bbs_view + 1 where bbs_idx =" & idx ' response.write sql db.execute(sql) set rs = server.CreateObject("adodb.recordset") if boardcode = "35" or boardcode = "20" then bbs_bc = "'35' or bbs_board_code='20')" sql = "select bbs_step, bbs_user_id, bbs_m_number, bbs_file_name, bbs_file_url, bbs_file_type, bbs_file_size, bbs_file_down, bbs_file_name2, bbs_file_url2, bbs_file_type2, bbs_file_size2, bbs_file_down2, bbs_file_name3, bbs_file_url3, bbs_file_type3, bbs_file_size3, bbs_file_down3, bbs_file_name4, bbs_file_url4, bbs_file_type4, bbs_file_size4, bbs_file_down4, bbs_file_name5, bbs_file_url5, bbs_file_type5, bbs_file_size5, bbs_file_down5, bbs_pwd, bbs_category, bbs_name, bbs_email, bbs_subject, bbs_contents, bbs_view, bbs_edit_date_dt, bbs_reg_date_dt, bbs_del_flag, bbs_re_count, bbs_re_number, isnull(bbs_recomm,0) bbs_recomm from " sql = sql & Bs_TableName &" where (bbs_board_code = " & bbs_bc & " and bbs_idx = '" & idx & "'" else sql = "select bbs_step, bbs_user_id, bbs_m_number, bbs_file_name, bbs_file_url, bbs_file_type, bbs_file_size, bbs_file_down, bbs_file_name2, bbs_file_url2, bbs_file_type2, bbs_file_size2, bbs_file_down2, bbs_file_name3, bbs_file_url3, bbs_file_type3, bbs_file_size3, bbs_file_down3, bbs_file_name4, bbs_file_url4, bbs_file_type4, bbs_file_size4, bbs_file_down4, bbs_file_name5, bbs_file_url5, bbs_file_type5, bbs_file_size5, bbs_file_down5, bbs_pwd, bbs_category, bbs_name, bbs_email, bbs_subject, bbs_contents, bbs_view, bbs_edit_date_dt, bbs_reg_date_dt, bbs_del_flag, bbs_re_count, bbs_re_number, isnull(bbs_recomm,0) bbs_recomm from " sql = sql & Bs_TableName &" where bbs_board_code = '" & boardcode & "' and bbs_idx = '" & idx & "'" end If 'response.write sql 'Response.End rs.open sql,db,0 if rs.eof then rs.close set rs = nothing error("해당글이 존재하지 않습니다.") end if keyword = trim(request("keyword")) where = request("where") '------ 답글 삭제시 -1 점 체크 하는 부분 ----- if boardcode = 35 or boardcode = 20 or boardcode = 88 or boardcode = 91 or boardcode = 63 or boardcode = 86 or boardcode = 65 or boardcode = 64 or boardcode = 85 or boardcode = 66 or boardcode = 87 then bbs_step = Cint(rs("bbs_step")) stepStr = "&bbs_step=" & bbs_step 'response.write stepStr & "
" end if '--------------------------------------------- bbs_m_number = rs("bbs_m_number") bbs_subject = rs("bbs_subject") content = rs("bbs_contents") bbs_name = rs("bbs_name") bbs_category = rs("bbs_category") bbs_view = rs("bbs_view") bbs_email = rs("bbs_email") bbs_pwd = rs("bbs_pwd") bbs_recomm = rs("bbs_recomm") if keyword <> "" then select case where case "name" bbs_name = replace(bbs_name,keyword,""& keyword &"") case "subject" bbs_subject = replace(bbs_subject,keyword,""& keyword &"") case "content" content = replace(content,keyword,""& keyword &"") case "category" bbs_category = replace(bbs_category,keyword,""& keyword &"") end select end if ' If InStr(content, "<") > 0 Then content = Replace(content, "<", "<") End If ' if instr(content,"<") = 0 then content = replace(content, chr(13)&chr(10),"
") end If If boardcode ="2" then 'content = replace(content, chr(13)&chr(10),"
") End if if rs("bbs_del_flag") then rs.close set rs = nothing error("삭제된 글입니다.") end if if request("ListUrl") = "" Then if boardcode = 111 then ListUrl = "etc05_05_01.asp" elseif boardcode = 112 Then ListUrl = "etc05_08_01.asp" Else ListUrl = "index.asp" end if else ListUrl = request("ListUrl") end if if boardcode <> 93 then ViewUrl = replace(ListUrl, "index.asp", "view.asp") else ViewUrl = replace(ListUrl, "index2.asp", "view.asp") end if if boardcode = 111 then WriteUrl = "etc05_05_02.asp" elseif boardcode = 112 then WriteUrl = "etc05_08_02.asp" elseif request("WriteUrl") = "" then WriteUrl = "input.asp" else WriteUrl = request("WriteUrl") end if %>
<%' If boardcode = "2" Then %> <%' Else %> <%' End if %>
<%= bbs_subject %>
<% If boardcode = "2" Then %> <% If ListUrl="/news/Notice2/index.asp" Then %> <%else%> <%End if%> <% ElseIf boardcode = "104" Then %> <% Else %> <% End if %>
등록일 <%= left(rs("bbs_reg_date_dt"),10) %> 조회 <%= bbs_view %>분류 <%= bbs_category %> 등록일 <%= left(rs("bbs_reg_date_dt"),10) %> 조회 <%= bbs_view %>
작성자 <%= bbs_name %> 등록일 <%= left(rs("bbs_reg_date_dt"),10) %> 조회 <%= bbs_view %>   추천수 <%= bbs_recomm %>   작성자 <%= bbs_name %> 등록일 <%= left(rs("bbs_reg_date_dt"),10) %> 조회 <%= bbs_view %>
<% if rs("bbs_file_size") > 0 then select case rs("bbs_file_type") case "jpg" down="/board/pds_icon/jpg_w.gif" case "gif" down="/board/pds_icon/gif_w.gif" case "txt" down="/board/pds_icon/txt_w.gif" case "zip" down="/board/pds_icon/zip_w.gif" case "rar" down="/board/pds_icon/rar_w.gif" case "hwp" down="/board/pds_icon/hwp_w.gif" case "exe" down="/board/pds_icon/exe_w.gif" case "mp3" down="/board/pds_icon/mp3_w.gif" case "doc" down="/board/pds_icon/doc_w.gif" case "ppt" down="/board/pds_icon/ppt_w.gif" case "xls" down="/board/pds_icon/xls_w.gif" case "wav" down="/board/pds_icon/wav_w.gif" case "htm" down="/board/pds_icon/url_w.gif" case "html" down="/board/pds_icon/url_w.gif" case else down="/board/pds_icon/default_w.gif" end select %> <% end if %> <% if rs("bbs_file_size2") > 0 then select case rs("bbs_file_type2") case "jpg" down="/board/pds_icon/jpg_w.gif" case "gif" down="/board/pds_icon/gif_w.gif" case "txt" down="/board/pds_icon/txt_w.gif" case "zip" down="/board/pds_icon/zip_w.gif" case "rar" down="/board/pds_icon/rar_w.gif" case "hwp" down="/board/pds_icon/hwp_w.gif" case "exe" down="/board/pds_icon/exe_w.gif" case "mp3" down="/board/pds_icon/mp3_w.gif" case "doc" down="/board/pds_icon/doc_w.gif" case "ppt" down="/board/pds_icon/ppt_w.gif" case "xls" down="/board/pds_icon/xls_w.gif" case "wav" down="/board/pds_icon/wav_w.gif" case "htm" down="/board/pds_icon/url_w.gif" case "html" down="/board/pds_icon/url_w.gif" case else down="/board/pds_icon/default_w.gif" end select %> <% end if %> <% if rs("bbs_file_size3") > 0 then select case rs("bbs_file_type3") case "jpg" down="/board/pds_icon/jpg_w.gif" case "gif" down="/board/pds_icon/gif_w.gif" case "txt" down="/board/pds_icon/txt_w.gif" case "zip" down="/board/pds_icon/zip_w.gif" case "rar" down="/board/pds_icon/rar_w.gif" case "hwp" down="/board/pds_icon/hwp_w.gif" case "exe" down="/board/pds_icon/exe_w.gif" case "mp3" down="/board/pds_icon/mp3_w.gif" case "doc" down="/board/pds_icon/doc_w.gif" case "ppt" down="/board/pds_icon/ppt_w.gif" case "xls" down="/board/pds_icon/xls_w.gif" case "wav" down="/board/pds_icon/wav_w.gif" case "htm" down="/board/pds_icon/url_w.gif" case "html" down="/board/pds_icon/url_w.gif" case else down="/board/pds_icon/default_w.gif" end select %> <% end if %> <% if rs("bbs_file_size4") > 0 then select case rs("bbs_file_type4") case "jpg" down="/board/pds_icon/jpg_w.gif" case "gif" down="/board/pds_icon/gif_w.gif" case "txt" down="/board/pds_icon/txt_w.gif" case "zip" down="/board/pds_icon/zip_w.gif" case "rar" down="/board/pds_icon/rar_w.gif" case "hwp" down="/board/pds_icon/hwp_w.gif" case "exe" down="/board/pds_icon/exe_w.gif" case "mp3" down="/board/pds_icon/mp3_w.gif" case "doc" down="/board/pds_icon/doc_w.gif" case "ppt" down="/board/pds_icon/ppt_w.gif" case "xls" down="/board/pds_icon/xls_w.gif" case "wav" down="/board/pds_icon/wav_w.gif" case "htm" down="/board/pds_icon/url_w.gif" case "html" down="/board/pds_icon/url_w.gif" case else down="/board/pds_icon/default_w.gif" end select %> <% end if %> <% if rs("bbs_file_size5") > 0 then select case rs("bbs_file_type5") case "jpg" down="/board/pds_icon/jpg_w.gif" case "gif" down="/board/pds_icon/gif_w.gif" case "txt" down="/board/pds_icon/txt_w.gif" case "zip" down="/board/pds_icon/zip_w.gif" case "rar" down="/board/pds_icon/rar_w.gif" case "hwp" down="/board/pds_icon/hwp_w.gif" case "exe" down="/board/pds_icon/exe_w.gif" case "mp3" down="/board/pds_icon/mp3_w.gif" case "doc" down="/board/pds_icon/doc_w.gif" case "ppt" down="/board/pds_icon/ppt_w.gif" case "xls" down="/board/pds_icon/xls_w.gif" case "wav" down="/board/pds_icon/wav_w.gif" case "htm" down="/board/pds_icon/url_w.gif" case "html" down="/board/pds_icon/url_w.gif" case else down="/board/pds_icon/default_w.gif" end select %> <% end if %>
<% if rs("bbs_file_size") > 0 and instr("jpg,jpeg,gif,bmp,png,tiff,tif",rs("bbs_file_type")) > 0 then isize = image_size(rs("bbs_file_url"),550) %> <% if isize(2) > 550 then %> " target="_blank">" alt="<%= rs("bbs_file_name") %>" height="<%= isize(0) %>" width="<%= isize(1) %>" border="0">
<% else %> " alt="<%= rs("bbs_file_name") %>" height="<%= isize(0) %>" width="<%= isize(1) %>" border="0">
<% end if %> <% end if %> <% if rs("bbs_file_size") > 0 and instr("swf",rs("bbs_file_type")) > 0 then isize = image_size(rs("bbs_file_url"),500) %> " loop="true" menu="false" quality="high" bgcolor="#FFFFFF" WIDTH="<%= isize(1) %>" HEIGHT="<%= isize(0) %>" NAME="File" TYPE="application/x-shockwave-flash" PLUGINSPAGE="http://www.macromedia.com/go/getflashplayer">
<% end if %> <% if rs("bbs_file_size2") > 0 and instr("jpg,jpeg,gif,bmp,png,tiff,tif",rs("bbs_file_type2")) > 0 then isize = image_size(rs("bbs_file_url2"),550) %> <% if isize(2) > 550 then %> " target="_blank">" alt="<%= rs("bbs_file_name2") %>" height="<%= isize(0) %>" width="<%= isize(1) %>" border="0">
<% else %> " alt="<%= rs("bbs_file_name2") %>" height="<%= isize(0) %>" width="<%= isize(1) %>" border="0">
<% end if %> <% end if %> <% if rs("bbs_file_size2") > 0 and instr("swf",rs("bbs_file_type2")) > 0 then isize = image_size(rs("bbs_file_url2"),500) %> " loop="true" menu="false" quality="high" bgcolor="#FFFFFF" WIDTH="<%= isize(1) %>" HEIGHT="<%= isize(0) %>" NAME="File" TYPE="application/x-shockwave-flash" PLUGINSPAGE="http://www.macromedia.com/go/getflashplayer">
<% end if %> <% if rs("bbs_file_size3") > 0 and instr("jpg,jpeg,gif,bmp,png,tiff,tif",rs("bbs_file_type3")) > 0 then isize = image_size(rs("bbs_file_url3"),550) %> <% if isize(2) > 550 then %> " target="_blank">" alt="<%= rs("bbs_file_name3") %>" height="<%= isize(0) %>" width="<%= isize(1) %>" border="0">
<% else %> " alt="<%= rs("bbs_file_name3") %>" height="<%= isize(0) %>" width="<%= isize(1) %>" border="0">
<% end if %> <% end if %> <% if rs("bbs_file_size3") > 0 and instr("swf",rs("bbs_file_type3")) > 0 then isize = image_size(rs("bbs_file_url3"),500) %> " loop="true" menu="false" quality="high" bgcolor="#FFFFFF" WIDTH="<%= isize(1) %>" HEIGHT="<%= isize(0) %>" NAME="File" TYPE="application/x-shockwave-flash" PLUGINSPAGE="http://www.macromedia.com/go/getflashplayer">
<% end if %> <% if rs("bbs_file_size4") > 0 and instr("jpg,jpeg,gif,bmp,png,tiff,tif",rs("bbs_file_type4")) > 0 then isize = image_size(rs("bbs_file_url4"),550) %> <% if isize(2) > 550 then %> " target="_blank">" alt="<%= rs("bbs_file_name4") %>" height="<%= isize(0) %>" width="<%= isize(1) %>" border="0">
<% else %> " alt="<%= rs("bbs_file_name4") %>" height="<%= isize(0) %>" width="<%= isize(1) %>" border="0">
<% end if %> <% end if %> <% if rs("bbs_file_size4") > 0 and instr("swf",rs("bbs_file_type4")) > 0 then isize = image_size(rs("bbs_file_url4"),500) %> " loop="true" menu="false" quality="high" bgcolor="#FFFFFF" WIDTH="<%= isize(1) %>" HEIGHT="<%= isize(0) %>" NAME="File" TYPE="application/x-shockwave-flash" PLUGINSPAGE="http://www.macromedia.com/go/getflashplayer">
<% end if %> <% if rs("bbs_file_size5") > 0 and instr("jpg,jpeg,gif,bmp,png,tiff,tif",rs("bbs_file_type5")) > 0 then isize = image_size(rs("bbs_file_url5"),550) %> <% if isize(2) > 550 then %> " target="_blank">" alt="<%= rs("bbs_file_name5") %>" height="<%= isize(0) %>" width="<%= isize(1) %>" border="0">
<% else %> " alt="<%= rs("bbs_file_name5") %>" height="<%= isize(0) %>" width="<%= isize(1) %>" border="0">
<% end if %> <% end if %> <% if rs("bbs_file_size5") > 0 and instr("swf",rs("bbs_file_type5")) > 0 then isize = image_size(rs("bbs_file_url5"),500) %> " loop="true" menu="false" quality="high" bgcolor="#FFFFFF" WIDTH="<%= isize(1) %>" HEIGHT="<%= isize(0) %>" NAME="File" TYPE="application/x-shockwave-flash" PLUGINSPAGE="http://www.macromedia.com/go/getflashplayer">
<% end if %> <%= content %>
첨부파일 1 <%=rs("bbs_file_name")&"("& formatnumber(rs("bbs_file_size")/1024,0) & " KByte)"%>
첨부파일 2 <%=rs("bbs_file_name2")&"("& formatnumber(rs("bbs_file_size2")/1024,0) & " KByte)"%>
첨부파일 3 <%=rs("bbs_file_name3")&"("& formatnumber(rs("bbs_file_size3")/1024,0) & " KByte)"%>
첨부파일 4 <%=rs("bbs_file_name4")&"("& formatnumber(rs("bbs_file_size4")/1024,0) & " KByte)"%>
첨부파일 5 <%=rs("bbs_file_name5")&"("& formatnumber(rs("bbs_file_size5")/1024,0) & " KByte)"%>
<% if Bs_Comments And boardcode <>"83" And boardcode <>"4" And boardcode <>"6" then set rsc = server.CreateObject("adodb.recordset") sql = "select bbc_idx, bbc_user_id, bbc_name, bbc_contents, bbc_date from "& Bs_TableNameComments &" where bbs_idx = '"& idx &"' order by bbc_idx desc" rsc.Open sql,db,0 %> <% do until rsc.EOF %> <% rsc.MoveNext loop rsc.close set rsc = nothing %>
의견쓰기 (100자 이내로 작성해주세요)
<%= rsc("bbc_name") %>
<%= replace(rsc("bbc_contents"),chr(13)&chr(10),"
") %>
 <%= left(rsc("bbc_date"),10) %> <% if (rsc("bbc_user_id") <> "" and rsc("bbc_user_id") = user_id) or UserLevel <= 2 then %> &ViewUrl=<%=viewUrl%>"> <% end if %>
<%If boardcode ="4" then %>
" ID="Hidden2">
<%= user_name %>
<% Else %>
" ID="Hidden2">
<%= user_name %>
<%End if%> <% end if if boardcode = 67 then categoryStr = " and bbs_category = '" & category & "'" else categoryStr = "" end if keyword = replace(trim(request("keyword")),"'","''") sql = "select top 1 bbs_idx, bbs_name, bbs_subject from "& Bs_TableName &" where bbs_board_code = '"& boardcode &"' " if keyword <> "" then where = request("where") select case where case "name" whereQuery = "bbs_name" case "subject" whereQuery = "bbs_subject" case "content" whereQuery = "bbs_contents" case "" subject_check = "checked" end select sql = sql & " and "& whereQuery &" like '%"& keyword &"%'" end if '''''''''''''''''''''''''''''''''''''''' / 이전 글 / ''''''''''''''''''''''''''''''''''''''''''''' sql = sql & categoryStr & " and bbs_m_number > "& bbs_m_number &" and bbs_del_flag = 0 order by bbs_m_number " set rsup = db.execute(sql) '''''''''''''''''''''''''''''''''''''''' / 다음 글 / ''''''''''''''''''''''''''''''''''''''''''''' sql = "select top 1 bbs_idx, bbs_name, bbs_subject from "& Bs_TableName &" where bbs_board_code = '"& boardcode &"' " if keyword <> "" then sql = sql & " and "& whereQuery &" like '%"& keyword &"%' " end if sql = sql & categoryStr & " and bbs_m_number < "& bbs_m_number &" and bbs_del_flag = 0 order by bbs_m_number desc" set rsdown = db.execute(sql) %>
<% if rsdown.eof = false then %> <% end if %> <% if rsup.eof = false then %> <% end if %>
이전글 &idx=<%= rsdown("bbs_idx") %>" class="board_03"><%= rsdown("bbs_subject") %>
다음글 &idx=<%= rsup("bbs_idx") %>" class="board_03"><%= rsup("bbs_subject") %>
<% if boardcode=67 then %> &keyword=<%= request("keyword") %>&page=<%= request("page") %>"> <%else%> &keyword=<%= request("keyword") %>&page=<%= request("page") %>"> <%end if%> <%If ListUrl="/news/Notice2/index.asp" Then %> <%else%> <% if Bs_Write then %>    &ListUrl=<%= ListUrl %>"> <% end if %> <% if (rs("bbs_user_id") <> "" and user_id = rs("bbs_user_id")) or UserLevel <= 2 then %> ">   <% elseif bbs_pwd <> "" and Bs_Write then %>    <% end if %> <%end if%>



<% set rsup = nothing set rsdown = nothing rs.close set rs = nothing db.close set db = nothing %>