附件存储一般为数据库存储，以2进制存储在表t_Accessory 的FData字段中。

sFileName 为本地文件，例如：C:\Users\Desktop\11.txt

sTmpFileName 为保存临时文件路径，用于保存压缩本地文件后的临时文件例如 D:\CODE\temp.tmp

varFile 为 kdzip压缩文件后得到的二进制，用户保存到数据库

VB 保存

Public Function SaveData()

  Dim ozip As Object

  Dim sFileName As String

  Dim sTmpFileName As String

  Dim smFile As Stream

  Dim smFileNoCompress As Stream

  Dim varFile As Variant 

  Dim bytFile() As Byte

  Set ozip = CreateObject("KDZIP.ZIP")

  ozip.Compress sFileName, sTmpFileName, 7

  Set ozip = Nothing

  Set smFile = New ADODB.Stream

  Set smFileNoCompress = New ADODB.Stream

  smFile.Type = adTypeBinary

  smFile.Open

  smFile.LoadFromFile sTmpFileName

  bytFile() = smFile.Read

  Set smFile = Nothing

  varFile = bytFile()

End Function

C#

//SQL存储方式

private DataTable SQLStore()

{

            DataTable rtn = new DataTable();

            string desFilePath = HttpContext.Current.Server.MapPath("./") + FileUpload1.FileName;

            if (FileUpload1.HasFile)

            {

                FileUpload1.MoveTo(desFilePath, MoveToOptions.Overwrite);

                KDZipLib zip = new KDZipLib();

                FileStream FStream = new FileStream(desFilePath, FileMode.Open, FileAccess.Read, FileShare.Read);

                byte[] data = new byte[FStream.Length];

                FStream.Read(data, 0, data.Length);

                FStream.Close();

                string strFileName = Path.GetFileName(FileUpload1.FileName);

                string strFileSize = Math.Floor(FileUpload1.ContentLength / 1024f) + "K";

                DataRow dr = AccessoryData.NewRow();

                DataTable dt = AccessoryData;

                dr["FIndex"] = dt.Rows.Count + 1;

                dr["FID"] = -dt.Rows.Count - 1;

                dr["FUploadTime"] = K3DateTimeFormatInfo.K3LongDateFormat(DateTime.Now);

                //附件数据

                dr["FData"] = zip.Zip(data);

                dr["FFilename"] = strFileName;

                dr["FFileSize"] = Convert.ToInt32(data.Length);

                dr["FDesc"] = this.fileDesc.Value;

                dr["FUploader"] = MMTS.K3Connect.GetProperty("UserID");

                if (this.m_FPage <= 1)

                {

                    dr["FPage"] = 0;

                    dr["FEntryID"] = 0;

                }

                else

                {

                    dr["FPage"] = this.m_FPage - 1;

                    dr["FEntryID"] = this.m_FEntryID;

                }

                dr["FSaveMode"] = 0;//为SQL存储

                dt.Rows.Add(dr);

                rtn = dt;

            }

            return rtn;

 }

VB 打开

Private Function DownLoadFile(ByVal AccessoryID As Long)

    Dim sFileName As String

    Dim obj As Object

    Dim varFile As Variant

    Dim smFile As Stream

    Set obj = CreateObject(ACCESSORYVIEW)

    varFile = obj.GetID(MMTS.PropsString, AccessoryID)  '此处先取出FData中的2进制。

    Set obj = Nothing

    Set smFile = New Stream

    smFile.Type = adTypeBinary

    smFile.Open

    smFile.Write varFile

    smFile.SaveToFile m_sTempFileName, adSaveCreateOverWrite   'm_sTempFileName 为保存文件路径，可自行设置。

    Set smFile = Nothing

End Function

C#打开

其中FVersion 2.0 为采用了KDZipLib压缩过，没压缩请赋值1.0

public void DownLoadFile()

{

KDZipLib zip = new KDZipLib();  

DataRow dr; //dr为t_accessory中取出的附件的记录

  byte[] inputBytes = null;

  string tempStr = DateTime.Now.ToFileTime().ToString() + "_" + dr["FFilename"].ToString();

         sFileName = HttpContext.Current.Server.MapPath("./") + tempStr;

         if (dr["FVersion"].ToString().Equals("2.0"))   

         {

               inputBytes = zip.UnZip((byte[])dr["FData"]);

          }

          else

          {

              inputBytes = (byte[])dr["FData"];

          }

          using (bw = new BinaryWriter(new FileStream(sFileName, FileMode.Create)))

          {

                 bw.Write(inputBytes);

                 bw.Close();

         }

}