Question

如何将ASP代码用VB转成DLL组件？

假设我有一段ASP代码如下：

Function AAAA(ByVal Temp)
AAAA=eeee
End Function
假设我要将上面的代码用VB写成DLL组件，然后我在ASP中要可以调用AAAA
如何操作呢？
打开VB，新建工程，选ActiveX DLL

然后要怎么处理呢？

最好符上代码，小弟先谢了！

Answer 1

先建立工程名(project1)和类名(class1)。然后从菜单中选择"工程",然后在其中选择"引用",就会出现"引用"窗口从中选择microsoft activex data object 2.0 library。

public objcontext as objectcontext
public application as asptypelibrary.application
public server as asptypelibrary.server
public session as asptypelibrary.session
public response as asptypelibrary.response
public request as asptypelibrary.request

‘class1.cls中的代码放在这里，其它不要改，自动生成：

Function AAAA(ByVal Temp)
AAAA=eeee
End Function

private sub class_terminate()
on error resume next
set application = nothing
set server = nothing
set session = nothing
set request = nothing
set response = nothing
set objcontext = nothing
end sub

在vb的下拉菜单中选择文件→生成如test.dll→选择要保存的目录。找到test.dll将其复制到系统盘system32文件夹中，最后一步注册dll文件。在开始菜单中选择运行输入regsvr32 c:\winnt\system32\test.dll。(其实不注册也行)

下面就是调用了

在asp页面中
set rs = server.createobject("project1.class1")

rs.AAAA()' 输出就可以了

Answer 2

过.....