菜鸟提问,巨分相送500,不够再家

隐者神归 2003-10-20 06:00:49
<SCRIPT RUNAT=SERVER LANGUAGE=VBSCRIPT>
miid=Request.QueryString("i_id")

Response.Buffer=True

ImageSize=Request.TotalBytes ' 获取提交数据量的总字节数
RESPONSE.WRITE ImageSize
ImageData=Request.BinaryRead(ImageSize) '保存从客户端读取到的数据
RESPONSE.WRITE "<BR>"
'优化读取到的二进制数据

BnCrLf=chrB(13) & chrB(10)

nnn=InstrB(1,ImageData,BnCrLf)

Divider=Leftb(ImageData,nnn-1)

Dstart=InstrB(ImageData,BnCrLf & BnCrLf)+4
RESPONSE.WRITE "DSTART=" & DSTART

RESPONSE.WRITE "<BR>"
Dend=InstrB(Dstart+1,ImageData, Divider)-Dstart

RESPONSE.WRITE "Dend=" & Dend
RESPONSE.WRITE "<BR>"
MyData=MidB(ImageData,DSTART,DEND)



Set imgConn=Server.CreateObject("ADODB.Connection")

StrConn="Provider=SQLOLEDB.1;USER ID=sa;Password=82015388;Initial Catalog=ctr_bbs;Data Source=(Local)"
imgConn.open strConn

Set Rs= Server.CreateObject("ADODB.RecordSet")



Sql="Select c_file,m_file From t_title Where i_id=" & miid
Rs.open sql,imgConn,1,3
Rs("c_file")="" 'GetFileName(Divider)
Rs.FIELDS("m_file").AppendChunk mydata

Rs.Update

'关闭和释放对象

Rs.close

ImgConn.close

Set Rs=Nothing

Set ImgConn=Nothing


</SCRIPT>


为什么数据库里的数据只有几个字节?
...全文
23 9 打赏 收藏 转发到动态 举报
写回复
用AI写文章
9 条回复
切换为时间正序
请发表友善的回复…
发表回复
隐者神归 2003-10-21
  • 打赏
  • 举报
回复
我试了,不行,不是这个原因啊
隐者神归 2003-10-21
  • 打赏
  • 举报
回复
但是很奇怪,如果直接appendchunk ImageData好象数据就可以了,为什么啊
隐者神归 2003-10-21
  • 打赏
  • 举报
回复
再多问一句,那我文中的i_id怎么才能得到呢?我是通过xxx.asp?i_id=11方式得到的
mjwgtm 2003-10-21
  • 打赏
  • 举报
回复
同意楼上的
qdubit 2003-10-20
  • 打赏
  • 举报
回复
miid=Request.QueryString("i_id")有问题,把它们去掉就可以了。
zhanghuazhanghome 2003-10-20
  • 打赏
  • 举报
回复
不知道什么地方错了,关注
avonqin 2003-10-20
  • 打赏
  • 举报
回复
哇~~~~~老兄终于有星了哦,恭喜恭喜~~~~~~
avonqin 2003-10-20
  • 打赏
  • 举报
回复
我想他的i_id是在getvalue.asp?i_id=aa里的吧,这是可以的
angelheavens 2003-10-20
  • 打赏
  • 举报
回复
去掉miid=Request.QueryString("i_id")就可以
因为你这些代码不支持图文混合上传方式

28,390

社区成员

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

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