asp 网站下载文件不能超过2m,但服务器上的文件是正常的。
网上的asp新闻公告模版,放到单位服务器上正常运行。但在进行文件上传下载时出现问题。服务器配置是iis7+win2008,网站是asp+access开始时上传文件只能是2...
网上的asp新闻公告模版,放到单位服务器上正常运行。但在进行文件上传下载时出现问题。
服务器配置是iis7+win2008,网站是asp+access
开始时上传文件只能是2m以内,后根据网上教程,上传限制没有了。。。但下载的文件就是不行(PS:2m以内的文件没有问题)。
比如,上传15m的rar文件,在服务器上能打开;但客户端下载后查看大小发现只有1.97m,然后打开时提示压缩文件损坏。
附download.asp代码,请指教!!!
<!--#include file="conn.asp"-->
<!--#include file="config.asp"-->
<!--#include file="char.inc"-->
<%
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
Dim Stream
Dim Contents
Dim FileName
Dim TrueFileName
Dim FileExt
Dim SavePath
Const adTypeBinary = 1
FileName = Request.QueryString("FileName")
If FileName = "" Then
Response.Write "无效文件名!"
Response.End
End if
'SQL注入检测
FileName =ChkRequest(FileName, 0)
'验证在上传文件表(db_wygkcn_Attach_Table)中是否存在,存在的才允许下载
Dim Rs, Sql
Set Rs=server.CreateObject("ADODB.RecordSet")
Sql = "SELECT Wygkcn_ArticleID FROM "& db_wygkcn_Attach_Table &" WHERE filename='"& FileName &"'"
Rs.Open Sql, Conn, 1, 1
If (Rs.BOF Or Rs.EOF) Then
Response.Write "此文件不存在!"
Response.End
Else
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 展开
服务器配置是iis7+win2008,网站是asp+access
开始时上传文件只能是2m以内,后根据网上教程,上传限制没有了。。。但下载的文件就是不行(PS:2m以内的文件没有问题)。
比如,上传15m的rar文件,在服务器上能打开;但客户端下载后查看大小发现只有1.97m,然后打开时提示压缩文件损坏。
附download.asp代码,请指教!!!
<!--#include file="conn.asp"-->
<!--#include file="config.asp"-->
<!--#include file="char.inc"-->
<%
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
Dim Stream
Dim Contents
Dim FileName
Dim TrueFileName
Dim FileExt
Dim SavePath
Const adTypeBinary = 1
FileName = Request.QueryString("FileName")
If FileName = "" Then
Response.Write "无效文件名!"
Response.End
End if
'SQL注入检测
FileName =ChkRequest(FileName, 0)
'验证在上传文件表(db_wygkcn_Attach_Table)中是否存在,存在的才允许下载
Dim Rs, Sql
Set Rs=server.CreateObject("ADODB.RecordSet")
Sql = "SELECT Wygkcn_ArticleID FROM "& db_wygkcn_Attach_Table &" WHERE filename='"& FileName &"'"
Rs.Open Sql, Conn, 1, 1
If (Rs.BOF Or Rs.EOF) Then
Response.Write "此文件不存在!"
Response.End
Else
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 展开
若以下回答无法解决问题,邀请你更新回答
1个回答
展开全部
我不知道你怎么解决的上传限制问题,但根源都在iis7配置上,参考这个网址看下吧
http://www.cnblogs.com/juexin/archive/2012/07/18/2597736.html
http://www.cnblogs.com/juexin/archive/2012/07/18/2597736.html
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询