<% '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 %>