<% 'Call UserAuth(Session("id")) '### ���� üũ(ȸ�� �α����� �������� ���ư���) Dim idx, branchName, categoryName, userName, subject, writeDate, hit, best Dim strNew, cmt_count, icon_best Dim SQL, RS, tableName Dim gotopage, totalpage, i, listnum, fileName Dim field, keyWord Dim sortName, sortValue gotopage = Trim(Request("gotopage")) cateB = Trim(Request("cateB")) field = Trim(Request("field")) keyWord = Trim(Request("keyWord")) : keyWord = InjectionDefender(keyWord) '������ ���� ��� sortName = Trim(Request("sortName")) sortValue = Trim(Request("sortValue")) tableName = "TB_REVIEW" '### DB ���̺��� fileName = "customer05.asp?field=" & field & "&keyWord=" & keyWord '### ���� ���ϸ� If gotopage = "" Then gotopage = 1 Else gotopage = Cint(gotopage) End If %>
���ؾ��� ��������

  • Home
  • ��������
  • �����ı�
<% SQL = "SELECT idx, branchCode, (SELECT branchName FROM GW_BRANCH WHERE branchCode = A.branchCode) AS branchName, (SELECT categoryName FROM TB_REVIEW_CATEGORY WHERE categoryNo = A.categoryNo) AS categoryName, userName, subject, writeDate, hit, best, (SELECT COUNT(idx) FROM TB_REVIEW_COMMENT WHERE reviewIdx=A.idx) As cmt_count FROM " & tableName & " A" If cateB <> "" Then '�˻� SQL = SQL & " WHERE categoryB = " & cateB End If If keyWord <> "" Then '�˻� SQL = SQL & " WHERE " & field & " LIKE '%" & keyWord & "%' " End If If sortValue <> "" Then '���� SQL = SQL & " WHERE " & sortName & " = '" & sortValue & "' " End If SQL = SQL & " ORDER BY best DESC, writeDate DESC" Set RS = Dbcon.Execute(SQL) RS.PageSize = 30 '�������� ����Ʈ �� totalpage = RS.PageCount '�� ������ �� i=1 If RS.eof Then %> <% Else RS.AbsolutePage = gotopage '������ �������� ���� ��ġ �̵� listnum = RS.RecordCount-(gotopage-1)*RS.PageSize Do Until RS.eof Or i > RS.PageSize idx = RS("idx") branchName = RS("branchName") branch_Code = RS("branchCode") categoryName = RS("categoryName") 'userName = Left(RS("userName"), 2) & "*" userName = RS("userName") subject = RS("subject") : If Len(subject) > 29 Then subject = Left(subject, 27) & ".." : writeDate = DateValue(RS("writeDate")) hit = RS("hit") best = RS("best") cmt_count = RS("cmt_count") If cmt_count > 0 Then cmt_count = " (" & cmt_count & ")" Else cmt_count = "" End If '���� New ������ ǥ�� 'If GetNewBoardTime(24, RS("writeDate")) = True Then ' strNew = "" 'Else ' strNew = "" 'End If 'If (i Mod 2) = 0 Then 'bgImg = "images/bg01.gif" 'Else 'bgImg = "images/bg02.gif" 'End If '����Ʈ ������ ǥ�� If best = "Y" Then icon_best = " BEST" Else icon_best = "" End If %> <% If Session("admin_div") > 0 Then writeDate = writeDate & " " & formatdatetime(RS("writeDate"), 4) & ":" & Right(RS("writeDate"), 2) %> <% Else %> <% End If %> <% i = i + 1 listnum = listnum - 1 RS.MoveNext Loop End If RS.Close Set RS = Nothing %>
��ȣ �������� ���� �ۼ��� ����� ��ȸ
�ڷᰡ �����ϴ�.
<%=listnum%> <% If branch_Code = "U001" Then %> ������ <% End If %> <% If branch_Code = "U003" Or branch_Code = "U005" Then %> ����� <% End If %> <% If branch_Code = "U006" Then %> �սʸ��� <% End If %> <% If branch_Code = "U002" Then %> ������ <% End If %> <% If branch_Code = "U004" Then %> �DZ��� <% End If %> <% If branch_Code = "U007" Then %> ������ <% End If %> <% If branch_Code = "U008" Then %> ������ <% End If %> <% If branch_Code = "U009" Then %> ������ <% End If %> <%=categoryName%> <% If Trim(Session("user_id")) <> "" Or Trim(Session("simple_name")) <> "" Then%> <%=subject%><%=icon_best%> <%Else%> <%=subject%><%=icon_best%> <%End If%> <%=userName%> <%=writeDate%> <%=hit%>
<% If Session("admin_div") > 0 Then %> <% End If %> <% Set listNum = New PageNavi listNum.Initial "customer05.asp?vSort="&vSort&"&gSort="&gSort&"&sSort="&sSort&"&vKeyType="&vKeyType&"&vUserName="&vUserName&"&vUserId="&vUserId&"&branchCode="&branchCode&"&vSid1="&vSid1&"&vSid2="&vSid2,10,gotopage,totalpage,search_category,searchString,optionstr,"","" listNum.pagePrint Set listNum = nothing %> <% If Session("admin_div") > 0 Then %> �۾��� <% End If %>