使用JSP对文件下载的控制
出自孟宪会大大的blogWeb开发人员都有过这样的疑问，如何让一个文件，尤其是一个已知类型的文件，发送到客户端，直接提示让浏览者下载，而不是用与它相关联的程序打开。以前我们最常用的办法就是把这样的文件加到链接上，这样可以让浏览者通过点击鼠标右键的目标另存为来下载所链接的文件。但是，这样有两个不足的地方：
一是：如果浏览器能够识别已下载文件的扩展名，则浏览器就会激活该扩展名所关联的程序来打开所下载的文件。比如：在Windows平台上，如果用户点击的链接链接的是一个“.doc”文件的话，那么，浏览器就会启动Microsoft Word应用程序来打开它。
二是：如果采用链接的办法的话，任何能看到该链接的人都可以下载该文件，你虽然也可以对所下载的文件进行权限设置，但那样做也不是很方便的。有时候我们需要更为灵活和富有弹性的方式，下面的程序能够很方便地克服以上两方面的不足。
这种办法是可靠的，但你必须记住：没有授权的用户不能够通过在浏览器地址栏里输入文件的URL来取得该文件的下载权。所以，要下载的文件应该放到虚拟目录之外的一个目录里，比如：如果你的虚拟目录是C:Mengxianhui omcat(一个很好用的JSP运行平台)4WebsiteMyApp的话，那么，存放在该目录和该目录下的任何子目录下所有文件对因特网上的任何用户都是可见的。要直接下载一个文件，我们需要做两件事，第一件事是：设定响应的内容类为“application/octet-stream”，大小写无关。第二件事是：设置HTTP的响应头名字为：Content-Disposition，设定值为：attachment; filename = theFileName。这里的theFileName就是出现在文件下载对话框里的默认文件名，通常和所下载的文件名字相同，但也可以不同。下面，我们就平常最常用的jsp(SUN企业级应用的首选)和ASP页面来举一个实际应用的例子。
TestFileDownload.jsp(SUN企业级应用的首选)页面的例子：
<%
// 得到文件名字和路径
String filename = "MengxianhuiDocTest.doc";
String filepath = "D:\";
// 设置响应头和下载保存的文件名
response.setContentType("APPLICATION/OCTET-STREAM");
response.setHeader("Content-Disposition",
"attachment; filename="" + filename + """);
// 打开指定文件的流信息
java.io.FileInputStream fileInputStream =
new java.io.FileInputStream(filepath + filename);
// 写出流信息
int i;
while ((i=fileInputStream.read()) != -1) {
out.write(i);
}
fileInputStream.close();
out.close();
%>
值得注意的是：在你要下载的文件内容里，除了文件的内容之外，不应该再附加有其它任何的字符，包括空格和回车换行符。我们有时在编写代码的时候，为了使代码清晰可读，往往会添加一些空格、制表符或者回车换行符，这样虽然看起来比较清晰，但有时可能会得不到正确的结果。比如：
<%@ page import="java.io.*"
%> <jsp(SUN企业级应用的首选):useBean id="MyBeanFromMengxianhui" scope="page"
class="com.Mengxianhui.DownloadBean" />
应该写成这样：
<%@ page import="java.io.*"
%><jsp(SUN企业级应用的首选):useBean id="MyBeanFromMengxianhui" scope="page"
class="com.Mengxianhui.DownloadBean" />
TestFileDownload.ASP页面的例子：
在ASP里，没有提供从文件读取文件流信息的方法，因此，为了得到文件的流信息，我们必须借助其他的工具，最简单的就是编写一个VB或C的DLL组件，让组件返回文件的流信息。下面是一个用VB编写的DLL的例子，工程名字为MengXHFileDownLoad，类模块的名字为BinReadFromFile，类方法readBinFromFile如下：
Function readBinFromFile(ByVal bfilename As String) As Variant
Dim fl As Long
Dim FileNum As Long
Dim binbyte() As Byte
Dim binfilestr As String
On Error GoTo errHandler
FileNum = FreeFile
Open bfilename For Binary As #FileNum
补充：Web开发 , Jsp ,
