纯ASP上传图像文件到数据库的最佳例子

2016-01-29 17:18 5 1 收藏

纯ASP上传图像文件到数据库的最佳例子,纯ASP上传图像文件到数据库的最佳例子

【 tulaoshi.com - ASP 】

  getfile.htm
-------------------------
<html

<head
<title保存图片到数据库</title
</head

<body
<b

<p</b你可以找个图片试试,保存完毕后会有提示</p

<form METHOD="POST" ENCTYPE="multipart/form-data" ACTION="savetodb.asp"
  <pEmail : <input NAME="email" VALUE="wangcq@sina.com" 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="))
       

来源:http://www.tulaoshi.com/n/20160129/1500934.html

延伸阅读
标签: Web开发
用ASP编写网站应用程序时间长了,难免会遇到各式各样的问题,其中 关于如何上传文件到服务器恐怕是遇见最多的问题了,尤其是上传图片,比如你想要在自己的社区里面实现类似网易虚拟社区提供的每日一星的功能,就要提供给网友上传照片的功能。上传图片文件到服务器可以使用各种免费的文件上传组件,使用起来功能虽然很强大,但是由于很...
标签: ASP
引言 本文针对ASP程序设计中最基础、也是最关键的部分"数据库文件的调用"进行说明,同时谈谈ASP程序设计中数据库文件调用的一些技巧。 ASP简介 ASP(Active Server Pages)是微软于1996年推出的Web应用程序开发技术,它是一种脚本语言、ActiveX组件及HTML语言等的综合,微软把它描述为"一个服务器的脚本环境,在这里可以生...
标签: ASP
数据库文件调用的技巧 (1)事实上,无论换成哪个Access数据库,打开数据库连接与读取表记录的步骤是相同的,其中的变量在于数据库文件的名称及表的名称,所以可以将上述程序的第3~13行改写成函数的形式,并存成一个文件如:ADOFunctions.asp,日后要打开某个数据库文件的话,就把该文件ADOFunctions.asp 装(include)进来,代码如下...
标签: ASP
  引言 本文针对ASP程序设计中最基础、也是最关键的部分"数据库文件的调用"进行说明,同时谈谈ASP程序设计中数据库文件调用的一些技巧。 ASP简介 ASP(Active Server Pages)是微软于1996年推出的Web应用程序开发技术,它是一种脚本语言、ActiveX组件及HTML语言等的综合,微软把它描述为"一个服务器的脚本环境,在这...
标签: ASP
  文件4:RestoreDB.asp <%@ Language=VBScript % <HTML <HEAD <META name=VI60_defaultClientScript content=VBScript <META NAME="GENERATOR" Content="Microsoft FrontPage 4.0" <SCRIPT ID=clientEventHandlersVBS LANGUAGE=vbscript <!-- Sub btnbak_onclick if frmbak.txtsvr.value=&qu...

经验教程

254

收藏

23
微博分享 QQ分享 QQ空间 手机页面 收藏网站 回到头部