28,406
社区成员
发帖
与我相关
我的任务
分享fso上传文件，上传上去的文件和原来的大小不一样？咋回事啊？(在线等啊，达人们！）
ASP中 fso上传文件，上传上去的文件和原来的大小不一样？咋回事啊？
大家遇到过冒
有解决的办法吗？
大家遇到过冒
有解决的办法吗？
...全文
请发表友善的回复…
发表回复
kgbt 2005-12-21
- 打赏
- 举报
伙计以前也遇过这个问题，不过是在改名字时候遇到的，最后用了adodb.stream解决的，基本思路是打开两个adodb.stream对象，一个是读取数据，一个是写入数据，我见以前的“无惧无组件上传类”也是这样写的，顺便说一下，这个adodb.stream 类很好用，如果不考虑安全性的话三两行代码就可以实现文件的上传递，不过要求服务器的ado版本为2.5以上
'获得文件名
path=server.MapPath("*.jpg")
path=replace(path,"\*.jpg","")
'打开文件
path=path&"\all_photo\"&oldname
set dr=CreateObject("Adodb.Stream")
dr.Type = 1
dr.Mode = 3
dr.Open
dr.LoadFromFile path
'获得目标文件名称
filename=server.MapPath("*.jpg")
filename=replace(filename,"\*.jpg","")
filename=filename&"\new\"&newname
'写入新的文件并且关闭一切对象
dr.SaveToFile filename,2
dr.close
set dr=nothing
'获得文件名
path=server.MapPath("*.jpg")
path=replace(path,"\*.jpg","")
'打开文件
path=path&"\all_photo\"&oldname
set dr=CreateObject("Adodb.Stream")
dr.Type = 1
dr.Mode = 3
dr.Open
dr.LoadFromFile path
'获得目标文件名称
filename=server.MapPath("*.jpg")
filename=replace(filename,"\*.jpg","")
filename=filename&"\new\"&newname
'写入新的文件并且关闭一切对象
dr.SaveToFile filename,2
dr.close
set dr=nothing
zlp8383178 2005-12-21
- 打赏
- 举报
再就是，传文本根式的文件是正常的，比如js，asp，aspx等
只要是传图片，视频，flash就出现上面的问题！
只要是传图片，视频，flash就出现上面的问题！
zlp8383178 2005-12-21
- 打赏
- 举报
并且图片也显示不了么，哎，在网上也搜索了很久，没得到信息啊，是不是我一个人遇到了哦，难道是圣诞老人提前给我的礼物么？郁闷！
zlp8383178 2005-12-21
- 打赏
- 举报
是真的啊，我本地的图片文件是110K，但是传上去之后是 104.4K啊，所以就蛮奇怪么？
喜受写代码的小强 2005-12-21
- 打赏
- 举报
我用的都是无组件上传，没有问题啊
银狐被占用 2005-12-21
- 打赏
- 举报
大小变了？
这个不太可能。
看看你文件是不是太大了。
这个不太可能。
看看你文件是不是太大了。
zlp8383178 2005-12-21
- 打赏
- 举报
在顶一个！
在线等啊，达人们，进来看看啊！
在线等啊，达人们，进来看看啊！
zlp8383178 2005-12-21
- 打赏
- 举报
自己顶一个，别让它沉了！
