[Classic ASP] MSSQL 테이블 내용 보기!

<%

Set db = Server.CreateObject("ADODB.Connection")

strConnect = "Provider=SQLOLEDB;Data Source=(local);Initial Catalog=데이타베이스이름;User ID=사용자아이디;Password=암호;"

db.open strConnect

dim table_name, column_count, column_list()

table_name = "테이블이름" '테이블 이름을 넣어줍니다.

column_count = 0

response.write "<table><thead><tr>"

sql = " select * from information_schema.columns where table_name = '" & table_name & "' order by 5 " '5번째 필드를 기준으로 정렬

set rs=db.execute(sql)

if not rs.eof then

    do until rs.eof

        response.write "<td>" & rs("COLUMN_NAME") & "</td>" '컬럼을 출력

        redim preserve column_list(column_count)

        column_list(column_count) = rs("COLUMN_NAME")

        column_count = column_count + 1

        rs.movenext

    loop

end if

response.write "</tr></thead><tbody>"

sql = " select * from " & table_name

set rs=db.execute(sql)

if not rs.eof then

    do until rs.eof

        response.write "<tr>"

        For Each cn In column_list

        'For i = 0 To column_count

            response.write "<td>" & rs(cn) & "</td>" '내용을 출력

        Next

        response.write "</tr>"

        rs.movenext

    loop

end if

response.write "</tbody></table>"

%>

갑자기 ASP 로 만들어진 사이트 문제좀 봐달라는 부탁이 들어왔는데, 테이블 내용좀 보려 했더니 SQL 매니저 접근은 또 안되고 해서 임시방편으로 만들어보자 해서 만든 소스입니다.

별로 어려운 내용은 없는데, 자주 사용하는 언어가 아니다보니 뭔가 깔끔하지 않은 것 같고, 분명 더 쉽게 처리할 수 있는 부분이 있을 것 같은데 찾으려니 귀찮고...

이거 얼마 안되는 소스 작성하려고 웹검색을 얼마나 많이 했는지...

역시 익숙한 언어가 얼마나 생산성이 높은지 다시금 깨닫게 되네요, 그렇다고 이제와서 Classic ASP 를 익숙하게 하고싶은 마음은 별로 들진 않네요 -_-;

혹시 고수님들 보시다가 거슬리는 코드 있거나 문제되는 부분 있으면 좀 알려주세요~!