下载文件 application/octet-stream ，VB.NET

Dim SMS_UploadFiles_Path As String = System.Configuration.ConfigurationSettings.AppSettings("SMS_UploadFiles_Path")

'Dim mPath As String = Server.MapPath(SMS_UploadFiles_Path) + "\"

Dim mPath As String = ""

If SMS_UploadFiles_Path.EndsWith("\") = False Then

mPath = SMS_UploadFiles_Path + "\"

Else

mPath = SMS_UploadFiles_Path

End If

Dim str_att As String = Request.QueryString("att")

Dim str_oatt As String = Request.QueryString("oatt")

Dim extandName As String = Path.GetExtension(str_oatt)

Dim fileName As String = Path.GetFileNameWithoutExtension(str_oatt)

If (fileName.Length > 12) Then

fileName = fileName.Substring(0, 12)

End If

Response.Clear()

Response.ContentType = "application/octet-stream"

Response.AddHeader("Content-Disposition", "attachment; filename=" & HttpUtility.UrlEncode(fileName) & extandName)

Response.WriteFile(mPath + str_att)