用VB 6封装ASP代码, 制作DLL组件

最新推荐文章于 2024-11-20 15:51:34 发布

原创最新推荐文章于 2024-11-20 15:51:34 发布 · 1.8k 阅读

2 ·

CC 4.0 BY-SA版权

文章标签：

#vb #dll #asp #microsoft #sql server #application

ASP 专栏收录该内容

18 篇文章

订阅专栏

文章提供了一个创建ASP组件的范例。启动VB6.0新建Active dll工程，引用相关库，修改类模块和工程名称，在类文件中写入必要语句并定义公有函数，编译生成dll文件并注册。最后用Visual InterDev打开global.asa文件，设置连接信息，在其他页面调用连接SQL Server。

这篇文章只是提供一个范例, 用户必须根据具体需求灵活运用.
推荐优快云龙卷风.Net 的Blog ASP组件的例子:
http://blog.youkuaiyun.com/online/category/9939.aspx

启动vb6.0，新建-->Active dll工程。单击"工程"-->引用,选择"microsoft active server pages

object library"
和"microsoft activeX data objects 2.1 library"两项。将类模块的名称改为dcss.将工程的名称

改为yygwy.保存工程文件yygwy.vbp和类文件dcss.cls。
在dcss.cls中写入:
Private myscriptingcontext As ScriptingContext
Private myapplication As Application
Private myrequest As Request
Private myresponse As Response
Private myserver As Server
Private mysession As 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

'以上语句是必须的。
'定义两个公有函数

Public function rsresult(strsql As String) As Recordset
Dim mycnn As Connection
Dim myset As Recordset
Dim strconnstring As String
'strconnstring = "provider=sqloledb.1;
password=;" & "user id=sa;" & "initial catalog=vlog;" & "data source=hpe60;
connect timeout=15"
strconnstring = "driver={sql server};server=yang;uid=sa;pwd=;
database=dcss"
'mycnn.ConnectionString = strconnstring
mycnn.Open strconnstring
myset.ActiveConnection = mycnn
myset.Open strsql, mycnn, 3, adCmdText
Set rsresult = myset
End function

Public function datasource() As Variant
datasource = "driver={sql server};server=yang;uid=sa;pwd=; database=dcss"
End function

编译生成dcss.dll文件。注册regsvr32 路径dcss.dll。
用visual interdev打开global.asa文件.当然了，你也可以在其它文件中使用。
set    dcss=server.CreateObject("yygwy.dcss")
oconn=dcss.datasource()
application("strconn")=oconn

在其它的页面中如下调用即可：
set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open application("strconn")