Function CreateSecuredMdbRecordset( 数据库文件名, 数据表名或Select语句,password ) Dim conn,Provider,DBPath ’建立Connection 对象 Set conn = Server.CreateObject(“ADODB.Connection”) Provider = “Provider=Microsof.Jet.OLEDB.4.0;” DBPath = “Data Source=”& Server.MapPath(“数据库文件名”) ’连接数据库,注意要带有密码参数 conn.Open Provider & DBPath&“Jet OLEDB:Database Password=”&assword Set CreateSecuredMdbRecordset = Server. CreateObject(“ADODB.Recordset”) ’打开数据表 CreateSecuredMdbRecordset.Open “数据表名”, conn, 2, 2 End Function |