Notice
Recent Posts
Recent Comments
일 | 월 | 화 | 수 | 목 | 금 | 토 |
---|---|---|---|---|---|---|
1 | 2 | 3 | 4 | 5 | 6 | 7 |
8 | 9 | 10 | 11 | 12 | 13 | 14 |
15 | 16 | 17 | 18 | 19 | 20 | 21 |
22 | 23 | 24 | 25 | 26 | 27 | 28 |
29 | 30 | 31 |
Tags
- 즐겨찾기 추가
- MySQL
- HTML
- Eclipse
- JavaScript
- 블로그 조회수
- 에덴미술
- PHP
- CSS
- Adobe pdf reader
- samba
- Jexcel
- 블루수국그림
- 블로그 방문자 늘리기
- oralce
- IIS
- flash
- 인테리어그림
- Vista
- MSSQL
- 블로그 수익화
- 국민연금
- Jrun
- JSP
- CVS
- 갑근세
- 소득세
- .NET
- Administrator
- 블로그 조회수 늘리기
Archives
- Today
- Total
I LOVE EJ
Web(ASP, JSP, HTML)에서 엑셀 다운로드 - 첫번째Web(ASP,JSP 등) 본문
웹에서 엑셀을 다운로드 하는 방법은 일반 페이지를 보여주는 것과 똑같다고 보면 된다.
엑셀을 다운로드 하는 페이지에서도 조건에 해당하는 값들을 넘겨 받아서,
SQL문을 만들어 Rs.Open 을 하고 넘겨받은 데이터를 Do While문이나 For문과 같은 반복문을 사용하여,
HTML 테이블을 만들어서 뿌려준다.
단지 HTML 테이블은 화면에 보여주지 않고 엑셀 데이터로 저장해야 하므로 그 부분을 위한 소스만 추가 되면 된다. 이것이 아래 보여지는 소스(ASP)에서 파란 색으로 표시한 부분이다. 파일에 이 부분만 있으면 화면으로 보여주지 않고, 엑셀 파일로 저장하려 할 것이다.
아래의 소스는 지역 데이터를 받아서 MEMBERS 테이블에서 데이터를 가져오기 위한 부분이다.
여기서 팁을하나 소개하면, 데이터를 저장하기 위해서 아래 빨간 색으로 표시한 것처럼 이름을 주면,
엑셀 파일로 저장하였을 때, 셀의 이름으로 표시될 수 있다.
<%
Dim Location
Location = Request.Form("Location")
'/// 조회 데이터 가져오기
SQL = " SELECT NO AS 사번, NAME AS 이름, AGE AS 나이, LOCATION AS 지역 "
SQL = SQL & " FROM MEMBERS WHERE LOCATION = '" & Location & "' "
Rs.Open SQL, dbCon
Response.Buffer = True
Response.ContentType = "application/vnd.ms-excel"
Response.CacheControl = "public"
Response.AddHeader "Content-Disposition","attachment;filename=사용자관리.xls"
%>
Dim Location
Location = Request.Form("Location")
'/// 조회 데이터 가져오기
SQL = " SELECT NO AS 사번, NAME AS 이름, AGE AS 나이, LOCATION AS 지역 "
SQL = SQL & " FROM MEMBERS WHERE LOCATION = '" & Location & "' "
Rs.Open SQL, dbCon
Response.Buffer = True
Response.ContentType = "application/vnd.ms-excel"
Response.CacheControl = "public"
Response.AddHeader "Content-Disposition","attachment;filename=사용자관리.xls"
%>
======================= [ 전체 예제 보기 클릭 ] =======================
<html>
<head><title>Excel</title>
<meta http-equiv="Content-Type" content="text/html; charset=euc-kr" /></head>
<body>
<%
Response.Write "<table border=1 cellpadding=4>"
Response.Write "<tr>"
Response.Write "<td colspan='" & Rs.Fields.Count & "' style='font-size:18px;text-align:center;height:40px;'><b> 사용자 관리 </b></td>"
Response.Write "</tr>"
Response.Write "<tr>"
For i = 0 To Rs.Fields.Count - 1
Response.Write "<td style='background:#FFBBC0;text-align:center;'><b>" & Rs(i).Name & "</b></td>"
Next
Response.Write "</tr>"
Do While Not Rs.EOF
Response.Write "<tr>"
For i = 0 To Rs.Fields.Count - 1
If i = 0 Then '// 서식 변환 : 최대 6자리(사번 앞에 0 붙이기)
Response.Write "<td align='center' style='mso-number-format:000000'>" & Rs(i) & " </td>"
Else
Response.Write "<td align='center'>" & Rs(i) & " </td>"
End If
Next
Response.Write "</tr>"
Rs.MoveNext
Loop
Response.Write "</table>"
%>
</body>
</html>
<head><title>Excel</title>
<meta http-equiv="Content-Type" content="text/html; charset=euc-kr" /></head>
<body>
<%
Response.Write "<table border=1 cellpadding=4>"
Response.Write "<tr>"
Response.Write "<td colspan='" & Rs.Fields.Count & "' style='font-size:18px;text-align:center;height:40px;'><b> 사용자 관리 </b></td>"
Response.Write "</tr>"
Response.Write "<tr>"
For i = 0 To Rs.Fields.Count - 1
Response.Write "<td style='background:#FFBBC0;text-align:center;'><b>" & Rs(i).Name & "</b></td>"
Next
Response.Write "</tr>"
Do While Not Rs.EOF
Response.Write "<tr>"
For i = 0 To Rs.Fields.Count - 1
If i = 0 Then '// 서식 변환 : 최대 6자리(사번 앞에 0 붙이기)
Response.Write "<td align='center' style='mso-number-format:000000'>" & Rs(i) & " </td>"
Else
Response.Write "<td align='center'>" & Rs(i) & " </td>"
End If
Next
Response.Write "</tr>"
Rs.MoveNext
Loop
Response.Write "</table>"
%>
</body>
</html>
'Web Development > JSP' 카테고리의 다른 글
Web(ASP, JSP, HTML)에서 엑셀 다운로드 - 세번째Web(ASP,JSP 등) (0) | 2008.11.17 |
---|---|
Web(ASP, JSP, HTML)에서 엑셀 다운로드 - 두번째Web(ASP,JSP 등) (0) | 2008.11.17 |
[JSP] 테이블내용을 Excel파일로 다운로드 하기. (0) | 2008.11.17 |
지정된 날짜에 for문 이용하여 +7일씩 하기 (0) | 2008.08.10 |
지정된 날짜에 +7일 하기 (0) | 2008.08.10 |