新微赢技术网

标题: 怎么将图片上传到ACCESS数据库里面 [打印本页]

作者: づ嗳嘚亽鈊↑ 时间: 2010-1-20 02:35
标题: 怎么将图片上传到ACCESS数据库里面
上传图片的问题!请教,谢谢!

[知识问答ωωω.χiuGoo.сom]

作者: 笨笨洋葱 时间: 2010-1-20 02:35
页面显示代码
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>无标题文档</title>
</head>
<body>
<p align="center"><font size="6"><strong><font face="隶书">公司名</font></strong></font></p>
<p align="center"><font face="隶书"><strong><font size="6">上传图片</font></strong></font></p>
<form name="Poto" enctype="multipart/form-data" action="admin_sds_pic_confirm.asp" method=post>
<tr valign="top">
<td width="100%" height="55" align="center" valign="middle" bgcolor="#FF99CC"><div align="center">上传图片：
<input type="file" name="mefile">
  
<input type=submit name=ok value=" 上传 ">
<font class="small" face="Arial" color="red" size="2"> </font></div></td>
</tr>
</form>
</body>
</html>

判断页代码
<%
if request.ClientCertificate("adminok") then
request.redirect"login.asp"
end if
%>

<%id=request("id")%>
<%
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)
rst.open "select * from color_take where P_link is null",cnn,1,3

rst("p_link").appendchunk mydata
rst.update
rst.close
set rst=nothing
set conngraph=nothing
Response.Write("<script>alert('添加成功!');window.location=('admin_sds.asp')</script>")

%>

数据库中的字段为OLE对象就可以了！

作者: 黒設會 时间: 2010-1-20 02:35
论坛中早就有相关的贴子,自己去搜索一下

这个也就是上传功能,加上写入数据库

欢迎光临新微赢技术网 (http://bbs.weiying.cn/)