急求解/....在钱
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))就可以但这写入的内容多了附加信息
急求解??