ASP调用WINRAR压缩文件， ERR_CONTENT_LENGTH_MISMATCH

2019-01-14 10:52:29 383 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

Windows免安装使用Claude Code的三种合规方案免安装运行AI编程工具是Windows开发者高频需求，其本质是绕过系统级安装、避免注册表写入与管理员权限依赖，实现解压即用或零依赖调用。技术原理上，核心在于利用VS Code便携模式、浏览器Service Worker代理机制及npx按需执行特性，合法复用Anthropic官方API（v1/messages）与网页端session token（anthropic-sid）。这类方案不涉及破解或模拟登录，具备强安全性与IT审计合规性，广泛适用于受限办公环境、客户现场演示、CI/CD自动化及临时开发场景。本文聚阅读详情

压缩3M以下时正常，超过了CHROME就显示 "该网页无法正常运作 ,ERR_CONTENT_LENGTH_MISMATCH"信息
哪位知道如何解决这个问题，TKS

...全文

Wiki.js 2.5.284 Windows 10/11 部署：MySQL 5.7 数据库配置与 3 步启动本文详细介绍了在Windows 10/11系统上部署Wiki.js 2.5.284的完整流程，重点讲解了MySQL 5.7数据库的配置与优化，以及3步快速启动方法。通过环境准备、数据库设置和Wiki.js安装的逐步指导，帮助用户高效搭建轻量级知识管理平台，提升团队协作效率。阅读详情

slysmart

ASP 28,401 成员 356,940 内容

+ 关注 + 加入社区

切换为时间正序

slysmart 2019-01-22

打赏
举报

下面是下载函数，压缩大文件完成了，下载一直无法完成，页面假死


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

slysmart 2019-01-21

打赏
举报

引用 1 楼 hookee 的回复:

如果是和content length相关，应该是输出的问题吧，计算下压缩后的文件大小，输出正确的content-length http头试试看

感觉和这个有关，但是没找到相关设置方法，都是C#的

hefeng_aspnet 2019-01-18

打赏
举报

服务器用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
%>

hookee 2019-01-14

打赏
举报

如果是和content length相关，应该是输出的问题吧，计算下压缩后的文件大小，输出正确的content-length http头试试看

ASP调用WINRAR压缩文件， ERR_CONTENT_LENGTH_MISMATCH

相关推荐