繁體中文当前位置: 首页 > 图文教程 > 网络编程 > 编程10000问 > 图像图表
- 编程10000问
- 如何实现点击数的计算？
- 如何随机显示图片计数器？
- 如何用数据库制作一个多用户版的计数器？
- 如何制作一个防止多次刷新计数的图片计数器？
- 如何做一个计数器并让人家申请使用？
- 统计在线人数是实时的吗？
- 图像图表
- 如何把图片也存到数据库中去？
- 如何使图象随机显示？
- 如何制作K线图？
- 为什么有的留言簿不需要数据库？
- 如何编写一个最简单的聊天程序？
- 如何判断发言是否为空？
- 如何判断用户是否非正常离开聊天室？
- 如何用变量实现群聊和悄悄话？
- 如何判断电子邮件的地址格式是否正确？
- 如何实现电子邮件的自动发送？
- 如何使用表单发送电子邮件？
- 如何用ASP发送html格式的邮件？
- 如何用ASP发送带附件的邮件？
编程10000问 中的 图像图表
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2010-01-10 浏览: 25 ::
收藏到网摘: n/a
如何把图片上传到数据库中并显示出来？
upload.htm
' 上传页面.
<html>
<body>
<p align="center">千花飞舞之图片上传</p>
<center>
<form name="mainForm" enctype="multipart/form-data"
' 这个Form属性是得到上传的数据的关键.
action="process.asp" method=post>
<input type=file name=mefile><br>
<input type=submit name=ok value="上传">
</form>
</center>
</body></html>
process.asp
' 处理浏览器中送来的数据.
<%
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") & ";uid=;PWD=;"
connGraph.Open
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
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") & ";uid=;PWD=;"
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)
rec.close
set rec=nothing
set connGraph=nothing
%>
[1]
评论 (0) All
