<%
dim id
id=request.QueryString("id")
%>
文件上传
<%
if request.QueryString("act")="upload" then
Dim Upload,path,tempCls,fName
if request.QueryString("id")=1 then
abc=("mj_admin_photo")
elseif request.QueryString("id")=2 then
abc=("mj_admin_smallphoto")
elseif request.QueryString("id")=3 then
abc=("mj_admin_smallphotowz")
elseif request.QueryString("id")=4 then
abc=("mj_uploadfile")
end if
'===============================================================================
set Upload=new AnUpLoad '创建类实例
Upload.SingleSize=1024*1024*1024 '设置单个文件最大上传限制,按字节计；默认为不限制
Upload.MaxSize=1024*1024*1024 '设置最大上传限制,按字节计；默认为不限制
Upload.Exe="jpg|jpeg|gif|png|zip|rar|7z|pdf|doc" '设置合法扩展名,以|分割,忽略大小写
Upload.Charset="gb2312" '设置文本编码，默认为gb2312
Upload.openProcesser=false '禁止进度条功能，如果启用，需配合客户端程序
Upload.GetData() '获取并保存数据,必须调用本方法
'===============================================================================
if Upload.ErrorID>0 then '判断错误号,如果myupload.Err<=0表示正常
response.write Upload.Description '如果出现错误,获取错误描述
else
if Upload.files(-1).count>0 then '这里判断你是否选择了文件
path=server.mappath("../uploadfile") '文件保存路径(这里是files文件夹)
'保存文件(以新文件名保存)
set tempCls=Upload.files("file1")
tempCls.SaveToFile path,0
fName=tempCls.FileName
set tempCls=nothing
else
response.Write "您没有上传任何文件！"
end if
end if
set Upload=nothing '销毁类实例
%>
<%
else
%>
<%
end if
%>