关于化境无组件上传的两个问题，恳请各位网友帮忙。。。

[apple749769]

在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 里面的两个类把它做成组件的，那应该怎么修改呢？

烦请知道的网友能帮我一把，我在此对你表示感谢！

[xxrl]

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

[online]

1.使用server.mappath(".")
2.那段代码vb中不能直接使用

[Jacklyluo]

同意孔的说法

[wanliang2001]

我刚用了化境无组件上传，很好用的，不需要什么组件的烦恼！我想是你的地址写错了吧！
我的所有网页文件是在\wwwroot\selas下的，在selas下还有一个文件夹叫upfile,我上传时给的路径就直接是upfile/,这样就OK拉，好简单的，不要想着用组件，那太麻烦！！

[qiao198]

还可以不错呀

[nchen123]

asp 的代码如果移植为 vb 的 com 组件， 需要明确指定一下数据类型， 比如 string 或者 integer ， 如果不指定虽然也可能编译通过， 但是效率会很低。

[sfply]

呵呵，首先必须用相对路径，你出错说明你的相对路径出了问题
VB编译现成的上传类是不可能的，因为根本就是不同的语言写出来的东西怎么可能直接混用呢？

[apple749769]

楼上的兄弟啊，用vb是可以编译的哦。

[stefyaya]

最好不要动upload_5xsoft.inc 这个文件，关键是把提交路径写对就可以了，相对路径。

[yes7654321]

今天刚试用,同样的问题,改一下就过了

[flying310]

有两个问题要注意,1文件路径问题.2文件类型问题.
有个例子:http://flying310.swgy.com/uplaod.asp
代码下载:http://flying310.swgy.com/up.rar

[zjh13226]

同意楼上的，下载个实例，套进去

[possible_Y]

SaveToFile方法需要绝对路径，但是server.mappth的参数应该为一个相对路径，它会返回一个绝对路径

“当写入一个绝对服务器的地址（比如说：f:\wwwroot\temp)时”server.mappth会报错

“当输入一个相对的路径时（比如说，我就输入：1），它也报错”是你的这个路径不存在所以文件写入失败，或者没有1目录下的ntfs写入权限

[jianghuxiaozi]

顶一下

[MonkeyDHua]

upload_5xsoft.inc 里面指定文件上传路径后要先建立那个文件夹，不然会报错，楼主的第一种错误有可能吧..............

[Accelerator]

这是我上传图片代码片断，供你参考。
表单页：
....
<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

...
%>

[loveweb]

http://expert.csdn.net/Expert/topic/2937/2937900.xml?temp=.2862818

[apple749769]

感谢大家的参与，的确，尤其需要注意的是上传文件的路径应该是在上传之前就创建好。
今天一调试，就是这样的啦。
揭贴