图片打印的话就不能用无组建上传了.给你个图片写入sql库的例子.
<%
dim cn
dim rs
dim imageid
dim FormSize
dim FormData
dim Image
dim tmid
tmid=Request.item("tmid")
set rs=server.CreateObject("adodb.recordset")
set cn=Server.CreateObject("ADODB.Connection")
cn.Open "bawei", "sa","itdn1234"
FormSize = Request.TotalBytes
FormData = Request.BinaryRead(FormSize)
Image=ImageUp (FormSize,Formdata)
rs.Open "pic",cn,3,3
rs.AddNew
rs("image") = NULL
rs("image").appendchunk Image
rs.Update
imageid=rs("imageid")
rs.Close
set rs=nothing
cn.close
set cn=nothing
dim vresponse
dim timuobj
set timuobj = Server.CreateObject ( "bwtimu.timu" )
'Response.Write ("请继续录入!")
Response.End
set vresponse=timuobj.updateimage(Request.item("tmid"),iamgeid)
end if
function ImageUp(formsize,formdata)
dim bncrlf
dim divider
dim datastart
dim dataend
bncrlf=chrb(13) & chrb(10)
divider=leftb(formdata,instrb(formdata,bncrlf)-1)
datastart=instrb(formdata,bncrlf&bncrlf)+4
dataend=instrb(datastart+1,formdata,divider)-datastart
imageup=midb(formdata,datastart,dataend)
end function
%>