<% 'Call UserAuth(Session("id")) '### �� üũ(ȸ�� α�� ư��) Dim idx, branchCode, branchName, categoryNo, categoryName, subject, writeDate, contents, hit Dim userId, userName, userAge, grade, best Dim fileName1, fileSize1, fileName2, fileSize2, fileName3, fileSize3 Dim SQL, RS, tableName tableName = "TB_REVIEW" '### DB ��̺�� idx = Trim(Request("idx")) returnurl = "/new/mbr/login.asp?returnUrl=/new/customer/customer05_view.asp?idx=" & idx If Trim(Session("simple_name")) = "" Then If Trim(Session("user_id")) = "" Then RESPONSE.WRITE ExecJavaAlert2("�α�� ̿��ּ��.",returnurl) RESPONSE.END End If End If SQL = "SELECT idx, userId, userName, userAge, branchCode, (SELECT branchName FROM GW_BRANCH WHERE branchCode = t1.branchCode) AS branchName, categoryNo," SQL = SQL & " (SELECT categoryName FROM TB_REVIEW_CATEGORY WHERE categoryNo = t1.categoryNo) AS categoryName, subject, writeDate, contents," SQL = SQL & " fileName1, fileSize1, fileName2, fileSize2, fileName3, fileSize3, hit, grade," 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") userId = RS("userId") 'userName = Left(RS("userName"), 2) & "*" userName = RS("userName") userAge = RS("userAge") branchCode = RS("branchCode") branchName = RS("branchName") categoryNo = RS("categoryNo") categoryName = RS("categoryName") subject = RS("subject") contents = RS("contents") : contents = Replace(contents, chr(13) & chr(10), "
") 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") grade = RS("grade") hit = RS("hit") 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 '�� ǥ�� Select Case grade Case 10 grade = "�ڡڡڡڡ�" Case 8 grade = "�ڡڡڡڡ�" Case 6 grade = "�ڡڡڡ١�" Case 4 grade = "�ڡڡ١١�" Case 2 grade = "�ڡ١١١�" Case 0 grade = "�١١١١�" Case Else grade = "" End Select %>

Home
��
��ı�

<% If fileName1 <> "" And Session("admin_div") > 0 Then %> <% End If If fileName2 <> "" And Session("admin_div") > 0 Then %> <% End If If fileName3 <> "" Then %> <% End If %>

�̸�	<%=userName%>	��	<%=userAge%> ��
��	<%=branchName%>	��	<%=categoryName%>
��	<%=grade%> �ۼ�� : <%=writeDate%> ��ȸ : <%=hit%>
��	<%=subject%>
��	<% If fileName1 <> "" Then Response.Write " " : %> <% If fileName2 <> "" Then Response.Write " " : %> <% If fileName3 <> "" Then Response.Write " " : %> <%=contents%>
��ĵ��	<%=fileName1%> (<%=FormatNumber(fileSize1, 0)%> byte)
��	<%=fileName2%> (<%=FormatNumber(fileSize2, 0)%> byte)
��	<%=fileName3%> (<%=FormatNumber(fileSize3, 0)%> byte)

<% If Session("admin_div") > 0 Or Trim(Session("user_id")) = userId Then %>

<% End If %> <% If previdx <> "" Then%>

<% END If %> <% If nextidx <> "" Then%>

<% END If %>