几个经典的ASP应用(3)

  File = "\\server\share\file.mdb"
  Set Conn = CreateObject("DAO.DBEngine.35").Workspaces(0).OpenDatabase(File,,ReadOnly)
  Set RS = Conn.OpenRecordset(SQL) 


  方式b. ADO + Jet OLE DB provider方式


  Dim Conn, RS
  Set Conn = CreateObject("ADODB.Connection")
  Conn.Provider = "Microsoft.Jet.OLEDB.4.0"
  Conn.Open "\\server\share\file.mdb"
  Set RS = Conn.Execute(SQL) 


   确定在运行ASP页面时有足够的访问权限以访问远程计算机上的MDB文件，在访问MDB文件前需要先

  登录到远程计算机，添加下面的代码


     Set UM = CreateObject("UserManager.Server")
    UM.LogonUser "帐号", "口令", "域"
...
open database
...
    UM.RevertToSelf