2011년 5월 24일 화요일

업로드하려는 파일 사이즈 체크하는 스크립트

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<title>Untitled</title>
<script>
function filesizeOver2() {
 var fso, f, s, hapsu = 0;
 try {
     for(i = 1; i < 4; i++) {
         fso = new ActiveXObject("Scripting.FileSystemObject");
         filespec = eval("document.fileup.fileG"+ i +".value");
         if( filespec != "") {
             f = fso.GetFile(filespec);
             hapsu = hapsu + f.size;
         }
     }
     if( hapsu > 10000000 ) {
         overSu = hapsu - 10000000;
         alert("파일 총 사이즈가 큽니다. 확인해 주십시오.n" +
          "파일 총 사이즈는 10MByte를 초과할 수 없습니다.n" +
          "총 사이즈 :"+ hapsu +"n초과 사이즈 :"+ overSu);
   window.status = "파일 총 사이즈가 큽니다. 확인해 주십시오. "+
       "파일 총 사이즈는 10MByte를 초과할 수 없습니다. "+
       "총 사이즈 : "+hapsu +"/초과 사이즈 : "+ overSu;
         return;
     }
 } catch(e) {
  window.status = "Error : "+e.description;
 }
}

function fileupload() {
   if( filesizeOver2()) {
      alert("START");
     // document.fileup.submit();
   } else {
      return;
   }
}
</script>
<SCRIPT LANGUAGE="VBScript">
<!--
Function filesizeOver()
   for i = 1 to 3
     Dim fs, f, s, hapsu
     Set fs = CreateObject("Scripting.FileSystemObject")  
     filenm = "fileG"+ CStr(i)
     filespec = document.fileup.item(filenm).value
     if filespec <> "" Then
        Set f = fs.GetFile(filespec)
        hapsu = hapsu + CDbl(f.size)
     end if
   next
   if  hapsu >= 1000000  then
     overSu = hapsu - 1000000
     MsgBox "파일 총 사이즈가 너무 큽니다. 확인해 주세요. " & Chr(13) & "총 사이즈 : "+ FormatNumber(CStr(hapsu),0) & Chr(13) & "초과 사이즈 : "&FormatNumber(CStr(overSu),0) & Chr(13) & "파일 총 사이즈는 10MByte를 초과할 수 없습니다."
     filesizeOver = false
    else
     filesizeOver = true
   end if
End Function
-->
</SCRIPT>
</head>
<body>
<form name='fileup' >
   <input type='file' name='fileG1' ><br>
<input type='file' name='fileG2' ><br>
<input type='file' name='fileG3' ><br>
 </form>
 <input type='submit' value='Upload' omClick='fileupload()'>
</body>
</html><!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<title>Untitled</title>
<script>
function filesizeOver2() {
 var fso, f, s, hapsu = 0;
 try {
     for(i = 1; i < 4; i++) {
         fso = new ActiveXObject("Scripting.FileSystemObject");
         filespec = eval("document.fileup.fileG"+ i +".value");
         if( filespec != "") {
             f = fso.GetFile(filespec);
             hapsu = hapsu + f.size;
         }
     }
     if( hapsu > 10000000 ) {
         overSu = hapsu - 10000000;
         alert("파일 총 사이즈가 큽니다. 확인해 주십시오.n" +
          "파일 총 사이즈는 10MByte를 초과할 수 없습니다.n" +
          "총 사이즈 :"+ hapsu +"n초과 사이즈 :"+ overSu);
   window.status = "파일 총 사이즈가 큽니다. 확인해 주십시오. "+
       "파일 총 사이즈는 10MByte를 초과할 수 없습니다. "+
       "총 사이즈 : "+hapsu +"/초과 사이즈 : "+ overSu;
         return;
     }
 } catch(e) {
  window.status = "Error : "+e.description;
 }
}

function fileupload() {
   if( filesizeOver2()) {
      alert("START");
     // document.fileup.submit();
   } else {
      return;
   }
}
</script>
<SCRIPT LANGUAGE="VBScript">
<!--
Function filesizeOver()
   for i = 1 to 3
     Dim fs, f, s, hapsu
     Set fs = CreateObject("Scripting.FileSystemObject")  
     filenm = "fileG"+ CStr(i)
     filespec = document.fileup.item(filenm).value
     if filespec <> "" Then
        Set f = fs.GetFile(filespec)
        hapsu = hapsu + CDbl(f.size)
     end if
   next
   if  hapsu >= 1000000  then
     overSu = hapsu - 1000000
     MsgBox "파일 총 사이즈가 너무 큽니다. 확인해 주세요. " & Chr(13) & "총 사이즈 : "+ FormatNumber(CStr(hapsu),0) & Chr(13) & "초과 사이즈 : "&FormatNumber(CStr(overSu),0) & Chr(13) & "파일 총 사이즈는 10MByte를 초과할 수 없습니다."
     filesizeOver = false
    else
     filesizeOver = true
   end if
End Function
-->
</SCRIPT>
</head>
<body>
<form name='fileup' >
   <input type='file' name='fileG1' ><br>
<input type='file' name='fileG2' ><br>
<input type='file' name='fileG3' ><br>
 </form>
 <input type='submit' value='Upload' omClick='fileupload()'>
</body>
</html>

댓글 없음:

댓글 쓰기

ETL 솔루션 환경

ETL 솔루션 환경 하둡은 대용량 데이터를 값싸고 빠르게 분석할 수 있는 길을 만들어줬다. 통계분석 엔진인 “R”역시 하둡 못지 않게 관심을 받고 있다. 빅데이터 역시 데이터라는 점을 볼때 분산처리와 분석 그 이전에 데이터 품질 등 데이...