<% Dim idx, name, f_nm1, reg_dt, contents Dim SQL, RS, tableName tableName = "tbl_gallery" '### DB ���̺��� idx = Trim(Request("idx")) If idx = "" Then RESPONSE.WRITE ExecJavaAlert("�߸��� �����Դϴ�.",0) RESPONSE.END End If SQL = "SELECT seq, name, f_nm1, reg_dt, contents," SQL = SQL & " (SELECT MAX(seq) FROM " & tableName & " WHERE seq < t1.seq ) as previdx, (SELECT MIN(seq) FROM " & tableName & " WHERE seq > t1.seq) as nextidx FROM " & tableName & " t1" SQL = SQL & " WHERE seq = " & idx Set RS = Dbcon.Execute(SQL) idx = RS("seq") name = RS("name") contents = RS("contents") If contents <> "" Then contents = Replace(contents, chr(13) & chr(10), "
") End If fileName1 = RS("f_nm1") writeDate = RS("reg_dt") previdx = RS("previdx") nextidx = RS("nextidx") RS.Close Set RS = Nothing If idx = "" Then RESPONSE.WRITE ExecJavaAlert("�߸��� �����Դϴ�.",0) RESPONSE.END End If %>

  • Home
  • �����Ұ�
  • ��Ÿ������
<%=name%> �ۼ��� <%=writeDate%>
<% If fileName1 <> "" Then Response.Write "
" End If %>
<%=contents%>

<% If Trim(session("admin_div")&"") = "1" Then %> ���� ���� <% End If %> <% If previdx <> "" Then%>���� <% END If %> <% If nextidx <> "" Then%>����<% END If %> ���