<% Call AdminAuth() '»ç¿ë±ÇÇÑ Ã¼Å©(ȨÇÇ °ü¸®ÀÚ³ª, POS »ç¿ë°¡°¡ ¾Æ´Ï¸é Á¢±ÙºÒ°¡) Dim idx, branchCode, branchName, userId, userName, userTel, userDate, userTime, contents, writeDate, anser, memo, kind Dim SQL, RS, tableName Dim page, totalpage, i, listnum, fileName Dim strNew Dim field, keyWord Dim sortName, sortValue gotopage = Trim(Request("gotopage")) field = Trim(Request("field")) keyWord = Trim(Request("keyWord")) keyWord = InjectionDefender(keyWord) 'ÀÎÁ§¼Ç °ø°Ý ¹æ¾î sortName = Trim(Request("sortName")) sortValue = Trim(Request("sortValue")) tableName = "TB_TEL_COUNSEL" '### DB Å×À̺í¸í fileName = "customer07.asp?field=" & field & "&keyWord=" & keyWord '### ÇöÀç ÆÄÀϸí If gotopage = "" Then gotopage = 1 Else gotopage = Cint(gotopage) End If %>
À¯¾Ø¾ÆÀÌ °í°´¼¾ÅÍ

ÀüÈ­»ó´ã½Åû

  • Home
  • °í°´¼¾ÅÍ
  • ÀüÈ­»ó´ã½Åû
<% SQL = "SELECT idx, kind, (SELECT branchName FROM GW_BRANCH WHERE branchCode = A.branchCode) AS branchName,branchCode, userId, userName, userTel, userDate, userTime, writeDate, anser FROM " & tableName & " A" 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 UserDate DESC" SQL = SQL & " ORDER BY writeDate DESC" Set RS = Dbcon.Execute(SQL) RS.PageSize = 20 'ÆäÀÌÁö´ç ¸®½ºÆ® ¼ö totalpage = RS.PageCount 'ÃÑ ÆäÀÌÁö ¼ö i=1 If RS.eof Then %> <% Else RS.AbsolutePage = gotopage 'ÁöÁ¤µÈ ÆäÀÌÁö·Î ÇöÀç À§Ä¡ À̵¿ listnum = RS.RecordCount-(page-1)*RS.PageSize Do Until RS.eof Or i > RS.PageSize idx = RS("idx") kind = RS("kind") bCode = RS("branchCode") branchName = RS("branchName") userName = RS("userName") userTel = RS("userTel") userDate = RS("userDate") userTime = RS("userTime") writeDate = DateValue(RS("writeDate")) anser = RS("anser") Select Case kind Case "¹®ÀÚ»ó´ã" kind = "" & kind & "" Case "Ä«Åå»ó´ã" kind = "" & kind & "" Case "Áß±¹" kind = "" & kind & "" Case "ÀϺ»" kind = "" & kind & "" Case Else kind = "ÀüÈ­»ó´ã" End Select If anser = "O" Then anser = "¿Ï·á" Else anser = "´ë±â" End If '»õ±Û New ¾ÆÀÌÄÜ Ç¥½Ã If GetNewBoardTime(24, RS("writeDate")) = True Then strNew = "" Else strNew = "" End If If (i Mod 2) = 0 Then bgImg = "images/bg01-1.gif" Else bgImg = "images/bg02-1.gif" End If %> <% i = i + 1 listnum = listnum - 1 RS.MoveNext Loop End If RS.Close Set RS = Nothing %>
¹øÈ£ »ó´ã±¸ºÐ À̸§ ¿¬¶ôó »ó´ã¿äû½Ã°£ »óÅ ÀÛ¼ºÀÏ
µî·ÏµÈ ÀÚ·á°¡ ¾ø½À´Ï´Ù.
<%=listnum%> <%=kind%> <% If bCode = "U001" Then %> °­³²Á¡ <% End If %> <% If bCode = "U005" Then %> Àá½ÇÁ¡ <% End If %> <% If bCode = "U006" Then %> ¿Õ½Ê¸®Á¡ <% End If %> <% If bCode = "U004" Then %> ÆÇ±³Á¡ <% End If %> <% If bCode = "U002" Then %> ¼ö¿øÁ¡ <% End If %> <% If bCode = "U007" Then %> ¸íµ¿Á¡ <% End If %> <% If bCode = "U008" Then %> ±¤±³Á¡ <% End If %> <% If bCode = "U009" Then %> ½ÅÃÌÁ¡ <% End If %> <%=userName%> <%=strNew%> <%=userTel%> <%=userDate%> <%=userTime%> <%=anser%> <%=writeDate%>
<% Set listNum = New PageNavi listNum.Initial "customer07.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 %>