急求解/....在钱

helimin19 2003-09-11 10:41:29
set adostream=Server.CreateObject("Adodb.Stream")
adostream.Mode=3
adostream.Type=1
adostream.Open
str1=Request.BinaryRead(Request.TotalBytes)
bncrlf=chrB(13) & chrB(10)
divider=leftB(str1,clng(instrb(str1,bncrlf))-1)
intstart=instrb(str1,changechar("filename"))
intend=instrb(intstart,str1,changechar("Content-Type"))
kk=midb(str1,intstart+10,intend-intstart-13)
strFileName=rightb(kk,len(changestr(kk))-instrrev(changestr(kk),"\"))
intstart=instrb(str1,bncrlf & bncrlf)+4
intend=instrb(intstart,str1,divider)-intstart
Response.Write(intstart)
adostream.Position=intstart-1
strmydata=midb(str1,intstart,intend)
adostream.Write(strmydata)
'Response.ContentType = "image/gif"
strFilePath="C:\" & changestr(strFileName)
adostream.SaveToFile(strFilePath)
'Response.BinaryWrite adostream.Read
adostream.Close
Set adostream=nothing
为何我用这句adostream.Position=intstart-1会出现参数错
不用这句又会出现adostream.Write(strmydata)错误(而adostream.Write(str1))就可以但这写入的内容多了附加信息
急求解??
...全文
40 6 打赏 收藏 转发到动态 举报
写回复
用AI写文章
6 条回复
切换为时间正序
请发表友善的回复…
发表回复
yangsm 2003-09-11
  • 打赏
  • 举报
回复
只有帮顶一下了,如果解决了,麻烦跟贴来一下,谢谢!
ZhouLeihot 2003-09-11
  • 打赏
  • 举报
回复
我很纳闷,ADOStream.Write真的能些二进制吗?我觉得,它要写二进制,就应改添个参数,指出二进制流的大小才行。
ZhouLeihot 2003-09-11
  • 打赏
  • 举报
回复
关注中……
我也有同样的苦恼!
helimin19 2003-09-11
  • 打赏
  • 举报
回复
一样呀
celerylhl 2003-09-11
  • 打赏
  • 举报
回复
当前使用的属性不被打开类型支持
celerylhl 2003-09-11
  • 打赏
  • 举报
回复
adostream.Mode=1

28,390

社区成员

发帖
与我相关
我的任务
社区描述
ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
社区管理员
  • ASP
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧