ASP 调用dll及封装dll实例

OStack程序员社区-中国程序员成长平台 › 门户 › 编程› ASP.NET›ASP.NET编程经验

原作者: [db:作者] 来自: [db:来源] 收藏邀请

打开VB6，新建ActiveX DLL
2、在工程引用中加入Microsoft Active Server Pages Object Library选择
3、填加代码如下：

 
'Code Start 
'声明部分 
Private MyScriptingContext As ScriptingContext 
Private MyApplication As Application 
Private MyRequest As Request 
Private MyResponse As Response 
Private MyServer As Server 
Private MySession As Session 
'下面定义公用函数（在VB中访问ASP对象，即在VB中可以用MyApplication等同于ASP中的Application、MyRequest等同于ASP中的Request、 MyResponse等同于ASP中的Response、 MyServer等同于ASP中的Server、 MySession等同于ASP中的Session 使用） 
Public Sub OnStartPage(PassedScriptingContext As ScriptingContext) 
Set MyScriptingContext = PassedScriptingContext 
Set MyApplication = MyScriptingContext.Application 
Set MyRequest = MyScriptingContext.Request 
Set MyResponse = MyScriptingContext.Response 
Set MyServer = MyScriptingContext.Server 
Set MySession = MyScriptingContext.Session 
End Sub 
Public Sub OnEndPage() 
Set MyScriptingContext = Nothing 
Set MyApplication = Nothing 
Set MyRequest = Nothing 
Set MyResponse = Nothing 
Set MyServer = Nothing 
Set MySession = Nothing 
End Sub 
'建立自定义函数SayHello 
Public Sub SayHello() 
MyResponse.Write ("Hello World") 
End Sub 
'Code End 

4、将类名改为：HelloWorld 将工程名改为：TestVBCode
5、生成TestVBCode.DLL文件，并使用Windows运行注册组件命令Regsvr32 路径\TestVBCode.DLL注册后即可使用。（卸载组件命令为Regsvr32 /u 路径\TestVBCode.DLL）
6、建立Test.asp文件，代码如下

复制代码代码如下:

 
<% 
'VB自建函数调用格式 
'Set 对象名=Server.CreateObject("工程名.类名") 
'对象名.自建函数名 
Set MyTestObj = Server.CreateObject("TestVBCode.HelloWorld") 
MyTestObj.SayHello 
%> 

7、运行Test.asp文件结果显示如下：
Hello World
===========================================================
对于更复杂的运用,大家可以通过这个实例向外扩展就可以了.
如:

复制代码代码如下:

 
Public Sub connstr2() 
Set conn = MyServer.CreateObject("ADODB.Connection") 
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & MyServer.MapPath("codata.mdb") 
Set rs = conn.Execute("select * from news") 
Do While Not rs.EOF 
MyResponse.Write (rs("news_title") & "<br>") 
rs.MoveNext 
Loop 
rs.Close 
Set conn = Nothing 
End Sub 

这个是用数据库连接的代码封装,当然这里要添加ADO引用的.