宋二姑娘择婿记:帮帮忙!Access2000数据库怎么插入图像呢?
来源:百度文库 编辑:高考问答 时间:2024/05/17 01:20:41
上传图片!
<!--#include file="conn.asp"-->
<%
dim rs
dim formsize,formdata,bncrlf,divider,datastart,dataend,mydata
formsize=request.totalbytes
if formsize> 300000 Then
%>
<script>
alert("不能超过300k。");
window.location="<%=request("HTTP_REFERER")%>";
</script>
<%
Response.end
End If
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 "imginfo",conn,3,2
rs.addnew
rs("imgdata").appendchunk mydata
rs.update
rs.close
set rs=nothing
conn.close
set conn=nothing
response.Redirect "default.asp"
%>
浏览图片!
<!--#include file="conn.asp"-->
<%
id=request("id")
set rs=server.createobject("ADODB.recordset")
sql="select * from imginfo where id=" & id
rs.open sql,conn,1,1
Response.ContentType = "image/jpeg"
Response.BinaryWrite rs("imgdata")
rs.close
set rs=nothing
conn.close
set conn=nothing
%>