-
本版专家分：452结帖率 98.13% -
压缩3M以下时正常，超过了CHROME就显示 "该网页无法正常运作 ,ERR_CONTENT_LENGTH_MISMATCH"信息
哪位知道如何解决这个问题，TKS
-
本版专家分：187808
-
- 进士 2009年 总版技术专家分年内排行榜第七
-
- 金牌 2009年9月 总版技术专家分月排行榜第一
-
- 银牌 2009年8月 总版技术专家分月排行榜第二
-
-
红花
2011年11月 Web 开发大版内专家分月排行榜第一
2009年10月 Web 开发大版内专家分月排行榜第一
2009年9月 Web 开发大版内专家分月排行榜第一
2009年8月 Web 开发大版内专家分月排行榜第一
2009年7月 Web 开发大版内专家分月排行榜第一
2009年6月 Web 开发大版内专家分月排行榜第一
2007年7月 Web 开发大版内专家分月排行榜第一
2007年6月 Web 开发大版内专家分月排行榜第一
-
-
如果是和content length相关，应该是输出的问题吧，计算下压缩后的文件大小，输出正确的content-length http头试试看
-
本版专家分：17192 -
服务器用WScript.Shell组件调用winrar中的rar.exe，在代码的同目录要上传cmd.exe和rar.exe
用法：rar.asp?path=要压缩的文件夹&rarname=压缩后的文件名&includefolder=包括子文件夹就不会空
<%
'用法http://xx/rar.asp?path=要压缩的文件夹&rarname=压缩后的文件名&includefolder=包插子文件夹就不会空，
on error resume next
AppPath=server.mappath(".")&"/" '存放RAR.EXE和CMD.EXE的路径
zipfolder=server.mappath(request("path"))&"/" '要压缩的文件或文件夹
rarfile = request("rarname")
thispath = server.mappath(".")&"/"
if zipfolder<>"" and rarfile<>"" then
Set Shell = Server.CreateObject("WScript.Shell")
if err.number<>0 then
response.write "服务器不支持"
response.end
end if
if request("includefolder")<>"" then
cmd= thispath&"cmd.exe /c "&thispath&"rar.exe a -ep1 -r -t -o+ "&thispath&rarfile&" "& zipfolder &""
else
cmd= thispath&"cmd.exe /c "&thispath&"rar.exe a -ep1 -t -o+ "&thispath&rarfile&" "& zipfolder &""
end if
'response.write cmd
RetCode = Shell.Run(cmd,1, True)
response.write "<a href='"&rarfile&"'>"&rarfile&"</a>"
if err.number<>0 then
response.write "<a href='"&rarfile&"'>"&rarfile&"</a>"
else
response.write err.description
end if
else
response.write "没有参数"
end if
%>
-
本版专家分：452
-
感觉和这个有关，但是没找到相关设置方法，都是C#的
-
本版专家分：452
-
下面是下载函数，压缩大文件完成了，下载一直无法完成，页面假死
Function downloadFile(strFile)
' make sure you are on the latest MDAC version for this to work
' -------------------------------------------------------------
' get full path of specified file
strFilename = server.MapPath(strFile)
' clear the buffer
Response.Buffer = True
Response.Clear
' create stream
Set s = Server.CreateObject("ADODB.Stream")
s.Open
' Set as binary
s.Type = 1
' load in the file
on error resume next
' check the file exists
Set fso = Server.CreateObject("Scripting.FileSystemObject")
if not fso.FileExists(strFilename) then
Response.Write("<h1>Error:</h1>" & strFilename & " 文件不存在<p>")
Response.End
end if
' get length of file
Set f = fso.GetFile(strFilename)
intFilelength = f.size
s.LoadFromFile(strFilename)
if err then
Response.Write("<h1>Error:文件下载错误 </h1>""<p>")
Response.End
end if
' send the headers to the users browser
Response.AddHeader "Content-Disposition", "attachment; filename=" & f.name
Response.AddHeader "Content-Length", intFilelength
Response.CharSet = "UTF-8"
Response.ContentType = "application/octet-stream"
' output the file to the browser
Response.BinaryWrite s.Read
Response.Flush
' tidy up
s.Close
Set s = Nothing
End Function