Download application/octet-stream (VB. NET)

dim sms_uploadfiles_path as string = system. configuration. configurationsettings. deleetask( "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)