asp网站上传图片的时候，显示Server 对象错误 'ASP 0177 : 800401f3'，请问如何解决？

Server 对象错误 'ASP 0177 : 800401f3'
Server.CreateObject 失败
/maomao/upsave.asp，行 74
800401f3

--------------------------------------------------------------------------------------------------
下面是upsave.asp的代码：




<html>
<head>
<title>文件上传</title>
<meta name="Description" Content="">
<link rel="stylesheet" href="manage.css" type="text/css">
</head>
<body>
<%
fuptype=session("fuptype") '上传类型,adv表示广告图片,pic表示产品图片
fupname=session("fupname")      '传递文件名
frmname=session("frmname") '传递表单名
if fuptype="" or fupname="" or frmname="" then
response.write "<script language='javascript'>"
response.write "alert('出现错误，请重新上传！');"
response.write "location.href='javascript:history.go(-1)';"
response.write "</script>"
response.end
end if
%>

<%
set upload=new upload_5xsoft
set file=upload.file("file1")
if file.fileSize>0 then

    filename=fupname+"." '根据上一页传递过来的fupname决定主文件名
    filename_s=fupname+"_small"+"."

    filenameend=file.filename
    filenameend=split(filenameend,".") '确定扩展名
    n=UBound(filenameend)
    filename=filename&filenameend(n)
    filename_s=filename_s&filenameend(n)       '自己加确定小文件名


if fuptype<>"db" then
if file.fileSize>100000 then
response.write "<script language='javascript'>"
response.write "alert('您上传的文件太大，上传不成功，单个文件最大不能超过100K！');"
response.write "location.href='javascript:history.go(-1)';"
response.write "</script>"
response.end
end if
end if
if LCase(filenameend(n))<>"gif" and LCase(filenameend(n))<>"jpg" and LCase(filenameend(n))<>"swf" and LCase(filenameend(n))<>"htm" and LCase(filenameend(n))<>"mdb" then
response.write "<script language='javascript'>"
response.write "alert('不允许上传您选择的文件格式，请检查后重新上传！');"
response.write "location.href='javascript:history.go(-1)';"
response.write "</script>"
response.end
end if

  if fuptype="adv" then
savepath="../images/adv/"&filename '广告图片
savepath_s="../images/adv/"&filename_s '自己加
  elseif fuptype="pic" then
savepath="../pic/digi/"&filename
savepath_s="../pic/digi/"&filename_s '自己加
  elseif fuptype="link" then
savepath="../images/links/"&filename
savepath_s="../images/links/"&filename_s '自己加
  elseif fuptype="db" then
savepath="./"&filename
savepath_s="./"&filename_s '自己加
  end if
file.saveAs Server.mappath(savepath)

  '小图片
  Set Jpeg = Server.CreateObject("Persits.Jpeg")
  Jpeg.Open Server.mappath(savepath)'装载图片，也要记住有权限的问题
   set aa=server.CreateObject("xsofts.reg")
  pw=aa.getImageSize(Server.mappath(savepath),sn)(1)
  ph=aa.getImageSize(Server.mappath(savepath),sn)(2)

  rpw=aa.resize(pw, ph, 200,sn)(0)
  rph=aa.resize(pw, ph, 200,sn)(1)

  Set aa=Nothing

  'response.write rpw
  'response.write rph
  'response.end

  Jpeg.Canvas.Font.Color = &HFF0000 ' red 颜色
  Jpeg.Canvas.Font.size= "80"
  Jpeg.Canvas.Font.Family = "宋体" '字体
  Jpeg.Canvas.Font.Bold = True '是否加粗
'Jpeg.Canvas.Print 10, 10, "QQ13036036" ,136

  Jpeg.Width =rpw
  Jpeg.Height = rph
  Jpeg.Save Server.mappath(savepath_s) '保存
  Set jpeg = Nothing

response.write "文件上传成功!上传文件的物理路径为："
response.write "<font color=red>"&Server.mappath(savepath)&"</font><br>小图片物理路径为：<br>"&Server.mappath(savepath_s)
response.write "<a href='"&savepath&"'  target='_blank'>点击预览上传的大文件</a><br><a href='"&savepath_s&"'  target='_blank'>点击预览上传的小文件</a>"
response.write "<br><br><INPUT onclick='javascript:window.close();' type=submit value='上传完成'>"

    response.write "<script>window.opener.document.getElementById('previewImage').innerHTML = '<img src=\'..//"&savepath_s&"\' width=100 height=100  onload=\'ResizeImage(this, 100, 100);\'  align=absmiddle>';</script>"

%>
<script language=JavaScript>
function inserttext(){
<%
'根据fuptype的类型判断回传value值到什么表单，adv表示广告，PIC表示产品，links表示友情链接图片
if fuptype="adv" then
response.write "self.opener.adv."&frmname&".value ='images/adv/"&filename&"';"
elseif fuptype="pic" then
response.write "self.opener.prodtable."&frmname&".value ='pic/digi/"&filename&"';"
elseif fuptype="link" then
response.write "self.opener.prodtable."&frmname&".value ='images/links/"&filename&"';"
end if
%>
}
inserttext();
</script>
<%

else response.write "<script language='javascript'>"
response.write "alert('文件内容不能为空，单击“确定”返回上一页！');"
response.write "location.href='javascript:history.go(-1)';"
response.write "</script>"
response.end
end if
set upload=nothing
session("fuptype")=""
session("fupname")=""
session("frmname")=""
%>
</body>
</html>
--------------------编程问答-------------------- 是否上传的图片过大·
楼主可以在webconfig里面改下设置不过治标不治本。



	<system.web>

		<!--每次请求的文件最大为40M，最长响应时间为60秒-->

		<httpRuntime maxRequestLength="40960" executionTimeout="60"/>

补充：.NET技术 ,  ASP.NET

asp网站上传图片的时候，显示Server 对象 错误 'ASP 0177 : 800401f3'，请问如何解决？

asp网站上传图片的时候，显示Server 对象错误 'ASP 0177 : 800401f3'，请问如何解决？