2.8w+
社区成员
- 主页
用vb6 做了一个组件，调用时老是不行，帮忙看一下
建立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) 结果这行老是报错
刚开始写组件，不懂的挺多，望指教
类：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) 结果这行老是报错
刚开始写组件，不懂的挺多，望指教
...全文
请发表友善的回复…
发表回复
yestou 2004-06-14
是的。刚组册过组件要重启ISS的。
kink 2004-04-05
靠，tmd
重起了iis服务就好了！！
谢谢大家了
重起了iis服务就好了！！
谢谢大家了
kink 2004-04-05
还是不行
--------------------------------------------------------------------------------
请尝试以下方法：
单击 刷新按钮或者梢候再试。
打开 172.16.15.75 主页，然后查找与所需信息相关的链接。
HTTP 500.100 - 内部服务器错误 - ASP 错误
Internet 信息服务
--------------------------------------------------------------------------------
技术信息（适用于支持人员）
错误类型：
Microsoft VBScript 运行时错误 (0x800A000D)
/upfiles.asp, 第 27 行
--------------------------------------------------------------------------------
请尝试以下方法：
单击 刷新按钮或者梢候再试。
打开 172.16.15.75 主页，然后查找与所需信息相关的链接。
HTTP 500.100 - 内部服务器错误 - ASP 错误
Internet 信息服务
--------------------------------------------------------------------------------
技术信息（适用于支持人员）
错误类型：
Microsoft VBScript 运行时错误 (0x800A000D)
/upfiles.asp, 第 27 行
sfar 2004-04-05
regsvr32 /u cc.dll
regsvr32 cc.dll
regsvr32 cc.dll
swans 2004-04-05
Public Function SaveFile(ByVal pathname As String) As String
On Err GoTo ErrorCode
SaveFile = "OK!"
Exit Function
ErrorCode:
SaveFile = Err.Description
End Function
On Err GoTo ErrorCode
SaveFile = "OK!"
Exit Function
ErrorCode:
SaveFile = Err.Description
End Function
kink 2004-04-05
Tal(Tal)
你的方法不行啊，还是报一样的错
你的方法不行啊，还是报一样的错
kink 2004-04-05
页无法显示
试图访问的网页出现问题，无法显示。
--------------------------------------------------------------------------------
请尝试以下方法：
单击 刷新按钮或者梢候再试。
打开 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)
试图访问的网页出现问题，无法显示。
--------------------------------------------------------------------------------
请尝试以下方法：
单击 刷新按钮或者梢候再试。
打开 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)
Tal 2004-04-05
k=aso.savefile(filename) 结果这行老是报错
--->>
报什么错啊?
你可用
k=aso.SaveFile(filename &"")
--->>
报什么错啊?
你可用
k=aso.SaveFile(filename &"")
kink 2004-04-05
请明示
qiao198 2004-04-05
是这样呀，
你用调试语句看看！
你用调试语句看看！
kink 2004-04-05
没人？？？