<% pageVal = "1" subVal = "6" thVal = "1" fhVal = "" %> <% Dim strBbsId strBbsId = "B0003" ' SET Code Class Dim action Set action = New BbsAction Dim arrayPage Dim arrayList Dim arrayFileList Dim intTotalCount, intTotalPage Dim intI Dim intCurrPage Dim intPageSize, intBlockSize Dim strSubQuery Dim intSeq intPageSize = 100 intBlockSize = 10 intCurrPage = Request("page") If IsNull(intCurrPage) Or intCurrPage="" Then intCurrPage = 1 arrayPage = action.getTotalCount_BBS(intPageSize, strBbsId) arrayList = action.getList_BBS(intPageSize, intCurrPage, strBbsId) arrays = action.getList_BBS(intPageSize, intCurrPage, strBbsId) intTotalCount = arrayPage(0) intTotalPage = arrayPage(1) %>

TUTORIALS

Accessing the Power

빠르고 쉽게 사용할 수 있는 Minitab의 다양한 기능을 이용하여 여러분의 업무 시간을 단축하고 간편화 할 수 있습니다.

    <% If Not IsNull(arrayList) Then Dim allListCount, strReply allListCount = UBound(arrayList, 2) 'DB : SEQ, BBS_ID, SUBJECT, WRITER, EMAIL, ' COMMENT, CONTENT, REF, STEP, DEPTH , ' APPLIE_TO, HITS, REG_DATE ' SCOPE1, SCOPE2, SCOPE3, SCOPE4, REL_DOCUMENT, REL_LINK For intI = 0 To allListCount %>
  • <%=arrayList(2, intI)%>

    대분류 : <%=arrayList(13, intI)%> <%If arrayList(14, intI)<> "" then%>소분류 : <%=arrayList(14, intI)%><%End if%> <% intSeq = arrayList(0, intI) arrayFileList = action.getFileList_BBS(intSeq) If Not IsNull(arrayFileList) Then 'FILE_NO, FILE_TYPE, FILE_PATH, FILE_ORG_NAME, FILE_NEW_NAME ', FILE_SIZE, DOWN_COUNT, BBS_NO, BBS_ID, REG_DATE Dim fileCount fileCount = UBound(arrayFileList, 2) For i = 0 To fileCount Response.Write "첨부파일 : " & arrayFileList(3, i) & " "& arrayFileList(5, i) &"KB
    " & vbcrlf Next End If %>

    <%=getTextString(arrayList(5, intI))%>

  • <% intRowNum = intRowNum -1 Next Else Response.Write "

    등록된 게시물이 없습니다.

    " End If %>