% 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) %>
Accessing the Power
ºü¸£°í ½±°Ô »ç¿ëÇÒ ¼ö ÀÖ´Â MinitabÀÇ ´Ù¾çÇÑ ±â´ÉÀ» ÀÌ¿ëÇÏ¿© ¿©·¯ºÐÀÇ ¾÷¹« ½Ã°£À» ´ÜÃàÇÏ°í °£ÆíÈ ÇÒ ¼ö ÀÖ½À´Ï´Ù.
´ëºÐ·ù : <%=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))%>
µî·ÏµÈ °Ô½Ã¹°ÀÌ ¾ø½À´Ï´Ù.
" End If %>