asp调用dll及asp封装dll实例

asp调用dll及asp封装dll实例

   写过一段时间的.net之后,再回过头来看asp,其实asp也同样可以像.net那样把代码进行封装的,感觉其实很爽的.但.net就是.net优势还是很明显的了,所以如果有些朋友想更深入的学习的话,还是选择.net.
    不过今天还是把asp封装的问题写一写,我想网上也有很多这方面的文章,但在这里还是给大家写一个比较简单和实用的出来,便于大家上手,可能有些朋友特别是一些刚学这方面的朋友有所帮助,当然首页要准备的最重要的是vb工具了我用vb6.0

    启动你的VB,选择ActiveX图标.这个图标可以在新建工程找到!VB会提供一个默认的工程名(project1)和类名(class1).我们会将这两个名字都改掉.在改名之前,请首先确认我们拥有Microsoft Active Server Pages Object Library,它在我们的程序非常有用.从菜单中选择"工程",然后在其中选择"引用",就会出现"引用"窗口
从中选择Microsoft Active Server Pages Object Library.

     首先在vb中建一个类文件:工程名:exp

    代码:

Dim MyApplication As Application
Dim MyRequest As Request
Dim MyResponse As Response
Dim MyServer As Server
Dim MySession As 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


Public Sub hellow()
MyResponse.Write ("Hello World")
End Sub

Public Sub google()
MyResponse.Write ("ssssssssssss")
End Sub

说明:ScriptingContext传送给我们的对象请我们使用.这个ScriptingContext包括了全部的ASP方法和属性.实现上,这使得我们有能力访问所有ASP的对象

当然这里还有一步就是生成exp.dll文件了,生成之后就可以用  regsvr32 d:/vb-asp/exp.dll 注册了.(很生要)

asp页面:

<%@ Language=VBScript%>
<HTML>
<HEAD>
<TITLE>Example 1</TITLE>
</HEAD> <BODY>

<%
dim Obj
Set Obj = Server.CreateObject("exp.aspdll")
Obj.hellow
response.write("<br>")
Obj.google
%>

</BODY>
</HTML>

   说明:

Set Obj = Server.CreateObject("exp.aspdll")  其中,exp为工程名,aspdll为类名.Set Obj = Server.CreateObject("工程名.类名称") 

测试通过.

===========================================================

对于更复杂的运用,大家可以通过这个实例向外扩展就可以了.

 

如:

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


文章出处:飞诺网(www.firnow.com):http://dev.firnow.com/course/4_webprogram/asp/aso_js/20071226/94440_2.html

posted on 2010-10-29 09:27 aiaiwoo 阅读(523) 评论(0)  编辑  收藏 所属分类: ASP/Visual Basic


只有注册用户登录后才能发表评论。


网站导航:
 
<2022年8月>
31123456
78910111213
14151617181920
21222324252627
28293031123
45678910

导航

统计

常用链接

留言簿

随笔分类

文章分类

文章档案

搜索

最新评论

阅读排行榜

评论排行榜