<% 'Call UserAuth(Session("id")) '### ±ÇÇÑ Ã¼Å©(ȸ¿ø ·Î±×ÀÎÀ» ¾ÈÇßÀ¸¸é µ¹¾Æ°¡±â) Dim idx, userAge, subject, careTerm, writeDate, contents, fileName1, fileSize1, fileName2, fileSize2, hit, branchCode Dim SQL, RS, tableName If Len(Session("simple_name"))+Len(Session("user_id")) < 1 Then RESPONSE.WRITE ExecJavaAlert("·Î±×ÀÎÈÄ ÀÌ¿ëÇØÁÖ¼¼¿ä.",0) RESPONSE.End End If tableName = "TB_DIET_REVIEW" '### DB Å×À̺í¸í idx = Trim(Request("idx")) SQL = "SELECT userId, idx, userAge, subject, careTerm, writeDate, contents, fileName1, fileSize1, fileName2, fileSize2, hit, branchCode," SQL = SQL & " (SELECT MAX(idx) FROM " & tableName & " WHERE idx < t1.idx ) as previdx, (SELECT MIN(idx) FROM " & tableName & " WHERE idx > t1.idx) as nextidx FROM " & tableName & " t1" SQL = SQL & " WHERE idx = " & idx Set RS = Dbcon.Execute(SQL) idx = RS("idx") uesrId = RS("userId") userAge = RS("userAge") subject = RS("subject") careTerm = RS("careTerm") contents = RS("contents") contents = Replace(contents, chr(13) & chr(10), "
") fileName1 = RS("fileName1") fileSize1 = RS("fileSize1") fileName2 = RS("fileName2") fileSize2 = RS("fileSize2") writeDate = RS("writeDate") hit = RS("hit") branchCode = RS("branchCode") previdx = RS("previdx") nextidx = RS("nextidx") 'Á¶È¸¼ö Áõ°¡ SQL = "UPDATE " & tableName & " SET hit = " & hit + 1 SQL = SQL & " WHERE idx = " & idx Dbcon.Execute(SQL) RS.Close Set RS = Nothing %>
À¯¾Ø¾ÆÀÌ °í°´¼¾ÅÍ

´ÙÀÌ¾îÆ® Èıâ

  • Home
  • °í°´¼¾ÅÍ
  • ´ÙÀÌ¾îÆ®Èıâ
°ü¸®°á°ú <%=subject%> <% If branch_Code = "U001" Then %> °­³²Á¡ <% End If %> <% If branch_Code = "U003" Then %> Àá½ÇÁ¡ <% End If %> <% If branch_Code = "U005" Then %> Àá½ÇÁ¡ <% End If %> <% If branch_Code = "U006" Then %> ¿Õ½Ê¸®Á¡ <% End If %> <% If branch_Code = "U004" Then %> ÆÇ±³Á¡ <% End If %> <% If branch_Code = "U002" Then %> ¼ö¿øÁ¡ <% End If %> <% If branch_Code = "U007" Then %> ¸íµ¿Á¡ <% End If %> <% If branch_Code = "U008" Then %> ±¤±³Á¡ <% End If %> <% If branch_Code = "U009" Then %> ½ÅÃÌÁ¡ <% End If %>
°ü¸®±â°£ <%=careTerm%>
<%=contents%>

<% If fileName1 <> "" Then Response.Write "
" 'Response.Write "[BEFORE]" End If %>

<% If fileName2 <> "" Then Response.Write "
" 'Response.Write "[AFTER]" End If %>

<% If Session("admin_div") > 0 Or Trim(Session("user_id")) = uesrId Then %> ¼öÁ¤ »èÁ¦ <% End If %> <% If previdx <> "" Then%>ÀÌÀü <% END If %> <% If nextidx <> "" Then%>´ÙÀ½<% END If %> ¸ñ·Ï