2.8w+
社区成员
- 主页
关于化境无组件上传的两个问题，恳请各位网友帮忙。。。
在http://www.5xsoft.com/ 里，我也和大家下了一个。
但是，在调试的过程当中遇到了两个问题：
1、“上传到”后面到底应该写绝对地址还是相对地址？
当写入一个绝对服务器的地址（比如说：f:\wwwroot\temp)时，它就报错：
“ MapPath 方法的路径参数必须是一个虚拟路径。使用了一个实际的路径。 ”
当输入一个相对的路径时（比如说，我就输入：1），它也报错：
ADODB.Stream 错误 '800a0bbc'
写入文件失败。
/example/upload_5xsoft.inc，行161 （这一行就是写入文件的那行：
dr.SaveToFile FullPath,2
有那位网友曾经调试过这个程序的，麻烦你帮我解答回复一下，好吗？非常感谢！
2、我就想，既然，用网页上传不行，我又花了一个小时安装vb，学会怎么做个最简单的dll组；再然后，就把 upload_5xsoft.inc 这个文件里的内容copy到vb里去，但是，在调试的过程中，又说，Class upload_5xsoft 为无效的外部过程？......（对vb，我实在知道不多，难道是定义类的格式上出问题了？）
如果想把upload_5xsoft.inc 里面的两个类把它做成组件的，那应该怎么修改呢？
烦请知道的网友能帮我一把，我在此对你表示感谢！
但是，在调试的过程当中遇到了两个问题：
1、“上传到”后面到底应该写绝对地址还是相对地址？
当写入一个绝对服务器的地址（比如说：f:\wwwroot\temp)时，它就报错：
“ MapPath 方法的路径参数必须是一个虚拟路径。使用了一个实际的路径。 ”
当输入一个相对的路径时（比如说，我就输入：1），它也报错：
ADODB.Stream 错误 '800a0bbc'
写入文件失败。
/example/upload_5xsoft.inc，行161 （这一行就是写入文件的那行：
dr.SaveToFile FullPath,2
有那位网友曾经调试过这个程序的，麻烦你帮我解答回复一下，好吗？非常感谢！
2、我就想，既然，用网页上传不行，我又花了一个小时安装vb，学会怎么做个最简单的dll组；再然后，就把 upload_5xsoft.inc 这个文件里的内容copy到vb里去，但是，在调试的过程中，又说，Class upload_5xsoft 为无效的外部过程？......（对vb，我实在知道不多，难道是定义类的格式上出问题了？）
如果想把upload_5xsoft.inc 里面的两个类把它做成组件的，那应该怎么修改呢？
烦请知道的网友能帮我一把，我在此对你表示感谢！
...全文
请发表友善的回复…
发表回复
apple749769 2004-04-09
感谢大家的参与，的确，尤其需要注意的是上传文件的路径应该是在上传之前就创建好。
今天一调试，就是这样的啦。
揭贴
今天一调试，就是这样的啦。
揭贴
loveweb 2004-04-08
http://expert.csdn.net/Expert/topic/2937/2937900.xml?temp=.2862818
Accelerator 2004-04-08
这是我上传图片代码片断，供你参考。
表单页：
....
<form ...>
...
编号：<input type='text' name='编号'>
图片文件： <input type="file" name="filename" >
...
</form>
上传页：
<%
'上传文件
Set upfile=upload.file("filename")
If upfile.FileSize>0 then ''如果 FileSize > 0 说明有文件数据
upfile.SaveAs Server.mappath("../bookimages/" & upload.form("编号") & Right(upfile.FileName,4)) ''保存文件
End If
...
%>
表单页：
....
<form ...>
...
编号：<input type='text' name='编号'>
图片文件： <input type="file" name="filename" >
...
</form>
上传页：
<%
'上传文件
Set upfile=upload.file("filename")
If upfile.FileSize>0 then ''如果 FileSize > 0 说明有文件数据
upfile.SaveAs Server.mappath("../bookimages/" & upload.form("编号") & Right(upfile.FileName,4)) ''保存文件
End If
...
%>
MonkeyDHua 2004-04-08
upload_5xsoft.inc 里面指定文件上传路径后要先建立那个文件夹，不然会报错，楼主的第一种错误有可能吧..............
jianghuxiaozi 2004-04-08
顶一下
possible_Y 2004-04-08
SaveToFile方法需要绝对路径，但是server.mappth的参数应该为一个相对路径，它会返回一个绝对路径
“当写入一个绝对服务器的地址（比如说：f:\wwwroot\temp)时”server.mappth会报错
“当输入一个相对的路径时（比如说，我就输入：1），它也报错”是你的这个路径不存在所以文件写入失败，或者没有1目录下的ntfs写入权限
“当写入一个绝对服务器的地址（比如说：f:\wwwroot\temp)时”server.mappth会报错
“当输入一个相对的路径时（比如说，我就输入：1），它也报错”是你的这个路径不存在所以文件写入失败，或者没有1目录下的ntfs写入权限
zjh13226 2004-04-08
同意楼上的，下载个实例，套进去
flying310 2004-04-08
有两个问题要注意,1文件路径问题.2文件类型问题.
有个例子:http://flying310.swgy.com/uplaod.asp
代码下载:http://flying310.swgy.com/up.rar
有个例子:http://flying310.swgy.com/uplaod.asp
代码下载:http://flying310.swgy.com/up.rar
yes7654321 2004-04-07
今天刚试用,同样的问题,改一下就过了
stefyaya 2004-04-07
最好不要动upload_5xsoft.inc 这个文件，关键是把提交路径写对就可以了，相对路径。
apple749769 2004-04-07
楼上的兄弟啊，用vb是可以编译的哦。
sfply 2004-04-07
呵呵，首先必须用相对路径，你出错说明你的相对路径出了问题
VB编译现成的上传类是不可能的，因为根本就是不同的语言写出来的东西怎么可能直接混用呢？
VB编译现成的上传类是不可能的，因为根本就是不同的语言写出来的东西怎么可能直接混用呢？
nchen123 2004-04-07
asp 的代码如果移植为 vb 的 com 组件， 需要明确指定一下数据类型， 比如 string 或者 integer ， 如果不指定虽然也可能编译通过， 但是效率会很低。
qiao198 2004-04-07
还可以不错呀
wanliang2001 2004-04-07
我刚用了化境无组件上传，很好用的，不需要什么组件的烦恼！我想是你的地址写错了吧！
我的所有网页文件是在\wwwroot\selas下的，在selas下还有一个文件夹叫upfile,我上传时给的路径就直接是upfile/,这样就OK拉，好简单的，不要想着用组件，那太麻烦！！
我的所有网页文件是在\wwwroot\selas下的，在selas下还有一个文件夹叫upfile,我上传时给的路径就直接是upfile/,这样就OK拉，好简单的，不要想着用组件，那太麻烦！！
Jacklyluo 2004-04-07
同意孔的说法
online 2004-04-07
1.使用server.mappath(".")
2.那段代码vb中不能直接使用
2.那段代码vb中不能直接使用
xxrl 2004-04-07
set file=upload.file("jpg") '上传图片
if file.FileSize>0 then ''如果 FileSize > 0 说明有文件数据
bfilename=file.FileName
file.SaveAs Server.mappath("/comimg/"&id&".jpg") ''保存文件
end if
上面从我程序中择出来的，嘿嘿
vb里面没有调试过，我不玩vb
if file.FileSize>0 then ''如果 FileSize > 0 说明有文件数据
bfilename=file.FileName
file.SaveAs Server.mappath("/comimg/"&id&".jpg") ''保存文件
end if
上面从我程序中择出来的，嘿嘿
vb里面没有调试过，我不玩vb