繁體中文当前位置: 首页 > 图文教程 > 网络编程 > ASP > 纯ASP上传图像文件到数据库的最佳例子
- ASP
- IIS访问ASP页面时报错The requested resource is in use.的解决办法
- 错误类型：Provider (0x80004005)未指定的错误 的一个处理方法
- 关于asp+access的安全问题分析
- 把RS.GetRows看得更清楚
- asp下UTF-8页面乱码的解决方法
- 解决使用良精企业建站7.0未注册问题
- 在ASP中连接MySQL数据库的方法，最好的通过ODBC方法
- flash与js通讯方法
- ASP操作Excel相关技术总结
- 解决用Access数据库建站维护不便的问题的方法
- ASP实现GB2312字符与区位码的相互转换的代码
- 对于ASP编码问题的深入研究与最终解决方案
- ASP生成UTF-8编码的代码
- 删除A表中在B表中不存在的数据
- 动网防恶意广告比较有效的办法附asp代码
- asp磁盘缓存技术使用的代码
- 网页语言编码及asp乱码问题解决方案
- FSO遍历目录实现全站插马的代码
- 关于无限分级(ASP+数据库+JS)的实现代码
- 如何写ASP入库小偷程序
纯ASP上传图像文件到数据库的最佳例子
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-11-03 浏览: 231 ::
收藏到网摘: n/a
-------------------------
<html>
<head>
<title>保存图片到数据库</title>
</head>
<body>
<b>
<p></b>你可以找个图片试试，保存完毕后会有提示</p>
<form METHOD="POST" ENCTYPE="multipart/form-data" ACTION="savetodb.asp">
<p>Email : <input NAME="email" VALUE="[email protected]" size="20"><br>
Picture : <input TYPE="file" NAME="blob"><br>
<input TYPE="submit" NAME="Enter"> </p>
</form>
</body>
</html>
savetodb.asp
----------------------------------
<%
Response.Buffer = TRUE
Response.Clear
byteCount = Request.TotalBytes
RequestBin = Request.BinaryRead(byteCount)
Dim UploadRequest
Set UploadRequest = CreateObject("Scripting.Dictionary")
BuildUploadRequest RequestBin
email = UploadRequest.Item("email").Item("Value")
contentType = UploadRequest.Item("blob").Item("ContentType")
filepathname = UploadRequest.Item("blob").Item("FileName")
filename = Right(filepathname,Len(filepathname)-InstrRev(filepathname,"\"))
picture = UploadRequest.Item("blob").Item("Value")
'Response.ContentType = contentType
'Response.binaryWrite picture
set objCn = server.createobject("adodb.connection")
set objRst = server.createobject("adodb.recordset")
objCn.Open "upload"
objrst.Open "pic", objcn, 1,3,2
objrst.addnew
objrst.fields("filename")=filename
objrst.fields("type")="gif"
objrst.fields("what").appendchunk picture
objrst.update
response.write "<a href=showpic.asp?id=" & objrst("id") & ">第" & objrst("id") & "个图片。</a>"
objrst.close
objCn.close
set objrst=nothing
set objcn = nothing
%>
<!--#include file="upload.asp"-->
showpic.asp
----------------------------------------
<%
set objCn = server.createobject("adodb.connection")
set objRst = server.createobject("adodb.recordset")
objCn.Open "upload"
objrst.Open "select what from pic where id=" & request("id"), objcn
if not objrst.eof then
response.binarywrite objrst("what")
end if
objrst.close
objCn.close
set objrst=nothing
set objcn = nothing
%>
upload.asp
-------------------------------------------
<%
Sub BuildUploadRequest(RequestBin)
'Get the boundary
PosBeg = 1
PosEnd = InstrB(PosBeg,RequestBin,getByteString(chr(13)))
boundary = MidB(RequestBin,PosBeg,PosEnd-PosBeg)
boundaryPos = InstrB(1,RequestBin,boundary)
'Get all data inside the boundaries
Do until (boundaryPos=InstrB(RequestBin,boundary & getByteString("--")))
'Members variable of objects are put in a dictionary object
Dim UploadControl
Set UploadControl = CreateObject("Scripting.Dictionary")
'Get an object name
Pos = InstrB(BoundaryPos,RequestBin,getByteString("Content-Disposition"))
Pos = InstrB(Pos,RequestBin,getByteString("name="))
评论 (0) All
