NAId 　　　　　----->附件ID

NAFileName　　 ----->附件名

NAFilePath 　　----->附件路径

点击某个按钮或触发某个事件下载附件，代码如下：

Protected Sub ViewButton2_Click(ByVal sender As Object, ByVal e As System.EventArgs)

　　Dim i As Integer = DataList1.EditItemIndex

　　Dim label As Label = (CType(DataList1.Items(i).FindControl("m_id"), Label))

　　Dim strSQL As String = "SELECT * FROM LONION_FUJ WHERE NOTICEID = " + label.Text

　　Try

　　　If Not CargoBookingDBConnect.CargoBookingDBConnect() Then

　　　End If

　　　SqlDA = New SqlDataAdapter(strSQL, strConnStringCargoBookingDB)

　　　SqlDA.Fill(sDataSet)

　　　Dim dt As DataTable = sDataSet.Tables(0)

　　　Dim filePath As String = dt.Rows(0)("NAFilePath")

　　　Dim fileInfo As New IO.FileInfo(filePath)

　　　Response.Clear()

　　　Response.ClearContent()

　　　Response.ClearHeaders()

　　　Response.AddHeader("Content-Disposition", "attachment;filename=" +　Server.UrlEncode(fileInfo.Name))

　　　Response.AddHeader("Content-Length", fileInfo.Length.ToString())

　　　Response.AddHeader("Content-Transfer-Encoding", "binary")

　　　Response.ContentType = "application/octet-stream"

　　　Response.ContentEncoding = System.Text.Encoding.GetEncoding("gb2312")

　　　Response.WriteFile(fileInfo.FullName)

　　　Response.Flush()

　　　Response.End()

　　Catch ex As Exception

　　　　Throw ex

　　　End Try

End Sub

PS:Server.UrlEncode()，引用此方法使得下载的文件名称如果是中文的话不会显示乱码