 |
|
|
 首页 |
名片设计 CorelDRAW Illustrator AuotoCAD Painter 其他软件 Photoshop Fireworks Flash |
|
其实，大家在书写asp程序时，最担心的可能就是数据库的连接信息，会被一些人看到，进行一些破坏。下面我们用vb6.0来做一个动态链接库(.dll)来隐藏数据库的连接信息。 启动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") 返回类别: 教程 上一教程: 在ASP中访问和更新COOKIES集合 下一教程: 判定函数一览 您可以阅读与"将连接数据库的代码隐藏在DLL中"相关的教程: · 连接各种数据库的代码的总结 · ASP连接数据库的全能代码 · 用VB生成DLL封装ASP代码，连接数据库 · ASP中五种连接数据库的方式 · ASP中连接数据库的5种方式 |
  |
| 快精灵印艺坊 版权所有 |
首页 会员中心在线印刷在线编辑付款方式索取样品设计指南连锁门店
|
||
