asp保存二进制图片到access数据库

背景

数据库中存储二进制图片是一种常见的需求。对于ASP网站来说，保存图片到Access数据库中比较方便，因为Access支持OLE Object字段类型。

实现步骤

第一步：创建Access数据库表

创建一个新的Access数据库文件，然后在其中创建一个新的表，命名为“Images”，并添加以下列：ID、FileName和ImageData。

CREATE TABLE Images
(
    ID AUTOINCREMENT PRIMARY KEY,
    FileName TEXT,
    ImageData OLEOBJECT
);

第二步：创建ASP页面，并添加上传图片控件

在ASP页面中，我们需要添加文件上传控件，用户可以使用该控件上传图片文件。

<form method="post" enctype="multipart/form-data">
    <input type="file" name="picture"/>
    <input type="submit" value="Upload" />
</form>

第三步：处理上传图片的代码

在ASP页面中，我们需要处理上传的图片。接下来的代码示例演示了如何将上传的二进制图片保存到Access数据库中：

<%@ Language=VBScript %>

<% 
    ' 检查是否有文件上传
    If Request.TotalBytes > 0 Then
        Dim objConn, strConn, objRS
        Dim strFileName, lngImageSize, bytImageData
        
        ' 连接Access数据库
        Set objConn = Server.CreateObject("ADODB.Connection")
        strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("mydatabase.mdb") & ";"
        objConn.Open strConn
        
        ' 获取上传的文件名和大小
        strFileName = Request.Files("picture").FileName
        lngImageSize = Request.Files("picture").TotalBytes
        
        ' 读取文件数据
        ReDim bytImageData(lngImageSize)
        Request.BinaryRead bytImageData
        
        ' 将图片数据保存到数据库中
        Set objRS = Server.CreateObject("ADODB.Recordset")
        objRS.Open "Images", objConn, adOpenKeyset, adLockOptimistic
        objRS.AddNew
        objRS.Fields("FileName") = strFileName
        objRS.Fields("ImageData").AppendChunk bytImageData
        objRS.Update
        objRS.Close
        Set objRS = Nothing
        
        ' 关闭数据库连接
        objConn.Close
        Set objConn = Nothing
        
        ' 提示用户上传成功
        Response.Write "Upload Success!"
    End If
%>

第四步：显示数据库中的图片

通过以下代码示例，我们可以从Access数据库中检索图像，然后在网页上显示：

<%@ Language=VBScript %>

<% 
    Dim objConn, strConn, objRS, bytImageData
    Dim lngImageID
    
    ' 连接Access数据库
    Set objConn = Server.CreateObject("ADODB.Connection")
    strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("mydatabase.mdb") & ";"
    objConn.Open strConn
    
    ' 获取要显示的图片ID
    lngImageID = Request.QueryString("ImageID")
    
    ' 从数据库中获取图片数据
    Set objRS = Server.CreateObject("ADODB.Recordset")
    objRS.Open "Images", objConn, adOpenForwardOnly
    objRS.MoveFirst
    Do While Not objRS.EOF
        If objRS.Fields("ID") = lngImageID Then
            bytImageData = objRS.Fields("ImageData").GetChunk(objRS.Fields("ImageData").ActualSize)
            Exit Do
        End If
        objRS.MoveNext
    Loop
    objRS.Close
    Set objRS = Nothing
    
    ' 输出图片数据
    Response.ContentType = "image/jpeg"
    Response.BinaryWrite bytImageData
    
    ' 关闭数据库连接
    objConn.Close
    Set objConn = Nothing
%>

总结

通过以上方法，我们可以很容易地实现将二进制图片保存到Access数据库中，并在ASP网站中显示它。当然，根据实际需求，还可以添加其他功能，例如删除图片、编辑图片等。