PrivateSub Page_Load()Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesMyBase.Load '在此处放置初始化页的用户代码 Dim imgUrl AsString=Me.Request.QueryString("url") '//取出文件的物理路径。 Me.DownloadFile(imgUrl) End Sub PrivateFunction DownloadFile()Function DownloadFile(ByVal filename AsString) Dim saveFileName AsString Dim startIndex As Int32 = filename.LastIndexOf("\") +1 saveFileName = filename.Substring(startIndex) Dim fi As System.IO.FileInfo =New System.IO.FileInfo(filename) Dim fileExtName AsString= fi.Extension Dim DEFAULT_CONTENT_TYPE AsString="application/unknown" Dim regKey, fileExtKey As Microsoft.Win32.RegistryKey Dim fileContentType AsString Try regKey = Microsoft.Win32.Registry.ClassesRoot fileExtKey = regKey.OpenSubKey(fileExtName) fileContentType = fileExtKey.GetValue("Content Type", DEFAULT_CONTENT_TYPE) Catch ex As Exception fileContentType = DEFAULT_CONTENT_TYPE EndTry Me.Response.Clear() Response.Charset ="utf-8" Me.Response.Buffer =True Me.EnableViewState =False Me.Response.ContentEncoding = System.Text.Encoding.UTF8 Me.Response.AppendHeader("Content-Disposition", "attachment;filename="& saveFileName) Me.Response.ContentType = fileContentType Me.Response.WriteFile(filename) Me.Response.Flush() Me.Response.End() End Function