LASP(&)ϴ [2006-11-30]

µַǣhttp://www.zope.org/Members/Rimifon/FyUpload.sctҪ°汾ļʱ

ϴ
	һʹҪҼFyUpload.sctļ - ע
	Set Upload = Server.CreateObject("Rimifon.Upload")

ϴ
	Set Upload = GetObject("script:ַ#Upload")
	ַΪӲ̾·ҲΪhttp·(IIS 5.0)

򵥲Դ룺
/-*- Upload.html -*-/
<form method=post action=Upload.asp enctype=multipart/form-data>
<input name=MyFile type=file>
<input type=submit></form>

/-*- Upload.asp -*-/
<%Set Upload = Server.CreateObject("Rimifon.Upload")
Upload.ReadForm 204800	' ûСWindows 2003Ĭϲ204800ϴʧܡ
Upload.SaveFile		' ļǰĿ¼豣浽UploadĿ¼£ʹSaveFile "Upload"
Upload.Dispose		' ͷڴ
Set Upload = Nothing%>

ϸԺͷ
Upload.Charset	' ҳΪutf-8ʱøֵΪ"UTF-8"ĬΪ"gb2312"
Upload.Filter	' ϴļͣĬΪrar|zip|txt|gif|jpg|bmp|htm|html|swf|mhtΪκθʽļϴ
Upload.MaxSize	' õļϴСBytes粻Ϊ0ĬΪ0
Upload.Field	' ͻύıԪأ
			ıԪأUpload.Field.test.Value	' Ԫ"test"ֵ
			ļԪأ
				Upload.Field.MyFile.FilePath	' ļڿͻ˵λ
				Upload.Field.MyFile.SourceName	' ļԴļ
				Upload.Field.MyFile.FileName	' ļڷļ
				Upload.Field.MyFile.FileSize	' ļС
				Upload.Field.MyFile.FileType	' ļMime
				Upload.Field.MyFile.SavePath	' ȡøļλõľ·
				Upload.Field.MyFile.Message	' ܾļʱصϢ
				Upload.Field.MyFile.Value	' ļݣunicodeַ
				ݿʱֱʹrs("FileData").AppendChunk Upload.Field.MyFile.Valueķʽ
Upload.Form("test")	' رԪ"test"ֵUpload.Field.test.Valueļ򻯶ȡʽ"test"Ԫʱؿֵ
Upload.ReadForm FormSize, ProgID
			ȡFormSizeΪСĬΪ0Ƽ204800£ɽ2003²ϴļ⣩
			ṩ2(ProgID)ΪϴṩݣApplicationҪϴʱõ
				ļСApplication(ProgID + "_TotalBytes")
				ϴApplication(ProgID + "_ReadBytes")
				ͳϺ󣬽Application.Contents.Remove(ProgID + "_TotalBytes")
Upload.SaveFile SavePath
			ļǰĿ¼SavePathĿ¼ڣ£ĬΪǰĿ¼
Upload.Dispose		ͷڴ

룺
	Test_00.asp	vbs(asp) üʾ
	Test_01.asp	ָλò