uploadfile.asp
<script language="JavaScript">
function checkit() {
if (document.excelupform.excelfile.value == "") {
alert("파일을 선택해 주십시요 !");
// document.excelupform.excelfile.focus();
self.location.class='MIME' href="uploadfile.asp"
// return false;
} else {
excelupform.action="fileuploading.asp";
excelupform.submit();
}
}
function filecheck(){
if(document.excelupform.excelfile.value.length < 1) {
alert("파일을 선택해 주십시요. ^^");
document.excelupform.excelfile.focus();
return false;
} else{
checkit();
}
}
//-->
</script>
<FORM OnKeyPress="javascript:filecheck();" name="excelupform" method="post" encType="multipart/form-data" >
<TABLE border=0 cellPadding=0 cellSpacing=0 width="600" align="center">
<tr><TD height="40" align="center"><INPUT name="excelfile" type="file"></TD></TR>
<TR>
<TD height="40" align="center"><a class='MIME' href="javascript:checkit()"><img src="../../images/bt_send.gif" border="0"></a></TD>
</TR></TABLE></FORM>
fileuploading.asp
<%@ Language=VBScript %>
<!-- #include file = "../../lib/dbopen.inc" -->
<!-- #include file="../../lib/certification.inc" -->
<%
on error resume next
set uploadform = Server.CreateObject("SiteGalaxyUpload.Form")
Set filesystemobj = Server.CreateObject("Scripting.FileSystemObject")
attach_file = UploadForm("excelfile").FilePath
upfilename = Mid(attach_file, InstrRev(attach_file, "") + 1) ' 파일명을 얻는다.
strName = Mid(upfilename, 1, Instr(upfilename, ".") - 1) ' 확장자를 제외한 파일명을 얻는다.
strExt = Mid(upfilename, Instr(upfilename, ".") + 1) '확장자를 얻는다.
' 엑셀파일을 체크 한다.
if(strExt="xls") then %>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=euc-kr">
<%
' 랜덤 숫자를 통해서 구분을 한다.
Randomize
myvalues = Int((100000000000 * Rnd) + 1) ' 1에서 100000000000까지 중에서 무작위 값을 발생합니다.
''''''''''''''각 아이디당 폴더를 생성한다.'''''''''''''''''''''''''''
folder_ex = "c:temp"& CcID
If (filesystemobj.FolderExists(folder_ex)) Then
' response.Write("id folder exist")
Else
filesystemobj.CreateFolder(folder_ex)
End If
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
onlyTrue = True ' 우선 같은이름의 파일이 존재한다고 가정
countFileName = 0 ' 파일이 존재할 경우, 이름 뒤에 붙일 숫자를 세팅함.
''''''''''''''''각 폴더에 파일을 저장한다.''''''''''''''''''''''''''''
saveDate = Date
fn = "c:temp"&CcID&""&strName&saveDate&".xls" ' 저장할 파일의 완전한 이름을 만듦
file2dbname= strName&saveDate&".xls"
response.Write(file2dbname)
uploadform("excelfile").SaveAs(fn)
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''''''''''''''''''''''''''''''''엑셀파일 보기 ''''''''''''''''''''''''
xlsFile = fn
Set objApp = CreateObject("Excel.Application") '엑셀 객체 생성
Set objWorkbooks = objApp.Workbooks 'WorkBooks 객체 생성
Set objWorkbook = objWorkbooks.Open(xlsFile) 'Excel 파일 Open
Set objWorksheet = objWorkbook.Worksheets(1) 'Worksheet 객체 생성
Set objRange = objWorksheet.UsedRange '사용된 영역 객체 생성
aData= objRange.value '사용된 영역의 값들을 2차원배열 aData로 넘김
%>
<table cellpadding="0" cellspacing="0" border="1" width="540" align="center">
<tr><td width="60" align="center">Number</td><Td width="120" align="center">고유한 키값</Td>
<Td width="120" align="center">이 름</Td><Td width="140" align="center">전화번호</Td><td width="80">날 짜</td></tr>
<% For i=1 to uBound(aData, 1) ' 배열의 끝까지 행루프 %>
<tr><td align="center"><%=i%></td>
<td align="center"><%=myvalues%></td>
<% For j=1 to uBound(aData, 2) ' 배열의 끝까지 열루프 %>
<%if j=1 then%>
<td align="center">
<%=aData(i,1)%>
<% 'Dim member()
'member = aData(i, 1)%>
</td>
<% end if%>
<%if j=2 then%>
<td align="center">
<%=aData(i,2)%>
<% 'Dim phoneNum()
'phoneNum = aData(i, 2)%>
</td>
<% end if%>
<% Next ' 배열의 끝까지 열 루프 끝 %>
<td><%=saveDate%></td>
</tr>
<% Next ' 배열의 끝까지 행 루프 끝 %>
</table>
<%
' seedkey 및 업로드 날짜를 디비에 저장한다.
for i=1 to uBound(aData, 1)
sql = "INSERT INTO excel2db(SEEDKEY,NAME,PHONE_NUMBER,UPLOAD_DATE,MESSAGE) VALUES "
sql = sql & "('"&myvalues&"','"&aData(i,1)&"','"&aData(i,2)&"','"&saveDate&"','')"
dbs.Execute(sql)
next
%>
<%
Set objRange = Nothing
Set objWorksheet = Nothing
objWorkbook.Close
Set objWorkbook = Nothing
Set objWorkbokks = Nothing
Set objApp = Nothing
'''''''''''''''''''''''''엑셀파일 보기 끝 ''''''''''''''''''''''''''''''' %>
<% else %>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=euc-kr">
<script language="JavaScript">
<!--
alert("엑셀 파일만 업로드 가능합니다.")
self.location.class='MIME' href="uploadfile.asp"
//-->")
</script>")
<% end if
set fs = Nothing
set real_fn = Nothing
set uploadform = Nothing
%>
</head>
<body></body>
</html>