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

zuxian zuxian 墨衍会员 · AI 创作全网分发 墨衍智能分发 通过墨衍一键同步至各平台 可同步平台 CSDN微信公众号微博知乎掘金百家号博客园抖音小红书 你的文章也可以这样分发 墨衍会员 ¥399起/年,写一次发全网 我也要 + 加入社区
这是我用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



请指点!急等用
...全文

相关推荐

评论 4
收藏 已收藏
分享
返回顶部
zuxian
ASP 28,401 成员 356,940 内容