关于调用自己写的组件，总有问题，请高手指点，给50分！

[zuxian]

这是我用VB写的DLL：(工程名是unzip ，工程文件名是:工程1.vbp,模块名class1）

Dim xceedzip1 As XceedZip '这是调用OCX控件

Function unzip(filename As String, path As String)
xceedzip1.ZipFileName = filename
xceedzip1.ExtractDirectory = path
unzip = xceedzip1.Extract(0)
End Function

我在ASP中这样写：

<%

dim faint
set faint=server.createobject("unzip.class1")
index= faint.unzip("d:\xceedzip\test.zip","d:\xceedzip\123")
set faint=nothing
%>


错误如下：
unzip error '800a005b'

未设置对象变量或 With block 变量

/site/test.asp, line 5



请指点！急等用

[ExitWindows]

up

[karma]

1.make sure you have registered your component using "regsvr32 unzip.dll"

2.Dim xceedzip1 As New XceedZip

[zuxian]

1。注册了 ，这个我肯定
2。用dim xceedzip1 as new 时VB里面给出的可选项没有那个OCX控件

该怎么办？

我把他改成:

Dim xceedzip1 As XceedZip '这是调用OCX控件

Function unzip(filename,path)
set xceedzip1.ZipFileName = filename
set xceedzip1.ExtractDirectory = path
unzip = xceedzip1.Extract(0)
End Function

这样后，又有错误：
“未设置对象名”

[ExitWindows]

up