脚本宝典收集整理的这篇文章主要介绍了图像图表,脚本宝典觉得挺不错的,现在分享给大家,也给大家做个参考。
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
%>
@H_916_126@
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/*"
[1]
以上是脚本宝典为你收集整理的图像图表全部内容,希望文章能够帮你解决图像图表所遇到的问题。
本图文内容来源于网友网络收集整理提供,作为学习参考使用,版权属于原作者。
如您有任何意见或建议可联系处理。小编QQ:384754419,请注明来意。