save.asp

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

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="conn.asp"-->
<%
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 rs=server.createobject("adodb.recordset")
rs.Open "select * from img",Conn,1,3 
rs.addnew 
rs("img").appendchunk mydata
rs.update 
p_id=trim(rs("ID"))
CreateTable="create table part"&p_id&"(part_id int identity primary key(part_id),pic_part image)"
conn.Execute(CreateTable)
rs.close 
set rs=nothing
set Conn=nothing
%>