28,390
社区成员
发帖
与我相关
我的任务
分享上传文件提示服务器对象 错误 'ASP 0177 : 800401f3'
服务器对象 错误 'ASP 0177 : 800401f3'
Server.CreateObject 失败
/Upload.asp，行11
无效的 ProgID。
原文件如下：
<HTML>
<HEAD>
<TITLE>文档上传结果</TITLE>
</HEAD>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="/iqbank.css" type="text/css">
<BODY>
<CENTER>
<%
filename="Filename"
Set obj = Server.CreateObject("LyfUpload.UploadFile")
file_type= obj.request("Filename")
Parent=Trim(obj.request("Parent"))
Title=Trim(obj.request("Title"))
Keyword=Trim(obj.request("Keyword"))
Dep=Trim(obj.request("Dep"))
path=Server.MapPath("pages") & "\" & Dep
ss=obj.SaveFile(filename, path, true)
if ss<> "" then
Response.Write "<P> </P><P> </P>选择的文件已经成功上载！<BR>"
Response.Write("<BR>文件名：" &ss&"<br>")
Response.Write("<BR>文件大小：" &obj.FileSize&" Bytes<br>")
Set con=server.createobject("adodb.connection")
con.open application("sql_connect")
sql="Insert into page(parent,title,keyword,url,bytes,svc_usr,svc_time,dep) values('" & Parent & "','" & Title & "','" & Keyword & "','" & ss & "','" & obj.FileSize &"','"& session("fullname") &"','"& cstr(now()) &"','"& Dep &"')"
con.execute(sql)
else
Response.Write "<BR><BR><BR><BR>选择的文件上载失败！<BR>"
Response.Write("文件名：" & ss &"<br>")
end if
set obj= nothing
%></CENTER>
</BODY>
<P> </P>
<P> </P>
<CENTER><INPUT TYPE="button" Value="返回" Onclick="javascript:history.back(-1)" class="txt"></CENTER>
</HTML>
Server.CreateObject 失败
/Upload.asp，行11
无效的 ProgID。
原文件如下：
<HTML>
<HEAD>
<TITLE>文档上传结果</TITLE>
</HEAD>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="/iqbank.css" type="text/css">
<BODY>
<CENTER>
<%
filename="Filename"
Set obj = Server.CreateObject("LyfUpload.UploadFile")
file_type= obj.request("Filename")
Parent=Trim(obj.request("Parent"))
Title=Trim(obj.request("Title"))
Keyword=Trim(obj.request("Keyword"))
Dep=Trim(obj.request("Dep"))
path=Server.MapPath("pages") & "\" & Dep
ss=obj.SaveFile(filename, path, true)
if ss<> "" then
Response.Write "<P> </P><P> </P>选择的文件已经成功上载！<BR>"
Response.Write("<BR>文件名：" &ss&"<br>")
Response.Write("<BR>文件大小：" &obj.FileSize&" Bytes<br>")
Set con=server.createobject("adodb.connection")
con.open application("sql_connect")
sql="Insert into page(parent,title,keyword,url,bytes,svc_usr,svc_time,dep) values('" & Parent & "','" & Title & "','" & Keyword & "','" & ss & "','" & obj.FileSize &"','"& session("fullname") &"','"& cstr(now()) &"','"& Dep &"')"
con.execute(sql)
else
Response.Write "<BR><BR><BR><BR>选择的文件上载失败！<BR>"
Response.Write("文件名：" & ss &"<br>")
end if
set obj= nothing
%></CENTER>
</BODY>
<P> </P>
<P> </P>
<CENTER><INPUT TYPE="button" Value="返回" Onclick="javascript:history.back(-1)" class="txt"></CENTER>
</HTML>
...全文
请发表友善的回复…
发表回复
redstorm11 2004-09-13
- 打赏
- 举报
LyfUpload上传组件要在服务器上注册后才能运行
开始-运行 regevr32 组件路径
开始-运行 regevr32 组件路径
lvliang820113 2004-09-13
- 打赏
- 举报
???
我是菜鸟，boss要我解决这个系统的上传文件的问题。我跟本不懂。能不能说的详细点。汗汗~~~~
先行谢过！！！
我是菜鸟，boss要我解决这个系统的上传文件的问题。我跟本不懂。能不能说的详细点。汗汗~~~~
先行谢过！！！
redstorm11 2004-09-13
- 打赏
- 举报
注册组建
lvliang820113 2004-09-13
- 打赏
- 举报
楼上的：你好
我注册了lyfupload后，还是不行啊。请继续指教！！！
我注册了lyfupload后，还是不行啊。请继续指教！！！
