<% 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 %> �DZ��� <% 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 %>