用asp实现的数据库中存取文件的代码

答案：************************************************************************* 
'** 
'** 使用 ADODB.Stream 保存/读取文件到数据库 
'** 引用 Microsoft ActiveX Data Objects 2.5 Library 及以上版本 
'** 
'** ----- 数据库连接字符串模板 --------------------------------------- 
'** ACCESS数据库 
'** iConcStr = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False" & _ 
'**     ";Data Source=数据库名" 
'** 
'** SQL数据库 
'** iConcStr = "Provider=SQLOLEDB.1;Persist Security Info=True;" & _ 
'**     "User ID=用户名;Password=密码;Initial Catalog=数据库名;Data Source=SQL服务器名" 
'** 
'************************************************************************* 
' 
'保存文件到数据库中 
Sub s_SaveFile() 
    Dim iStm As ADODB.Stream 
    Dim iRe As ADODB.Recordset 
    Dim iConcStr As String 

    '数据库连接字符串 
    iConcStr = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False" & _ 
        ";Data Source=F:\My Documents\客户资料1.mdb" 

    '读取文件到内容 
    Set iStm = New ADODB.Stream 
    With iStm 
        .Type = adTypeBinary    '二进制模式 
        .Open 
        .LoadFromFile "c:\test.doc" 
    End With 

    '打开保存文件的表 
    Set iRe = New ADODB.Recordset 
    With iRe 
        .Open "表", iConc, adOpenKeyset, adLockOptimistic 
        .AddNew         '新增一条记录 
        .Fields("保存文件内容的字段") = iStm.Read 
        .Update 
    End With 

    '完成后关闭对象 
    iRe.Close 
    iStm.Close 
End Sub 

'从数据库中读取数据,保存成文件 
Sub s_ReadFile() 
    Dim iStm As ADODB.Stream 
    Dim iRe As ADODB.Recordset 
    Dim iConc As String 

    '数据库连接字符串 
    iConc = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False" & _ 
        ";Data Source=\\xz\c$\Inetpub\zj\zj\zj.mdb" 

    '打开表 
    Set iRe = New ADODB.Recordset 
    iRe.Open "tb_img", iConc, adOpenKeyset, adLockReadOnly 
    iRe.Filter = "id=64" 

    '保存到文件 
    Set iStm = New ADODB.Stream 
    With iStm 
        .Mode = adModeReadWrite 
        .Type = adTypeBinary 
        .Open 
        .Write iRe("img") 
        .SaveToFile "c:\test.doc" 
    End With 

    '关闭对象 
    iRe.Close 
    iStm.Close 
End Sub

上一个：ASP数据岛操作类
下一个：ASP连接数据库的全能代码