list.asp
<!--엑셀파일다운로드-->
<form name="excel_form" action="excel.asp" method="post">
<INPUT TYPE="hidden" name="sql" value="<%=sql%>">
<%
' Writes a link to the newly created excel in the browser
response.write "<a href='#' onclick='javascript:document.excel_form.submit();'><font color=red>특정 이력 사항</font></a> 엑셀 리스트 | 작성된 시간: " & now() & "<br>"
%>
</form>
</tr>
<!--//엑셀파일다운로드-->
excel.asp
<!--#Include virtual=/include/DBconn.asp-->
<%
Response.Buffer = TRUE
Response.ContentType = "application/vnd.ms-excel"
Response.CacheControl="public"
Response.AddHeader "Content-Disposition", "attachment;filename=특정이력사항.xls"
''''''''''''''''''''' 리스트 가져오기''''''''''''''''''''''''''''''''''''''''''
sql=request("sql")
'response.write sql
'response.end
'set result = dbConn.execute(sql)
set Result = server.createobject("adodb.recordset")
Result.open sql, DB, 1
no=Result.RecordCount
response.write "<font size=10>"& Result("buse_name") &"-"& Result("jiwon_type") &"</font>"
if not result.eof then
response.write "<table border=0 cellspacing=1 cellpadding=15 width=98% height=55 bgcolor='#454545'>"
response.write "<tr>"
response.write "<td bgcolor='F3F3F3'>No.</td>"
response.write "<td bgcolor='F3F3F3'>이름</td>"
response.write "<td bgcolor='F3F3F3'>생년월일</td>"
response.write "<td bgcolor='F3F3F3'>최종졸업학교</td>"
response.write "<td bgcolor='F3F3F3'>전공</td>"
response.write "<td bgcolor='F3F3F3'>졸업년도</td>"
response.write "<td bgcolor='F3F3F3'>서류전형</td>"
response.write "<td bgcolor='F3F3F3'>인적성검사</td>"
response.write "<td bgcolor='F3F3F3'>1차면접</td>"
response.write "<td bgcolor='F3F3F3'>2차면접</td>"
response.write "<td bgcolor='F3F3F3'>3차면접</td>"
response.write "<td bgcolor='F3F3F3'>경력</td>"
response.write "</tr>"
for i=1 to result.recordcount
'서류 합격 여부
If result("pass")<>"" Then
pass=result("pass")
If pass="ok" Then
pass_result="합격"
ElseIf pass="no" Then
pass_result="불합격"
End If
End If
'최종학교명
If result("s_name1") <>"" Then
school_name= result("s_name1")
school_major=result("s_major1")
gra_year=Left(result("s_year_E1") ,4)
ElseIf result("s_name2") <>"" Then
school_name= result("s_name2")
school_major=result("s_major2")
gra_year=Left(result("s_year_E2") ,4)
ElseIf result("s_name3") <>"" Then
school_name= result("s_name3")
school_major=result("s_major3")
gra_year=Left(result("s_year_E3") ,4)
End If
'전형별 점수
SQL="select * from result where mem_id=" & result("idx")
Set rs=server.createobject("ADODB.RECORDSET")
rs.open sql,db,1,1
If Not rs.eof then
If rs("t_point")<>"" then
t_point=rs("t_point")
Else
t_point="미응시"
End If
If rs("f_point")<>"" then
f_point=rs("f_point")
Else
f_point="미응시"
End if
If rs("s_point")<>"" then
s_point=rs("s_point")
Else
s_point="미응시"
End if
If rs("th_point")<>"" then
th_point=rs("th_point")
Else
th_point="미응시"
End if
End If
'경력사항
If result("com_name1")<>"" Then
company=result("com_name1")
com_S1=result("com_S1")
com_E1=result("com_E1")
work=company & "("&com_S1&"~"&com_E1&")"
End If
If result("com_name2")<>"" Then
company2=result("com_name2")
com_S2=result("com_S2")
com_E2=result("com_E2")
work=work & "," & company2 & "("&com_S2&"~"&com_E2&")"
End If
If result("com_name3")<>"" Then
company3=result("com_name3")
com_S3=result("com_S3")
com_E3=result("com_E3")
work=work & "," & company3 & "("&com_S3&"~"&com_E3&")"
End If
If result("com_name4")<>"" Then
company3=result("com_name4")
com_S4=result("com_S4")
com_E4=result("com_E4")
work=work & "," & company4 & "("&com_S4&"~"&com_E4&")"
End If
response.write "<tr>"
response.write "<td bgcolor='FFFFFF'>" & i & "</td>"
response.write "<td bgcolor='FFFFFF'>" & result("u_name_H") & "</td>"
response.write "<td bgcolor='FFFFFF'>" & left(left(result("juminno"),6),2) &" 년 "& Right(left(result("juminno"),4),2) &" 월</td>"
response.write "<td bgcolor='FFFFFF'>" & school_name & "</td>"
response.write "<td bgcolor='FFFFFF'>" & school_major & "</td>"
response.write "<td bgcolor='FFFFFF'>" & gra_year & " 년</td>"
response.write "<td bgcolor='FFFFFF'>" & pass_result & "</td>"
response.write "<td bgcolor='FFFFFF'>" & t_point & "</td>"
response.write "<td bgcolor='FFFFFF'>" & f_point & "</td>"
response.write "<td bgcolor='FFFFFF'>" & s_point & "</td>"
response.write "<td bgcolor='FFFFFF'>" & th_point & "</td>"
response.write "<td bgcolor='FFFFFF'>" & work & "</td>"
result.movenext
response.write "</tr>"
next
response.write "</table>"
end if
%>
페이지 결과를 엑셀파일로 저장하고 싶을때...
페이지 상단에 아래와 같은 코드를 넣으면 됩니다.
즉 웹브라우져에게 ContentType 를 엑셀이라고 알려주면 저장하거나 바로 웹브라우져에서 엑셀을 보여주거나
사용자의 설정에 따라 다르게 보여줄겁니다.
Response.Buffer = False
Response.Expires=0
FileName = ""
Response.AddHeader "Content-Disposition","attachment;filename=" & FileName
Response.ContentType = "application/vnd.ms-excel" '''= 엑셀로 출력
Response.CacheControl = "public"
그외
엑셀 : application/vnd.ms-excel
워드 : application/vnd.ms-word
파워포인트 : application/vnd.ms-powerpoint
덧 : Response.Buffer = False 와 Response.CacheControl = "public" 의 역할은 데이터를 버퍼링 하지 않고
바로 다운로드 창이 떠서 저장하기를 누르면 그때 데이터를 받아오도록 하는 기능입니다.
출처 - http://blog.naver.com/amoong25?Redirect=Log&logNo=100025985663
'공부거리 > ASP' 카테고리의 다른 글
asp - mssql - 함수모음 (0) | 2012.03.07 |
---|