三、程序清單

'以下程序用VBScript編寫

2）建立帶密碼的Mdb數據庫的Recordset對象，它的建立方式與建立不帶密碼的Mdb數據庫的Recordset對象類似，只是多了一個密碼參數，即在與數據庫連接時，必須給出密碼信息。

Function CreateSecuredMdbRecordset( 數據庫文件名, 數據表名或Select語句，password )

Dim conn,Provider,DBPath

' 建立Connection 對象
Set conn = Server.CreateObject("ADODB.Connection")
Provider = "Provider=Microsoft.Jet.OLEDB.4.0;"
DBPath = "Data Source=" & Server.MapPath( "數據庫文件名" )
' 連接數據庫,注意下面一行帶有密碼參數
conn.Open Provider & DBPath&”Jet OLEDB:Database Password=”&assword
Set CreateSecuredMdbRecordset = Server.CreateObject("ADODB.Recordset")
' 打開數據表，參數二為Connection對象
CreateSecuredMdbRecordset.Open "數據表名", conn, 2, 2

End Function