If Request.ServerVariables("REQUEST_METHOD") = "POST" Then

VirPath="productimg"
RealPath=Server.MapPath(VirPath) & "\"
 Set objupload=Server.CreateObject("hichinafso.Upload")
objupload.Maxsize=1000000  '设定最大上传值
if objupload.Maxsize>100000 then
        response.write "图片大小超过了限制　[ 重新上传 ]"
        response.end
    end if  
objupload.Path=RealPath  '设定上传的目录
objupload.Upload    '调用UPload方法,获取表单中提交的所有数据  
      

 
'productimg　是你的站点上的一个存储HTTP上传文件的目录
 
    

 
  
    filevalue=objUpload.Form("FileName")
'get 文件名
filename=objUpload.filename("FileName")
             
fieldvalue=objUpload.Form("fieldname") '取得fieldname表单项的值

'response.write filename
'response.end

if trim(filename)="" then
filename="no_pro_img.gif"
'指向一个“无产品”的图片
else
extendname=right(filename,3) 
if extendname="jpg" or extendname="gif" then
abcd=1
else
response.write "错误!请输入图片的扩展名gif或jpg"
response.end
end if
varfilename=FileName
objUpload.Save "FileName",2,varfilename
'  这里使用单独保存的方法：
'  "FileName"　是HTML的表单上传FILE名称，本例就是
'  2代表覆盖，如果在SAVE之前，先调用文件组件判断此目录下是否有同名文件则不会出现覆盖'  现象，或者保证新文件名为唯一标识
'  "aaFAN.gif"　是我们上传后修改的文件名。

'objUpload.SaveAll
end if

end if
response.write "上传文件成功！