用MVC,程序和网页分离。安全不太清楚,不过对稍微大点的项目,省事倒是真的。

解决方案 »

  1.   

    下面是把数据库连接信息隐藏到DLL中。大家在书写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")