ASP下载代码无法下载APK文件！

<%
From_url = Cstr(Request.ServerVariables("HTTP_REFERER"))
Serv_url = Cstr(Request.ServerVariables("SERVER_NAME"))
if mid(From_url,8,len(Serv_url)) <> Serv_url then
response.write "非法链接！" '防止盗链
response.end
end if

'if Request.Cookies("Logined")="" then
' response.redirect "/login.asp" '需要登陆！
'end if
Function GetFileName(longname)'/folder1/folder2/file.asp=>file.asp
while instr(longname,"/")
longname = right(longname,len(longname)-1)
wend
GetFileName = longname
End Function
Dim Stream
Dim Contents
Dim FileName
Dim TrueFileName
Dim FileExt
Const adTypeBinary = 1
FileName = Request.QueryString("FileName")
if FileName = "" Then
Response.Write "无效文件名！"
Response.End
End if
FileExt = Mid(FileName, InStrRev(FileName, ".") + 1)
Select Case UCase(FileExt)
Case "ASP", "ASA", "ASPX", "ASAX", "MDB"
Response.Write "非法操作！"
Response.End
End Select
Response.Clear
if lcase(right(FileName,3))="gif" or lcase(right(FileName,3))="jpg" or lcase(right(FileName,3))="png" then
Response.ContentType = "image/*" '对图像文件不出现下载对话框
else
Response.ContentType = "application/ms-download"
end if
Response.AddHeader "content-disposition", "attachment; filename=" & GetFileName(Request.QueryString("FileName"))
Set Stream = server.CreateObject("ADODB.Stream")
Stream.Type = adTypeBinary
Stream.Open
if lcase(right(FileName,3))="apk" then '设置apk类型文件目录
TrueFileName = "/the_apk_file_s/"&FileName
end if
if lcase(right(FileName,3))="pdf" then '设置pdf类型文件目录
TrueFileName = "/the_pdf_file_s/"&FileName
end if
if lcase(right(FileName,3))="doc" then '设置DOC类型文件目录
TrueFileName = "/my_D_O_C_file/"&FileName
end if
if lcase(right(FileName,3))="gif" or lcase(right(FileName,3))="jpg" or lcase(right(FileName,3))="png" then
TrueFileName = "/all_images_/"&FileName '设置图像文件目录
end if
Stream.LoadFromFile Server.MapPath(TrueFileName)
While Not Stream.EOS
Response.BinaryWrite Stream.Read(1024 * 64)
Wend
Stream.Close
Set Stream = Nothing
Response.Flush
Response.End
%>
pdf doc都能下载，唯独是下载不了apk文件。IIS也添加了apk类型了

主要是电脑需要下载一个解压缩的APK软件

1.在 IIS 管理器中，右键单击要为其添加 MIME 类型的网站或网站目录，单击"属性"。
2.单击"HTTP 头"选项卡。
3.单击"MIME 类型"。
4.单击"新建"。
5.在"扩展名"框中，键入文件扩展名：.apk
6.在"MIME 类型"框中，键入application/octet-stream
7.单击"确定"。

windows20003 IIS6.0 服务器添加MIME的方法, 插队说下什么是MIME (MIME类型就是设定某种扩展名的文件用一种应用程序来打开的方式类型，当该扩展名文件被访问的时候，浏览器会自动使用指定应用程序来打开。多用于指定一些客户端自定义的文件名，以及一些媒体文件打开方式。)
因为apk是android自定义的扩展,所以我们选择MIME的时候用任意的二进制数据 application/octet-stream
第一步:
在IIS管理控制台中右击服务器名，然后选择属性打开!

直接输入含有文件的连接地址即可

 默认情况下，在IIS 6 全局配置中允许上传的文件长度最大为4 GB，但是在Web站点级却限制了ASP应用程序上传的最大文件长度为200 KB。如果你需要上传超过200KB的文件，则需要手动修改IIS的metabase.xml中对应Web站点的AspMaxRequestEntityAllowed属性。 

metabase.xml位于"systemroot"\system32\inetsrv"目录下，用于保存IIS的基本配置信息。默认情况下IIS是不允许你直接对metabase.xml进行编辑的，你可以通过以下两种方式来实现： 

1 停止IISAdmin服务后再编辑；
   停止IIS服务与启动IIS服务的方法,在CMD命令行模式下输入以下命令：
   1.    net stop w3svc (停止IIS服务)
   2.    net start w3svc (启动IIS服务)

2 在IIS管理控制台中右击服务器名，选择属性，然后在弹出的服务器属性对话框中勾选允许直接编辑配置数据库，再点击确定即可

然后在任何文本编辑器中打开Metabase.xml文件，修改对应Web站点的AspMaxRequestEntityAllowed属性即可，它的单位是字节,默认是204800,改为你需要的值即可。比如改为最大上传20M，则修改此值为：20480000.如果实在不知道20M换成字节是多大，就用这个公式计算一下再修改吧：1024000*20(102400是100K,1024000是1M，以此类推，20M就是1024000*20=20480000)


再加上下载不能超过4M的解决办法：

在 IIS 6.0 中，无法下载超过4M的附件时，可以按以下步骤解决： 
1、先在服务里关闭 iis admin service 服务。 
2、找到 windows\system32\inesrv\ 下的 metabase.xml 文件。 
3、用纯文本方式打开，找到 AspBufferingLimit 把它修改为需要的值（可修改为20M即：20480000）。 
4、存盘，然后重启 iis admin service 服务。

ASP下载代码 无法下载APK文件！

ASP下载代码无法下载APK文件！