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>

댓글 없음:

댓글 쓰기

블록체인 개요 및 오픈소스 동향

블록체인(block chain) 블록체인은 공공 거래장부이며 가상 화폐로 거래할때 발생할때 발생할 수 있는 해킹을 막는 기술. 분산 데이터베이스의 한 형태로, 지속적으로 성장하는 데이터 기록 리스트로서 분산 노드의 운영자에 의한 임의 조작이 불가...