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>

2009/05/26 13:39 2009/05/26 13:39

Trackback Address :: 이 글에는 트랙백을 보낼 수 없습니다