테이블에서 xls 파일을 생성하는 asp의 구현 코드입니다. 다음과 같이 코드 코드를 복사합니다.
<%@LANGUAGE=VBSCRIPT 코드페이지=936%>
<%
요청(작업)=1인 경우
Response.ContentType=응용 프로그램/ms-excel
Response.AddHeader 내용 처리, 첨부 파일;파일 이름=www.xls
종료하면
%>
<!DOCTYPE html PUBLIC -//W3C//DTD XHTML 1.0 Transitional//EN http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd>
<html xmlns=http://www.w3.org/1999/xhtml>
<머리>
<meta http-equiv=Content-Type content=text/html; charset=gb2312 />
<title>제목 없는 문서</title>
<스타일 유형=텍스트/css>
테이블 {
테두리 상단:1px 솔리드 #003399;
테두리 왼쪽:1px 솔리드 #003399;
}
td{
테두리 오른쪽:1px 솔리드 #003399;
테두리 하단:1px 솔리드 #003399;
}
멍청이 {
배경색:#000066;
글꼴 두께:굵게;
패딩:5px;
색상:#FFFFFF;
}
</style>
<스크립트 언어=자바스크립트>
함수 tableToExcel(){
location.href='?action=1';
}
</script>
</head>
<본문>
<입력 유형=버튼 값=데이터 내보내기 onclick=tableToExcel() />
<%
콘스트=...
conn = Server.CreateObject(ADODB.Connection) 설정
연결.연결 열기
rs = server.CreateObject(adodb.recordset) 설정
rs.open [테이블 이름],conn,1,1에서 상위 10개 *를 선택합니다.
그렇지 않은 경우(rs.eof 및 rs.bof)
열 = rs.fields.count
response.Write(<테이블 cellpadding='0' cellpacing='0'>)
response.Write(<thead><td>일련번호</td>)
rs.fields의 각 f에 대해
response.Write(<td> & f.name & </td>)
다음
응답.쓰기(</thead>)
j = 1에서 rs.recordcount까지
j > 5이면 '5번째 항목의 데이터를 숨깁니다. 테스트 후 없음으로 표시되는 데이터를 내보내면 내보내지 않습니다.
response.Write(<tr style='display:none'>)
또 다른
응답.쓰기(<tr>)
종료하면
응답.쓰기(<td> & j & </td>)
i = 0에서 열 - 1까지
응답.쓰기(<td> & rs(i) & </td>)
다음
응답.쓰기(</tr>)
rs.movenext
다음
응답.쓰기(</table>)
종료하면
RS.닫기
설정자=아무것도 없음
연결 닫기
conn = 아무것도 설정하지 않음
%>
</body>
</html>