PRB:浏览到 WebClass 应用程序时,出现服务器对象错误“ASP 0177:800401f3”

症状

当您浏览到您的 WebClass 应用程序(Internet Information Server 应用程序)时,您会在浏览器中收到以下错误信息:
Server object error 'ASP 0177 :800401f3'
Server.CreateObject failed
YourWebClass.asp, line 8
Invalid class string
其中第 8 行包含以下代码:
Set Application("~WC~WebClassManager") = Server.CreateObject("WebClassRuntime.WebClassManager")
				

原因

您的 Web 服务器上不存在“WebClass 运行时”文件 (Mswcrun.dll),或者“WebClass 运行时”没有注册。“WebClass 运行时”是您的 WebClass 应用程序正常运行所需的系统文件之一。

解决方案

验证您的 Web 服务器上是否存在“WebClass 运行时”。如果不存在,请使用“打包和展开向导”创建标准的安装程序包。在 Web 服务器上运行安装程序包,以安装和注册所需的系统文件(其中包括“WebClass 运行时”)。

如果 Web 服务器上存在“WebClass 运行时”,您必须对它进行注册。为此,请在命令提示符下键入以下命令:
regsvr32 "C:/Program Files/Common Files/Designer/mswcrun.dll"
					
注意:身份验证用户(如果使用匿名访问,则为 IUSR_machinename)需要具有对 Mswcrun.dll 的“读取”和“执行 NTFS”的权限。

状态

这种现象是设计所导致的。

参考

有关其他信息,请单击下面的文章编号,以查看 Microsoft 知识库中相应的文章:
242550 (http://support.microsoft.com/kb/242550/) INFO:运行 WebClasses(IIS 应用程序)需要系统文件

这篇文章中的信息适用于:
Microsoft Internet Information Server 3.0
Microsoft Internet Information Server 4.0
Microsoft Internet Information Services 5.0
Microsoft Visual Basic 6.0 企业版
Microsoft Visual Basic 6.0 专业版
关键字: 
kberrmsg kbwebclasses kbprb KB258932

ASP 0177 : 800401f3 Server.CreateObject 失败

09-18

服务器对象 错误 'ASP 0177 : 800401f3' rnrnServer.CreateObject 失败 rnrn/manage/news/main/inf_update.asp,行75 rnrn无效的 ProgID。 rnrn租用的空间,提交后ftp上有图片,但是数据库picture字段(网页上的flash幻灯片读取改值)没有更新。rnrn附代码:rn Dim Jpeg,Pathrn Set Jpeg = Server.CreateObject("Persits.Jpeg")rn ' 图片所在位置rn Path = Server.mappath("../../file/" & newname) rn ' 打开rn Jpeg.Open Pathrn ' 设置缩略图大小rn Jpeg.Width = 120rn Jpeg.Height = 90rn ' 保存缩略图到指定文件夹下rn Jpeg.Save Server.MapPath("../../outline") & "/" & newnamern ' 注销实例rn Set Jpeg = Nothingrn rn imgupdate="update img set [name]='"&newname&"',title='"&title&"' where [name]='"&upload.form("img_check")&"'"rn conn.execute imgupdatern rn sql="update news set title='" & title & "',body='" & artbody & "',picture='" & newname & "',last_update='" & datetime & "',admin='"&session("admin")&"',sort='" & type_name & "',sort_sn='"&type_sn&"'"rnrnelsern sql="update news set title='" & title & "',body='" & artbody & "',last_update='" & datetime & "',admin='"&session("admin")&"',sort='" & type_name & "',sort_sn='"&type_sn&"'"rnend ifrnrnif upload.form("agree")="true" thenrn sql=sql&",agree=1"rnelsern sql=sql&",agree=0"rnend ifrnif upload.form("top")="true" thenrn sql=sql&",[top]=1"rnelsern sql=sql&",[top]=0"rnend ifrnif upload.form("img")="true" thenrn sql=sql&",img=1"rnelsern sql=sql&",img=0"rnend ifrnsql=sql&" where id=" & idrn'response.Write sqlrn'response.End()rnconn.execute sqlrnconn.execute "update img set title='"&title&"' where title='"&upload.form("img_title")&"'"rnrnid_check.closernset id_check=nothingrnrnset upload=nothingrnconn.execute "update admin set add_last='"&now()&"' where admin='"&session("admin")&"'"rncall windowclose("修改成功!")

在线急等图片上传:Server 对象 错误 'ASP 0177 : 800401f3'

08-26

rn<%scripttimeout=4rnResponse.Buffer=truernResponse.ExpireS =0rnserver.scripttimeout=4rn%>rnrn rn rnrn<%rnrnif Request.ServerVariables("REQUEST_METHOD") <> "POST" thenrnid=request("id")rnrn%>rnrn rn 上 传 图 片rn rn将你在自己电脑里的图片上传到服务器 rn要求图片必须为jpg文件,小于10K,宽高为150:50 rnrnrnrn rn注意:只能上传自己电脑里的图片 rnrnrn图片地址: rnrnrnrnrnrn<%else%>rn rn<%rndim conn,sql,rs2,id,mExtName,photo,w,y,FileObjrnrnrnid=request("id")rnset conn=server.createobject("adodb.connection")rnconn.open connstrrnsql="Select id from adv where id="&idrnrnset rs2=server.createobject("adodb.recordset")rnrs2.open sql,conn,0,1rnrnrn'################################rn Set FileObj=Server.CreateObject("DBstep.FileUpLoad")<---"Server.CreateObject 失败 "rn '设置文件路径rn FileObj.FilePath=Server.MapPath("..") & "\adv\"rn If FileObj.FileSize("fileb")>0 thenrn '取得扩展名rn mExtName = FileObj.ExtName("fileb")rn if ucase(mExtName) <>".JPG" or FileObj.FileSize("fileb")>12480 thenrn Response.write "文件格式不对,或文件太大!快速返回"rn'Response.write mExtName&FileObj.FileSize("fileb")rnelsernw=FileObj.SaveFile("fileb",id & mExtName)rn 'Response.write FileObj.SaveFile("fileb",id & mExtName)rnif w="True" thenrnphoto=id & mExtNamern Response.write "上传成功!关闭窗口"rnconn.execute("Update adv set image='"&photo&"' where id="&id)rnrnrnelsern Response.write "不成功,请返回重试!快速返回"rnend ifrnend ifrnEnd Ifrnrs2.closernset rs2=nothing rnconn.close rnset conn=nothing rnend ifrnrnrn%>rnrnrnrnrnrnrnrnrnrn运行以上代码就出现:rnServer 对象 错误 'ASP 0177 : 800401f3' rnrnServer.CreateObject 失败 rnrn/manager/Uploadadv.asp,行 71 rnrn800401f3 rnrn小弟实在是改不过来,请大狭帮忙,谢先!!!!rn如有什么需要小弟解释的请问,小弟在线 再谢!!!rn

上传图片问题。急!Server 对象 错误 'ASP 0177 : 800401f3'

06-02

我的网站点上传的时候提示rnrnrnServer 对象 错误 'ASP 0177 : 800401f3' rnrnServer.CreateObject 失败 rnrn/51lrmanage/Inc/UPLOAD_IMG.ASP,行 32 rnrn800401f3 rnrnrnupload_img.asp 代码是。红色是32行rnrnrnrn<%rnfunction GetExtendName(FileName)rn dim ExtNamern I = InstrRev(FileName,".")rn ExtName = Right(FileName,len(FileName)-I)rn GetExtendName = ExtNamernend functionrnrnfunction GetMainName(FileName)rn dim MainNamern 'Response.Write FileNamern 'Response.End rn I = InstrRev(FileName,".")rn MainName = Left(FileName,I-1)rn GetMainName = MainNamernend functionrnrniname = Request.QueryString("iname")rnif iName="" then rn call MsgBox("将保存的相对路径名称不能为空",1)rnEnd IfrnrnIf Request.ServerVariables("REQUEST_METHOD") = "POST" and Request.QueryString("type")<>"" Thenrn 'Response.End rn rn call CreateDIR(Application("ProductIMG"))rnrn 'UpLoadFileName = file.FileNamern Set Fs = Server.CreateObject("scripting.filesystemobject")rn Set objUpload = Server.CreateObject("aspcn.upload")rn ImgDirectory = Server.MapPath(Application("ProductIMG"))rn nstr = Cstr(NowFlag)rn rn SavedFileName = nstr & ".jpg"rn smallFileName = nstr & "_small.jpg"rn bigFileName = nstr & "_big.jpg"rnrn TempFileName = nstr & ".tmp"rnrn Tfile = server.MapPath(Application("ProductIMG")& TempFileName)rn ufile = server.MapPath(Application("ProductIMG")& SavedFileName)rn sfile = server.MapPath(Application("ProductIMG")& smallFileName)rn bfile = server.MapPath(Application("ProductIMG")& bigFileName)rnrn objupload.maxsize = 100000000 '设定文件最大长度不超过100K,默认值为100Krn objupload.overwrite = 2 '设定如果目标文件存在,进行覆盖,默认为1,表示不能覆盖 rn objupload.path = ImgDirectory '设定上传到服务器的路径,这里必须为绝对路径,默认值为c:\rn objupload.uptofile = 1 '设置为上传后保存为文件rn objUpload.NewFileName = TempFileNamernrn varResult = objUpload.Upload '调用upload方法将文件保存rn 'ExtName = GetExtendName(objupload.filename("Img"))rn rn If varResult<>"OK" Then '如果varResult返回OK,则文件上载成功rn Call Msgbox("上传失败!",1)rn End Ifrn rn '这里处理图片的大小.如果是小图的话,就处理,如果是大图的话,就不处理.rn SImg = Tfilern DImg = ufilern rn smallImgWidth = Application("ImgSmallWidth")rn smallImgHeight= Application("ImgSmallHeight")rnrn BigImgWidth = Application("ImgBigWidth")rn BigImgHeight= Application("ImgBigHeight")rn rn 'If Lcase(iName) = "big_pic" thenrn 'Call ProcessImg(SImg,bfile,bigImgWidth,bigImgHeight)rn 'End IFrn Call ProcessImg(SImg,sfile,smallImgWidth,smallImgHeight) '小图rn Call ProcessImg(SImg,bfile,bigImgWidth,bigImgHeight) '大图rn 'Call ProcessImg(SImg,DImg,Application("ImgBigWidth"),Application("ImgBigHeight")) '巨图rn Call Fs.CopyFile(SImg,DImg)rn rn Call delFile(Application("ProductIMG")& TempFileName)rn 'Call delVFile(SImg)rnrn set objUpload = nothingrn Set Fs = nothingrnrn NewsID = Trim(Session("newsID"))rn Filelink = Application("ProductIMG") & SavedFileNamern 'FileName = UpLoadFileNamern FileName = SavedFileNamern %> rn rn <%rnResponse.End rnend ifrn%>rnrnrnrnrn rn rn rn rn rn rnrn

没有更多推荐了,返回首页

私密
私密原因:
请选择设置私密原因
  • 广告
  • 抄袭
  • 版权
  • 政治
  • 色情
  • 无意义
  • 其他
其他原因:
120
出错啦
系统繁忙,请稍后再试

关闭