메인 페이지에 리스트 뿌려주는 함수

<%
 ' 쿼리문, 배열 길이, 컬럼 수
 Function List_Object(SQL, length, column)

  ReDim no(length, column)

  Set Rs = Server.CreateObject("ADODB.RecordSet")

  Rs.Open SQL,dbCon,1,,adCmdText

  i = 0

  Do Until Rs.EOF Or i > length

   For j = 0 To column - 1 Step 1
    no(i, j) = Rs(j)
   Next

   i = i + 1
   Rs.MoveNext
  Loop

  If i = 0 Then
   For j=0 To column - 1 Step 1
    For k = 0 To column - 1 Step 1
     If i = 0 Then
      no(0, 1) = "등록된 글이 없습니다."
     Else
      no(j, k) = "&nbsp;"
     End If
    Next
   Next
  End If

  Set Rs = Nothing

  List_Object = no

 End Function
%>

 

 

보통 메인 페이지의 경우 공지사항이라든지 하는 내용을 몇 줄만 뿌려줘야 할 경우가 있다.

 

기존에는 그냥 순차적으로 뿌려주기 위해 코딩을 쭈욱 했지만, 소스도 길어지고 보기도 별로

 

안 좋은 관계로 허접하지만 함수로 만들어 보았다.

 

뭐 그닥 효율성은 없겠지만, 그래도 소스가 깔끔해져서 보기 좋다는 점만.. ㅡ,,ㅡ

 

내용은 배열로 저장이 된다.. 알아서 반복문으로 돌리면 더 편하다..

 

5줄을 뿌려주고 내용이 한줄만 있다면, 나머지 4줄엔 &nbsp;를 넣어 주니 테이블 높이가

 

줄어들 염려는 없다..

 

이 소스를 누가 쓰겠냐만은.. 그래도 쓰시는 분이 있을 경우 좀 더 좋은 방법이 있다면

 

알려 주세요.. (--)(__)