<% 'Call UserAuth(Session("id")) '### ���� üũ(ȸ�� �α����� �������� ���ư���) Dim idx, categoryName, subject, careTerm, contents, writeDate, hit Dim fileName1, fileSize1, fileName2, fileSize2, fileName3, fileSize3, view_href Dim SQL, RS, tableName Dim gotopage, totalpage, i, listnum, fileName Dim strNew, filePath Dim field, keyWord gotopage = Trim(Request("gotopage")) search_category = Request("search_category") searchString = Request("searchString") searchString = InjectionDefender(searchString) '������ ���� ��� tableName = "TB_DIET_REVIEW" '### DB ���̺��� filePath = "/data/" & tableName If gotopage = "" Then gotopage = 1 Else gotopage = Cint(gotopage) End If If search_category <> "" And searchString <> "" Then search_qry = " and "&search_category&" like '%"&searchString&"%'" End If SQL = "SELECT idx, subject, careTerm, contents, fileName1, fileName2, fileName3, writeDate, hit, branchCode FROM " & tableName & " A where 1=1 " & search_qry SQL = SQL & " ORDER BY writeDate DESC" Set RS = Dbcon.Execute(SQL) RS.PageSize = 9 '�������� ����Ʈ �� totalpage = RS.PageCount '�� ������ �� i=1 %>
���ؾ��� ��������

���̾�Ʈ �ı�

  • Home
  • ��������
  • ���̾�Ʈ�ı�
<% If Session("admin_div") > 0 Then %> <% End If %>
    <% 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") subject = RS("subject") : If Len(subject) > 29 Then subject = Left(subject, 28) & ".." : careTerm = RS("careTerm") contents = RS("contents") : If Len(contents) > 100 Then contents = Left(contents, 100) & ".." : fileName1 = RS("fileName1") fileName2 = RS("fileName2") fileName3 = RS("fileName3") writeDate = DateValue(RS("writeDate")) branch_Code = RS("branchCode") hit = RS("hit") If Len(Session("simple_name"))+Len(Session("user_id")) > 0 Then view_href = "customer08_view.asp?idx=" & idx Else view_href = "javascript:popupLoginChk()" End If '���� New ������ ǥ�� If GetNewBoardTime(24, RS("writeDate")) = True Then strNew = "" Else strNew = "" End If %>
  • <%=subject%>
    <%=Left(subject, 18)%> >

    <%=careTerm%>

  • <% i = i + 1 listnum = listnum - 1 RS.MoveNext Loop End If RS.Close Set RS = Nothing %>
<% Set listNum = New PageNavi listNum.Initial "customer08.asp?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 %>