asp 下载代码问题

来源:百度知道 编辑:UC知道 时间:2024/05/13 06:35:46
小文件可以下载,但是大的,就不能下了,下下来也是个压缩文件,但是只在900多K,一解压说出错,是怎么回事?
代码如下:
<!--#include file="Include/setup.asp"-->
<!--#include file="conn.asp"-->
<%
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.querystring("soft_id") <> "") then
colname = request.querystring("soft_id")
end if
url="soft_url"+request("url")
sql="select * from [soft] where soft_id="&colname&""
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
downurl=rs(url)
softname=rs("soft_name")
FileExt = Mid(downurl, InStrRev(downurl, ".") + 1)
F_Ext=UCase(FileExt)
se

Set Stream = server.CreateObject("ADODB.Stream")
Stream.Type = adTypeBinary
Stream.Open
Stream.LoadFromFile Server.MapPath(""&downurl&"")
While Not Stream.EOS
Response.BinaryWrite Stream.Read(1024 * 64)
Wend
Stream.Close
Set Stream = Nothing
去掉以上代码