求大虾帮帮小弟，asp写图片到access的问题

kendynisslew 2003-11-24 02:06:21

小弟有一问题想请各位大虾帮忙，
就是在asp中把图片文件加入到access数据库的问题。包括读取：）
各位老鸟能不能把全部代码贴出来啊，因为本人做程序是业余，所以要求麻烦了一些。谢谢啊：）

...全文

53 7 打赏收藏转发到动态举报

写回复

用AI写文章

7 条回复

切换为时间正序

请发表友善的回复…

发表回复

xzq686 2003-11-24

打赏
举报

想存图片网上有例子了！你可以搜一下。下面的就是一个例子
http://www0.ccidnet.com/tech/web/2000/04/26/58_632.html

swich 2003-11-24

打赏
举报

同意楼上的

存储路径比较方便

xzq686 2003-11-24

打赏
举报

你可以存图片路径！

baby21st 2003-11-24

打赏
举报

以前从网上下的
可以用的

'---up.asp
<html>
<head>
<title>图片上传程序</title>
<Script language="javascript">
function mysubmit(theform)
{
if(theform.big.value=="")
{
alert("请点击浏览按钮，选择您要上传的jpg或gif文件!")
theform.big.focus;
return (false);
}
else
{
str= theform.big.value;
strs=str.toLowerCase();
lens=strs.length;
extname=strs.substring(lens-4,lens);
if(extname!=".jpg" && extname!=".gif")
{
alert("请选择jpg或gif文件!");
return (false);
}
}
return (true);
}
</script>
<style>
A {COLOR: #666666; TEXT-DECORATION: none}
A:hover {COLOR: Black}
.ys {font-size: 9pt; border:1px #111111 solid;}
</style>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<body>
<center>
<form enctype="multipart/form-data" action="addpic.asp" method=post onsubmit="return mysubmit(this)">
<input type="file" name="big" size="20" class="ys">
<input type="submit" value="上传" name="B3" class="ys"><br><br>
查看: <%Set conn = Server.CreateObject("ADODB.Connection")
DBPath = Server.MapPath("pic.mdb")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath
set rs=server.createobject("ADODB.recordset")
sql="select * from pic"
rs.open sql,conn,1,1
i=1
do while not rs.eof%>
<a href="displaypic.asp?id=<%=rs("id")%>" target=_blank><<%=i%>></a>
<%
i=i+1
rs.movenext
loop
%>
</body>
</html>

'---addpic.asp
<%Option Explicit%>
<style>
A {COLOR: #666666; TEXT-DECORATION: none}
A:hover {COLOR: Black}
.ys {font-size: 9pt; border:1px #111111 solid;}
</style>
<%
dim rs,conn,dbpath
dim formsize,formdata,bncrlf,divider,datastart,dataend,mydata
Set conn = Server.CreateObject("ADODB.Connection")
DBPath = Server.MapPath("pic.mdb")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath

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 "pic",conn,3,2
rs.addnew
rs("big").appendchunk mydata
rs("date")=date
rs.update
set rs=nothing
set conn=nothing
response.write "上传图片成功"
%>
<title>图片上传成功</title><a href="up.asp">返回</a>

'--displaypic.asp
<%

id=request.QueryString("id")
Set conn = Server.CreateObject("ADODB.Connection")
DBPath = Server.MapPath("pic.mdb")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath
set rs=server.createobject("ADODB.recordset")
sql="select * from pic where id=" & id
rs.open sql,conn,1,1
Response.ContentType = "image/jpeg"
Response.BinaryWrite rs("big")
rs.close
set rs=nothing
set connGraph=nothing
%>

'--Access 2000
id -自动编号
big -OLE对像
date -时间日期