ClassicASP 엑셀 다운로드 & 저장시 숫자로 표시될 경우 방지
페이지 정보
본문
프로그램상에서 엑셀파일 작성시 84E+0.4 이런식으로 일부 수치형 문자열이 변환되거나
00000010 의 형태로 표시하고 싶은데 10으로 표시되는 경우
style sheet에 mso-number-format;'\@' 코드를 이용해 텍스트형으로 강제지정하면 됩니다.
<%
dim stime : stime = DATE()
dim excel_filename : filename = "ASP엑셀저장" &"_"& stime &".xls"
Response.Buffer = TRUE
Response.ContentType = "application/vnd.ms-excel"
Response.AddHeader "Content-Disposition","attachment; filename="& filename &""
response.charset = "euc-kr"
'xlsx 내려받기할때
'Response.ContentType = "application/vnd.openxmlformats-officedocument.spreadsheetml.sheet"
'참고사이트 https://www.happyjung.com/lecture/938
sql = "select * from happyjung where c1idx = '"& c1idx &"' ORDER BY idx desc"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open SQL,dbconn,1
%>
<html>
<head>
<title>ASP 엑셀다운로드</title>
<style type="text/css">
/* 엑셀 다운로드로 저장시 숫자로 표시될 경우 방지 */
.txt {mso-number-format:'\@'}
</style>
</head>
<body>
<table>
<tr>
<td>이름</td>
<td>주민번호</td>
<td>성별</td>
</tr>
<%
if (rs.BOF and rs.EOF) Then
Response.Write "<tr> <td colspan='3'>"
Response.Write "데이타가 없습니다."
Response.Write "</td></tr>"
else
RCount = pageSize
Do while (NOT rs.EOF) and (RCount > 0 )
idx = rs("idx")
name = rs("name")
jumin = rs("jumin")
jumin1 = Mid(jumin,1,6)
jumin2 = Mid(jumin,7,7)
if jumin_sex = "1" then
sex = "남"
elseif jumin_sex = "2" then
sex = "여"
end if
%>
<tr>
<td class="txt"><% response.write name %></td>
<td class="txt"><% response.write jumin %></td>
<td class="txt"><% response.write sex %></td>
</tr>
<%
rs.moveNext
rcount = rcount -1
loop
end if
rs.close
set rs=nothing
%>
</table>
</body>
</html>
참고자료
http://truepia.tistory.com/123
00000010 의 형태로 표시하고 싶은데 10으로 표시되는 경우
style sheet에 mso-number-format;'\@' 코드를 이용해 텍스트형으로 강제지정하면 됩니다.
<%
dim stime : stime = DATE()
dim excel_filename : filename = "ASP엑셀저장" &"_"& stime &".xls"
Response.Buffer = TRUE
Response.ContentType = "application/vnd.ms-excel"
Response.AddHeader "Content-Disposition","attachment; filename="& filename &""
response.charset = "euc-kr"
'xlsx 내려받기할때
'Response.ContentType = "application/vnd.openxmlformats-officedocument.spreadsheetml.sheet"
'참고사이트 https://www.happyjung.com/lecture/938
sql = "select * from happyjung where c1idx = '"& c1idx &"' ORDER BY idx desc"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open SQL,dbconn,1
%>
<html>
<head>
<title>ASP 엑셀다운로드</title>
<style type="text/css">
/* 엑셀 다운로드로 저장시 숫자로 표시될 경우 방지 */
.txt {mso-number-format:'\@'}
</style>
</head>
<body>
<table>
<tr>
<td>이름</td>
<td>주민번호</td>
<td>성별</td>
</tr>
<%
if (rs.BOF and rs.EOF) Then
Response.Write "<tr> <td colspan='3'>"
Response.Write "데이타가 없습니다."
Response.Write "</td></tr>"
else
RCount = pageSize
Do while (NOT rs.EOF) and (RCount > 0 )
idx = rs("idx")
name = rs("name")
jumin = rs("jumin")
jumin1 = Mid(jumin,1,6)
jumin2 = Mid(jumin,7,7)
if jumin_sex = "1" then
sex = "남"
elseif jumin_sex = "2" then
sex = "여"
end if
%>
<tr>
<td class="txt"><% response.write name %></td>
<td class="txt"><% response.write jumin %></td>
<td class="txt"><% response.write sex %></td>
</tr>
<%
rs.moveNext
rcount = rcount -1
loop
end if
rs.close
set rs=nothing
%>
</table>
</body>
</html>
참고자료
http://truepia.tistory.com/123
댓글목록
등록된 댓글이 없습니다.