====파일을 DB 에 저장하는 방법(MS-SQL 또는 Access DB)====
<%
set upload = Server.CreateObject("업로드컴포넌트")
upload.Save = "c:\upload" '파일을 업로드 컴포넌트를 이용해 저장함
On error resume next
set file = upload.Files("파일찾기 인풋박스의 이름")
sql = "insert into imsitable(idv, path, bindata) " &_
"values ('고유아이디', '"& file.path &"', ',?) "
file.ToDatabase "dsn=접속아이피;UID=접속아이디;PWD=접속비밀번호;", sql
if err <> 0 then
response.write "파일 저장 오류: " & err.Description
else
file.Delete '파일을 DB 에 저장하였으므로, 물리적인 파일은 삭제함
response.write "파일 저장 성공 "
end if
set file = nothing
%>
====DB 에 저장된 파일을 다운로드 하는 방법====
<%
set db = Server.CreateObject("ADODB.Connection")
db.open = "DSN=접속아이피;UID=접속아이디;PWD=접속비밀번호;"
sql = "select * from imsitable where idv = '고유아이디' "
set rs=db.execute(sql)
response.ContentType = "image/gif"
'만약, 바로 다운로드 시키려면 response.ContentType = "application/octet-stream" 으로 지정
response.BinaryWrite rs("bindata") 'DB 에 바이너리로 저장되어 있으므로, 읽을때 바이너리로 읽는다.
%>
====서버상의 물리적 위치의 파일을 DB 에 쓰고,읽기====
<%
set upload = Server.CreateObject("업로드컴포넌트")
on error resume next
sql = "insert imsitable(idv,path,bindata) values ('고유아이디', 'c:/upload/up.gif',?) "
upload.ToDatabaseEx "c:/upload/third.gif", "dsn=접속아이피;UID=접속아이디;PWD=접속비밀번호;", sql
if err <> 0 then
response.write "파일 저장 오류 : " & err.Description
else
response.write "파일 저장 성공"
end if
sql = "select * from imsitable where idv = '고유아이디' "
upload.FromDatabase "dsn=접속아이피;UID=접속아이디;PWD=접속비밀번호;", sql, "c:/upload/down.gif"
if err <> 0 then
response.write "파일 읽기 오류 : " & err.Description
else
response.write "파일 읽기 성공"
end if
%>
