<% '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 %> ÆÇ±³Á¡ <% 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 %>