dll封装后,ASP调用
来源:互联网 发布:红脖子 知乎 编辑:程序博客网 时间:2024/06/06 02:07
Option Explicit
'VB ActiveX DLL 类模块代码
'
'-----引用ASP中的一些设置------
Private ScriptingContext As ASPTypeLibrary.ScriptingContext
Private Server As ASPTypeLibrary.Server
'以下两个子程序是必须的
Public Sub OnStartPage(PassedScriptingcontext As ScriptingContext)
Set ScriptingContext = PassedScriptingcontext
Set Server = ScriptingContext.Server
End Sub
Public Sub OnEndPage()
'取消所有的引用
Set ScriptingContext = Nothing
Set Server = Nothing
End Sub
'如使用SQL的数据库,上面这些可以不要,否则要引用asp.dll Microsoft Active Server Pages Object Library
'要引用 Microsoft ActiveX Data Objects 2.8 Library
Public Function ConnS() As ADODB.Connection
Dim Con As ADODB.Connection
Set Con = New ADODB.Connection
'ACCESS
Con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("#webdb.mdb")
'SQL
'Con.Open "Provider = SQLoledb; User ID = sa; Password = 123456; Initial Catalog = bbs; Data Source = 192.168.0.100;"
Set ConnS = Con
Set Con = Nothing
End Function
'ASP的CONN.ASP中的写方法
Dim Conn, Con
Set Conn = Server.CreateObject("ADODB.Connection")
Set Con = Server.CreateObject("工程名称.类模块名称")
Set Conn = Con.ConnS
'ASP中就可以使用如rs.open "Select * FROM [Table]",conn,1,1、Conn.Excute("Select * FROM [Table]") 这些一样操作了
如果要求可修改的
VB中的代码如下
Public Function ConnS(ByVal DbFile As String) As ADODB.Connection
Dim Con As ADODB.Connection
Set Con = New ADODB.Connection
'ACCESS
Con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & DbFile
Set ConnS = Con
Set Con = Nothing
End Function
'ASP的CONN.ASP中的写方法
Dim Conn, Con
Set Conn = Server.CreateObject("ADODB.Connection")
Set Con = Server.CreateObject("工程名称.类模块名称")
Set Conn = Con.ConnS(server.mappath("dbname.mdb"))
- dll封装后,ASP调用
- asp调用dll及asp封装dll实例
- asp封装dll
- asp封装dll
- asp封装dll
- 关于 asp封装dll
- CUDA: DLL封装调用
- 关于 ASP 封装DLL 问题!
- 关于 ASP 封装DLL 问题!
- ASP.NET调用DLL
- dll导出函数调用封装
- C++封装DLL并调用
- VB封装DLL并调用
- 关于C++调用C#封装的dll后,获取C#中string返回值的问题
- ASP.NET 封装JS文件到DLL中并在页面中调用
- 在ASP文件调用DLL
- 在ASP中调用dll
- asp.net调用vc dll
- struts中的errors.header与errors.footer
- 什么是最理想的软件保护方法?
- CRM——赢得“心”的营销
- Palm OS 5开发概述
- MINUS、INTERSECT 和UNION的用法介绍
- dll封装后,ASP调用
- 用VB 6封装ASP代码, 制作DLL组件
- DELPHI中的快捷方式一览(完全正式版)
- oracle的学习小总结及其与sqlserver小区别
- 以IT为标准 把男人分类到底
- 调试Release版本应用程序
- 今天下午写两个函数,还是比较通用的~~~
- 配置Maven
- DotNet Framework不协调的一面 ??