abcUpload 사용정리

WINDOWS/IIS 2006/08/01 10:02
ABCUploadComponent



● 기본적인 파일 업로드 방법

폼파일은 아래 형식을 가진다.

            ...

<form method="post" action="imageupload.asp" enctype="multipart/form-data">

            <input type="file" name="image1"><br>

            <input type="file" name="image2"><br>

            <input type="submit" name="submit" value="submit">

</form>

            ...



업로드 처리 액션파일.

<% @Language="VBScript" %>

<%

            Set theForm = Server.CreateObject("ABCUpload4.XForm") '객체를 생성한다.

            theForm.Overwrite = True '복수 파일의 업로드 처리. 단일 파일 업로드라면 생략!!

            Set theField = theForm("image1")(1) 'image1은 폼의 file 타입에 주어진 name'---ⓐ

            '업로드할 파일을 theField 객체로 만든다.

            If theField.FileExists Then theField.Save theField.FileName   '    존재하면  '---ⓑ  

                              저장하라           동일이름으로...

            ' 간단하게 theForm("image1")(1).save "새 파일명" 으로 할 수도 있다.

            '두번째 파일을 업로드 함. file폼의 name="image2" 임. ⓐ~ⓑ가 반복됨.

            Set theField = theForm("image2")(1)

            If theField.FileExists Then theField.Save theField.FileName    

%>

<html>

<body>

Images uploaded...

</body>

</html>

※ 업로드 되는위치는 현재스크립트가 실행되는 위치



● 절대위치(원하는 위치에)에 파일을 업로드 하려면...

<% @Language="VBScript" %>

<html>

<body>

<%

            Set theForm = Server.CreateObject("ABCUpload4.XForm")

            theForm.AbsolutePath = True '절대위치 사용함을 설정.

            Set theField = theForm("file")(1)

            If theField.FileExists Then

                         theField.Save "C:\" & theField.SafeFileName

                         Response.Write "File uploaded..."

            Else

                         Response.Write "No file uploaded..."

            End If

%>

</body>

</html>



● form에 file 타입뿐만 아니라 다양한 타입을 가진 경우.

<% @Language="VBScript" %>

<html>

<body>

<%

            Set theForm = Server.CreateObject("ABCUpload4.XForm") '생성(동일)



            Response.Write "Your favorite color is "

            Response.Write theForm("color") & "<br>"  

            'color은 form 의 text type에 주어진 name 입니다.

            'ABCUpload컴포넌트 객체를 통해 쉽게 사용 할 수 있음.



            Response.Write "You like these types of ice cream<br>"

            For i = 1 to theForm("flavor").Count  '같은 name의 checkbox의 처리는...

                           Response.Write theForm("flavor")(i) & "<br>"

            Next



            Set theField = theForm("file")(1)

            If theField.FileExists Then

                         theField.Save "images/" & theField.FileName

                         Response.Write "File " & theField.FileName & " uploaded"

            Else

                         Response.Write "No file uploaded"

            End If

%>

</body>

</html>



● DB에 바로 넣기(당연히 필드가 정의 되어 있어야 함.)

<% @Language="VBScript" %>

<%

Set theForm = Server.CreateObject("ABCUpload4.XForm")

Set theField = theForm("filefield")(1)



If theField.FileExists and theField.ImageType <> 0 Then

            Set conn = Server.CreateObject("ADODB.Connection")

            conn.open "DSN=..;uid=..;pwd=.." '환경에 맞도록 설정.

            Set rs = Server.CreateObject("ADODB.Recordset")

            rs.Open "table명", conn, 1, 3 '옵션: adopenkeyset, adLockOptimistic

            rs.AddNew

            rs("myimage").Value = theField.Data

            rs.Update

            rs.Close

            conn.Close

End If

%>



<html>

<body>

File uploaded...

</body>

</html>



● 업로드 되는 파일의 크기를 제한하기

상위코드는 생략

            ....

theForm.MaxUploadSize = 1024 '단위는 byte 임. 파일크기를 1K로 정한 것임.


<!-- 데브피아 김종창(tochang)님 글에서 발췌 했습니다. -->
tags :
Comment 1
  1. BlogIcon Lescreema 2019/12/21 03:35 Modify/Delete Reply

    Quanto Costa Dapoxetina In Farmacia Acheter Cialis En Toute Confiance Zovirax <a href=http://cialibuy.com>cialis from canada</a> Cialis Effet Heure Can You Take Expiered Amoxicillin

Write a comment