上传保存演示
Dim upfile,i:i=0
Set upFile=loader.LoadClass("Ext/UpFile")
'upFile.IsDebug = True
upFile.NoAllowExt="asp;exe;htm;html;aspx;cs;vb;js;"
upFile.GetData(1024*200)
If upFile.isErr=0 Then '如果出错
for each formName in upFile.file '列出所有上传了的文件
set oFile=upfile.file(formname)
if oFile.fileName <> "" then
upFile.SaveToFile formname,wts.fso.GetMapPath(PATH_ROOT&PATH_PIC&PATH_PIC_IMAGES&oFile.fileName)
i=i+1
end if
set oFile=nothing
Next
end if
set upFile = nothing