zoukankan      html  css  js  c++  java
  • ASP 调用dll(VB)及封装dll实例

    ASP调用dll及封装dll实例,封装为dll可以提供运行效率,加密代码。

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

  • 相关阅读:
    实战MEF(4):搜索范围
    实战MEF(3):只导出类的成员
    Mac 配置 php-fpm 时出现'/private/etc/php-fpm.conf': No such file or directory (2)
    如何实现在H5里调起高德地图APP?
    PHPExcel 基本用法详解
    最简单的css实现页面宽度自适应
    去掉IntelliJ IDEA 中 mybatis 对应的 xml 文件警告
    SQLyog恢复数据库报错解决方法【Error Code: 2006
    解决svn log显示no author,no date的方法之一
    Centos 7(Linux)环境下安装PHP(编译添加)相应动态扩展模块so(以openssl.so为例)
  • 原文地址:https://www.cnblogs.com/love828/p/3304449.html
Copyright © 2011-2022 走看看