＋设为首页 ＋添加到收藏夹
我租用了万网的asp空间，并开通了文件上传权限，但是，万网只让使用在其服务器上注册的一个文件上传组件，并在万网的网站上提供了示范程序，但我觉得有问题，可惜万网的客服人员的水平和态度实在不敢恭维。
以下是万网的示范程序
文件上传组件Upload功能简介
本Upload组件目前只支持单文件上传，可以为任意扩展名，可以在上传后保存名字。上传文件的最大大小为1M，需要在程序中指定上传目录并由我们工程师添加权限。支持上传文件名修改和使用变量文件名。
1、 上传界面
＜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、 上传程序
<%
If Request.ServerVariables("REQUEST_METHOD") = "POST" Then
Set objUpload = Server.CreateObject("hichinafso.upload")
objupload.maxsize=256000
设定如果目标文件存在，进行覆盖，默认为1，表示不能覆盖
objupload.overwrite=2
Path = Server.MapPath("productimg")
productimg 是你的站点上的一个存储HTTP上传文件的目录
objupload.path=Path
objupload.upload
filename=objUpload.filename("FileName")
fieldvalue=objUpload.Form("fieldname") 取得fieldname表单项的值
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
objUpload.SaveAll
end if
end if
response.write "上传文件成功！<p>" & "你上传的产品名称为:<font color=#ff2323>" & fieldvalue & " </font><br>文件名为:<font color=#ff2323>" & filename & "</font>"
%>
我的疑问： 第二段程序中，将文件上传的目录 path 赋予了对象objUpload的属性 path，但是后面的程序中并没有看到将取得的文件名赋予objUpload的相关属性，试问，objUpload.saveall 存的是哪来的文件呢。
我调试的结果是没有错误显示，但是文件也无法上传。
大家都来看看啊，发表一下意见
简化代码：
<%
dim upload,file,formName,formPath,iCount
set upload=new upload_5xSoft 建立上传对象
for each formName in upload.file 列出所有上传了的文件
set file=upload.file(formName) 生成一个文件对象
if file.FileSize>0 then 如果 FileSize > 0 说明有文件数据
file.SaveAs Server.mappath("/expert/expert_photo/"&suser_id&".txt") 保存文件
end if
set file=nothing
next
set upload=nothing 删除此对象
%>
我也是做企业网站，一样的
