Dim name As String = "中文名称"
Response.ContentType = "application/ms-word"
Response.Charset = "UTF-8"
Response.AddHeader("content-disposition", "attachment; filename= " & HttpUtility.UrlEncode(name) & ".doc")
Dim sourceFile As IO.FileStream = New IO.FileStream("F:\downloadexample.doc", IO.FileMode.Open)
Dim FileSize As Long
FileSize = sourceFile.Length
Dim getContent() As Byte = New Byte(FileSize) {}