信息发送和大文件传输的问题

/*--bcp 实现二进制文件的导入导出 支持image,text,ntext字段的导入/导出
image适合于二进制文件,包括:Word文档,Excel文档,图片,音乐等
text,ntext适合于文本数据文件 注意:导入时,将覆盖满足条件的所有行
导出时,将把所有满足条件的行导出到指定文件中
此存储过程仅用bcp实现
邹建 2003.08-----------------*//*--调用示例
--数据导出
exec p_binaryIO 'zj','','','acc_演示数据..tb','img','c:\zj1.dat'--数据导入
exec p_binaryIO 'zj','','','acc_演示数据..tb','img','c:\zj1.dat','',0
--*/
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[p_binaryIO]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[p_binaryIO]
GOCreate proc p_binaryIO
@servename varchar (30),--服务器名称
@username varchar (30), --用户名
@password varchar (30), --密码
@tbname varchar (500),  --数据库..表名
@fdname varchar (30),  --字段名
@fname varchar (1000), --目录+文件名,处理过程中要使用/覆盖:@filename+_temp
@tj varchar (1000)='',  --处理条件.对于数据导入,如果条件中包含@fdname,请指定表名前缀
@isout bit=1 --1导出((默认),0导入
AS 
declare @fname_in varchar(1000) --bcp处理应答文件名
,@fsize varchar(20) --要处理的文件的大小
,@m_tbname varchar(50) --临时表名
,@sql varchar(8000)--则取得导入文件的大小
if @isout=1 
set @fsize='0'
else
begin
create table #tb(可选名 varchar(20),大小 int
,创建日期 varchar(10),创建时间 varchar(20)
,上次写操作日期 varchar(10),上次写操作时间 varchar(20)
,上次访问日期 varchar(10),上次访问时间 varchar(20),特性 int)
insert into #tb
exec master..xp_getfiledetails @fname
select @fsize=大小 from #tb
drop table #tb
if @fsize is null
begin
print '文件未找到'
return
endend--生成数据处理应答文件
set @m_tbname='[##temp'+cast(newid() as varchar(40))+']'
set @sql='select * into '+@m_tbname+' from(
select null as 类型
union all select 0 as 前缀
union all select '+@fsize+' as 长度
union all select null as 结束
union all select null as 格式
) a'
exec(@sql)
select @fname_in=@fname+'_temp'
,@sql='bcp "'+@m_tbname+'" out "'+@fname_in
+'" /S"'+@servename
+case when isnull(@username,'')='' then '' 
else '" /U"'+@username end
+'" /P"'+isnull(@password,'')+'" /c'
exec master..xp_cmdshell @sql
--删除临时表
set @sql='drop table '+@m_tbname
exec(@sql)if @isout=1
begin
set @sql='bcp "select top 1 '+@fdname+' from ' 
+@tbname+case isnull(@tj,'') when '' then ''
else ' where '+@tj end
+'" queryout "'+@fname
+'" /S"'+@servename
+case when isnull(@username,'')='' then '' 
else '" /U"'+@username end
+'" /P"'+isnull(@password,'')
+'" /i"'+@fname_in+'"'
exec master..xp_cmdshell @sql
end
else
begin
--为数据导入准备临时表
set @sql='select top 0 '+@fdname+' into '
+@m_tbname+' from ' +@tbname
exec(@sql) --将数据导入到临时表
set @sql='bcp "'+@m_tbname+'" in "'+@fname
+'" /S"'+@servename
+case when isnull(@username,'')='' then '' 
else '" /U"'+@username end
+'" /P"'+isnull(@password,'')
+'" /i"'+@fname_in+'"'
exec master..xp_cmdshell @sql

--将数据导入到正式表中
set @sql='update '+@tbname
+' set '+@fdname+'=b.'+@fdname
+' from '+@tbname+' a,'
+@m_tbname+' b'
+case isnull(@tj,'') when '' then ''
else ' where '+@tj end
exec(@sql) --删除数据处理临时表
set @sql='drop table '+@m_tbname
end--删除数据处理应答文件
set @sql='del '+@fname_in
exec master..xp_cmdshell @sqlgo

解决方案 »

  1.   

    程序在存取文件,建议用ADO.Stream'==================================================================--
    '
    ' 用ASP实现无组件上传/下载文件
    '
    ' 功能简介
    ' 将上传的文件数据保存到数据库中,可以处理表单中的多个上传文件的情况
    ' 适用于各种数据库,使用ADO的方法连接数据库
    ' 本示例中使用的是ACCESS数据库:zj.mdb
    ' 表:tb_img(id int(自增列),path text(255) 保存上传文件的目录
    ' ,fname text(250) 保存上传的文件名,img ole对象 保存上传的文件内容
    '   ,type text(250)  保存上传的文件类型
    '
    ' 邹建  2003.10
    '==================================================================
    '==================================================================
    '
    ' 上传文件的HTML页: zj_up.htm
    '
    '==================================================================
    <html>
    <head>
    <title>文件上传保存到数据库中</title>
    </head>
    <body>
    <form name="form1" enctype="multipart/form-data" method="post" action="zj_up.asp">
      <p>
        <input type="file" name="file">
        <input type="submit" name="Submit" value="上传">
      </p>
    </form>
    </body>
    </html>
    '==================================================================
    '
    ' 上传文件保存到数据库的ASP页: zj_up.asp
    '
    '==================================================================
    <%
    Response.Expires=0
    Function f_Bin2Str(ByVal sBin)
        Dim iI, iLen, iChr, iRe       
        iRe = ""
        If Not IsNull(sBin) Then
            iLen = LenB(sBin)
            For iI = 1 To iLen
                iChr = MidB(sBin, iI, 1)
                If AscB(iChr) > 127 Then
                    iRe = iRe & Chr(AscW(MidB(sBin, iI + 1, 1) & iChr))
                    iI = iI + 1
                Else
                    iRe = iRe & Chr(AscB(iChr))
                End If
            Next
        End If    
        f_Bin2Str = iRe
    End Function
    iConcStr = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False" & _ 
    ";Data Source=" & server.mappath("zj.mdb")
    iSql="tb_img"
    set iRe=Server.CreateObject("ADODB.Recordset")
    iRe.Open iSql,iConcStr,1,3
    iLen=Request.TotalBytes
    sBin=Request.BinaryRead(iLen)
    iCrlf1 = ChrB(13) & ChrB(10)
    iCrlf2 = iCrlf1 & iCrlf1
    iLen = InStrB(1, sBin, iCrlf1) - 1
    iSpc = LeftB(sBin, iLen)
    sBin = MidB(sBin, iLen + 34)
    iPos1 = InStrB(sBin, iCrlf2) - 1
    While iPos1 > 0
    iStr = f_Bin2Str(LeftB(sBin, iPos1))
    iPos1 = iPos1 + 5
    iPos2 = InStrB(iPos1, sBin, iSpc)

    iPos3 = InStr(iStr, "; filename=""") + 12
    If iPos3 > 12 Then
    iStr = Mid(iStr, iPos3)
    iPos3 = InStr(iStr, Chr(13) & Chr(10) & "Content-Type: ") - 2
    iFn = Left(iStr, iPos3)
    If iFn <> "" Then
    iRe.AddNew
    ire("path")=left(iFn,instrrev(iFn,"\"))
    iRe("fname") = mid(iFn,instrrev(iFn,"\")+1)
    iRe("type") = Mid(iStr, iPos3 + 18)
    iRe("img").AppendChunk MidB(sBin, iPos1, iPos2 - iPos1)
    iRe.Update
    End If
    End If

    sBin = MidB(sBin, iPos2 + iLen + 34)
    iPos1 = InStrB(sBin, iCrlf2) - 1
    Wend
    iRe.close
    set iRe=Nothing
    %>'==================================================================
    '
    ' 下载数据的ASP页: zj_down.asp
    '
    '==================================================================
    <%
    Response.Buffer=true
    Response.CleariConcStr = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False" & _ 
    ";Data Source=" & server.mappath("zj.mdb")
    set iRe=server.createobject("adodb.recordset")
    iSql="tb_img"
    iRe.open iSql,iconcstr,1,1
    Response.ContentType=ire("type")
    Response.BinaryWrite iRe("img")iRe.close
    set iRe=Nothing
    %>
      

  2.   

    文件的存取,更多的参考我的贴子:数据库中存/取文件
    http://expert.csdn.net/Expert/topic/2403/2403509.xml?temp=.1685144
      

  3.   

    1.对于信息发送这项功能
    我个人的建议是,写一个DLL来发信息.
    而在数据库中,通过存储过程来调用这个DLL实现发信息的功能.再在信息表中创建一个触发器,当有新增记录时,就直接调用发信息的存储过程,将信息发送出去.这样,程序中不用随时刷新,而有新信息时,也能即时发送出去.
      

  4.   

    --SQL Server的存储过程调用Com组件
    /*--下面的部分在VB中完成首先我们先用VB 作一个最简单的组件工程名称: testSQLCOM
    类名: TestMath'函数,计算两个整数相加的结果
    Public Function AddMe(a As Long, b As Long) As Long
       AddMe = a + b
    End Function编译生成后，我们就可以在 Sql Server 中对这个 Com 组件进行调用了
    --*//*--下面是SQL中对上面DLL的调用--*/--定义用到的变量
    declare @err int,@src varchar(255),@desc varchar(255)
    declare @obj int,@re int--创建调用实例
    exec @err=sp_OACreate 'testSQLCOM.TestMath', @obj out
    if @err<>0 goto lberr  --如果创建失败,则进行错误处理--调用DLL中的函数
    exec @err=sp_OAMethod @obj,'AddMe',@re out,100,200
    if @err<>0 goto lberr  --如果调用错误,则进行错误处理print '返回的结果是:' + str(@re)--完成后释放
    exec sp_OADestroy @objreturnlberr:
    exec sp_oageterrorinfo 0,@src out,@desc out
    select cast(@err as varbinary(4)) as 错误号
    ,@src as 错误源,@desc as 错误描述