菜鸟提问,巨分相送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>
为什么数据库里的数据只有几个字节?