用vb6 做了一个组件，调用时老是不行，帮忙看一下

[kink]

建立activex dll 工程：cc
类：aa
我把所有的代码都去掉了，还是不行
Public Function SaveFile(pathname As Variant) As String

On Err GoTo ErrorCode

SaveFile = "OK!"
Exit Function
ErrorCode: SaveFile = Err.Description
End Function

在服务器上注册后，在asp中调用
asp页面：
dim aso,k,filename
set aso=server.CreateObject("cc.aa") 写代码时给出了方法的提示，证明注册的没问题
.
.
.
k=aso.savefile(filename) 结果这行老是报错



刚开始写组件，不懂的挺多，望指教

[kink]

没人？？？

[qiao198]

是这样呀，

你用调试语句看看！

[kink]

请明示

[Tal]

k=aso.savefile(filename) 结果这行老是报错
--->>
报什么错啊?
你可用
k=aso.SaveFile(filename &"")

[kink]

页无法显示
试图访问的网页出现问题，无法显示。

--------------------------------------------------------------------------------

请尝试以下方法：

单击 刷新按钮或者梢候再试。

打开 172.16.15.75 主页，然后查找与所需信息相关的链接。
HTTP 500.100 - 内部服务器错误 - ASP 错误
Internet 信息服务

--------------------------------------------------------------------------------

技术信息（适用于支持人员）

错误类型：
cc (0x800A000D)
/upfiles.asp, 第 27 行


浏览器类型：
Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0)

页：
POST 114 bytes to /upfiles.asp

POST 数据:
file1=C%3A%5CDocuments+and+Settings%5CAdministrator%5CMy+Documents%5CMy+Pictures%5C332438.jpg&submit1=%C9%8F%3F%3F

时间：



27行就是k=aso.savefile(filename)

[kink]

Tal(Tal)
你的方法不行啊，还是报一样的错

[swans]

Public Function SaveFile(ByVal pathname As String) As String

On Err GoTo ErrorCode

SaveFile = "OK!"
Exit Function
ErrorCode:
SaveFile = Err.Description
End Function

[sfar]

regsvr32 /u cc.dll
regsvr32 cc.dll

[kink]

还是不行
--------------------------------------------------------------------------------

请尝试以下方法：

单击 刷新按钮或者梢候再试。

打开 172.16.15.75 主页，然后查找与所需信息相关的链接。
HTTP 500.100 - 内部服务器错误 - ASP 错误
Internet 信息服务

--------------------------------------------------------------------------------

技术信息（适用于支持人员）

错误类型：
Microsoft VBScript 运行时错误 (0x800A000D)
/upfiles.asp, 第 27 行

[kink]

靠，tmd
重起了iis服务就好了！！

谢谢大家了

[yestou]

是的。刚组册过组件要重启ISS的。