蛋疼的下载解压错误，不会整

以前的asp网站，有个下载的程序，但是下载下来的rar压缩包老是提示不可预料的压缩文件末端。
用压缩文件将那个报错的文件解压下来后，文件又是可以没有问题的，可以打开、阅读。然后自己弄了个空白文件和原先的文件一起压缩（空白放在后面），然后下载，结果原先那个可以解压，空白的报错……
蛋疼啊，应该是下载的程序末端有点问题，但是自己又看不懂（新手来着），大家帮帮忙看看哩……
下载的程序代码：<%@Language=VBScript%> 
<% 
Response.Buffer=true 
%> 
<HTML> 
<HEAD> 
<METANAME="GENERATOR"Content="MicrosoftVisualStudio6.0"> 
</HEAD> 
<BODY> 
<% 
fname=Request("a") 
If fname <>""then 
url=server.MapPath("/")&"\"&fname 
End if 
Set objFso=server.CreateObject("scripting.filesystemobject") 
Set fn=objFso.GetFile(url) 
flsize=fn.size 
flname=fn.name 
Set fn=nothing 
Set objFso=nothing Set objStream=server.CreateObject("adodb.stream") 
objStream.Open
objStream.Type=1 
objStream.LoadFromFile urlSelect Case lcase(right(flname,4)) 
case".asf" 
ContentType="video/x-ms-asf" 
case".avi" 
ContentType="video/avi" 
case".doc" 
ContentType="application/msword" 
case".zip" 
ContentType="application/zip" 
case".xls" 
ContentType="application/vnd.ms-excel" 
case".gif" 
ContentType="image/gif" 
case".jpg","jpeg" 
ContentType="image/jpeg" 
case".wav" 
ContentType="audio/wav" 
case".mp3" 
ContentType="audio/mpeg3" 
case".mpg","mpeg" 
ContentType="video/mpeg" 
case".rtf" 
ContentType="application/rtf" 
case".htm","html" 
ContentType="text/html" 
case".txt" 
ContentType="text/plain" 
Case else 
ContentType="appliation/octet-stream" 
End select Response.AddHeader"Content-Disposition","attachment;filename="&flname 
Response.AddHeader"Content-Length",flsize 
Response.CharSet="UTF-8" 
Response.ContentType=ContentType 
Response.BinaryWrite  objStream.Read
Response.Flush
Response.Clear() 
objStream.Close 
Set objStream=nothing 
%> 
</BODY> 
</HTML>