原文參閱:http://www.hi-ho.ne.jp/babaq/eng/basp21.html#0025
DLL我BLOG載點:http://cid-aebd49eb991ddec8.skydrive.live.com/self.aspx/Develop/BASP21-20010911.exe
Example:
============== fileup.htm start =====================================
<HTML><BODY>
<FORM ACTION="fileup.asp" ENCTYPE="multipart/form-data" METHOD=POST>
Name: <INPUT TYPE=TEXT NAME="yourname"><BR>
File1: <INPUT TYPE=file NAME="file1"><BR>
File2: <INPUT TYPE=file NAME="file2"><BR>
<INPUT TYPE=SUBMIT NAME=UPLOAD>
</FORM></BODY></HTML>
============== fileup.htm end ========================================
============== fileup.asp start =====================================
<%
a=Request.TotalBytes
b=Request.BinaryRead(a)
set obj=server.createobject("basp21")
name=obj.Form(b,"yourname")
f1=obj.FormFileName(b,"file1")
f2=obj.FormFileName(b,"file2")
fsize1=obj.FormFileSize(b,"file1")
fsize2=obj.FormFileSize(b,"file2")
newf1=Mid(f1,InstrRev(f1,"\")+1)
newf2=Mid(f2,InstrRev(f2,"\")+1)
l1=obj.FormSaveAs(b,"file1","e:\temp\log\" & newf1)
l2=obj.FormSaveAs(b,"file2","e:\temp\log\" & newf2)
%>
<HTML><HEAD><TITLE>File Upload Test</TITLE>
<BODY>
<H1>Testing</H1>
<BR>
Dear <%= name %>; Your file has been uploaded<BR>
file1= <%= newf1 %><BR>
file2= <%= newf2 %><BR>
len1= <%= l1 %><BR>
len2= <%= l2 %><BR>
</BODY></HTML>
============== fileup.asp end =====================================
