今天有用户像我反映 易达CMS无组件上传突然不好用了
结果我登录后台一试，提示如下：
Microsoft VBScript 运行时错误 '800a01fa'
类没有被定义: 'upload_5xSoft'
我的第一反映是虚拟主机的问题。可能是被屏蔽了。上网一搜。果然有一篇文件帮我解决了文章内容如下：这两天发现诺顿隔离区里多出了一些无组件上传的文件, 可能是通过ado.stream组件上传的代码的原因,这段代码被不少安全机构认为是对于Web服务器有恶意威胁,诺顿对其进行了隔离. 所谓“无组件上传”，是指通过Windows服务器内建ADO.Stream对象实现的一种文件上传方式，一般用于客户的图片，文件等Web上传程序，相对于其他上传方式来说，无组件上传没有特殊的组件要求，但是其上传功能是继承自asp内部对象，上传功能不是非常稳定，对于asp脚本执行时间有较高要求，并对于上传大小有一定限制。因此，虽然一些主机支持此功能，但更推荐使用ASPUpload等第三方上传组件。 如果你必须使用无组件上传的话,经过测试适当修改可以避免被杀毒软件认为是病毒 无组件文件的解决方法：
将UPLOAD_5XSOFT.inc文件中的以下代码：
dim RequestData,sStart,vbCrlf,sInfo,iInfoStart,iInfoEnd,tStream,iStart,theFile
dim iFileSize,sFilePath,sFileType,sFormValue,sFileName
dim iFindStart,iFindEnd
dim iFormStart,iFormEnd,sFormName 改成：
dim RequestData,sStart,vbCrlf,sInfo,iInfoStart,iInfoEnd,tStream,iStart
dim theFile
dim iFileSize,sFilePath,sFileType,sFormValue,sFileName
dim iFindStart,iFindEnd
dim iFormStart,iFormEnd,sFormName 动网论坛的upload文件的解决方法：
将upload.inc文件内的以下代码：
Dim RequestBinDate,sSpace,bCrLf,sInfo,iInfoStart,iInfoEnd,tStream,iStart,oFileInfo 改成：
Dim RequestBinDate,sSpace,bCrLf,sInfo,iInfoStart,iInfoEnd,tStream,iStart
Dim oFileInfo
还有些用愿意用NETBOX来调试网站。NETBOX不支持组件 所以我们要把 <SCRIPT RUNAT=SERVER LANGUAGE=VBSCRIPT> 换成 <%
接着把</script> 换 成 %> 就OK。
| 
收藏
