키보드만 잡으면 중수다

출처 : http://blog.daum.net/thecoolman/3797336

아래 내용을 그대로 가져가서 사용하면 된다.

기본적인 내용은 주석처리 되어 있으니, 사용하는데 별 어려움이 없을 것으로 생각된다.

////////////////////////////////////////////////////////////////////////////////////
<%
'파일업로드 기본 설정
Response.Expires = -10000
Server.ScriptTimeOut = 300
Set theForm = Server.CreateObject("ABCUpload4.XForm")
theForm.Overwrite = True
theForm.MaxUploadSize = 8000000  '8M 업로드 가능
Set FSO = Server.CreateObject("Scripting.FileSystemObject")
theForm.AbsolutePath = True
Dim fileName,fileSize



Function GetUniqueName(strFileName, DirectoryPath)
    Dim strName, strExt
    '확장자가 없는 경우를 처리
    if InstrRev(strFileName, ".") = 0 then
        Response.write ""
        Response.end
    End if
    strName = Mid(strFileName, 1, InstrRev(strFileName, ".") - 1)
    strExt = Mid(strFileName, InstrRev(strFileName, ".") + 1)

    'asp파일 업로드 불가
    if strExt = "asa" or strExt = "asp" or strExt = "aspx" or strExt = "inc" or strExt = "bak" or strExt = "php" or strExt = "html" or strExt = "htm" then
        Response.write ""
        Response.end
    End if

    Dim bExist : bExist = True
    Dim strFileWholePath : strFileWholePath = DirectoryPath & "\" & strName & "." & strExt
    Dim countFileName : countFileName = 0

    Do While bExist
        If (fso.FileExists(strFileWholePath)) Then
            countFileName = countFileName + 1
            strFileName = strName & "(" & countFileName & ")." & strExt
            strFileWholePath = DirectoryPath & "\" & strFileName
        Else
            bExist = False
        End If
    Loop
    GetUniqueName = strFileWholePath
End Function




Sub Exec_fileUp(newFile,deleteFile,deleteFilesize,DirectoryPath,num)
    Set theField = newFile(num+1)
    If theField.FileExists Then           '만일 파일업을 했으면...
        strFileName = theField.SafeFileName       '파일 명
        strFileSize = theField.Length          '파일 사이즈

        '파일명을 정한다.
        strExt = Mid(strFileName, InstrRev(strFileName, ".") + 1)
        strName = Date() & Hour(time) & Minute(time) & Second(time)
        strName = Replace(strName,"-","")
        strFileName = strName & "." & strExt

        if theField.Length > 8000000 then
            Response.Write ""
            Response.end
        Else
            if Len(deleteFile) > 0 then         '삭제 화일이 있을경우..              
                delfile = DirectoryPath & "\" & deleteFile                  
                If (fso.FileExists(delfile)) Then
                    fso.DeleteFile(delfile)         '파일을 지운다..
                End if
            End if
            strFileWholePath = GetUniqueName(strFileName, DirectoryPath)  '적합한 파일인지 체크한다.
            theField.Save strFileWholePath        '파일을 저장한다.
        End if
        fileName = strFileName
        fileSize  = strFileSize
    Else
        fileName = deleteFile
        fileSize  = deleteFilesize
    End If
End Sub



'파일 업로드, 업로드 폼이 추가 되면 아래 문장만 추가하면 된다. 물론 파일명은 수정해 줘야 한다.
CALL Exec_fileUp(theForm.item("fileUpload"),"","",DirectoryPath,0)

위 CALL 문장은 파일을 업로드 하는데 사용을 하면 되고,
수정을 할 경우에는.. 아래 문장을 사용하면 된다.
사용할 경우 삭제할 파일명과 사이즈를 먼저 구한 후에 실행을 해야 한다.

<%
'파일 업로드 및 삭제
CALL Exec_fileUp(theForm.item("fileUpload"),DelfileUpLoad,DelfileSize,DirectoryPath,0)
%> 

파일을 다운로드 받을 경우, Stream 을 이용해서 다운을 받는다.
<%
'파일 이름
FileName  = Request("FileName")
    Response.ContentType = "application/unknown"    'ContentType 를 선언합니다.
    Response.AddHeader "Content-Disposition","attachment; filename=" & FileName  '헤더값이 첨부파일을 선언
    Set objStream = Server.CreateObject("ADODB.Stream")
    objStream.Open
    objStream.Type = 1
    objStream.LoadFromFile Server.MapPath("\admin\ad\UpLoad") & "\" & FileName  '절대경로
    download = objStream.Read
    Response.BinaryWrite download   '이게 보통 Response.Redirect 로 파일로 연결시켜주는 부분을 대신하여 사용된 것입니다.
    Set objstream = nothing
%>

'파일/폴더 관련 변수
Dim fso, folders, SubFolders, folderPath, files, file

'파일객체 인스턴스 생성
Set fso = Server.CreateObject("Scripting.FileSystemObject")

'경로 설정(Server.MapPath:해당폴더의 물리적 경로 반환)
folderPath = Server.MapPath(CK_FD_SM2)

'해당 폴더가 있다면
If fso.FolderExists(folderPath) Then
      '해당 폴더 객체를 가져온다.
      Set folders = fso.GetFolder(folderPath)
 
      '해당 폴더 내 다른 폴더가 있는지 검사
      Set SubFolders = folders.SubFolders    

      '해당 폴더 내 다른 폴더가 있다면..
      If SubFolders.Count <> 0 Then
            Response.Write "해당 폴더내에 있는 폴더 수: "& folders.Count &"<br>"
           '해당 폴더 내 다른 폴더가 없다면..
      Else
            Response.Write "해당 폴더내에 다른 폴더가 없습니다.<br>"
      End If

      '해당 폴더 내 파일 목록 받아오기
      Set files = folders.Files
      '해당 폴더 내 파일이 있다면...
      If files.Count <>0 then
            Response.Write "<br>해당 폴더 내에 있는 파일 수: "& files.Count & "<br>"
 
            i=1
            '해당 폴더 내 파일 목록 출력
            For Each file In files  
                  Response.Write i&". "&file.name&" ("&file.type&")<br>"
                  i=i+1
            Next

      '해당 폴더 내 파일이 없다면..
      Else
            Response.Write "해당 폴더 내 파일이 없습니다.<br>"
      End If  

 
     Set files = Nothing
    

     Set SubFolders = Nothing
     Set folders = nothing
'해당 폴더가 없다면
Else
      Response.Write "해당 폴더가 없습니다.<br>"
End If

Set fso = nothing

  <html>
<head><title>Checkdata</title></head>

<body bgcolor="#ffffff"><p>
<p>
<table border="0" cellpadding="0" cellspacing="1" width="750" bgcolor="#DDDDDD">
<tr bgcolor="#F6F6F6"><td colspan="2" height="30">
<p align="center"><font size="2" color="#006FFF"><b>Querystring으로 넘어온 것
</b></font></td></tr>

<%
For each item in Request.QueryString
for i = 1 to Request.QueryString(item).Count
%>
<tr bgcolor="#FFFFFF">
<td width= "300" height= "25"><font face= "돋움"size="2"> Request("<%=item%>")</font></td>
<td width= "450" height= "25"><font face= "돋움"size="2"> <%=Request.QueryString(item)(i)%></font>
</td></tr>
<%
next
next
%>
</table><p>

<table border="0" cellpadding="0" cellspacing="1" width="750" bgcolor="#DDDDDD">
<tr bgcolor="#F6F6F6"><td colspan="2" height="30">
<p align="center"><font size="2" face="돋움"color= "#006FFF"><b>Form으로 넘어온 것</b></font></td></tr>

<%
i=0
For each item in Request.Form
for i = 1 to Request.Form(item).Count
%>
<tr bgcolor="#FFFFFF">
<td width= "300"height= "25"><font face= "돋움"size="2"> Request.form("<%=item%>")</font></td>
<td width= "450"height= "25"><font face= "돋움"size="2"> <%=Request.form(item)(i)%></font></td>
</tr>
<%
next
next
%>
</table>
</body>
</html>

set objImage =server.CreateObject("DEXT.ImageProc")
   if true = objImage.SetSourceFile(Server.MapPath("/upload/"& Board_Table_NM& "/"& Board_Table_NM& "_Gallery") & "/" & File_NM) Then
     If objImage.ImageWidth >= objImage.ImageHeight Then
      If objImage.ImageHeight < Thumbnail_Height Then
       Thumbnail_Width = objImage.ImageWidth
       Thumbnail_Height = objImage.ImageHeight
      Else
       Thumbnail_Width = (objImage.ImageWidth*Thumbnail_Height)/objImage.ImageHeight
      End If
     Else
      If objImage.ImageWidth < Thumbnail_Width Then
       Thumbnail_Height = objImage.ImageHeight
       Thumbnail_Width = objImage.ImageWidth
      Else
       Thumbnail_Height = (objImage.ImageHeight*Thumbnail_Width)/objImage.ImageWidth
      End If
      
      If objImage.ImageHeight < Thumbnail_Height Then
       Thumbnail_Height =objImage.ImageHeight
       Thumbnail_Width = objImage.ImageWidth
      Else
       Thumbnail_Height = 130
       Thumbnail_Width = (objImage.ImageWidth*Thumbnail_Height)/objImage.ImageHeight
      End If
     End If
    ThumbnailPath = Server.MapPath("/upload/"& Board_Table_NM& "/"& Board_Table_NM& "_Gallery") & "/" & File_NM_WithoutExt  & "_Thumb.jpg"
    Thumbnail = objImage.SaveasThumbnail(ThumbnailPath, Thumbnail_Width, Thumbnail_Height, false)

   End If
   Set objImage = Nothing

서버에 허용된 하드디스크의 드라이브, 폴더, 파일에 대해 관리하는 스크립팅 객체

FSO 안에서도 Drive, Folder, File 객체가 있다.

//새로운 윈도우를 열면서 호출창의 특정 아이디를 가진 DIV안의 내용을 윈도우 내용에 포함한 후 프린트

//예) 에서는 bodyprint 안의 내용을 프린트 한다.

function BodyPrint() {
  new_window = window.open("","PrintWindow","width=700,height=600,left=10,top=10,scrollbars=yes,resizable=yes");
  //new_window.document.open();
  // 아래 부분에 새창으로 나타날 내용을 html형식에 맞게 만든다.
  
  new_window.document.write("<!DOCTYPE HTML PUBLIC '-//W3C//DTD HTML 4.01//EN' 'http://www.w3.org/TR/html4/strict.dtd'>")
  new_window.document.write("<html>");
  new_window.document.write("<meta http-equiv='Content-Type' content='text/html; charset=euc-kr'>");
  new_window.document.write("<HEAD><title>인쇄하기</title>"); 
  
  
  new_window.document.write("<link href='../css/contents.css' rel='stylesheet' type='text/css'>");
  new_window.document.write("<link href='../css/common.css' rel='stylesheet' type='text/css'>");
  new_window.document.write("<link href='../css/slayout.css' rel='stylesheet' type='text/css'>"); 
  
  new_window.document.write("</HEAD>");
  new_window.document.write("<body leftmargin=0 topmargin=0 marginwidth=0 marginheight=0 >");
  new_window.document.write(document.all.bodyprint.innerHTML);
  new_window.document.write("<script>window.print();</script>");
  new_window.document.write("</body>");
  new_window.document.write("</html>");
  // 문서를 닫는다.
  new_window.document.close();
 }