上传组件错误..详细见内

[army9633]

服务器对象 错误 'ASP 0178 : 80070005'

Server.CreateObject 访问错误

/zytxl/upphoto.asp，行11

检查权限时Server.CreateObject 的调用失败。对此对象的访问被拒。


Set myobj = Server.Createobject("LyfUpload.UploadFile")

是什么问题呢?

[army9633]

米有人知道吗?

[wanghr100]

你的组件没有注册到你的机器上，得注册.
注册命令是：
c:\winnt\system32\regsvr32.exe d:\LyfUpload.dll

[luluso]

Set myobj = Server.Createobject("LyfUpload.UploadFile")
asp探针探lyfupload组件有时不准.

[chinesun]

在运行中输入：
c:\winnt\system32\regsvr32.exe [D:]\[path]\LyfUpload.dll
其中[D:]\[path]\指组件所在目录

[超级大笨狼]

注册问题，我用aspsmatuplaod

<META name=VI60_defaultClientScript content=VBScript>

<%

Dim cn, objUpload,Rs
Dim strDSN,strSQL,StrDir,StrFileName

Set objUpload = Server.CreateObject("aspSmartUpload.SmartUpload")
Set cn=Server.CreateObject("ADODB.connection")
Set Rs = Server.CreateObject("ADODB.Recordset")

objUpload.Upload
objUpload.Save "upload"
StrFileName=objUpload.Files(1).FilePathName
FilenameArray=split(StrFileName,"\")
StrFileName=FilenameArray(ubound(FilenameArray))


DepName=Request.QueryString("DepName")

strDSN = "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("DBfile.mdb")
cn.Open strDSN
strSQL="select * from Department where DepName='" & DepName & "'"
Rs.Open strSQL,cn,3,2
if Rs.RecordCount>0 then
'Rs.Find Rs("DepName")=DepName
Rs("FileName")=StrFileName
Rs.Update
end if

Rs.Close
Set rs = Nothing


cn.Close
Set adocon = Nothing


%>
<SCRIPT LANGUAGE=vbscript>
<!--
randomize
window.location.href ="index.asp?temp=" & rnd & "#ddd"
-->
</SCRIPT>

[army9633]

寒..我是用
regsvr32.exe LyfUpload.dll注册的
因为把LyfUpload.dllCOPY了在SYSTEM里面
结果...结果居然会是这样..大晕死

[army9633]

注册时显示成功了..可还是不能用

[beststone]

iis程序没有创建组建的权限

[army9633]

可ASP探针上显示这个组件能用

如果是你说的情况..该怎么解决呢?

[jam19791110]

关注一下。。。。