上傳|無組件 化境ASP無組件上傳類 - upload_5xsoft 使用手冊 1.0
稻香老農 http://www.5xsoft.com/ [ 下載 ]
目 錄
1.關於 upload_5xsoft
2.運行平台與注意事項
2.類的成員與對象
3.使用樣本
關於 upload_5xsoft
一直以來,由於FileSystemObject的局限,所以ASP最大的難題就是檔案上傳,大多解決法就是安裝
第三方上傳組件。可第三方組件有很多問題,有的組件要註冊,有的組件要在表單中加上他的著作權資訊。
還有的就是組件的相容問題。
在網上也流傳了很多無組件上傳的代碼,但都是只能上傳文字檔，或是只能將檔案上傳到資料庫中。
我這段時間在研究ASP,發現可以不用第三方組件上傳任意類型的檔案。就寫了這個類,給大家一
個方便,整個類放在一個檔案中: upload_5xsoft.inc 在 Example 目錄下還有一個完整的多檔案上傳示
常式序,可以直接使用。
申明:原始碼是完全開放的,可能隨意傳播,但請保留其完整性,未經作者同意,不得用於商業。
運行平台與注意事項
a)只能運行於 Windows2000+IIS 5,不支援 NT4+IIS4 或是 Win98+PWS, 只要在ASP中加上:
<!--#include FILE="upload_5xsoft.inc"--> 就行了
b) 在使用檔案上傳時, 表單 form 要加上 enctype="multipart/form-data" 即:
<form name="form1" method="post" action="" enctype="multipart/form-data">
<input type="text" value="abc" name="text1">
<input type=file name="file">
<input type=submit name="submit" value="提交">
</form>
upload_5xsoft的對象
如定義一個上傳對象
<!--#include FILE="upload_5xsoft.inc"-->
<%
set upload=new upload_5xsoft 'upload就是一個對象
%>
upload_5xsoft 對象成員
file 檔案對象集,(是個dictionary對象)
檔案對象成員:
Count 屬性,檔案表單的個數
FileName 屬性,上傳檔案的名字
FileSize 屬性,上傳檔案的大小(為0是表示沒有檔案)
FilePath 屬性,上傳前檔案所在的路徑
FormName 屬性,檔案表單的名字
SaveAs 方法,儲存上傳後檔案,有一個參數,路徑要為真實路徑如:
例子: set file=upload.file("file1") 'file1為表單名
response.write "<br>檔案名稱:"&file.FileName
response.write "<br>檔案大小:"&file.FileSize
response.write "<br>檔案路徑:"&file.FilePath
file.saveAs Server.mappath("/1.jpg")
set file=nothing
form 表單資料集,(是個dictionary對象)用來代替 Request.Form
count 屬性,表單數
exists 方法,檢查是否有指定的表單名
更多的用法可看 vbscript 的dictionary對象協助
例子:
'得到text1表單的資料,uplaod就是一開始建立的對象
sText=upload.form("text1")
Version 屬性,upload_5xsoft類的版本號碼,如:
response.write upload.Version
使用樣本
1.上傳一個jpg檔案的樣本:
檔案1: upload.htm
<html><title>example</title>
<body>
<form name="form1" method="post" action="upload.asp" enctype="multipart/form-data">
<input type=file name="file1">
<input type=submit name="submit" value="提交">
</form>
</body>
</html>
檔案2: upload.asp
<html><title>example</title>
<body>
<!--#include FILE="upload_5xsoft.inc"-->
<%
set upload=new upload_5xsoft
set file=upload.file("file1")
if file.fileSize>0 then
file.saveAs Server.mappath("temp.jpg")
response.write "<br>上傳檔案:"&file.FileName&" => temp.jpg OK!"
response.write "<br>檔案大小:"&file.FileSize
set file=nothing
end if
set upload=nothing
%></body>
</html>
2.列表出有檔案表單(多檔案上傳)
<html><title>example</title>
<body>
<!--#include FILE="upload_5xsoft.inc"-->
<%
set upload=new upload_5xsoft
for each formName in upload.file
set file=upload.file(formName)
if file.FileSize>0 then
file.SaveAs Server.mappath(file.FileName)
response.write file.FilePath&file.FileName&" ("&file.FileSize&") => "
response.write file.FileName&" 成功!<br>"
end if
set file=nothing
next
set upload=nothing
%>
你還可能直接使用作者寫好了的上傳程式在example目錄中
立即下載
若程式有問題,請寫作者聯絡 getc@163.com
稻香老農 2001年 4月19日
