%
'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
%>
°ü¸®°á°ú | <%=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 %>