主页

保存图片?

dongoyang 2004-04-14 02:21:32

怎样以二进制保存图片（access数据库），再取出显示在页面上？

...全文

9 条回复

切换为时间正序

请发表友善的回复…

发表回复

suibingchunmeng 2004-04-14

<%@ Language=VBScript %>
<%
’************************************************************************
' ' 本模块的名称： UpImage.asp
' 功能概要描述：将图片处理成二进制录入数据库
'*********************************************************************************

<%

FormSize = Request.TotalBytes

FormData = Request.BinaryRead( FormSize )

function ImageUp(formsize,formdata)

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
Image=ImageUp (FormSize,Formdata)
Set Conn=Server.CreateObject("ADODB.Connection")
conn.Open"driver={Microsoft Access Driver (*.mdb)};dbq=" +Server.MapPath("Database/Data.asp")
Set rs=Server.CreateObject("ADODB.Recordset")
rs.open "SELECT top 1 * FROM Article ORDER BY id DESC",Conn,1,3
if not rs.eof then
rs("AImage").appendchunk Image
rs.update
end if
rs.close
set rs=nothing
Conn.close
set Conn=nothing
%>
<script language=vbscript>
window.close()
</script>

回复赞