<% board_id = QueryFilter(request("board_id")) idx = QueryFilter(request("idx")) if request("page")="" then page=1 else page=Int(request("page")) end If search_name = QueryFilter(request("search_name")) search_str = QueryFilter(request("search_str")) If idx = "" Then Call caution_go("등록되지 않은 게시물입니다.",-1) End If If board_id = "" Then Call caution_go("등록되지 않은 게시판입니다.",-1) End If sql = "select name,type,pagesize,title_img,comment,location,location_name,list_per,read_per,write_per,update_per,delete_per" sql = sql & " ,notice_use,cate_use,cate_str,board_num" sql = sql & " from board_config where board_id = '"&board_id&"' " rs.open sql,dbcon If rs.eof Then rs.close dbcon.close Call caution_go("존재하지 않는 게시판입니다.",-1) else board_name = rs("name") board_type = rs("type") pagesize = rs("pagesize") title_img = rs("title_img") board_comment = rs("comment") left_location = rs("location") left_location_name = rs("location_name") list_per = rs("list_per") read_per = rs("read_per") write_per = rs("write_per") update_per = rs("update_per") delete_per = rs("delete_per") notice_use = rs("notice_use") cate_use = rs("cate_use") cate_str = rs("cate_str") board_num = rs("board_num") rs.close End If '========================================== ' 버튼 사용 유무 검사 '========================================== If board_type=2 And cint(session("grade")) >= cint(re_per) Then re_chk = "1" End If modify_chk = "0" del_chk = "0" if session("grade")<>"" then If cint(update_per) > cint(0) And cint(session("grade")) >= cint(update_per) Then modify_chk = "1" End If If cint(delete_per) > cint(0) And cint(session("grade")) >= cint(delete_per) Then del_chk = "1" End If end if %> <%=board_name%> - <%=left_location_name%> - diops
<% page_submenu_1 = "04" If board_id = "notice" then page_submenu_2 = "01" ElseIf board_id = "letter" then page_submenu_2 = "02" ElseIf board_id = "news" then page_submenu_2 = "03" Else page_submenu_2 = "01" End if %>

<%=board_name%>

HOME > <%=left_location_name%> > <%=board_name%>

<% sql = "select * from board where idx = '"&idx&"' " rs.open sql,dbcon If rs.eof Then rs.close dbcon.close Call caution_go("존재하지 않는 게시물입니다.",-1) Else r_write_id = rs("member_id") r_title = rs("title") r_name = rs("name") r_reg_date = rs("reg_date") r_readnum = rs("readnum") + 1 r_content = rs("content") r_ucc_link = rs("ucc_link") r_link1 = rs("link1") r_link2 = rs("link2") r_write_ip = rs("write_ip") rs.close End If '조회수 업데이트 sql = "update board set readnum="&r_readnum&" where idx='"&idx&"' " dbcon.Execute(sql) if r_reg_date <> "" then r_reg_date = formatdatetime(r_reg_date, 2) & " " & formatdatetime(r_reg_date, 4) end if sql = "select * from board_file with(nolock) where b_idx='"&idx&"' " rs.open sql,dbcon file_chk = 0 if not rs.eof then file_data = rs.getrows rs.close file_chk = 1 file1_img = "" file2_img = "" For i=0 To UBound(file_data, 2) f_idx = file_data(0, i) b_idx = file_data(2, i) file_num = file_data(3, i) org_name = file_data(4, i) file_name = file_data(5, i) download = file_data(6, i) file_size = file_data(7, i) f_reg_date = file_data(8, i) org_ext = LCase(Mid(org_name, InStrRev(org_name, ".") + 1)) If org_ext = "jpg" Or org_ext = "jpeg" Or org_ext = "bmp" Or org_ext = "gif" Or org_ext = "png" Then if file_num = 1 then file1_img = "" else file2_img = "" end if end if Next Else rs.close end if %>

<%=r_title%>

Name
<%=r_name%> (<%=r_write_ip%>)
Date
<%=r_reg_date%>
Hit
<%=formatnum(r_readnum)%>
<% if file_chk=1 then %>
File
<% For i=0 To UBound(file_data, 2) f_idx = file_data(0, i) b_idx = file_data(2, i) file_num = file_data(3, i) org_name = file_data(4, i) file_name = file_data(5, i) download = file_data(6, i) file_size = file_data(7, i) f_reg_date = file_data(8, i) fs = 0 if file_size>0 then fs = file_size/1024 fs = formatnumber(fs, 1) end if org_ext = LCase(Mid(org_name, InStrRev(org_name, ".") + 1)) If not(org_ext = "jpg" Or org_ext = "jpeg" Or org_ext = "bmp" Or org_ext = "gif" Or org_ext = "png") Then %> <%= org_name %> (<%= fs %>K)
<% end if %> <% next %>
<%End if%> <% if r_link1 <>"" or r_link2 <> "" then %>
Link
<% if r_link1<>"" then %> <%= r_link1 %> <% end if %> <% if r_link2<>"" then %> <%= r_link2 %> <% end if %>
<%End if%>
<%= file1_img %> <%= file2_img %> <%= r_content %>
<% If modify_chk = "1" Then %> Edit <% end if %> <% If del_chk = "1" Then %> Delete <% end if %> List