<%
' 여기서 엑셀 파일명 지정
filename = "apply_plt_excel"
Response.Buffer = TRUE
Response.ContentType = "application/vnd.ms-excel"
Response.AddHeader "Content-disposition","attachment;filename=" & filename & ".xls"
%>
<!-- METADATA TYPE="typelib" FILE="C:\Program Files\common files\system\ado\msado15.dll" -->
<%
filename = "list"
Response.ContentType = "application/vnd.ms-excel"
Response.AddHeader "Content-Disposition","attachment; filename=" & filename & ".csv"
%>
<!-- METADATA TYPE="typelib" FILE="C:\Program Files\common files\system\ado\msado15.dll" -->
맨위 상단에 선언하시구여..
해드 부분에 밑에 처럼.. 하시면 됩니다.
Response.ContentType="application/vnd.ms-excel"
Response.AddHeader "Content-Disposition", "attachment;filename="&date()&".csv"
그리고 이 이하로는 html로.. 디잔 만드시고.. 데이타 뿌릴내용 일반 게시판 짜듯이 하셔서 하심 됩니다.
참고로 위에 보심 data()이기 때문에 파일이름이 현재날짜.csv로 저장되겟네요...
<script language = "javascript">
function Save()
{
Some.document.open("csv","replace")
// Some.document.write(document.documentElement.outerHTML )
// Some.document.close()
// Some.focus()
Some.document.execCommand('SaveAs','csv')
}
</script>
<iframe id="Some" name="Some" style="display:none" src="statistics.asp"></iframe>
<input type="button" value="저장" onClick="javascript:Save()"></p>
부탁드립니다...
우선 아래 소스코드는 웹사이트에서 찾았구요...
직접 csv파일을 생성해보려구 데이터베이스, 테이블 설계와 데이터입력후
아래 코드와 같이 작성후 웹브라우저를 이용해 테스트해보았는데,,
아래와 같은 오류가 나오던데,,, 혹시 아시면 도움말좀 부탁드리겠습니다.
############################################################
오류 형식:
ADODB.Recordset (0x800A0BB9)
잘못된 형식이거나 올바른 범위 밖에 있거나 서로 충돌하는 인수입니다.
/asp테스트/csv.asp, line 16
############################################################
<%
Response.Buffer = True
Response.Expires = 0
dim strSQL '변수 정의
dim strFile
<!--#include file=adovbs.inc-->
set dbobj = server.createobject("adodb.connection") 'DB오브젝트
dbobj.open "dsn=lock;uid=lock;pwd=12345;" 'DSN을 이용한 DB open
Set oRS = Server.CreateObject("ADODB.Recordset")
strSQL = "SELECT field1, field2 , field3, field4, field5"
strSQL = trSQL & " FROM csv_test"
strSQL = strSQL & " WHERE field1 = 'condition'"
oRS.Open strSQL, dbobj, adOpenForwardOnly, adLockReadOnly, adCmdText '상수로 선언
된 부분 필요
%> <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<html>
<head>
<title>EXCEL 파일 생성</title>
</head>
<body>
<%
CreateCSVFile() 'EXCEL 파일 생성 함수화
Set oRS = Nothing
Set oConn = Nothing
Response.Flush
%>
</body>
</html>
<SCRIPT LANGUAGE=vbscript RUNAT=Server>
Function GenFileName() '파일 이름을 만드는 부분
dim fname
fname = "fileheader"
GenFileName = fname
End Function
Function CreateCSVFile() '실제 엑셀파일을 생성 하는 부분
'파일 시스템 오브젝트를 이용한 파일 생성
strFile = GenFileName() ' FILE이름 생성(함수 호출)
Set fs = Server.CreateObject("Scripting.FileSystemObject") '해당 경로에 파일 확장
명이 csv인 파일을 생성한다.
Set a = fs.CreateTextFile("d:/test" & "\" & strFile & ".csv",True)
If Not oRS.EOF Then
strtext = chr(34) & "컬럼1" & chr(34) & ","
strtext = strtext & chr(34) & "컬럼2" & chr(34) & ","
strtext = strtext & chr(34) & "컬럼3" & chr(34) & ","
strtext = strtext & chr(34) & "컬럼4" & chr(34) & ","
strtext = strtext & chr(34) & "컬럼5" & chr(34) & ","
a.WriteLine(strtext)
Do Until oRS.EOF '조건에 맞는 레코드가 있을 때까지 파일에 input
For i = 0 To oRS.fields.Count-1
strtext = oRS.fields(i) & chr(34) & ","
a.Write(strtext)
Next
a.Writeline()
oRS.MoveNext
Loop
End If
a.Close
Set fs=Nothing
End Function
</SCRIPT>
'프로그래밍 > asp' 카테고리의 다른 글
| winhttp 사용법 (0) | 2011.08.22 |
|---|---|
| ASP에서 UTF-8로 저장하기 (0) | 2011.08.03 |
| ON Error Resume Next (0) | 2011.06.24 |
| ASP 오류 'ASP 0115' (0) | 2011.06.15 |
| asp 함수 정리 (0) | 2011.06.08 |