使用VB将ASP代码封装到DLL文件完整实例
使用VB将ASP代码封装到DLL文件完整实例
http://blog.csdn.net/cncco/archive/2007/10/20/1834865.aspx
用VB封装ASP，建立SayHello测试程序
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
=================
以上代码在VB6,Win2003下测试通过.
说明:
声明部分:我们在调用自己的aplaction时,先要声明
OnStartPage部分:当ASP执行时就是在服务器上创建这�
相关文档：
试着用了一下MindManager,使用很容易,下面是我练习着做的一个图形,希望以后会越用越熟练,做得更好!
& ......
VB无所不能之五：建立“标准”DLL动态链接库文件（2）
——作者：钟声
博客地址：http://blog.csdn.net/useway
昨天我们讲到，如何通过特殊方法获取OBJ文件，那么今天我们继续讲如何进行编译连接。
......
GetAllSettings（appname，section）
GetSetting（appname，section，key[，default]） ：读取注册表信息
SaveSetting appname，section，key，setting：向注册表中写入一个注册信息
deletesetting appname，section，key，setting：删除注册表信息
·appname：应用程序名，字符串类型，用户指定
·sec ......
Option Explicit
Private Declare Function CreatePipe Lib "kernel32" (phReadPipe As Long, phWritePipe As Long, lpPipeAttributes As SECURITY_ATTRIBUTES, ByVal nSize As Long) As Long
Private Declare Function WriteFile Lib "kernel32" ......
dim conn,connstr
Set conn = Server.CreateObject("ADODB.Connection")'创建一个数据库链接对象conn，方便后面调用
connstr="Provider=SQLOLEDB;Data Source=(local);Initial Catalog=111;User ID=sa;Password=1234;" '创建一个数据库的recordset对象，方便以后调用
conn.Open connstr'打开数据库 ......
