<% Dim idx, categoryNo, categoryName, subject, writeDate, contents, fileName1, fileSize1, fileName2, fileSize2, fileName3, fileSize3, hit Dim userId, userName Dim SQL, RS, tableName Dim mode tableName = "TB_NOTICE" '### DB 테이블명 mode = Trim(Request("mode")) : If mode <> "edit" Then mode = "insert" End If idx = Trim(Request("idx")) userId = Session("id") userName = Session("name") Call CheckAuth(userId, mode) '### 접근 권한 체크 If mode = "edit" Then SQL = "SELECT idx, categoryNo, (SELECT categoryName FROM TB_NOTICE_CATEGORY WHERE categoryNo = A.categoryNo) AS categoryName, subject, writeDate, contents, fileName1, fileSize1, fileName2, fileSize2, fileName3, fileSize3, hit FROM " & tableName & " A" SQL = SQL & " WHERE idx = " & idx Set RS = Dbcon.Execute(SQL) idx = RS("idx") categoryNo = RS("categoryNo") categoryName = RS("categoryName") subject = RS("subject") contents = RS("contents") fileName1 = RS("fileName1") fileSize1 = RS("fileSize1") fileName2 = RS("fileName2") fileSize2 = RS("fileSize2") fileName3 = RS("fileName3") fileSize3 = RS("fileSize3") writeDate = DateValue(RS("writeDate")) hit = RS("hit") RS.Close Set RS = Nothing Else subject = "" End If %>

  • Home
  • 병원소개
  • 유앤아이 소식지
구분
<% '카테고리 불러오기 Dim c_categoryNo, c_categoryName Response.Write "" RS.Close Set RS = Nothing %>
<% If mode = "edit" Then %>
작성일 : <%=writeDate%> / 조회 : <%=hit%>
<% End If %>
제목
내용
첨부파일   <% If fileName1 <> "" Then %> <%=fileName1%> (<%=FormatNumber(fileSize1, 0)%> byte)  삭제 <% End If %>
첨부파일   <% If fileName2 <> "" Then %> <%=fileName2%> (<%=FormatNumber(fileSize2, 0)%> byte)  삭제 <% End If %>
첨부파일   <% If fileName3 <> "" Then %> <%=fileName3%> (<%=FormatNumber(fileSize3, 0)%> byte)  삭제 <% End If %>

취소