<% Dim seq Dim page Dim code Dim errTrap seq = Request("seq") page = Request("page") code = Request("code") sp = Request("sp") key = Request("key") if code <> "PBA" then code = "PBA" elseif code = "" or isNull(code) then code = "PBA" end if if code="PBA" then son5 = "_on" subtitle = "t_07_01.gif" subtitle1 = "t_07.gif" end if %> <% Dim entity 'BoardEntity 인스턴스 Dim bm 'BoardManager 인스턴스 Set entity = New BoardEntity Set bm = New BoardManager bm.setConnectionString = connectionString entity.code = code entity.seq = seq errTrap = bm.view(entity) Dim goReply '답글쓰기 버튼 Dim goModify '수정 버튼 Dim goDelete '삭제버튼 Dim goList '목록버튼 '/*----------------------------------------------------------- '★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★ '목록 버튼 goList = "" '-------------------------------------------------------------*/ if errTrap = True then if len(trim(entity.title)) <= 0 then entity.title = "[제목없음]" end if %> :: 한국신문협회에 오신것을 환영합니다. ::
 
 

<% entity.file_exist = 0 '임시설정값(jspark) if entity.file_exist then '파일이 있을때 %> <% end if %>
제 목 <%= entity.title %>
작성일 <%= entity.write_date %> 조회수 <%= entity.read_count %>
<% if entity.html then Response.write entity.content else Response.write Replace(entity.content,chr(13) & chr(10),"
") end if %>
첨부파일 <% for i = 0 to UBound(entity.attach_files) - 1 '파일갯수만큼 반복 %> <%= entity.attach_files(i) %>
<% next %>
  <%= goList %>
<% else '에러 처리 response.write errTrap '서버쪽에서 리다이렉트를 하지 않음 end if Set entity = Nothing Set bm = Nothing %>