<%
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 를 익숙하게 하고싶은 마음은 별로 들진 않네요 -_-;
혹시 고수님들 보시다가 거슬리는 코드 있거나 문제되는 부분 있으면 좀 알려주세요~!
