Server 对象 错误 'ASP 0177 : 800401f3' Server.CreateObject 失败

肥马 2012-03-18 01:24:56
换了VPS以后，上传图片就会报错。
以下是详细信息。希望大家帮忙解答一下。


...全文
884 18 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
18 条回复
切换为时间正序
请发表友善的回复…
发表回复
孟子E章 2012-03-19
  • 打赏
  • 举报
 回复
另外。下载的包中有例子代码
孟子E章 2012-03-19
  • 打赏
  • 举报
 回复
[Quote=引用 16 楼 mkailxr 的回复:]

引用 15 楼 net_lover 的回复:

server.createobject("anasp.AnUpload") 就代表有组件的，必须在服务器上注册组件，服务器你不能控制的话，只能使用无组件代码


服务器可以控制，问题就是 我不知道该如何注册组件。
[/Quote]

到
http://dev.mo.cn/source_167.html
下载文件 解压，执行里面的注册或者反注册
或者自己注册
命令行执行
regsvr32 d:\文件夹名称\AnUpload.dll
肥马 2012-03-19
  • 打赏
  • 举报
 回复
[Quote=引用 15 楼 net_lover 的回复:]

server.createobject("anasp.AnUpload") 就代表有组件的，必须在服务器上注册组件，服务器你不能控制的话，只能使用无组件代码
[/Quote]

服务器可以控制，问题就是 我不知道该如何注册组件。
孟子E章 2012-03-19
  • 打赏
  • 举报
 回复
server.createobject("anasp.AnUpload") 就代表有组件的，必须在服务器上注册组件，服务器你不能控制的话，只能使用无组件代码
肥马 2012-03-19
  • 打赏
  • 举报
 回复
我也不清楚到底是有组件 还是没有组件的版本
我说是无组件版本也是因为 有别人给我说的。


set Upload=server.createobject("anasp.AnUpload")
刚才没改是 因为
之前的VPS可以用
换了新VPS以后就没法用了
期间，没涉及到代码修改 知识数据的转移
肥马 2012-03-19
  • 打赏
  • 举报
 回复
[Quote=引用 12 楼 net_lover 的回复:]

不是给你说无组件不能使用
set Upload=server.createobject("anasp.AnUpload")
的吗？
你怎么不改呢？
[/Quote]

改了以后：
Microsoft VBScript runtime 错误 '800a01fa'

孟子E章 2012-03-19
  • 打赏
  • 举报
 回复
不是给你说无组件不能使用
set Upload=server.createobject("anasp.AnUpload")
的吗？
你怎么不改呢？
肥马 2012-03-19
  • 打赏
  • 举报
 回复
<title>上传</title>
<style type="text/css">
TABLE {border:1px green solid;margin-top:5px;}
TD{border-bottom:1px #dddddd solid;height:20px;padding:3px 0 0 5px;}
.head{background-color:#eeeeee;}
</style>
</head>
<body style="font-size:12px">
请选择一个文件进行上传:<br />
<form name="upload" method="post" action="婚纱img2.asp?act=upload" enctype="multipart/form-data">
选择文件:<input class="iFile" id="婚纱img2" type="file" name="婚纱img2" size="30" />
<input class="iButton" type="submit" value="上传" />
</form>

<%
if request.querystring("act")="upload" then
Dim Upload,successful,str
str=""
'===============================================================================
set Upload=server.createobject("anasp.AnUpload") '创建类实例
Upload.SingleSize=10*1024*1024 '设置单个文件最大上传限制,按字节计；默认为不限制
Upload.MaxSize=10*1024*1024 '设置最大上传限制,按字节计；默认为不限制
Upload.Exe="rar|jpg|bmp|gif" '设置合法扩展名,以|分割,忽略大小写
Upload.GetData() '获取并保存数据,必须调用本方法
'===============================================================================
if Upload.ErrorID>0 then '判断错误号,如果myUpload.ErrorID<=0表示正常
response.write Upload.Description '如果出现错误,获取错误描述
else
if Upload.forms("婚纱img2")<>"" then '这里判断你file1是否选择了文件
path=server.mappath("4f718909001304be") '文件保存路径(这里是files文件夹)
set tempCls=Upload.files("婚纱img2")
successful2=tempCls.SaveToFile(path) '以时间+随机数字为文件名保存
'successful=tempCls.SaveToFile(path,1) '如果想以原文件名保存,请使用本句
if successful2 then
str="upload/4f718909001304be/" & tempCls.FileName
end if
set tempCls=nothing
end if
end if
set Upload=nothing '销毁类实例
if str<>"" then
%>
<script type="text/javascript">
window.opener.document.all.婚纱img2.value='<%=str%>';
window.opener=null;
window.close();
</script>
<%
end if
end if
%>
</body>
</html>

以上是 婚纱img2.asp的内容


<!--#include file="UpLoad_Class.asp"-->
<%
on error resume next
Server.ScriptTimeout = 9999999
Dim Upload,successful,thisFile,allFiles,upPath,path
set Upload=new AnUpLoad
Upload.openProcesser=true '打开进度条显示
Upload.SingleSize=512*1024*1024 '设置单个文件最大上传限制,按字节计；默认为不限制，本例为512M
Upload.MaxSize=1024*1024*1024 '设置最大上传限制,按字节计；默认为不限制，本例为1G
Upload.Exe="*" '设置允许上传的扩展名
Upload.GetData()
if Upload.ErrorID>0 then
upload.setApp "faild",1,0 ,Upload.description
else
if Upload.files(-1).count>0 then
dim str
for each file in Upload.files(-1)
upPath=request.querystring("path")
path=server.mappath(upPath)
set tempCls=Upload.files(file)
upload.setApp "saving",Upload.TotalSize,Upload.TotalSize,tempCls.FileName
successful=tempCls.SaveToFile(path,1)
thisFile="{name:'" & tempCls.FileName & "',size:" & tempCls.Size & "}"
allFiles=allFiles & thisFile & ","
set tempCls=nothing
next
upload.setApp "saved",Upload.TotalSize,Upload.TotalSize,allFiles
else
upload.setApp "faild",1,0,"没有上传任何文件"
end if
end if
if err then upload.setApp "faild",1,0,err.description
set Upload=nothing
response.end
%>

以上是 upload.asp的内容

孟子E章 2012-03-19
  • 打赏
  • 举报
 回复
无组件版
set Upload=new AnUpLoad

组件版
set Upload=server.createobject("Anasp.AnUpload")
孟子E章 2012-03-19
  • 打赏
  • 举报
 回复
要使用anasp.AnUpload无组件类，去看使用文档啊
http://www.google.com.hk/search?q=anasp.AnUpload&ie=utf-8&oe=utf-8&aq=t&rls=org.mozilla:zh-CN:official&client=firefox-a
孟子E章 2012-03-19
  • 打赏
  • 举报
 回复
[Quote=引用 3 楼 mkailxr 的回复:]

引用 2 楼 mkailxr 的回复:
引用 1 楼 net_lover 的回复:
你的dll没有注册吧，要
RegSvr32 x:\xxx.dll
进行注册


注册了的


貌似我注册的不是这个 是别的去了……
艾恩 是无组件上传类，这个怎么注册呢？
查了相关的 貌似都没找到要注册的呢。
[/Quote]

无组件不是使用Server,CreateObject创建的，直接New xClass
肥马 2012-03-19
  • 打赏
  • 举报
 回复
[Quote=引用 5 楼 dogfish 的回复:]

看看是否有权限去调用。看admint里的com+服务。
[/Quote]
能不能稍微详细一点？我不是很懂
肥马 2012-03-19
  • 打赏
  • 举报
 回复
[Quote=引用 4 楼 hookee 的回复:]

CreateObject的, 一定用是组件的。
有VS或COM Explorer的话可以查一下dll的progid是不是 anasp.AnUpload
[/Quote]

VS没有，其次，COM Explorer也不会查看dll.
Dogfish 2012-03-19
  • 打赏
  • 举报
 回复
看看是否有权限去调用。看admint里的com+服务。
hookee 2012-03-18
  • 打赏
  • 举报
 回复
CreateObject的, 一定用是组件的。
有VS或COM Explorer的话可以查一下dll的progid是不是 anasp.AnUpload
肥马 2012-03-18
  • 打赏
  • 举报
 回复
[Quote=引用 2 楼 mkailxr 的回复:]
引用 1 楼 net_lover 的回复:
你的dll没有注册吧，要
RegSvr32 x:\xxx.dll
进行注册


注册了的
[/Quote]

貌似我注册的不是这个 是别的去了……
艾恩 是无组件上传类，这个怎么注册呢？
查了相关的 貌似都没找到要注册的呢。
肥马 2012-03-18
  • 打赏
  • 举报
 回复
[Quote=引用 1 楼 net_lover 的回复:]
你的dll没有注册吧，要
RegSvr32 x:\xxx.dll
进行注册
[/Quote]

注册了的
孟子E章 2012-03-18
  • 打赏
  • 举报
 回复
你的dll没有注册吧，要
RegSvr32 x:\xxx.dll
进行注册
efang4.0 易方4.1的一个常见错误
错误 Server 对象 错误 ‘ASP 0177 : 800401f3’ Server.CreateObject 失败 /config.inc，行 14 原因: 如果懂的程序的朋友,看下config.inc的第14行应该是这样的:set efang = Server.CreateObject(“Efang41.Common”...
ASP0177错误解决方案
这个错误的全称是“Server 对象ASP0177 (0x800401F3)无效的类别字符串”，表明在尝试创建或使用一个服务器对象时，遇到了无法识别或者无效的类ID（CLSID）字符串。0x800401F3是Windows错误代码，表示找不到指定的...
persits.jpeg组件(破解版)下载
aspx1专用系列号 sn：17361-38566-42221 ...将以下代码保存为asp，拷贝在服务器上，用浏览器打开，看返回结果。 set jpeg=server.createobject("persits.jpeg") ...Server 对象, ASP 0177 (0x800401F3) 无效的类别字符串
学校成绩管理系统 v2006(人气_3772)-网络办公-ASP源码.rar
　2、问：无法打开登录界面，屏幕显示：‘服务器对象 错误 'ASP 0177 : 800401f3' Server.CreateObject 失败 /default.asp，行4 无效的 ProgID’。 答：未注册组件，请先双击安装目录下的reg.bat文件注册...
persits.jpeg组件(破解版)
persits.jpeg组件(破解版)下载 ... 非常捧的水印组件，玩服务器的人都知道，不再重复介绍了。不知道的请自行查找相关介绍。 ...最新版本v1.801 ...Server 对象, ASP 0177 (0x800401F3) 无效的类别字符串
ASP

28,409

社区成员

356,971

社区内容

发帖
与我相关
我的任务
社区描述
ASP即Active Server Pages，是Microsoft公司开发的服务器端脚本环境。
社区管理员
  • ASP
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今

加载中

查看更多榜单
社区公告
暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章