<% Dim idx, subject, writeDate, fileName, contents Dim userId, userName Dim SQL, RS, tableName Dim mode tableName = "tbl_gallery" '### 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 seq, f_nm1, reg_dt, name, contents FROM " & tableName & " A" SQL = SQL & " WHERE seq = " & idx Set RS = Dbcon.Execute(SQL) idx = RS("seq") fileName = RS("f_nm1") writeDate = RS("reg_dt") subject = RS("name") contents = RS("contents") RS.Close Set RS = Nothing Else subject = "" End If %>

  • Home
  • 병원소개
  • 스타갤러리
<% If mode = "edit" Then %> <% End If %>
작성일 <%=writeDate%>
제목
내용
첨부파일   <% If fileName <> "" Then %> <%=fileName%>   삭제 <% End If %>

취소