其实大家在书写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和类文件dc ss.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  Record
Dim  mycnn  As  Connection
Dim  my  As  Record
Dim  strconn  As  String
'strconn  =  "provider=sqloledb.1;
password=;"  &  "user  id=sa;"  &  "initial  catalog=vlog;"  &  "data  source=hpe60;
connect  timeout=15"
strconn  =  "driver={sql  server};server=yang;uid=sa;pwd=;   
database=dcss"
'mycnn.ConnectionString  =  strconn
mycnn.Open  strconn
my.ActiveConnection  =  mycnn
my.Open  strsql,  mycnn,  3,  adCmdText
Set  rsresult  =  my
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  erdev打开global.asa文件.当然了你也可以在其它文件中使用

    dcss=server.CreateObject("yygwy.dcss")   
oconn=dcss.datasource      & nbsp;    
application("strconn")=oconn   

在其它页面中如下即可:

  objConn  =  Server.CreateObject("ADODB.Connection")
objConn.Open  application("strconn")

上篇文章: 利用HOOK拦截封包原理

下篇文章: dll插入系统进程源码！算是写木马经典了