asp上传图片到数据库
本文说的不是上传图片到网络路径（文件夹），而是以二进制代码放到数据库中，然后通过读取数据库来输出图片。
www.forasp.cn整理，来源书籍：asp疑难解答转载请保留。
开门见山，直接上代码，如果你懂asp看过之后你就会明白asp上传图片到数据库是怎么运行的。
上传文件代码：文件名: upload.asp
<html>
<body>
<center>
<form name="mainForm" enctype="multipart/form-data" action="process.asp" method=post>
<input type=file name=mefile><br>
<input type=submit name=ok value="OK">
</form>
</center>
</body>
</html>
存入图片代码'文件名: process.asp,在这里建立一个images.mdb的access数据库，并有一个img字段。
<%
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 connGraph=server.CreateObject("ADODB.connection")
connGraph.ConnectionString="driver={Microsoft Access Driver (*.mdb)};DBQ=" & server.MapPath("images.mdb")
connGraph.Open'forasp.cn
set rec=server.createobject("ADODB.recordset")
rec.Open "SELECT * FROM [images] where id is null",connGraph,1,3
rec.addnew
rec("img").appendchunk mydata
rec.update
'www.forasp.cn整理
rec.close
set rec=nothing
set connGraph=nothing
%>
输出保存的图片 文件名: showimg.asp 。尊重他人劳动成果，转载请注明出处
<%
set connGraph=server.CreateObject("ADODB.connection")
connGraph.ConnectionString="driver={Microsoft Access Driver (*.mdb)};DBQ=" & server.MapPath("images.mdb")
connGraph.Open
set rec=server.createobject("ADODB.recordset")
strsql="select img from images where id=" & trim(request("id"))
rec.open strsql,connGraph,1,1
Response.ContentType = "image/*"
Response.BinaryWrite rec("img").getChunk(7500000)
'网f站o制a作s学p习.网cn
rec.close
set rec=nothing
set connGraph=nothing
%>
仔细看看上面的代码，认真研究，运行一下你就会理解。
http://www.forasp.cn网站制作学习网 整理，转载请注明