本Upload组件目前只支持单文件上传，可以为任意扩展名，可以在上传后保存名字。上传文件的最大大小为2M。支持上传文件名修改和使用变量文件名。
1、 上传界面testup.htm
<!-- saved from url=(0022)http://internet.e-mail -->
<form name="frmUpload" Method="Post" Enctype="multipart/form-data" action="testup.asp" >
产品名称： <input type="text" name="fieldname">
<p>
上传产品图片 (只能上传gif,jpg文件) <input type="file" name="FileName">
<p>
<table>
<td align="right">
<input type="submit" name="B1" value=" 提交 " size="20" class=input>
</td>
<td width="20"> </td>
<td align="left">
<input type="reset" name="B2" value=" 重填 " size="20" class=input>
</td></tr>
</table>
2、 上传程序testup.asp
<%
If Request.ServerVariables("REQUEST_METHOD") = "POST" Then
VirPath="productimg" 'productimg 是你的站点上的一个存储HTTP上传文件的目录
RealPath=Server.MapPath(VirPath) & "\"
Set objupload=Server.CreateObject("hichinafso.Upload")
objupload.Maxsize=1000000 '设定最大上传值
objupload.Path=RealPath '设定上传的目录
objupload.Upload '调用UPload方法,获取表单中提交的所有数据
filevalue=objUpload.Form("FileName") '获取文件名
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 "上传文件成功！<p>" & "你上传的产品名称为:<font color=#ff2323>" & fieldvalue & " </font><br>文件名为:<font color=#ff2323>" & filename & "</font>"
%>
另,多文件上传请参考"在ASP.NET中实现多文件上传"/service/faq/ShowArticle.asp?ArticleID=14752、 上传程序testup.asp
<%
If Request.ServerVariables("REQUEST_METHOD") = "POST" Then
VirPath="productimg" 'productimg 是你的站点上的一个存储HTTP上传文件的目录
RealPath=Server.MapPath(VirPath) & "\"
Set objupload=Server.CreateObject("hichinafso.Upload")
objupload.Maxsize=1000000 '设定最大上传值
objupload.Path=RealPath '设定上传的目录
objupload.Upload '调用UPload方法,获取表单中提交的所有数据
filevalue=objUpload.Form("FileName") '获取文件名
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 "上传文件成功！
" & "你上传的产品名称为:" & fieldvalue & "
文件名为:" & filename & ""
%>
另,多文件上传请参考"在ASP.NET中实现多文件上传"/service/faq/ShowArticle.asp?ArticleID=1475
更新时间：2013-08-04
