사이트겔럭시(공개), DextUpload(유료) 컴포넌트 사용법(ASP)

기타정보

by 김일국 2010. 9. 2. 12:58

[write.htm] 파일

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML>
<HEAD>
<TITLE> New Document </TITLE>
<META http-ｅquiv="Content-Type" content="text/html; charset=ks_c_5601-1987">
</HEAD>
<BODY>
<Form Name="form1" Method="post" Action="write_ok.asp" Enctype="multipart/form-data">
<Input Type="File" Name="File1">
<Input Type="Submit" Value="업로드">

</Form>
</BODY>
</HTML>

---------------------------------------------------------------------------------------------

[write_ok.asp] 파일 ( 주의, 사이트겔럭시는 업로드 최고 용량이 50M 입니다. )

<%

'//////////////// DEXT 업로드를 이용한 업로드 ///////////////////
'DEXT.FileUpload 개체 생성
'www\upload\dext 폴더는 고객님이 임의 생성 후 저희측에 쓰기/수정 권한을 요청하셔야합니다.
'www.host114.co.kr-> 고객지원 -> 서비스 -> A/S및 요청사항 ->쓰기 권한 요청.
'Set uploadform = Server.CreateObject("DEXT.FileUpload")
'uploadform.DefaultPath = "c:\home\ftpid\upload\dext"
'uploadform("File1").Save

'//////////////// SiteGalaxy를 이용한업로드 ///////////////////
'SiteGalaxyUpload 개체 생성
Set uploadform = Server.CreateObject("SiteGalaxyUpload.Form")
DefaultPath = "c:\del"
tmp_filename = uploadform("File1").FilePath
FileName = Mid(tmp_filename, InstrRev(tmp_filename, "\") + 1)

uploadform("File1").SaveAs DefaultPath & "\" & FileName

If Err then
Response.Write Err.number & "<br>" & Err.source & "<br>" & Err.description
Set uploadform = Nothing
Response.End
End if

Set uploadform = Nothing

%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML>
<HEAD>
<TITLE> New Document </TITLE>
<META http-ｅquiv="Content-Type" content="text/html; charset=ks_c_5601-1987">
</HEAD>

<BODY>
<TABLE>
<TR>
<td colspan="2" align="center"><b>Upload successfully!!</b></TD>
</TR>
</TABLE>
</BODY>
</HTML>

'기타정보' 카테고리의 다른 글

윈도 xp에서 폴더 공유시 해당 컴퓨터로 접근할 수 없을때 (0)	2010.12.28
실명인증 에러코드별 내용 (0)	2010.11.19
php 상대경로와 절대경로 확인하기 (0)	2010.10.27
html에서 asp코드 사용하기 (0)	2010.09.15
인터넷 창 로그인정보 연동하지 않게 하기 (0)	2010.08.05