<!--#include file="Upload_class.asp"-->
<form name="upload" method="post" action="?act=upload" enctype="multipart/form-data">
请选择一个文件:<br />
文件:<input class="iFile" id="file1" type="file" name="file1" size="40" /> <input class="iButton" type="submit" value="开始上传" />
</form>
<%
if request.querystring("act")="upload"  then
Dim bdata,myupload,form,file,tempCls,totalSize
totalSize=request.totalbytes
bdata=request.binaryread(totalSize)
'==================================================================================
set myupload=new UpLoad                     '创建类实例
myupload.Path=server.mappath("files")       '设置上传路径(必须)
myupload.MaxSize=1*1024*1024                '设置最大上传限制,按字节计；默认为不限制
myupload.Exe="rar|jpg|gif|bmp"              '设置合法扩展名,以|分割,忽略大小写
myupload.GetData(bdata)                     '获取并保存数据
'==================================================================================

if myupload.Err<=0 then
    path=server.mappath("files")
    set tempCls=myupload.files("file1")
    tempCls.SaveToFile path,0 '以时间+随机数字为文件名保存
    response.write tempCls.FileName&"上传完毕,大小为"&myupload.getsize(tempCls.Size)&",本地路径"&myupload.forms("file1")
    set tempCls=nothing
else
    response.write myupload.Description
end if

set myupload=nothing '销毁类实例
end if
%>