partsave.asp

像数据库（SQL2000）中存取图像数据

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="conn.asp"-->
<%
p_id=request.QueryString("ID")
response.buffer=true 
formsize=request.totalbytes 
formdata=request.binaryread(formsize) 
bncrlf=chrB(13) & chrB(10)
divider=leftB(formdata,clng(instrb(formdata,bncrlf))-1)
datastart=instrb(formdata,bncrlf & bncrlf)+4
dataend=instrb(datastart+1,formdata,divider)-datastart
mydata=midb(formdata,datastart,dataend)

set rs1=server.createobject("adodb.recordset")
rs1.Open "select * from part"&p_id&"",Conn,1,3 
rs1.addnew 
rs1("pic_part").appendchunk mydata
rs1.update 
rs1.close 
set rs1=nothing
set Conn=nothing
%>