会员登陆
登录加载中...
超级搜索
栏  目  
类  别  
关键词  
 站内搜索   网络搜索
  
 当前位置:文章首页>>网页编程>>ASP实例>>ASP 调用dll及封装dll实例
推荐给你的朋友阅读:

ASP 调用dll及封装dll实例

来源:ASP之家 发表日期: 2011-04-27 18:15:10

    1、打开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引用的.

0
0
[作者:匿名 关键词:ASP,dll 录入:raincity 责编:raincity 阅读次数:2237]

相关文章 相关新闻 相关软件 相关教程 公共评论 发表评论

  • ·暂无相关内容
    评论载入中...
    您的称呼  验 证 码   
    您的评论 [ 最多字数:  已用字数:剩余字数:]

     
COPYRIGHT 2003-2010 创意飞腾科技有限公司(The Feitec LTD.) ALL RIGHTS RESERVED .
官方咨询官方咨询4376161 官方咨询526743959 技术支持:FeitecCMS5366464
页面加载时间:156.25ms Powered By:FeitecCMS V4.0(Build1101)
[蜀ICP备05000881]