hbupload.asp

基于用友公司的webReport报表开发的上传报表数据的例子源代码。

<% 

    Const adTypeBinary = 1
    const adSaveCreateOverWrite = 2
    
    '当缓冲页输出时，只有当前页的所有服务器脚本处理完毕或者调用了End方法后，服务器才将响应发送给客户端	
    Response.Buffer = true       
    
    '接收客户发来的文件流
    UpFile=Request.BinaryRead(Request.TotalBytes)
    
	'***************************************************************************
    '                              保存到数据库中
    '***************************************************************************
    '建立与access数据库的连接 
    Set objConn = Server.CreateObject("ADODB.Connection")
    ConnStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("HBUpload.MDB")
    
    objConn.Open ConnStr

	'打开OLE字段，将数据写入数据库 
	Set objRs = Server.CreateObject("ADODB.Recordset")
	strSQL = "SELECT * FROM HBUpload WHERE(CELLFILE is null)"
	objRs.Open strSQL, objConn, 1, 3
	objRs.AddNew
	objRs("CELLFILE").AppendChunk(UpFile)
	objRs.Update
	objRs.Close
	objConn.Close
	Set objRs = Nothing
	Set objConn = Nothing
  
    '********************************************
    '保存到磁盘文件,通过流将数据保存成文件
    '********************************************
    Set objStream=Server.CreateObject("ADODB.Stream")
    objStream.Open
    objStream.Type=adTypeBinary
    objStream.Write UpFile
    objStream.SaveToFile  Server.MapPath("HBUpload.cll"), adSaveCreateOverWrite
    objStream.Close
    Set objStream = Nothing
   
%>