使用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执行时就是在服务器上创建这�
相关文档：
len（string）：计算字符串长度函数。返回字符串string中字符的个数。一个汉字为一个字符，空格也为一个字符，空字符串的长度为0.
Ltrim（string）、Rtrim（string）、Trim（string）：
Ltrim（string）函数功能是返回删除了字符串string左边空格之后剩余的部分。
Rtrim（string）函数功能是返回删除了字符串中string� ......
'在引用里添加ADODB
Public vscn As ADODB.Connection
Public SQLString As String
SQLString = "Provider=SQLOLEDB.1;Password=密码;Persist Security Info=True;User ID=用" & _
"户;Initial Catalog=数据库名;Data Source=服务器名"
......
GetAllSettings（appname，section）
GetSetting（appname，section，key[，default]） ：读取注册表信息
SaveSetting appname，section，key，setting：向注册表中写入一个注册信息
deletesetting appname，section，key，setting：删除注册表信息
·appname：应用程序名，字符串类型，用户指定
·sec ......
引言
采用WEB技术实现B/S（浏览器/服务器）结构的管理系统是办公自动化的发展趋势。基于WEB技术的管理系统，由于开发周期短；与用户平台无关；易于实现交互式应用；能对信息进行快速、高效的收集、处理和发布，近几年来得到了迅速发展。而ASP技术由于其开发效率高、交互性好，安全性强等特点，逐渐成为开发管理系统 ......
