ASP 调用dll及封装dll实例

内容导读

互联网集市收集整理的这篇技术教程文章主要介绍了ASP 调用dll及封装dll实例，小编现在分享给大家，供广大互联网技能从业者学习和参考。文章包含2162字，纯文字阅读大概需要4分钟。

内容图文

'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引用的.
            
            


           
                
                                                

内容总结

以上是互联网集市为您收集整理的ASP 调用dll及封装dll实例全部内容，希望文章能够帮你解决ASP 调用dll及封装dll实例所遇到的程序开发问题。 如果觉得互联网集市技术教程内容还不错，欢迎将互联网集市网站推荐给程序员好友。

内容备注

版权声明：本文内容由互联网用户自发贡献，该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容， 请发送邮件至 gblab@vip.qq.com 举报，一经查实，本站将立刻删除。

内容手机端