28,402
社区成员
发帖
与我相关
我的任务
分享在ASP中调用vb6开发的activex DLL的方法
首先，打开VB，在新建工程类型里面，选择ActiveX Dll
然后，我把系统默认生成一个类模块Class1改为FirstClass。
下面，为对象FirstClass编写代码
Public Function getVersion() as String
getVersion = "我的第一个DLL，版本1.0"
End Function
把默认工程名称”工程1改成myclss
最后生成相应的mydll.dll
下面，我在Asp网页中使用这个Dll,程序如下：
<%
Set obj = Server.CreateObject("CqqLib.FirstClass")
response.write obj.getVersion
%>
但系统提示"无法显示网页","HTTP 500 - 内部服务器错误 "
我的系统环境是winxp sp1专业版+vb6迷你版
然后，我把系统默认生成一个类模块Class1改为FirstClass。
下面，为对象FirstClass编写代码
Public Function getVersion() as String
getVersion = "我的第一个DLL，版本1.0"
End Function
把默认工程名称”工程1改成myclss
最后生成相应的mydll.dll
下面，我在Asp网页中使用这个Dll,程序如下：
<%
Set obj = Server.CreateObject("CqqLib.FirstClass")
response.write obj.getVersion
%>
但系统提示"无法显示网页","HTTP 500 - 内部服务器错误 "
我的系统环境是winxp sp1专业版+vb6迷你版
...全文
请发表友善的回复…
发表回复
sxlhl 2007-02-23
- 打赏
- 举报
谢谢各位的热心帮助！
bob_wang526 2006-09-21
- 打赏
- 举报
还有一个最简单的错误,就是忘了命名类和工程名称,- -!
smws 2006-09-21
- 打赏
- 举报
首先在工程中添加引用：Microsoft Active Server Pages Obiect Library
需要注册regsvr32 盘符:/路径/firstclass.dll
asp代码部分：因为你写的是函数而不是过程，所以需要赋值
<%
Set obj = Server.CreateObject("myclss.FirstClass")
getVersion = obj.getVersion
response.write（getVersion）
%>
需要注册regsvr32 盘符:/路径/firstclass.dll
asp代码部分：因为你写的是函数而不是过程，所以需要赋值
<%
Set obj = Server.CreateObject("myclss.FirstClass")
getVersion = obj.getVersion
response.write（getVersion）
%>
online 2006-09-01
- 打赏
- 举报
应该是myclss.FirstClass
大猫钓鱼 2006-09-01
- 打赏
- 举报
mark
li_net 2006-08-30
- 打赏
- 举报
学习，那位商手最好能转一下相关的资料，谢谢！
pixiness717 2006-08-30
- 打赏
- 举报
首先需要注册regsvr32 firstclass.dll
另外
<%
Set obj = Server.CreateObject("myclss.FirstClass")
response.write obj.getVersion
%>
另外
<%
Set obj = Server.CreateObject("myclss.FirstClass")
response.write obj.getVersion
%>
leohuang 2006-08-19
- 打赏
- 举报
啊,这贴又顶上来了
是Common Dialog Control吧,直接插入ActiveX控件就可以了
是Common Dialog Control吧,直接插入ActiveX控件就可以了
wlxjly 2006-08-19
- 打赏
- 举报
我没有接触过这方面不过我按楼上诸位神人说的
1。regsvr32 D:\dll\myproject.dll（函数跟搂主的一样）
2。asp文件加入
<%
Set obj = Server.CreateObject("myproject.myclass")
response.write obj.getVersion
%>
IIS中运行后
显示： 我的第一个DLL，版本1.0
问高人们一个问题，怎样把VB中的组件common control dialog 组件弄成asp可使用的??
1。regsvr32 D:\dll\myproject.dll（函数跟搂主的一样）
2。asp文件加入
<%
Set obj = Server.CreateObject("myproject.myclass")
response.write obj.getVersion
%>
IIS中运行后
显示： 我的第一个DLL，版本1.0
问高人们一个问题，怎样把VB中的组件common control dialog 组件弄成asp可使用的??
sxlhl 2006-07-30
- 打赏
- 举报
应该是myclss.FirstClass
<%
Set obj = Server.CreateObject("myclss.FirstClass")
response.write obj.getVersion
%>
好像也不对
<%
Set obj = Server.CreateObject("myclss.FirstClass")
response.write obj.getVersion
%>
好像也不对
sxlhl 2006-07-29
- 打赏
- 举报
我看了网上好多种方法,说的简单,好像都不行
飞驰的青蛙 2006-07-29
- 打赏
- 举报
学习
sxlhl 2006-07-29
- 打赏
- 举报
其他程序能运行
ice241018 2006-07-29
- 打赏
- 举报
是不是你的IIS有问题
其他程序能运行吗？
其他程序能运行吗？
FIREGUNS 2006-07-29
- 打赏
- 举报
VB里要引用asp模块
sxlhl 2006-07-29
- 打赏
- 举报
编译成组件要在运行里面注册
regsvr32 你的组件名称
这个我已经试过了, 不行
regsvr32 你的组件名称
这个我已经试过了, 不行
sxlhl 2006-07-29
- 打赏
- 举报
打开ie-->工具--》选项--》高级--》将“显示友好的http错误的钩去掉”
看是什么错误
错误是
Server Application Error
The server has encountered an error while loading an application during the processing of your request. Please refer to the event log for more detail information. Please contact the server administrator for assistance.
看是什么错误
错误是
Server Application Error
The server has encountered an error while loading an application during the processing of your request. Please refer to the event log for more detail information. Please contact the server administrator for assistance.
ice241018 2006-07-29
- 打赏
- 举报
编译成组件要在运行里面注册
regsvr32 你的组件名称
regsvr32 你的组件名称
ice241018 2006-07-29
- 打赏
- 举报
打开ie-->工具--》选项--》高级--》将“显示友好的http错误的钩去掉”
看是什么错误
看是什么错误
leohuang 2006-07-29
- 打赏
- 举报
应该是myclss.FirstClass
<%
Set obj = Server.CreateObject("myclss.FirstClass")
response.write obj.getVersion
%>
<%
Set obj = Server.CreateObject("myclss.FirstClass")
response.write obj.getVersion
%>
加载更多回复（1）
